Excel VBA質問箱 IV

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

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


30629 / 76732 ←次へ | 前へ→

【51368】Re:コンボボックスのリストがイッパイ。
質問  すず  - 07/9/13(木) 15:07 -

引用なし
パスワード
   ▼Blue さん:

どこのシートにあるのか、そうでうよね。
その宣言をしてませんでした。

しかし、宣言させたもののやはり
「オブジェクトが必要」と怒られます。

Private Sub Workbook_Open()

  Dim i As Integer, k As Integer
  Dim ws1 As Object, ws2 As Object, ws3 As Object

' シート名でコンボボックスのあるシートを特定
Set ws1 = Worksheets("Sheet1")
    ws1.コンボ1.Clear
  For i = 1 To 12
    コンボ1.AddItem i
  Next


Set ws2 = Worksheets("Sheet2")
    ws2.コンボ2.Clear
  For i = 1 To 12
    コンボ2.AddItem i
  Next

Set ws3 = Worksheets("Sheet3")
    ws3.コンボ3.Clear

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

End Sub

何故なのでしょう。


>どこのシートにあるコントロールなのか特定してあげないといけません。
>
>シート名が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
>
>とループをまとめれますね。
1 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 お礼

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