[Excelが自動化するVBAの魔法2]購入者限定テキスト

Size: px

Start display at page:

Download "[Excelが自動化するVBAの魔法2]購入者限定テキスト"

あきおいそみ
5 years ago
Views:

1 第 0 章全体像の把握マクロの流れを整理する法第 0.5 章復習編 ( マクロ VBA の基礎を振り返る ) 第 1 章第 2 章第 3 章セルとセル範囲の扱い (Range) 条件分岐 (If If Else If ElseIf) 変数に番号を取得しのない表を作る [ Range("B" & r) のような記述 ] 第 4 章繰り返し (For Do While Do Until など ) 第 4.5 章最終を取得する (End モード.Row Cells など ) 第 5 章ワークシートの扱い (Worksheets) 1 エクセル兄さん (IT 講師の淳 ) YouTube 約 8,500 名 Udemy 約 3,500 名各種セミナー開催テキスト教材執筆連載執筆など 2 (Udemy) All Rights Reserved. 1

2 [エクセルが動化するVBAの魔法2]購者限定テキスト脱入門者コースエクセル兄さん (IT講師の淳) VBAを練習したいが何を作っていいか分からないへ請求書マクロを作って実務的なVBAスキルを学ぶ前作 VBAの魔法1 (超編)から歩先へ繰り返し条件分岐などプログラミングの基礎を学ぶ 3 質問(Q&A)とレビュー質問(Q&A)機能コースに関する疑問点や質問不具合の報告さらに解説して欲しいリクエストなどレビュー(評価)機能他の受講者さんにおすすめしたい点など (システム上突然レビューを求められる場合も) 後で更新することが可能後回しすることもできます (気にっていただけたら嬉しいです) (Udemy) All Rights Reserved. 4 2

8 VBA での記述法 A B C D E セル B2 なら Range("B2") A B C D E 2 なら Range("2") A B C D E B 列なら Range("B") A B C D E セル範囲 B2:D3なら Range("B2:D3") A B C D E 100 という値を代 Sub RangeTest() A B C D E End Sub Range("B2").Value = (Udemy) All Rights Reserved. 8

10 以下のほか様々なものがありますプロパティ名概要 Value 値 MsgBox Range("A1").Value Offset (, 列 ) ずれた範囲を取得 MsgBox Range("A1").Offset(1,2).Value Columns.Count 範囲内の列数 MsgBox Range("A5:E10").Columns.Count Rows.Count 範囲内の数 MsgBox Range("A5:E10").Rows.Count メソッド名概要 ClearContents クリアする Range("A1").Value Copy コピーする Range("A1").Value PasteSpecial 貼り付ける Range("A2").PasteSpecial (Udemy) All Rights Reserved. 10

11 Application.WorkBooks(" 請求書 "). 21 クマ. クマ (. ともだちプロパティ ) ともだちオブジェクトウサギ (. なかま ) プロパティなかまオブジェクトいぬ Application.WorkBooks(" 請求書 "). 省略可能 ( 省略するとアクティブな ( 現在選択中の ) ブックのアクティブなシートが指定される ) 22 (Udemy) All Rights Reserved. 11

17 コインがオモテかどうか NO If コイン = " オモテ " Then False YES True " 当たり!" と出力 MsgBox " 当たり!" 条件分岐おわり End IF 33 較演算意味例 = 等しい If Range("A1").Value = "VBA 商事 " Then > なり If Range("A1").Value > 100 Then < なり If Range("A1").Value < 100 Then <> 等しくない If Range("A1").Value <> "VBA 商事 " Then 34 (Udemy) All Rights Reserved. 17

[エクセルが動化するVBAの魔法2]購者限定テキスト第3章行番号を記憶させ穴のないデータを出力する 45 行番号を取得し変数に記憶させるいま何を記憶しておく請求書

[エクセルが動化するVBAの魔法2]購者限定テキスト変更前 If Range("B3").Value = "VBA商事" Then Range("J9: M9").Value = Range("C3:F3").Value End If 変更後 Dim r As Integer r = Range("J8").Row If Range("B3").

27 [エクセルが動化するVBAの魔法2]購者限定テキスト変更前 If Range("B3").Value = "VBA商事" Then Range("J9: M9").Value = Range("C3:F3").Value End If 変更後 Dim r As Integer r = Range("J8").Row If Range("B3").Value = "VBA商事" Then r=r+1 Range("J" & r & ":" & "M" & r).value = Range("C3:F3").Value End If "J" & r & ":" & "M" & r 字列を結合する & 53 第4章繰り返し処理を使いこなし反復作業を自動化する 54 (Udemy) All Rights Reserved. 27

間指で数える 1 2 3 VBA 変数 1 2 3 カウンター変数などと呼ばれる 57 こんにちはを 5 回繰り返す i という変数を宣 i

30 For Next i という変数を宣 i の値は +1 され繰り返す i が開始値終了値になるまで繰り返す (i は 1 ずつ増加 ) Do While Loop i という変数を宣 i の値が 6 よりさい限り繰り返す (6 になったら終了 ) Do Until Loop i という変数を宣 i の値が5よりきくなるまで繰り返す (6になったら終了 59 ) 60 (Udemy) All Rights Reserved. 30

32 63 Sub Seikyu() の中をてみる規則性があるか? 1 回 3 2 回 4 3 回 5 番号 If Range("B3").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C3:F3").Value End If If Range("B4").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C4:F4").Value End If If Range("B5").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C5:F5").Value End If 5 回 7 64 (Udemy) All Rights Reserved. 32

33 Sub Seikyu() の中をてみる規則性があるか? 番号 1 回 3 2 回 4 3 回 5 5 回 7 If Range("B3").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C3:F3").Value End If If Range("B4").Value = "VBA 商事 " Then r 3 = から r まで繰り返す Range("J" & r & ":" & "M" & r).value = Range("C4:F4").Value End For Ifi = 3 To 7 というFor にすればいい If Range("B5").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C5:F5").Value End If 65 修正前 If Range("B3").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C3:F3").Value End If 修正後 If Range("B4").Value = "VBA 商事 " Then r = r + 1 Range("J" & r & ":" & "M" & r).value = Range("C4:F4").Value End If If Range("B5").Value "B" & i = "VBA 商事 " Then Dim i As Integer r = r + 1 For i = 3 To 7 Range("J" & r & ":" & M" & r).value = Range("C5:F5").Value If Range("B" & i ).Value = "VBA 商事 " Then End If r = r + 1 Range ("J" & r & ":" & "M" & r).value = Range("C" & i & ":" & "F" & i ).Value End If Next "C" & i & ":" & "F" & i 66 (Udemy) All Rights Reserved. 33

34 [エクセルが動化するVBAの魔法2]購者限定テキスト第4.5章 "最終行"の取得最後の行まで自動で反復させる 67 (仮)もし人間が最終行を見つけるなら ① されたデータを上からたどり最終をつける ②ファイルの終端からたどり最終をつける A 1 オフィスコーヒー 2 コーヒー 100g 3 コーヒー 100g B C D , , , (Udemy) All Rights Reserved. 34

35 1 データを上からたどり最終をつける End モードデータのある End( 端 ) に移動する xldown : 下向 xlup : 上向 xltoleft: 左向 xltoright: 右向.Row 数を返すプロパティ A B C D 1 オフィスコーヒー ,950 2 コーヒー 100g ,000 3 コーヒー 100g , ( 旧 Excel なら 65,536 最近の Excel は 1,048,576) 問題点 : データが1 しか無い場合最が返されてしまう 69 2 ファイルの終端からたどり最終をつける Cells( 番号, 列番号 ) セル範囲を番地で指定する例 ) Cells(2,4) なら 2 4 列セル D2 Cells(5,2) なら 5 2 列セル B5 Rows.Count の最数を返す ( 旧 Excel なら 65,536 最近の Excel は 1,048,576) A B C D 1 オフィスコーヒー ,950 2 コーヒー 100g ,000 3 コーヒー 100g , こちらが汎性ある法定番フレーズとして覚えましょう 70 (Udemy) All Rights Reserved. 35

38 修正前 :7 までしか対応できていない 2 列 Dim i As Integer For i = 3 To 7 Next 処理内容受注データの最終を取得しそこまで繰り返す Dim LastRow As Integer LastRow = Cells(Rows.Count,2).End(xlUp).Row Dim i As Integer For i = 3 To LastRow 処理内容最終 (LastRow) の値は 22 となる Next (Udemy) All Rights Reserved. 38

39 [エクセルが動化するVBAの魔法2]購者限定テキスト第5章シートからシートへワークシートの扱い方を覚えよう 77 ワークシートを扱う: Worksheets(シート名) A 1 オフィスコーヒー 2 コーヒー 100g 3 コーヒー 100g 4 オフィスコーヒー 5 コーヒー 100g B C D Worksheetsコレクション , , , , ,400 受注覧 Worksheetオブジェクト Worksheets("受注一覧").Range("B2").Value = 100 ワークシート名を指定 (省略するとアクティブな(現在操作対象の) シートが指定される) 78 (Udemy) All Rights Reserved. 39

44 以下のほか様々なものがありますプロパティ名概要 Name ワークシート名 MsgBox Worksheets(1).Name '1 番のシート名を出 Visible 表するかどうか Worksheets(" 請求書 ").Visible = False 'Trueにすると再表メソッド名概要 Add シートを追加 Worksheets.Add after:=worksheets(" 請求書 ") Copy コピーする Worksheets(" 受注覧 ").Copy After:=Worksheets(" 請求書 ") Delete 削除する Worksheets(" 受注覧 ").Delete Move 移動する Worksheets(" 受注覧 ").Move after:=worksheets(" 請求書 ") Activate 操作対象にする Worksheets(" 請求書 ").Activate 87 (Udemy) All Rights Reserved. 44

PowerPoint プレゼンテーション

PowerPoint プレゼンテーション [エクセルが自動化するVBAの魔法]購入者限定テキストカリキュラムの全体像第0章第0.5章第章第章第章講師エクセル兄さん全体像の把握マクロの流れを整理する方法復習編マクロ VBAの基礎を振り返るセルとセル範囲の扱い Range 条件分岐 If If Else If ElseIf 変数に行番号を取得し穴のない表を作るエクセル兄さん(IT講師の淳) YouTube約8,500名