Excel VBA質問箱 IV

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

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


30636 / 76738 ←次へ | 前へ→

【51367】Re:コンボボックスのリストがイッパイ。
回答  Blue  - 07/9/13(木) 14:46 -

引用なし
パスワード
   どこのシートにあるコントロールなのか特定してあげないといけません。

シート名がSheet1のシートにあるならば

Worksheets("Sheet1").コンボ

という風にしなければ。

ちなみに
>  Dim i As Integer, k As Integer
>  
>  For i = 1 To 12
>    コンボ1.AddItem i
>  Next
>
>  For i = 1 To 12
>    コンボ2.AddItem i
>  Next
>  
>  For i = 1 To 12
>  For k = 1 To 5
>    コンボ3.AddItem i & "月/" & k
>  Next
>  Next
ならば

Dim i As Integer, k As Integer
Dim ws As Object

Set ws = Worksheets("Sheet1") ' シート名でコンボボックスのあるシートを特定

ws.コンボ1.Clear
ws.コンボ2.Clear
ws.コンボ3.Clear

For i = 1 To 12
  ws.コンボ1.AddItem i
  ws.コンボ2.AddItem i
  For k = 1 To 5
    ws.コンボ3.AddItem i & "月/" & k
  Next
Next

とループをまとめれますね。

0 hits

【51356】コンボボックスのリストがイッパイ。 すず 07/9/12(水) 23:45 質問
【51357】Re:コンボボックスのリストがイッパイ。 ichinose 07/9/13(木) 8:35 発言
【51364】Re:コンボボックスのリストがイッパイ。 すず 07/9/13(木) 11:32 質問
【51365】Re:コンボボックスのリストがイッパイ。 Jaka 07/9/13(木) 12:44 発言
【51366】Re:コンボボックスのリストがイッパイ。 すず 07/9/13(木) 14:26 質問
【51367】Re:コンボボックスのリストがイッパイ。 Blue 07/9/13(木) 14:46 回答
【51368】Re:コンボボックスのリストがイッパイ。 すず 07/9/13(木) 15:07 質問
【51369】Re:コンボボックスのリストがイッパイ。 Jaka 07/9/13(木) 15:17 発言
【51371】Re:コンボボックスのリストがイッパイ。 Blue 07/9/13(木) 15:24 発言
【51372】Re:コンボボックスのリストがイッパイ。 Jaka 07/9/13(木) 15:39 発言
【51370】Re:コンボボックスのリストがイッパイ。 Blue 07/9/13(木) 15:21 回答
【51393】Re:コンボボックスのリストがイッパイ。 すず 07/9/14(金) 13:05 お礼

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