2020.05.12

【正誤情報】Excel実践の授業

業務改善コンサルタントの現場経験を一冊に凝縮した Excel実践の授業

p.335(初版第1刷)
▼04-19.xlsm (Else~End If間)
誤)セル.Interior.ColorIndex = vbYellow
正)セル.Interior.Color = vbYellow

p.354
▼05-03.xlsm (上から3番目のコメント)
誤)’2列目の先頭行から最下行まで繰り返し処理
正)’B列の2行目から最下行まで繰り返し処理

p.376
▼05-07.xlsm (追記:青字)
‘氏名が取得できた(空白ではない)場合
If 氏名 <> “” Then
    ‘採用可否によって処理を分岐する
    Select Case 採用可否
        ‘採用通知書をコピーする
        Case “採用”
            .Sheets(“採用通知書”).Copy , ブック.Sheets(ブック.Sheets.Count)
        ‘不採用通知書をコピーする
        Case “不採用”
            .Sheets(“不採用通知書”).Copy , ブック.Sheets(ブック.Sheets.Count)
    End Select

    ‘取得した氏名を、コピーしたシートのA3セルとシート名に設定する
    ブック.Sheets(ブック.Sheets.Count).Range(“A3”).Value = 氏名
    ブック.Sheets(ブック.Sheets.Count).Name = 氏名
End If

p.378 ページ中部 (追記:青字)
●採用の場合
.Sheets(“採用通知書”).Copy , ブック.Sheets(ブック.Sheets.Count)
●不採用の場合
.Sheets(“不採用通知書”).Copy , ブック.Sheets(ブック.Sheets.Count)

P.379 1行目 (追記:青字)
「(ブック.Sheets.Count)」