１１．「保健室来室記録」の入力で、クラス名が選べるのだが、 　　　　１組と２組だけにしたい。 　　　　　　　マクロを直します。でも簡単。
	（下の写真はクリックすれば 　　　大きくなります）
�@「保健室来室記録」のファイルを立ち上げて「ツール」「マクロ」「VisualBasic Editor」の順にたどってVisual Basic Editorを立ち上げます。
�A左側の上にプロジェクトのボックス、下にプロパティのボックス（もしかしたらこれは出ないかもしれない）、右側は灰色で何も表示されてない画面が出たかと思います。 そして左側のプロジェクトのボックスの中に「Sheet1（来室一覧）」というところが反転（灰色になる）しているかと思います。
�B左側のプロジェクトのボックスを下にスクロールすると「フォーム」というフォルダ（黄色のボックス型アイコン）が見えてくるかと思います。この［フォーム］の前に付いている「＋」を押します（または「フォーム」をダブルクリックします）。そうすると「frm来室入力」という項目が出ますので、それをダブルクリックすると「保健室来室記録」の入力フォーム（新規入力用のカード）が出ます。ここが入力するためのフォームの変更をする部分です（ボタンを付けたり、入力欄を作ったり）。
�C次に左側のプロジェクトの一番上にアイコンが３つあります（一番右のボタン （フォルダーの形）が押された状態になっていると思います。この一番左側のア イコンを押してください（または上のメニューの「表示」「コード」を押す）。 すると右側にマクロ（プログラムの画面）が出るはずです。
�Dすると右側にマクロ（プログラムの画面）が出ます。 一番上は次のようになっています。 Private Sub UserForm_Initialize() ' ユーザーホームの設定 With cbo学年 .AddItem "1" .AddItem "2" .AddItem "3" End With cbo学年.ListIndex = -1 With cboクラス .AddItem "A" .AddItem "B" .AddItem "C" .AddItem "D" .AddItem "1" .AddItem "2" .AddItem "3" .AddItem "4" End With cbo学年.ListIndex = -1 ・・・・・・・・・・・・・・・・・・・・・・ これが入力フォームの選択肢の部分です。 あとは「With cboクラス」のクラス名の部分を変更すればいいのです。 例えば「１２３４５６」とするのなら、A,B,C,D,1,2の部分を消して代わりに 1,2,3,4,5,6を入力（半角）して、余った２行を消せばいいのです。これで選択 肢には「1,2,3,4,5,6」が出るようになります。 また、１組、２組にしたいのならA,Bを消して1,2を入力（半角）して、余った６行を消せばいいのです。 他の部分もそのように改良すればいいのです。 増やす時には上の行をコピーします。例えば１０クラスにするのなら .AddItem "A"  .AddItem "B" をコピーして一番下に貼り付け、クラス名を直せばいいのです。	上の写真参照
�Eそこまでしておいて、Visual Basic Editorを終了して、「保健室来室記録」の入力画面でテストしてみてください。うまくできていると思います。Visual Basic Editorで保存しなくても、「保健室来室記録」を保存しておけば、次に立ち上げた時にも設定した項目が出るようになります。
「エクセルの力をワンランクアップ」のページに帰る
トップにかえる