Excel VBのComboBoxで横一列の選択

質問

日程表マクロを作っています。セルのＣ３からＡＧ３の横列３１個のセルに１日から３１日までの日付を作成してあります。
コンボボックス５で日付選択をしたいので、この列を参照したいと考え、下記のプログラムを作成しました。実行すると「コンパイルエラー」、参照されません。

Private Sub ComboBox5_Enter()
ComboBox5.ColumnSource = "C3:AG3"　’ComboBox5をActiveSheetに変更するとサポートされず。
End Sub

マクロで
With ComboBox5
.AddItem"1"
.AddItem"2"
:
.AddItem"31"　ではなくてRowSourceに代わる指定セル範囲の横列参照はできないのでしょうか？

あるいはもっとスマートな指令方法があれば教えてください。
Excel2007 VB6.5です。

回答No.2

doara_2011 · ベストアンサー

僕の持っている2003と2010には、コンボボックスにColumnSourceなんてプロパティ
はありませんでした。2007にはあるのだろうか？

代替案としては、RowSourceプロパティを使うか、31回ループさせればいいだけのこと
ではないのですか？
例えばこんな感じ。
With ComboBox5
　For i = 1 To 31
　　.AddItem CStr(i)
　Next i
End With

お礼

早々のご回答ありがとうございました。助かりました。
end-uさんの指令でも私の２００７では同じ結果が得られましたが、他のＰＣでもこのマクロを使うので、この方法を使わせていただきます。
ご両人さま、ありがとうございました。

回答No.1

end-u

UserForm上のComboBoxですね？
Columnプロパティを使います。
Me.ComboBox5.Column = ActiveSheet.Range("C3:AG3").Value

#以下余談ですが
セットのタイミングはComboBox5_Enterで良いのですか？
運用状況によってはUserForm_Initializeでも可、ではないのでしょうか。