ActiveRowをコントロール

質問

エクセル2007を使用しています。
ユーザーフォームのコードに以下のコードを書いてシートのセル情報をユーザーフォームに表示したいと考えています。
以下のコードでは「ActiveRow」の指定が固定になってしまうので、ユーザーフォームに「NEXT」ボタンを追加して、NEXTボタンが押されたら「AcviveRow」を一つづつ増やして表示させるという方法を教えていただけないでしょう。

VBA素人です。

よろしくお願いします。

尚、ActiveRowの初期値は「４」になります。

Private Sub UserForm_Initialize()
Call Farst
End Sub

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

ActiveRow = 4

With Worksheets("MDH,MDO")

Data1 = .Cells(ActiveRow, 1)
Data2 = .Cells(ActiveRow, 2)
Data3 = .Cells(ActiveRow, 3)
Data4 = .Cells(ActiveRow, 4)
Data5 = .Cells(ActiveRow, 5)
Data6 = .Cells(ActiveRow, 6)
Data7 = .Cells(ActiveRow, 7)
Data8 = .Cells(ActiveRow, 8)
Data9 = .Cells(ActiveRow, 9)
Data10 = .Cells(ActiveRow, 10)

Me.TextBox1連番.Text = Data1
Me.TextBox2品番.Text = Data2
Me.TextBox3品番2.Text = Data3
Me.TextBox4品番3.Text = Data4
Me.TextBox5単価.Text = Data5
Me.TextBox6PO_NO.Text = Data6
Me.TextBox7発注日.Text = Data7
Me.TextBox8数量.Text = Data8
Me.TextBox9層.Text = Data9
Me.TextBox10備考.Text = Data10

End With

End Sub

回答No.1

imogasi · ベストアンサー

Ｎｏ８９９６９１４の質問はＩｎｉtｉａｌｉｚｅイベントだけの問題点で解決したのか？
そうは思わないが、解決したのなら、そちらは締め切っるべきと思う。
ーー
・一旦変数に入れて（Data1など）、TextBox5単価.Text に代入する尾は回りくどい。
・ActiveRow はありそうな名前であるが（実はシステムにはない）、ＶＢＡシステムで、たとえばＡｃｔｉｖｅＣｅｌｌは存在する名前なので、変数名の命名に注意したほうがよい。
・繰り返しならＦｏｒＮｅｘｔなどでコード数を少なくしたら。
そのためにはＤａｔａＸとやると邪魔（やりにくく）になる。
・標準的なＶＢＡの解説書のコントロールの解説箇所を１度読んで勉強したら。ＶＢＡの本はどれくらい読みましたか。
普通のＶＢＡにも慣れて無いのに、いきなりむつかしいこと（フォームやコントロールのこと、イベントのこと、変数のスコープなど）を、やろうとしていることが、コードの記述振りからうかがえる。
ーー
想定シートデータ例
Ｓｈｅｅｔ１のＡ１：Ｃ４に
9999988 石井　一郎 福島本町
3456111 大下　満 郡山市南町
3440000 田中　宗男 仙台市
3233230 木村　義男 山形市

ユーザーフォーム１にコマンドボタン１つとテキストボックス３つ貼り付け。
ＵｓｅｒＦｏｒｍのコードの表示へ下記貼り付け。
Dim arow
Private Sub CommandButton1_Click()
arow = arow + 1
Me.TextBox1 = Worksheets(1).Cells(arow, 1)
Me.TextBox2 = Worksheets(1).Cells(arow, 2)
Me.TextBox3 = Worksheets(1).Cells(arow, 3)
End Sub
標準モジュールに
Dim arow　’＜－ー最初のモジュールが始まる前の行に置くこと
Sub test08()
arow = 1
UserForm1.Show
End Sub
ーー
上記は、もし最初の表示において、シートの第１行目を出すなら
Sub test09()
arow = 1
With UserForm1
.TextBox1 = Worksheets(1).Cells(arow, 1)
.TextBox2 = Worksheets(1).Cells(arow, 2)
.TextBox3 = Worksheets(1).Cells(arow, 3)
End With
UserForm1.Show
End Sub
test09を実行後,ユーザーフォームが表示され、その上のコマンドボタンをクリックすると
順次、次行のシートのデータが表示されると思う。

お礼

imogasi様
回答ありがとうございました。
ご指摘の通りVBA初心者でインターネットをあさってコードのコピーで書いていました。
「プロシージャーの呼び出し」という言葉も理解していない状態でした。
反省しております。
サンプルコードありがとうございます。
コードの理解を含めて参考書を探して勉強いたします。
mt2008様もありがとうございました。