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

Excelマクロのユーザーフォームの基礎、エクセルVBAの入門解説
公開日:2013年5月以前 最終更新日:2019-12-15

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


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


前回までに作成したVBA

標準モジュール
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 これが・・・
シート名が固定なのは、まあ良しとしても、
フォームモジュール側で、ActiveCell.Row、これを使うのはちょっと面白くない感じです。

フォーム側でアクティブセルの行数を知る方法

フォームが起動された時、起動したシートのアクティブセルの行数を知る事が出来れば良いのです。
その方法は何通りかあり、バリエーションを考えたら無数にありますが、
以下のパターンを把握すれば良いでしょう。

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


単純に、フォームモジュールと標準モジュールのデータ受け渡しとしては、
フォームにPublic変数やPublicプロパティを定義して、そこで設定する事も可能です。
しかし、今回のような場合は、
UserForm_Initializeで初期化されてしまうので、この方法は使えません。

1.は前回作成したものとほぼ同じ意味なので解説は省略します。
2.3.は、変数を定義する場所の違いだけですが、
使い方に若干の違いがありますので、それぞれ参考コードで解説します。

そして、4.5.は、なかなか解説している書籍・サイトがないでしょうから、
次回に少し詳しく解説する予定です。

では、今回は、2.3.の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
モジュール名.変数
このように書きますが、モジュール名は省略しても良いでしょう、
ただし、同一変数が他のモジュールに無い事が大前提です。

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

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

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
ここでは何も処理する事がなくなりますね。



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

第6回.テキストボックス(TextBox)の追加

・テキストボックスの追加 ・テキストボックスの主要なプロパティ ・フォームを表示して確認
第7回.テキストボックス(TextBox)の値をセルへ
・前回までに作成したユーザーフォーム ・ワークシートの用意 ・OKボタンクリック時のイベントプロシージャー作成 ・ユーザーフォームのインテリセンス
第8回.セルの値をテキストボックスへ
・Initializeイベントプロシージャーの追加 ・InitializeイベントプロシージャーのVBAコード ・各モジュール間でのデータ受け渡し方法
第9回.標準モジュールとフォーム間のデータ受け渡しⅠ
第10回.標準モジュールとフォーム間のデータ受け渡しⅡ
・Subプロシージャーの引数を使う ・Functionプロシージャーの戻り値を使う ・標準モジュールとフォーム間のデータ受け渡しについて
第11回.コンボボックス(ComboBox)の追加
・コンボボックスの追加 ・コンボボックスのプロパティ・メソッド ・コンボボックスで選択した値を取得 ・コンボボックスの指定リストを選択状態にする ・複数列のコンボボックス
第12回.リストボックス(ListBox)の追加
・リストボックスの追加 ・リストボックスのプロパィ ・Listプロパティ ・Columnプロパティ ・RowSourceプロパティ ・選択されたリスト項目の取得 ・リストボックスの複数選択 ・IntegralHeightプロパティ
第13回.チェックボックス(CheckBox)の追加
・チェックボックスの追加 ・チェック状態の設定 ・チェック状態の取得
第14回.オプションボタン(OptionButton)の追加
・オプションボタンの追加 ・オプションボタンの状態設定 ・チェック状態の判定 ・オプションボタンのグループ化
第15回.ここまでの整理と全VBA
・ワークシート ・シートモジュール ・標準モジュール ・フォーム ・フォームモジュール
第16回.アクティブコントロールに色を付ける
・フォームモジュール ・EnterイベントとExitイベントをセットで使う方法 ・対応するラベルのフォントを太字にする


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

TRIMRANGE関数(セル範囲をトリム:端の空白セルを除外)|エクセル入門(2024-08-30)
正規表現関数(REGEXTEST,REGEXREPLACE,REGEXEXTRACT)|エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.繰り返し処理(For Next)|VBA入門
3.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
4.変数宣言のDimとデータ型|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.セルのクリア(Clear,ClearContents)|VBA入門
8.メッセージボックス(MsgBox関数)|VBA入門
9.条件分岐(Select Case)|VBA入門
10.ブック・シートの選択(Select,Activate)|VBA入門




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


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


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