PowerPoint プレゼンテーション

カリキュラムの全体像第 0 章全体像の把握マクロの流れを整理第 1 章ユーザーフォームの作成第 2 章フォームからデータ入力第 3 章日付の自動入力 ComboBox( フォームの初期化 ) 第 4 章フォームで数式やVLOOKUP 関数を用いる第 5 章スピンボタンで操作できるようにする第 6 章発展編 ( データ更新フォームを作る ) エクセル兄さん all rights reserved.( 無断使用転載禁止 ) 7

その他のオブジェクトの種類一部 TextBox(テキストボックス) ComboBox(コンボボックス) CheckBox(チェックボックス) CommandButton (コマンドボタン) Label (ラベル) プロパティ BackStyle を 0 fmbackstyletransparent に変更すると背景が透過しますエクセル兄さん all rights reserved.(無断使用転載禁止) 30

[実習]オブジェクト名を変更しよう (人間にもプログラミング的にも)わかりやすい名前をつけよう例受注IDを入力するTextboxなら概要 txtordid などオブジェクト名 ① 受注IDのTextbox txtordid ② 年のTextbox txtyear ③ 月のTextbox txtmonth ④ 日のTextbox txtday ⑤ 受注元Combobox cmbcomp ⑥ 商品IDのTextbox txtprodid ⑦ 商品名のTextbox txtprodname ⑧ 単価のTextbox txtprice ⑨ 数量のTextbox txtnum ⑩ 金額のTextbox txttotal ⑪ 配送済みのCheckbox chkdeliv ⑫ 請求済みのCheckbox chkinv ⑬ 入金済みのCheckbox chkpay エクセル兄さん all rights reserved.(無断使用転載禁止) ⑭ 新規追加のButton btnadd 32

入力モードを決めるIME Modeプロパティ入力システムを決めて快適な入力を手助けしよう例えば商品名のテキストボックスに移行したとき自動的に日本語モードに (IME Input Method Editor 文字入力において漢字カナ変換などを制御) 選択肢説明 IME のモードを変更しない 1 fmimemodeon IME をオンにする 2 fmimemodeoff IME をオフにし英語モードに 3 fmimemodedisable IME をオフにする手動で変更不能に 4 fmimemodehiragana 全角ひらがなモードで IME をオンにする 5 fmimemodekatakana 全角カタカナモードで IME をオンにする 6 fmimemodekatakanahalf 半角カタカナモードで IME をオンにする 7 fmimemodealphafull 全角英数モードで IME をオンにする 8エクセル兄さん fmimemodealpha 半角英数モードで IME をオンにする all rights reserved.(無断使用転載禁止) 33 0 fmimemodenocontrol

[実習]IME Modeを変更しよう適切なIME Modeに変更しておく概要種類選択肢 ① 受注IDのTextbox txtordid 3 fmimemodedisable ② 年のTextbox txtyear ③ 月のTextbox txtmonth ④ 日のTextbox txtday ⑤ 受注元Combobox cmbcomp 4 fmimemodehiragana 全角ひらがな ⑥ 商品IDのTextbox txtprodid 3 fmimemodedisable IMEをオフ ⑦ 商品名のTextbox txtprodname 4 fmimemodehiragana 全角ひらがな ⑧ 単価のTextbox txtprice 3 fmimemodedisable IMEをオフ ⑨ 数量のTextbox txtnum 3 fmimemodedisable ⑩ 金額のTextbox txttotal 3 fmimemodedisable エクセル兄さん all rights reserved.(無断使用転載禁止) IMEをオフ (手動変更不能) 34

最終行を取得する(復習) VBA講座第２弾コースで解説した方法の復習ですファイルの終端からたどり最終行を見つける Cells(Rows.Count, 1).End(xlUp).Row+1 Cells(行番号,列番号) セル範囲を番地で指定する例) Cells(2,4)なら2行4列セルD2 Cells(5,2)なら5行2列セルB5 Rows.Count 行の最大数を返す (旧Excelなら65,536 最近のExcelは1,048,576) End(xlUp) エクセル兄さん all rights reserved.(無断使用転載禁止) Rows.Count 44

[実習]受注元金額を各列に代入させようそれぞれのオブジェクトから値を取得して各列の最終行(MaxRow列)に代入しよう概要オブジェクト名代入するセルの列 ⑤ 受注元Combobox cmbcomp C列 ⑥ 商品IDのTextbox txtprodid D列 ⑦ 商品名のTextbox txtprodname E列 ⑧ 単価のTextbox txtprice F列 ⑨ 数量のTextbox txtnum G列 ⑩ 金額のTextbox txttotal H列エクセル兄さん all rights reserved.(無断使用転載禁止) 50

チェックが入っているか状態を取得 CheckboxのValueプロパティにより True か False を取得できる Valueプロパティで取得される値チェック入 True チェック無し False Valueプロパティが Trueかどうか No Yes 済と代入 (空白) (例)If文で条件分岐して Trueの場合とそうでない場合で処理を分ける If Userform.chkDeliv.Value = True Then (Trueの場合の処理) Else (そうでない場合の処理) End If エクセル兄さん all rights reserved.(無断使用転載禁止) 54

よしこれで入力の仕組みができたぞぅうむようやくフォームらしい動きが実装できたわぁすごく早く入力できるようになったでもここってちょっと不便かもっスねなんか手入力するのが面倒なところもあるっスねこことかこことかこことかあぁ待った待ったどうにかするから汗クマさんどうしたらいいのやはり私に助けを求めるかではその悩み次の章で解決してやろうエクセル兄さん all rights reserved.(無断使用転載禁止) 57

というわけでフォームの基本的な作りはできたわけだこれだけでも結構速く入力できるようになったがいろいろ問題も見えてきたなうん例えば受注ID の欄これってわざわざ入力しなくてもはじめから連番で自動入力されてたらいいのにそういう所だなそれにどうせなら日付もだはじめから本日の日付が自動入力されていた方が便利な場合がほとんどだろうなるほどこんな風にフォームの起動時に自動処理させることをフォームの初期化という実は Comboboxなどに項目を追加してドロップダウンで選べるようにする前処理もここで行うおぉいままで使えなかった Comboboxもついに本領発揮っすねうむ初期化を制する者はフォームを制すではいくぞエクセル兄さん all rights reserved.(無断使用転載禁止) 59

Date 関数などの使い方現在の日付を取得する Date 関数日付型を変換する Year,Monty,Day 関数の使い方現在の日付を取得する VBA 関数 Date ( 引数なし ) Date 関数の利用例日付 MsgBox Date データから年月日に変換する Year,Month,Day 関数 Year 関数 Month 関数 Day 関数を利用すると年月日 MsgBox Year(Date) MsgBox Month(Date) MsgBox Day(Date) エクセル兄さん all rights reserved.( 無断使用転載禁止 ) 67

[実習] ワークシートリストから会社名を取得して comboboxに追加しましょう iの値セル 3 A3 4 A4 5 A5 6 A6 7 A7 i=3から始め 7まで繰り返すワークシートリストのA列 i 行の値をcmbCompに加えるエクセル兄さん all rights reserved.(無断使用転載禁止) 71 ワークシートリストを指定するため Worksheets( リスト ).Range のように指定する

待ちたまえこれでComboBoxにアイテムを追加できただが何か忘れていないかえ何か忘れたことあったっけ油断するな今の状態なら会社名はA3:A7までに収まっているだがもし会社名がもう１つ増えたらどうなるあっ増えた分はComboBoxに追加されないっスそうつまりどう改良しなければいけないかわかるなわわかるぜ嘘です分かりませんやはりな答えはおなじみの最終行の取得だエクセル兄さん all rights reserved.(無断使用転載禁止) 73