|
▼かみちゃん さん:
お手数をかけます。
>>>ComboBox1.ListIndex
>>>の値は、どうなっているのでしょうか?
>>ComboBox1のところは「値を取得できません」と表示が出ました。
>>.ListIndexのところはカーソルをあてると「−1」と出ました。
>
>ComboBoxは、選択していないのではないですか?
すみません。「選択」について、わかりません。
UserFormの同じモジュールに書いているので大丈夫と思うですが・・・。
>UserFormモジュールのコードのどこかに、
>ComboBox1.List = 〜
>というような記述はありませんか?
あります。
Private Sub UserForm_Initialize()
'AAAAコンボボックスへのセルデータ表示
Dim lRow As Long, myData(2, 2) As Variant
With Worksheets("参照資料")
lRow = .Range("C" & Rows.Count).End(xlUp).Row
End With
With ComboBox1
.ColumnCount = 2
.ColumnWidths = "15;15"
.RowSource = "参照資料!C1:D" & lRow
End With
'BBBBコンボボックスへのセルデータ表示
With Worksheets("参照資料")
syain = .Range("G" & Rows.Count).End(xlUp).Row
End With
With ComboBox2
.ColumnCount = 2
.ColumnWidths = "60;15"
.RowSource = "参照資料!G1:H" & lRow
End With
'CCCCコンボボックスへのセルデータ表示
With Worksheets("参照資料")
tyumon = .Range("J" & Rows.Count).End(xlUp).Row
End With
With ComboBox3
.ColumnCount = 2
.ColumnWidths = "100;15"
.RowSource = "参照資料!J1:K" & lRow
End With
'DDDDコンボボックスへのセルデータ表示
With Worksheets("参照資料")
tyumon = .Range("M" & Rows.Count).End(xlUp).Row
End With
With ComboBox4
.ColumnCount = 2
.ColumnWidths = "15;15"
.RowSource = "参照資料!M1:N" & lRow
End With
'EEEEコンボボックスへのセルデータ表示
With Worksheets("参照資料")
tyumon = .Range("A" & Rows.Count).End(xlUp).Row
End With
With ComboBox5
.RowSource = "参照資料!A1:A" & lRow
End With
End Sub
です。
この中に原因があるんですかね。
|
|