６．ユーザ定義型.

Presentation on theme: "６．ユーザ定義型."— Presentation transcript:

1 ６．ユーザ定義型

2 フォームの定義 まず，次のようにフォームを定義しよう Label3 Caption : 誕生日 Label2 Caption : 氏名
CommandButton1 Caption : 登録 Label1 Caption : 学籍番号 ListBox1 TextBox1 Text : 空白 TextBox2 Text : 空白 TextBox3 Text : 空白

3 コード ①ユーザ定義型の例 ②UserForm1上でダブルクリックして，Initializeを選択
③UserForm1_Initializeイベント内で，「list」とキーインして[XTRL]+ｊ

4 Initializeイベントハンドラの記述（１）
①UserForm1_Initializeイベント内で，「list」とキーインして[XTRL]+ｊ ②ドット（「.」）をキーインして 　 Additemを選択 ② 「　“機械工学科”」とキーイン

5 Initializeイベントハンドラの記述（２）
現時点のプログラム 以下のように記述しても良い With ListBox1 .AddItem “機械工学科” .AddItem “建築学科” .AddItem “電気電子工学科” .AddItem “システム工学科” .AddItem “情報工学科” End With

6 フォームのボタンを配置して， Clickイベントハンドラを記述
①マクロを登録（新規作成／編集をクリックする） ②UserForm1をShowする 　　プログラムを記述

7 Ｅｘｃｅｌに戻って，実行 ボタン1を左クリック 初期状態で一覧が表示されている

8 見栄えの変更 ボタン1で右クリックして「テキストの編集」を選択して 表示名を「データ入力」とする

9 テキストボックスに入力可能な文字を設定（１）
TextBox1を選択して，IMEモードをfmIMEModeOffにする

10 テキストボックスに入力可能な文字を設定（２）
TextBox2を選択して，IMEモードをfmIMEModeHiraganaにする

11 テキストボックスに入力可能な文字を設定（３）
TextBox3を選択して，IMEモードをfmIMEModeOffにする

12 CommanButton1_Clickイベントハンドラ作成
①CommandButton1 をダブルクリック ②「with work」とキーインして[CTRL]+j ③「WorkSheets」を選択 ④まず手始めに次のようなプログラムを書いてみよう

13 実行 適当な行にデータを入力して，実行させてみよう

14 CommanButton1_Clickイベントハンドラの処理（１）
Excelシートへの追加処理 変更 追加 データの取り出しの 処理追加 最後の行の次に追加の 処理追加

15 CommanButton1_Clickイベントハンドラの処理（２）
Excelシートへの追加処理 同じ学科，学籍番号のとき 置き換え処理 (i,2) For