Excelユーザーフォーム入門
第9回.標準モジュールとフォーム間のデータ受け渡しT

Excelマクロのユーザーフォームの基礎、エクセルVBAの入門解説
最終更新日:2013-06-04

第9回.標準モジュールとフォーム間のデータ受け渡しT


今回は、


フォームが起動された時、起動したシートのアクティブセルの行数を知る方法について解説します。


前回までに作成したものは、

標準モジュールに、

Sub FormShow()
  frmSample.Show
End Sub

フォームモジュールに、

Private Sub UserForm_Initialize()
  Dim i As Long
  With Worksheets("顧客マスタ")
    i = ActiveCell.Row
    Me.txtコード.Text = .Cells(i, 1)
    Me.txt漢字名称.Text = .Cells(i, 2)
    Me.txtカナ名称.Text = .Cells(i, 3)
  End With
End Sub

Private Sub btnOk_Click()
  Dim lastRow As Long
  With Worksheets("顧客マスタ")
    lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(lastRow, 1) = Me.txtコード.Text
    .Cells(lastRow, 2) = Me.txt漢字名称.Text
    .Cells(lastRow, 3) = Me.txtカナ名称.Text
  End With
  Unload Me
End Sub

以上です。


しかし、シート名が固定なのは、まあ良しとしても、ActiveCell.Row、これはちょっと面白くないです。

フォームが起動された時、起動したシートのアクティブセルの行数を知る事が出来れば良いのです。

その方法は何通りかあり、バリエーションを考えたら無数にありますが、

以下のパターンを把握すれば良いでしょう。

1.シートのセルを使う
2.標準モジュールのグローバル変数を使う
3.標準モジュールからフォームのコントロールを操作する
4.Subプロシージャーの引数を使う
5.Functionプロシージャーの戻り値を使う


1.は前回作成したものとほぼ同じ意味なので解説は省略します。

2.3.は、変数を定義する場所の違いだけですが、

使い方に若干の違いがありますので、それぞれ参考コードで解説します。

そして、4.5.は、なかなか解説している書籍・サイトがないでしょうから、

少し詳しく解説する予定です。

では、今回は、2.3.の2通りの解説をします。


2.標準モジュールのグローバル変数を使う


まずは、標準モジールから、

Option Explicit
Public ActiveRow As Long
Sub FormShow()
  ActiveRow = ActiveCell.Row
  frmSample.Show
End Sub

Publice ActiveRow As Long


このように、グローバル変数を定義し、

そこに値を入れます。

そして、フォームモジュールでは、

Private Sub UserForm_Initialize()
  Dim i As Long
  With Worksheets("顧客マスタ")
    i = ActiveRow
    Me.txtコード.Text = .Cells(i, 1)
    Me.txt漢字名称.Text = .Cells(i, 2)
    Me.txtカナ名称.Text = .Cells(i, 3)
  End With
End Sub

ActiveRow


これは、省略せずに書くと、

Module1.ActiveRow

モジュール名.変数

と書きますが、モジュール名は省略しても良いでしょう、

ただし、同一変数が無い事が大前提です。


3.標準モジュールからフォームのコントロールを操作する

まずは、標準モジュールから、

Sub FormShow()
  Dim i As Long
  i = ActiveCell.Row
  frmSample.txtコード = Cells(i, 1)
  frmSample.txt漢字名称 = Cells(i, 2)
  frmSample.txtカナ名称 = Cells(i, 3)
  frmSample.Show
End Sub

このように、標準モジュールから、フォームのコントロールに取得・設定することも可能です。


この場合は、フォームの、

UserForm_Initialize

ここでは何も処理する事がなくなりますね。

フォームにPublic変数を定義して、そこに設定する事も可能ですが、

UserForm_Initializeで初期化されてしまうので、

今回の場合は、この方法は使えません。





同じテーマ「Excelユーザーフォーム入門」の記事

テキストボックス(TextBox)の追加
テキストボックス(TextBox)の値をセルへ
セルの値をテキストボックスへ
標準モジュールとフォーム間のデータ受け渡しT
標準モジュールとフォーム間のデータ受け渡しU
コンボボックス(ComboBox)の追加
リストボックス(ListBox)の追加
チェックボックス(CheckBox)の追加
オプションボタン(OptionButton)の追加
ここまでの整理
アクティブコントロールに色を付ける

新着記事NEW ・・・新着記事一覧を見る

クラスとCallByNameとポリモーフィズム(多態性)|VBA技術解説(4月6日)
VBAでのタイマー処理(SetTimer,OnTime)|VBA技術解説(4月3日)
クラスとイベントとマルチプロセス並列処理|VBA技術解説(4月2日)
エクセルの日付と時刻のまとめ|エクセル関数超技(3月6日)
Excelシートの複雑な計算式を解析するVBA|VBAサンプル集(2月18日)
VBAクラスの作り方:独自Rangeっぽいものを作ってみた|VBA技術解説(2月16日)
VBAクラスの作り方:列名のプロパティを自動作成する|VBA技術解説(2月14日)
VBAクラスの作り方:列名の入力支援と列移動対応|VBA技術解説(2月11日)
クラスを使って他ブックのイベントを補足する|VBA技術解説(2月6日)
Excelアドインの作成と登録について|VBA技術解説(2月3日)

アクセスランキング ・・・ ランキング一覧を見る

1.ひらがな⇔カタカナの変換|エクセル基本操作
2.最終行の取得(End,Rows.Count)|VBA入門
3.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.RangeとCellsの使い方|ExcelマクロVBA入門
6.変数とデータ型(Dim)|ExcelマクロVBA入門
7.マクロって何?VBAって何?|ExcelマクロVBA入門
8.繰り返し処理(For Next)|ExcelマクロVBA入門
9.とにかく書いて見よう(Sub,End Sub)|VBA入門
10.セルに文字を入れるとは(Range,Value)|VBA入門



  • >
  • >
  • >
  • 標準モジュールとフォーム間のデータ受け渡しT

    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。






    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

    本文下部へ