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

Excelマクロのユーザーフォームの基礎、エクセルVBAの入門解説
最終更新日: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、これはちょっと面白くないです。

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

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

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

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ユーザーフォーム入門」の記事

第6回.テキストボックス(TextBox)の追加
第7回.テキストボックス(TextBox)の値をセルへ
第8回.セルの値をテキストボックスへ
第9回.標準モジュールとフォーム間のデータ受け渡しⅠ
第10回.標準モジュールとフォーム間のデータ受け渡しⅡ
第11回.コンボボックス(ComboBox)の追加
第12回.リストボックス(ListBox)の追加
第13回.チェックボックス(CheckBox)の追加
第14回.オプションボタン(OptionButton)の追加
第15回.ここまでの整理
第16回.アクティブコントロールに色を付ける


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

PowerQueryの強力な機能をVBAから利用する方法|VBA技術解説(8月4日)
練習問題31(セル結合を解除して値を埋める)|VBA練習問題(7月30日)
練習問題30(マトリックス→リスト形式)|VBA練習問題(7月25日)
Applicationを省略できるApplicationのメソッド・プロパティ一覧|VBA技術解説(7月22日)
コレクション(Collection)の並べ替え(Sort)に対応するクラス|VBA技術解説(7月20日)
CSVの読み込み方法(ジャグ配列)|VBAサンプル集(7月15日)
その他のExcel機能(グループ化、重複の削除、オートフィル等)|VBA入門(7月14日)
オートフィルタ退避回復クラスを複数シート対応させるVBAクラス|VBA技術解説(7月6日)
オートフィルタを退避回復するVBAクラス|VBA技術解説(7月6日)
IfステートメントとIIF関数とMax関数の速度比較|VBA技術解説(6月23日)


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

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



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

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


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




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