|
コマンドボタンより、スピンボタンの方がよいのでは?
label1 label2 label3
___ ▲ ___ ___
|___|▼ |___| |___|
Textbox1 ↑ Textbox2 Textbox3
スピンボタン
ユーザーフォームにこのように配置して
データがSheet1にあるとして
こんな感じではないかと思うのですが・・・
Private Sub UserForm_Initialize()
Dim i As Integer
With Me
With .SpinButton1
.Min = 2
.Max = Sheets("Sheet1").Range("A65536").End(xlUp).Row
.Value = 2
End With
For i = 1 To 3
.Controls("TextBox" & i).Value = ""
Next
.Label1.Caption = "NO"
.Label2.Caption = "項目1"
.Label3.Caption = "項目2"
End With
End Sub
Private Sub SpinButton1_Change()
Dim i As Integer
With Me
For i = 1 To 3
.Controls("TextBox" & i).Value = Sheets("Sheet1").Cells(.SpinButton1.Value, i)
Next
End With
End Sub
|
|