|
▼Jaka さん:
>▼ノッチ さん:
>>Private Sub Workbook_Open()
>>
>>SheetName = Range("M3").Value
> ↑シートを指定、以下同じにしてみてください。
>>
>> Colum = Array(Range("M6"), Range("M7"), Range("M8"), Range("M9"), Range("M10"), Range("M11"), Range("M12"))
Private Sub Workbook_Open()
SheetName = Range("M3").Value
Colum = Array(Worksheets(SheetName).Range("M6"), Worksheets(SheetName).Range("M7)
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
Call CellClear.CellClear
Call CellSyosiki.CellSyosiki
Call CellSiki.CellSiki
Range("A1").Select
End Sub
ということでしょうか?あいかわらず白いです。
プルダウンの値の文字色が白なんでしょうか?
なら、黒にしたいですが、どうすればいいでしょうか?
|
|