|
Private Sub Workbook_Open()
SheetName = Range("M3").Value
Colum = Array(Range("M6"), Range("M7"), Range("M8"), Range("M9"), Range("M10"), Range("M11"), Range("M12"))
For i = 1 To 20
Worksheets(SheetName).OLEObjects("Combo" & i) _
.Object.List = Colum
Worksheets(SheetName).OLEObjects("Combo" & i) _
.Object.Value = "大光"
Worksheets(SheetName).OLEObjects("Combo" & i) _
.Object.ListRows = 4 '表示したい行数
Next
End Sub
としたところ 配列にいれたプルダウンボックスの項目がボックス内で白くなってしまってるんですがなぜでしょうか?
値的にはいるようです。選ぶとあらわれます。白くてみえません。
元は↓のようになってました。このときは値は見えてました
Private Sub Workbook_Open()
SheetName = Range("M3").Value
Colum = "あああ", "いいい", "ううう”)
For i = 1 To 20
Worksheets(SheetName).OLEObjects("Combo" & i) _
.Object.List = Colum
Worksheets(SheetName).OLEObjects("Combo" & i) _
.Object.Value = "大光"
Worksheets(SheetName).OLEObjects("Combo" & i) _
.Object.ListRows = 4 '表示したい行数
Next
End Sub
|
|