エクセルVBAのユーザーフォームにセルデータを

質問

Excel2007を使っています。
VBA初心者ですがユーザーフォームのテキストフォームにエクセル内のセルデータを表示させたいと考えています。
以下のコードをユーザーフォームのコードに書いてユーザーフォームを走らせましたがユーザーフォームは表示するのですがデータがまったく表示されません。

どなたかご教授いただけませんでしょうか。

Sub Farst()

Dim Data1 As String
Dim Data2 As String
Dim Data3 As String
Dim Data4 As String
Dim Data5 As String
Dim Data6 As String
Dim Data7 As String
Dim Data8 As String
Dim Data9 As String
Dim Data10 As String
Dim ActiveRow As String

ActiveRow = 4

With Worksheets("MDH,MDO")

Data1 = .Cells(ActiveRow, 1)
Data2 = .Cells(ActiveRow, 2)
Data3 = .Cells(ActiveRow, 3)
Data4 = .Cells(ActiveRow, 4)

Me.TextBox1連番.Text = Data1
Me.TextBox2品番.Text = Data2
Me.TextBox3品番2.Text = Data3
Me.TextBox4品番3.Text = Data4
End With

End Sub

回答No.2

mt2008 · ベストアンサー

ユーザーフォームを表示しただけではユーザフォーム内のプロシージャはコールされません。
ユーザーフォーム内に以下のコードを追加してみて下さい。
「UserForm_Initialize」は、このユーザフォームを開いたときに実行されるプロシージャです。

Private Sub UserForm_Initialize()
　　Call Farst
End Sub

お礼

mt2008様
回答ありがとうございました。
コードを追加したところ意図した表示ができました。
ありがとうございました。

回答No.3

imogasi

Meキーワードについて
http://www.keep-on.com/excelyou/2000lng1/200002/00020091.txt
Sub test02()　'標準モジュールです
UserForm1.Show
Me.TextBox1 = "A"
Me.TextBox2 = "b"
Me.TextBox3 = "c"
End Sub
標準Ｍｅモジュールではエラーになります。
ーー
Sub test01()
UserForm1.TextBox1 = "A"
UserForm1.TextBox2 = "b"
UserForm1.TextBox3 = "c"
UserForm1.Show
ではフォームとテキストボックスも内容も表示されます。
ーー
Sub test02()
UserForm1.Show
UserForm1.TextBox1 = "A"
UserForm1.TextBox2 = "b"
UserForm1.TextBox3 = "c"
はテキストボックスに何も表示されません。
ーー
Private Sub UserForm_Click()
i = 1
UserForm1.TextBox1 = Worksheets(1).Cells(i, 1)
UserForm1.TextBox2 = Worksheets(1).Cells(i, 2)
UserForm1.TextBox3 = Worksheets(1).Cells(i, 3)
End Sub
クリックイベントでテキストボックスは更新される。
ーー
Ｍｅ．・・・については
Private Sub UserForm_Click()
i = 1
Me.TextBox1 = Worksheets(1).Cells(i, 1)
Me.TextBox2 = Worksheets(1).Cells(i, 2)
Me.TextBox3 = Worksheets(1).Cells(i, 3)
End Sub
はＯＫ。
「＞標準モジュールではMeと書かれてもどのオブジェクトかわからないのです」が、この場合はＵｓｅｒＦｏｒｍのイベントの中で、それがわかるからＯＫ。
根底にある「クラス」という考えの理解が必要らしい？
ーー
ユーザーフォームを使うことは、初心者にはむつかしいと思いました。
・表示する指示のタイミング
・Ｍｅはよく判ってから使う
点など。
コントロールのテキストの値などを代入で変えても即座に実行されるわけではないこと。
エクセルＶＢＡでも値をセットする書かれたコードを実行しないと（ＶＢＥにコードを書いただけでは）セルの値は変わらない。

回答No.1

mt2008

変数 ActiveRowを文字型で宣言しておきながら数値を代入したりと言うおかしな箇所は有りますが、一応ちゃんと動きそうなコードではあります。
エラーは出ていないのでしょうか？
出ていないとすると、そもそもこのプロシージャが呼ばれていないとかではないですか？

補足

お世話になります。
回答ありがとうございます。
エラーは特に表示されず、ユーザーフォームが表示されます。

すみませんが、「プロシージャーが呼ばれていない」という箇所をおしえてもらえませんでしょうか。

今のところ、コードはユーザーフォームに先ほど添付しましたコードしかにゅうりょくしていません。

実は、コードはすべてインターネットからのコピーペーストで書いており必要な部分のみ書き換えています。

ActiveRowのStringっ宣言はいらないということでしょうか。
これは、私が勝手にString宣言した箇所です。

何卒よろしくお願いいたします。