★オプションボタンのコード2!
 

 次にフォームをダブルクリックして開いた時の初期状態を設定したいと思います。
UserFormのInitializeというのを選択しましょう。これはフォームを開いた時の初期設定をするものです。このプログラムに書く内容は、氏名を書くテキスト氏名を空白にして、性別を選択するオプションボタンでは男性側にしるしを付け、年齢区分では20歳未満にしるしをつけるようにします。
コードは次の通りです。


 Private Sub UserForm_Initialize()
 'フォームが最初に表示された時の初期設定の状態を表します。
   テキスト氏名 = ""
   オプション男 = True
   オプション20未満 = True
 End Sub

 オプションボタンの印を付けた状態の時は「True」に設定をします。
印をつけない状態の時は「False」と入力すると印は付きません。
これはオプションボタンの基本ですので覚えておきましょうね。
以上のことを頭に入れて、いよいよオプションボタンのメインのコードの記述に移ります。

[トップ][前へ][オプションボタン][次へ]