このたびは小社書籍『Excel マクロ＆VBA　［実践ビジネス入門講座］【完全版】』をお買い上げいただきまして、ありがとうございます。書籍内に以下の誤りがありましたことをお詫びするとともに、訂正させていただきます。

◎初版第1刷
●p.69　Sample　セルA1にセルを挿入後に、セルを下にシフトする　プロパティ誤字

誤）Range(“A1”).Insert Shift:=xlshitDown
正）Range(“A1”).Insert Shift:=xlshiftDown

●p.276　Sample　[抽出]ボタンに割り当てるプロシージャ
不要なピリオドがあります。（２箇所）
*ダウンロードファイルは問題ありません。

１、[C]ブロックの下から３行目（③）
２、[D]ブロックの最終行（⑥）

誤）Worksheets.(“売上表”).ShowAllData
正）Worksheets(“売上表”).ShowAllData

●p.309　[B]ブロックの処理内容④　変数名

誤）その間、変数a1 と変数b1にi 行目のセルの値を加算していきます④。
正）その間、変数a1 と変数a2にi 行目のセルの値を加算していきます④。

●p.408　Sample　Initializeイベントプロシージャ　コード1行抜け
*ダウンロードファイルは問題ありません。

誤）'フォームを開いたときに表の１レコード目（１件目）を表示する

    If Range("A4").Value = "" Then

        txtNo.Text = 1

    Else

        Call レコード読み込み(Range("A4").Value)

    End If

 

正）'フォームを開いたときに表の１レコード目（１件目）を表示する

    If Range("A4").Value = "" Then

        txtNo.Text = 1

        Set rRng = Range("A4")

    Else

        Call レコード読み込み(Range("A4").Value)

    End If

 

●p.412　Sample　[登録]ボタン（btnSave）　データチェック（性別）　変数名
*ダウンロードファイルは問題ありません。

誤）Case optMan.Value = False And opt4Woman.Value = False
正）Case optMan.Value = False And optWoman.Value = False

◎初版第10刷
●p.128　column　表のセルをインデックス番号で参照する　1行目

誤）ワークシート内のセルには、セルA1を「1」、セルB1を「2」、セルC3を「3」
正）ワークシート内のセルには、セルA1を「1」、セルB1を「2」、セルC1を「3」

●p.155　Sample　セル範囲に罫線を設定する　04-24-01.xlsm
*2021/4/16　ダウンロードファイルを修正しました。

誤）

    Range("A3:C3").Borders(xlEdgeBottom)

        .LineStyle = xlDouble

 

正）

    Range("A3:C3").Borders(xlEdgeBottom) _

        .LineStyle = xlDouble

◎初版第15刷
・P72　赤枠内
誤）セルA1を含む領域の右端
正）セルA1から右方向の終端

・P90　Array関数の説明。２～3行目
誤）なお、Array関数で作成した配列の下限値は常に「0」です。
正）（削除）

・P110　本文４行目
誤）…［デバッグ］タブ→
正）…［デバッグ］メニュー→

・P125　赤枠内
誤）表の右側列
正）表の右端列

・P197　最終行の注意書き
誤）p.56
正）p.342

・P205　ブックを閉じるの解説１行目
誤）ブックを閉じるには、Workbooksオブジェクトの…
正）ブックを閉じるには、Workbookオブジェクトの…

・P205　Closeメソッドの書式
誤）Workbooksオブジェクト.Close(…
正）Workbookオブジェクト.Close(…

Ｐ329　緑枠内
誤）定数 msoElementLegendLight
正）定数 msoElementLegendRight

・P402　Sampleコード上から10行目
誤）.Range(“B1:B2”).Value=myJoken
正）.Range(“B1:B2”).ClearContents
※サンプルファイルは正しいコードが記述されています。