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

最終更新日：2013-06-04

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

今回は、

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

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

標準モジュールに、

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、これはちょっと面白くないです。

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

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

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

１．シートのセルを使う
２．標準モジュールのグローバル変数を使う
３．標準モジュールからフォームのコントロールを操作する
４．Subプロシージャーの引数を使う
５．Functionプロシージャーの戻り値を使う

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

２．３．は、変数を定義する場所の違いだけですが、

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

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

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

では、今回は、２．３．の２通りの解説をします。

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

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

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

モジュール名.変数

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

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

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

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

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で初期化されてしまうので、

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