VBAでユーザーフォームにセル値を表示させるには

表1のセル値を、ユーザーフォーム1のA,B,Cに表示させたいのですが、
VBAでどのように書けばよいかわかりません。

ユーザーフォームを開くと最初に1行目のa1, b1, c1をA, B, C
のTextBoxに表示させ、

[次へ] ボタンをクリックすると下の行の値(a2,b,2,c2)を表示させる
ボタンに書くコードがわかりません。

[戻る] ボタンをクリックすると上の行の値を表示させる
ボタンに書くコードがわかりません。

また、[次へ]と[戻る]ボタンクリックの様な規則的ではなくランダムに
行ごとを表示させる方法もあれば教えて下さい。


質問内容以上です。
このような質問でご教示頂けるか不安ですが、宜しくお願い致します。

No.3 回答者： ママチャリ 回答日時： 2016/05/21 12:52

テキストボックスには、ControlSourceプロパティというのがあるのですが、これを設定すると任意のセルとリンクが張れます。

セルの値が表示できるだけではなく、テキストボックスの値を変更すれば、セルに反映してくれるので、目的によっては非常に便利です。
リンクを張り替えることにより、表示するセルを移動できます。
簡単なサンプルを書いてみたので、ご確認下さい。

Private Sub UserForm_Initialize()
A.ControlSource = "A1"
B.ControlSource = "B1"
C.ControlSource = "C1"
End Sub

Private Sub 次へ_Click()
On Error GoTo Fin
Selection.Offset(1).Select
A.ControlSource = "A" & Selection.Row
B.ControlSource = "B" & Selection.Row
C.ControlSource = "C" & Selection.Row
Fin:
End Sub

Private Sub 戻る_Click()
On Error GoTo Fin
Selection.Offset(-1).Select
A.ControlSource = "A" & Selection.Row
B.ControlSource = "B" & Selection.Row
C.ControlSource = "C" & Selection.Row
Fin:
End Sub

No.2 回答者： くんこば 回答日時： 2016/05/20 23:23

あ、全部に答えてなかった。

フォームにセルの行番号を保持する変数を用意します。この場合だと１ですかね。
初期表示時は、cells関数使って、１行目の1,2,3列目のセルを取得。
次へボタンで、その変数をプラス１して、先ほどと同じように表示。戻るだとその逆。

そんな感じ。
ま、いろいろやってみて。

No.1 回答者： くんこば 回答日時： 2016/05/20 23:18

フォームのイベントにinitializeっていうのがあると思います。

そこに記述します。

頑張ってね。