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

最終更新日：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で初期化されてしまうので、

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