Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45447 / 76735

←次へ　｜　前へ→


	【36281】Re:ファイルを開いた際に以前設定したコンボボックス内の値が変更されてしまう

Kein - 06/3/27(月) 15:12 -


	引用なし

	パスワード

ふむふむなるほど。そーすると 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

0 hits

▼

【36269】ファイルを開いた際に以前設定したコンボボックス内の値が変更されてしまう ともた 06/3/27(月) 12:05