|
▼Abebobo さん:
UserFormには
Private Sub UserForm_Initialize()
データ表示
End Sub
データ表示とは
Sub データ表示()
表示行 = Cells(1, 15).Value
TextBox2.Value = Cells(表示行, 1).Value
TextBox3.Value = Cells(表示行, 3).Value
TextBox4.Value = Cells(表示行, 5).Value
TextBox5.Value = Cells(表示行, 7).Value
TextBox6.Value = Cells(表示行, 8).Value
TextBox7.Value = Cells(表示行, 9).Value
TextBox8.Value = Cells(表示行, 10).Value
TextBox9.Value = Cells(表示行, 11).Value
TextBox10.Value = Cells(表示行, 12).Value
ComboBox1.Value = Cells(表示行, 4).Value
ComboBox2.Value = Cells(表示行, 6).Value
If Cells(表示行, 2).Value = "大宮" Then
optionbutton1.Value = True
Else
optionbutton2.Value = True
End If
End Sub
Cells(1, 15).Value
はSheet1上なのでSheet2へボタンを移動した場合は式にSheet名も
入れないといけないということでしょうか?
教えてください。
|
|