Excel VBA質問箱 IV

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

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


45444 / 76732 ←次へ | 前へ→

【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
5 hits

【36269】ファイルを開いた際に以前設定したコンボボックス内の値が変更されてしまう ともた 06/3/27(月) 12:05 質問
【36272】Re:ファイルを開いた際に以前設定したコン... Kein 06/3/27(月) 12:52 発言
【36275】Re:ファイルを開いた際に以前設定したコン... ともた 06/3/27(月) 13:47 回答
【36278】Re:ファイルを開いた際に以前設定したコン... Kein 06/3/27(月) 14:24 発言
【36280】Re:ファイルを開いた際に以前設定したコン... ともた 06/3/27(月) 14:34 発言
【36281】Re:ファイルを開いた際に以前設定したコン... Kein 06/3/27(月) 15:12 回答
【36287】Re:ファイルを開いた際に以前設定したコン... ともた 06/3/27(月) 16:03 発言
【36291】Re:ファイルを開いた際に以前設定したコン... ともた 06/3/27(月) 16:22 発言
【36293】Re:ファイルを開いた際に以前設定したコン... ともた 06/3/27(月) 16:38 お礼
【36292】Re:ファイルを開いた際に以前設定したコン... Kein 06/3/27(月) 16:30 回答

45444 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free