|
▼teian さん:
ご教示いただいたVBAを試行するため、combobox1,textbox1,textbox2,textbox3だけのuserformを試しに作成して実行すると完璧にできたので、現在使用しているUserformに活用しようとコピーして以下のようにVBAを修正し実行したところ、「変数が定義されていません」とエラーメッセージが出て、(.ListIndex,1)のListIndex部分が黄色に表示されていました。
Combo車両通番にはちゃんとリストが表示されています。
今後もぜひとも活用したいVBAですので、原因、改善策を教えてください。
Private Sub Combo車両通番_Click()
With Me.ComboBox1
If .ListIndex < 0 Then Exit Sub
Me.Text車両通番.Value = .List(.ListIndex, 1)
Me.Text営業記号.Value = .List(.ListIndex, 2)
Me.Text車種.Value = .List(.ListIndex, 3)
End With
End Sub
Private Sub UserForm_Initialize()
・
・(他のinitializeに関係する記述があります)
Dim r As Range
Set r = Worksheets("辞書").Range("B3:E10")
With Me.Combo車両通番
.RowSource = r.Address(External:=True)
.ColumnHeads = True
.TextColumn = 1 '表示する列を指定する。
.BoundColumn = 2 'Valueに返す列指定する。この場合はC列表示
.ColumnCount = 4
.ColumnWidths = "50;40;30;20"
End With
.
.(他のinitializeに関係する記述があります)
.
End Sub
|
|