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

質問

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

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

回答No.2

matsu_jun · ベストアンサー

choroqさん、こんにちわ。No.1のmatsu_junです。お返事が遅くなりました。

数字の大きさを変える方法ですが、No.1で挿入したマクロの一番下の行
End Sub
の上に、下で記載した2行を追記します。

'ここから--------------------------------------
　　Sheets("Sheet1").ComboBox1.Font.Size = 8
　　Sheets("Sheet1").ComboBox2.Font.Size = 8
'ここまで--------------------------------------

行末の数字(上の例では「8」)がフォントのサイズです。
お好みで数字を変更してください。
当然ここでも、Sheet1上のComboBox1とComboBox2であるとします。

さて、それとは別に
> ファイルを開くとき「マクロが含まれている可能性が・・・」
> と聞いてきますがあれは仕方ないのですよね？
とありますが、確かにそのとおりです。
(セキュリティレベルを下げれば表示されなくなりますが)

ただComboBoxを利用した場合、そこで選択した値を
何か計算で利用したりする場合にマクロが登場しますので、
今の時点でこの疑問が出てきたということは、
マクロを利用して複雑な処理をするおつもりが無いということでしょうか？

であれば、ComboBoxをシート上に貼り付けるよりも、「入力規則」を
利用したほうが便利かと存じます。

1) 月(あるいは日付)を入力したいセルをまず選択します。
2) メニューから、「データ(D)-入力規則(L)」を選択します。
3) 「データの入力規則」ウィンドウの「設定」タブ画面にある
　 「入力値の種類(A)」という箇所が現在「すべての値」になっているので、
　 そこを、「リスト」に変更する。
4) すると「元の値(S)」という入力部が現れるので、そこに、月であれば
　 「1,2,3,4,5,6,7,8,9,10,11,12」と記入します。
5) OKボタンを押して確定してください。

これで、設定したセルをクリックすると1～12までのリストが現れます。
これならフォントの種類もサイズも簡単に変更できますし、
別のセルに数式の形で参照することもできるので便利かと思います。
ただしクリックしないと他のセルと変わったようには見えませんので、
枠で囲むとか、セルに色をつけるなどしたほうがよいようです。

お礼

何度も有難うございました。
「入力規則」を用いる方法の方が今回の私のやり方には適したやり方だと思います。
貴重なアドバイス大変勉強になりました。
感謝致します。有難うございました。

回答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つのコンボボックスにリストが入っているはずです。

お礼

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

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