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.1 回答者： end-u 回答日時： 2011/09/17 13:02

UserForm上のComboBoxですね？

Columnプロパティを使います。
Me.ComboBox5.Column = ActiveSheet.Range("C3:AG3").Value

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

No.2 ベストアンサー 回答者： doara_2011 回答日時： 2011/09/17 13:05

僕の持っている2003と2010には、コンボボックスにColumnSourceなんてプロパティ

はありませんでした。2007にはあるのだろうか？

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

この回答へのお礼

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

お礼日時：2011/09/18 00:19