[[20090415162319]]　『スピンボタンでセル行の移動』（隆）　ページの最後に飛ぶ

『スピンボタンでセル行の移動』（隆）

 いつも勉強させて頂いてます。

下記のデータがあるとします。

     A     B   　 C     D
1　東京  　品川  1区　　山
2　埼玉　　大宮  2区　　川
3  神奈川　横浜  3区　　谷
：　：　　　：　　：　　：

CommandButtonを押すと1行目をuserform1のtextboxに書き込みます。

Private Sub CommandButton1_Click()

 Dim f As Long
　With Worksheets("Sheet1")
   For f = 1 To 4
    Me.Controls("TEXTBOX" & f).Value = .Cells(1, f).Value
   Next
 End With
End Sub

上記だけだと1行目だけしか表示できません。
これをスピンボタンのUP、downで2行目、3行目・・・
データがなくなると終わりみたいに
したいのですがどうすれば良いでしょうか？
ご教授お願いします。

 コマンドボタンのコードに
    SpinButton1.Max = Sheets("sheet1").Range("a" & Rows.Count).End(xlUp).Row
    SpinButton1.Min = 1
 をDimの下に追加。

 スピンボタンのコードを
    With Sheets("sheet1")
        For f = 1 To 4
            Me.Controls("textbox" & f).Text = .Cells(SpinButton1.Value, f)
        Next f
    End With
 こんな塩梅にすればよろしかと思われます。
 　　　　　　（弥太郎）

弥太郎様

できました！ありがとうございました！！
理想通りです。これで先に進めますm（__）m

（隆）

コメント返信：

[ 一覧(最新更新順) ]

[[20090415162319]] 『スピンボタンでセル行の移動』（隆） ページの最後に飛ぶ

[[20090415162319]]　『スピンボタンでセル行の移動』（隆）　ページの最後に飛ぶ