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

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

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

Excelファイルを開かずにシート名をチェック|ExcelマクロVBAサンプル集(3月23日)
数式の参照しているセルを取得する|ExcelマクロVBAサンプル集(3月18日)
CSVの読み込み方法(改の改)|ExcelマクロVBAサンプル集(3月17日)
変数とプロシージャーの命名について|ExcelマクロVBA技術解説(2月12日)
ファイルの一覧取得・削除(File)|Google Apps Script入門(1月24日)
フォルダの一覧取得・作成・削除(Folder)|Google Apps Script入門(1月24日)
フォルダとファイルを扱う(DriveApp)|Google Apps Script入門(1月24日)
スプレッドシートが非常に遅い、高速化するには|Google Apps Script入門(1月17日)
画像のトリミング(PictureFormat,Crop)|ExcelマクロVBAサンプル集(12月27日)
シート保護|Google Apps Script入門(12月24日)

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

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い方|ExcelマクロVBA入門
3.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.セルの参照範囲を可変にする(OFFSET,COUNTA,MATCH)|エクセル関数超技
6.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
7.変数とデータ型(Dim)|ExcelマクロVBA入門
8.ひらがな⇔カタカナの変換|エクセル基本操作
9.CSVの読み込み方法|ExcelマクロVBAサンプル集
10.VBAのFindメソッドの使い方には注意が必要です|ExcelマクロVBA技術解説



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

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


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

    ↑ PAGE TOP