• 『できるExcel マクロ＆VBA 作業の効率化＆スピードアップに役立つ本 2016/2013/2010/2007対応』の練習用ファイルです。（2019.6.5更新）

  • 8007.zip

誤記のためにご迷惑をおかけし、誠に申し訳ございません。

• 88ページ HINT!「緑色の行はコードの説明文を表す」 5行目～6行目
  • [誤]
    VBAでは「'」（シングルクォーテーション）が前後にある行がコメントとして
  • [正]
    VBAでは「'」（シングルクォーテーション）以降がコメント（説明文）として
  • 【 第2刷にて修正 】
• 126ページ 「乱雑なコード」の例のコード内
  • [誤]
    Range("2").Select
  • [正]
    Range("A2").Select
  • 【 第5刷にて修正 】
• 127ページ 「整形されたコード」の例のコード内
  • [誤]
    Range("2").Select
  • [正]
    Range("A2").Select
  • 【 第5刷にて修正 】
• 144ページ 解説の青コメント
  • [誤]
    [Do Until (条件)]で指定した条件が満たされるまで、処理1と処理2を繰り返す
  • [正]
    [Do Until (条件)]で指定したUntil条件が満たされるまで、処理1と処理2を繰り返す」
  • 【 第2刷にて修正 】
• 153ページ 活用例「複数の条件で繰り返しを設定するには」内
  • [誤]
    【プログラムの内容】
    　　Do While ActiveCell.Offset(0, -1).Value <> "" And ActiveCell.Offset(-1, 1).Value <> "サービス"
  • [正]
    　　Do While ActiveCell.Offset(0, -1).Value <> "" And ActiveCell.Offset(0, 1).Value <> "サービス"
  • 【 第3刷にて修正 】
• 158ページ テクニック内「●Is関数と内容」内の「記述例」行
  • [誤]
    IsEmpty(Range("A5"))
  • [正]
    IsError(Range("A5"))
  • 【 第3刷にて修正 】
• 159ページ 活用例「●Do Untilを使用した場合」の【コードの解説】
  • [誤]
    現在選択している金額（E列）の1つ左のセル（数量）が空欄でない間繰り返す
  • [正]
    現在選択している金額（E列）の1つ左のセル（数量）が空欄になるまで繰り返す
  • 【 第3刷にて修正 】
• 164ページ コード全文解説
  • [誤]
    1　ここからマクロ［合計欄クリア］を開始する
    2　変数「行番号」を整数型に定義する
    3　変数「行番号」の値が14から33になるまで処理を繰り返す
    4　行番号が変数「行番号」、列番号が5（5列目、つまり［金額］列）のセルの文字と数式を削除する
    5　変数「行番号」のループカウンターを1つ増やして処理を繰り返す
    6　マクロを終了する
  • [正]
    1　ここからマクロ［合計欄クリア］を開始する
    2　ループカウンターとして変数「行番号」を整数型に定義する
    3　変数「行番号」の値が14から33になるまで値を1つずつ増やしながら処理を繰り返す
    4　行番号が変数「行番号」、列番号が5（5列目、つまり［金額］列）のセルの文字と数式を削除する
    5　変数「行番号」の値を1つ増やして3行目に戻って条件を比較する
    6　マクロを終了する
  • 備考：

     2行目と3行目、5行目について第3刷で記述を変更・修正いたしました。

  • 【 第3刷にて修正 】
• 166ページ テクニック内、10～11行目
  • [誤]
    「列」の数値として、「6」を指定しているのは、F列の［備考］の内容を参照するためです。
  • [正]
    「列」の数値として、「5」を指定しているのは、E列の［金額］の内容を参照するためです。
  • 【 第2刷にて修正 】
• 167ページ Point内下から4行目以降
  • [誤]
    セル範囲が分かりやすいように処理の対象がとなる行番号を指定しておくといいでしょう。
  • [正]
    セル範囲が分かりやすいように処理の対象となる行番号を指定しておくといいでしょう。
  • 【 第3刷にて修正 】
• 168ページ コード全文解説
  • [誤]
    1　ここからマクロ［行の背景色設定］を開始する
    2　変数「行番号」を整数型に定義する
    3　変数「行番号」の値が14から33になるまで2つずつ増やす処理を繰り返す
    4　セル（行番号、1）からセル（行番号、6）の範囲の背景の色を36（薄い黄色）に設定する
    5　変数「行番号」のループカウンターを1つ増やして処理を繰り返す
    6　マクロを終了する
  • [正]
    1　ここからマクロ［行の背景色設定］を開始する
    2　ループカウンターとして変数「行番号」を整数型に定義する
    3　変数「行番号」の値が14から33になるまで値を2つずつ増やしながら処理を繰り返す
    4　セル（行番号、1）からセル（行番号、6）の範囲の背景の色を36（薄い黄色）に設定する
    5　変数「行番号」の値を2つ増やして3行目に戻って条件を比較する
    6　マクロを終了する
  • 備考：

    2行目と3行目、5行目について第3刷で記述を変更・修正いたしました。

  • 【 第3刷にて修正 】
• 187ページ Point内
  • [誤]
    
    1行目：［金額］列に金額が
    11行目：金額が入力されていない行
    14行目：変数「行番号」には、金額が入力され
    
  • [正]
    
    1行目：［数量］列に数量が
    11行目：数量が入力されていない行
    14行目：変数「行番号」には、数量が入力され
  • 【 第2刷にて修正 】
• 198ページ 「［備考］の内容が「在庫品」？」のNOの点線の行き先
  • [誤]
    「行番号を1増やす」の下
  • [正]
    「行番号を1増やす」の上
  • 【 第5刷にて修正 】
• 208ページ ［プログラムの内容］の6行目
  • [誤]
    Set 請求一覧シート = ThisWorkbook.Worksheets("請求一覧")
  • [正]
    Set 請求一覧シート = Worksheets("請求一覧")
  • 【 第5刷にて修正 】
• 208ページ ［After］の画面キャプチャー
  • [誤]
    ［請求金額］列の数字が間違っている
  • [正]
    ［請求金額］列の数字が正しい画面に差し替える
  • 【 第5刷にて修正 】
• 229ページ HINT!内表、●セルを指定するプロパティ「Range(Cells(1,1),Cells(2,5))」の意味
  • [誤]
    セル範囲A1～B5
  • [正]
    セル範囲A1～E2
  • 【 第2刷にて修正 】
• 232ページ ［After］の画面キャプチャー
  • [誤]
    ［請求金額］列の数字が間違っている
  • [正]
    ［請求金額］列の数字が正しい画面に差し替える
  • 【 第5刷にて修正 】
• 233ページ 【コード全文解説】18行目
  • [誤]
    （操作しているブックの）［請求書］シートの2列目に各シートのセルG3の値を設定する
  • [正]
    （操作しているブックの）［請求書］シートの2列目に各シートのセルB3の値を設定する
  • 【 第2刷にて修正 】
• 252ページ 【コードの解説】
  • [誤]
    4　もし変数「確認」の値がvbno（［いいえ］ボタンの戻り値）であれば、
    5　マクロを終了する
    6　If～Thenステートメントを終了する
    7　マクロ［合計欄クリア］を実行する
    8　マクロ［総計計算_2］を実行する
    9　マクロ［総計計算］を実行する
    10　マクロ［総計計算_値引き］を実行する
    11　マクロ［総計計算_送料］を実行する
    12　マクロを終了する
  • [正]
    4　もし変数「確認」の値がvbno（［いいえ］ボタンの戻り値）であれば、
    5　メッセージボックスを表示する
    6　マクロを終了する
    7　If～Thenステートメントを終了する
    8　マクロ［合計欄クリア］を実行する
    9　マクロ［合計計算_2］を実行する
    10　マクロ［総計計算］を実行する
    11　マクロ［総計計算_値引き］を実行する
    12　マクロ［総計計算_送料］を実行する
    13　マクロを終了する
  • 【 第3刷にて修正 】
• 252ページ 「プログラムの内容」
  • [誤]
    4　　　IF 確認 = vbNo Then
    5　　　　　　Exit Sub
    6　　　End If
    7　　　合計欄クリア
    8　　　合計計算_2
    9　　　総計計算
    10　　総計計算_値引き
    11　　総計計算_送料
    12　End Sub
  • [正]
    4　　　IF 確認 = vbNo Then
    5　　　　　MsgBox"処理を中止します。"
    6　　　　　　Exit Sub
    7　　　End If
    8　　　合計欄クリア
    9　　　合計計算_2
    10　　　総計計算
    11　　　総計計算_値引き
    12　　　総計計算_送料
    13　End Sub
  • 【 第3刷にて修正 】
• 252ページ 「プログラムの内容」の3行目
  • [誤]
    確認 = MsgBox("請求書の計算を実行します。", vbYesNo, "確認")
    
  • [正]
    確認 = MsgBox("請求書の計算を実行します。", vbYesNo)
  • 【 第4刷にて修正 】
• 266ページ HINT!タイトル
  • [誤]
    作成済みのマクロにも後からシートカットキーを設定できる
  • [正]
    作成済みのマクロにも後からショートカットキーを設定できる
  • 【 第2刷にて修正 】
• 296ページ 付録4 VBA用語集 IF～Then～ElseIF（ステートメント）内、使用例4行目
  • [誤]
    Else If ActiveCell.Value
  • [正]
    ElseIf ActiveCell.Value
  • 【 第4刷にて修正 】

書籍の内容に関するお問い合わせはこちら。お答えできるのは本書に記載の内容に関することに限ります。

お問い合わせフォーム