VBA初心者です。 セルB2~B6に書いてある文字をユーザーフォームのラベル(lbl1)にキャプショ

VBA初心者です。
セルB2~B6に書いてある文字をユーザーフォームのラベル(lbl1)にキャプションして、コマンドボタン(btn1)を押す度にセルが下に下がるようにするにはどうすればいいですか？

質問者からの補足コメント

• B6まで行ったらユーザーフォームが消えるようにするにはどうしたらいいですか？

    補足日時：2022/05/17 11:22

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/05/17 11:29

＞B6まで行ったらユーザーフォームが消えるようにするにはどうしたらいいですか？

いかのようにします。

Option Explicit
Dim lblrow As Long

Private Sub btn1_Click()
If lblrow > 6 Then Unload Me
If lblrow > 6 Or lblrow < 2 Then lblrow = 2
lbl1.Caption = Cells(lblrow, 2).Value
lblrow = lblrow + 1
End Sub

No.2 回答者： tatsumaru77 回答日時： 2022/05/17 11:07

以下のようにしてください。

B6の次はB2にもどります。

Option Explicit
Dim lblrow As Long

Private Sub btn1_Click()
If lblrow > 6 Or lblrow < 2 Then lblrow = 2
lbl1.Caption = Cells(lblrow, 2).Value
lblrow = lblrow + 1
End Sub

No.1 回答者： めぐみん_ 回答日時： 2022/05/17 10:58

まずやりたいと思われることが複数考えられます。

・最初にセル範囲の文字をラベルに羅列し、その範囲の最初のセルをアクティブにしておく。
そしてボタンを押す毎に範囲内をアクティブセルが移動する。

・最初にセル範囲の１番目をラベルに表示させそのセルをアクティブにしておく。
ボタンを押す毎に範囲内をアクティブセルが移動しつつ、その時のセル値をラベルに表示する。

・その他（？）

と初級レベルジジィは受け取ってしまいました。
またセル範囲の一番下に行った後どうしたいのか？
上に戻る？その場で止まっている？