コンボボックスの作り方を教えて下さい。

質問

エクセル２０００を使用しています。
コンボボックスを使って日付を入力できるようにしたいと
思っておりますが、具体的にどうすればよいのか分かりません。

任意の場所にコンボボックスを作る事は出来ます。
で、２個作成します。ここまでは出来ます。
左側の方には月の１～１２、右側の方には日の１～３１が出てきて
選択すれば入力す出来るという単純なものなんですが
それがどうすればよいのか分かりません。
初心者の私にも分かるように教えて頂けると幸いです。

回答No.1

matsu_jun

choroqさん、こんばんは。

まずはシート上に作ったコンボボックスの名前を確認しましょう。
1) デザインモードへ移行します。Visual Basicツールボタンの「デザインモード」ボタン
　　(三角定規の書かれたボタン)をクリックします。
2) 月を入れたいコンボボックスを右クリックして、「プロパティ」を選択します。
　　すると、プロパティウィンドウが表示されます。
3) プロパティウィンドウの"(オブジェクト名)"の右を見てください。「ComboBox(数字)」と
　　書かれているはずです。それがコンボボックスの名称です。
4) 日付を入れたいコンボボックスについても同様に確認してください。
　　ここでは説明のため、月のコンボボックスを「ComboBox1」、日付を「ComboBox2」とします。
　　また、コンボボックスの書かれたシートのシート名を「Sheet1」とします。

ファイルを開いたときにリストが追加されるよう、マクロを記載します。
5) Altキーを押しながらF11キーを押すと、Visual Basic Editorが開きます。
6) エクスプローラ風になっている画面右側の「プロジェクト-VBAProject」欄から
　　「ThisWorkbook」をダブルクリックしてください。
7) 右側の空欄に、以下をコピーして貼り付けます。
'ここから------------------------------------------------------------
Private Sub Workbook_Open()
　　For i# = 1 To 12
　　　　Sheets("Sheet1").ComboBox1.AddItem i
　　Next i
　　For i = 1 To 31
　　　　Sheets("Sheet1").ComboBox2.AddItem i
　　Next i
End Sub
'ここまで------------------------------------------------------------

では、成果を確認してみましょう。
8) 一度ファイルを閉じてください。
9) 改めてファイルを開いたとき、2つのコンボボックスにリストが入っているはずです。

お礼

大変分かりやすく教えて頂き有難うございました。
おかげでうまくいきました。

ですが、ファイルを開くとき「マクロが含まれている可能性が・・・」と聞いてきますがあれは仕方ないのですよね？
あとコンボボックスの中の数字の大きさを変えるにはどうすればよいのでしょうか？
度々申し訳ありません。