2019.09.05

【正誤情報】Excel マクロ&VBA [実践ビジネス入門講座]【完全版】

Excel マクロ&VBA [実践ビジネス入門講座]【完全版】

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

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

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

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

1、[C]ブロックの下から3行目(③)
2、[D]ブロックの最終行(⑥)

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

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

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

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

誤)'フォームを開いたときに表の1レコード目(1件目)を表示する
    If Range("A4").Value = "" Then
        txtNo.Text = 1
    Else
        Call レコード読み込み(Range("A4").Value)
    End If

正)'フォームを開いたときに表の1レコード目(1件目)を表示する
    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