PowerPoint プレゼンテーション

Size: px

Start display at page:

Download "PowerPoint プレゼンテーション"

そうすけももき
5 years ago
Views:

対象レベルと学びの目標マクロ(VBA)の入門者こういうモノかと体感第1弾 2弾の経験者こう使うのかと復習に

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

学習の順番を間違えると挫折しやすい 1 はじめから全部作り込もうとする機能 1 21

[ 実習 ] フォームの Caption を変更しよう Caption を入力フォームに変更

ラベルを設置してみましょう速習したい方へラベルを配置する作業は少々手間がかかります

30 その他のオブジェクトの種類一部 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

32 [実習]オブジェクト名を変更しよう (人間にもプログラミング的にも)わかりやすい名前をつけよう例受注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

fmimemodehiragana 全角ひらがなモードで IME をオンにする 5 fmimemodekatakana 全角カタカナモードで IME をオンにする 6 fmimemodekatakanahalf 半角カタカナモードで IME をオンにする

33 入力モードを決める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

34 [実習]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

入力文字数を制限する MaxLength プロパティテキストボックスに文字数制限を設定し後のエラー要因を防いでおこう ( 日付 ) 2018 / 09 / 30 のように 4 桁 /

ボタンがクリックされた際の処理 2 とりあえずメッセージボックスを表示させてみよう (1) MsgBox ボタンクリックと入力してみる

実際に実行させたい処理フォームのデータを 1 つずつセルに転記する ( 以下順々にデータを転記する )

まずは受注 ID! 値をセルに代入するには?.Value プロパティで値を取得しセル範囲に代入する Range( A12 ).Value = txtordid.

Row+1 Cells(行番号,列番号) セル範囲を番地で指定する例) Cells(2,4)なら2行4列セルD2

44 最終行を取得する(復習) 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

[実習]受注IDを最終行に代入しよう最終行を変数MaxRowに取得して A列の最終行(MaxRow行)に値を代入するこの行を削除

[実習]日付をB列に代入しよう / 区切りでデータを結合して B列の最終行(MaxRow行)に値を代入する

⑦ 商品名のTextbox txtprodname E列 ⑧ 単価のTextbox txtprice F列 ⑨ 数量のTextbox

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

[実習] 答え / 区切りでデータを結合して B列の最終行(MaxRow行)に値を代入する

54 チェックが入っているか状態を取得 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

[実習]Checkboxに対応する値をセルに代入それぞれのオブジェクトから値を取得して

もあるっスねこことかこことかこことかあぁ待った待ったどうにかするから汗クマさんどうしたらいいの

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

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

[実習]フォーム起動時受注IDを挿入しよう A列の最終行のデータを取得し１の値をフォームに挿入しよう変数 MaxRow を宣言

67 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

[実習]現在の日付を年月日で挿入しよう現在の日付を取得するDate関数日付型を変換するYear,Monty,Day関数の使い方

i 行の値をcmbCompに加えるエクセル兄さん all rights reserved.

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

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

[実習]会社リストの最終行に対応しよう最終行から会社名を取得して comboboxに追加しましょう前後変数 cmaxrow を宣言

PowerPoint プレゼンテーション

PowerPoint プレゼンテーションユーザーフォームを作り高速入力エクセルが自動化するマクロVBAの魔法 3 ５秒で受注リストを入力できるユーザーフォーム入門編ダイジェスト編伝票など 1 フォーム Excelシート 2 サンプルマクロを使ってみようユーザーフォームの学習はサンプルマクロをダウンロードして実行楽しく上達できる Form_Sample.xlsm アプリを作っている感覚マクロがモノとして目に見えるから