|
ふむふむなるほど。そーすると varRackInfo という配列は 5行×3列 の2次元配列
なわけですね。それぐらいなら初期値を手入力しても、それほど面倒ではないと
思いますので、コンボボックスを配置しているシートの IT1:IV5 の範囲に、手入力で
初期値を入れて下さい。そしてシートモジュールに以下のマクロを追加し・・
Private Sub Worksheet_Activate()
Dim CbV As Variant
Dim Obj As OLEObject
If Not IsEmpty(Range("IV5").Value) Then
CbV = Range("IT1:IV5").Value
For Each Obj In ActiveSheet.OLEObjects
If Left$(Obj.Name, 3) = "Com" Then
Obj.Object.List = CbV
End If
Next
End If
End Sub
ユーザー定義関数の最後の方に・・
For Each Obj In ActiveSheet.OLEObjects
If Obj.Name Like "ComboBox*" Then
Obj.Object.ColumnCount = 3
Obj.Object.ColumnWidths = "0cm;0cm;4.0cm"
Obj.Object.List = varRackInfo
Obj.Object.ListIndex = -1
End If
Next
Range("IT1:IV5").Value = varRackInfo '←これを追加してみて下さい。
prvSetExcel = True
End Function
|
|