パーフェクトExcel VBA

サポートページ

 

この記事を読むのに必要な時間：およそ 0.5 分

お詫びと訂正（正誤表）

本書の以下の部分に誤りがありました。ここに訂正するとともに，ご迷惑をおかけしたことを深くお詫び申し上げます。

（2020年3月6日最終更新）

P.73（2行目）

誤 データ型を意識化に
正 データ型を意識下に

P.226（「リスト6-31　既定のメンバーとデフォルトインスタンス」4行目）

誤 Debug.Print d '2015/5/31
正 Debug.Print d '2015/5/5

P.284（2行目）

誤 数値の10はIsDate関数でTrueになります
正 文字列の"4/5"はIsDate関数でTrueになります

P.522（図13-14　辞書の生成と操作）

図に誤りがありました。正しい図は以下になります（クリックすると大きく表示できます）。

P522図_正

（以下2020年2月21日更新）

P.466　「図12-11　コマンドボタンのプロパティを設定する」内

囲み枠の位置に誤りがありました。

誤 「DefaultプロパティをTrueに設定する」→［Enabled|True］
誤
正 「DefaultプロパティをTrueに設定する」→［Default|True］
正

P.496　「リスト13-5　Foldersコレクションからフォルダを参照する」1行目

誤 

Debug.Print myFolders("fuga").Name 'hoge
正 

Debug.Print myFolders("fuga").Name 'fuga

（以下2020年2月4日更新）

P.386（「リスト11-41　Rangeクラスのメンバー」5，6行目）

誤 

Debug.Print .FormulaLocal '=A1&"fuga"
Debug.Print .FormulaR1C1Local '=R[-1]C[-1]&"fuga"
正 

Debug.Print .FormulaLocal 'B2セルのA1参照形式の数式
Debug.Print .FormulaR1C1Local 'B2セルのR1C1参照形式の数式

P.426（「リスト11-69　ListObjectオブジェクトのプロパティ」5，6行目）

誤 

Debug.Print .ListRows.Count '3
Debug.Print .ListRows.Count '3
正 

Debug.Print .ListRows.Count '3
Debug.Print .ListColumns.Count '3

（以下2020年1月27日更新）

p.261 「リスト8-1　Stringsモジュールのメンバー」8行目）

誤 

Debug.Print StrConv("おはよう",vbNarrow) 'ｵﾊﾖｳ
正 

Debug.Print StrConv("オハヨウ",vbNarrow) 'ｵﾊﾖｳ

（以下2020年1月23日更新）

P.75 「3-4-1　変数の宣言」5行目

誤 プロシージャベル
正 プロシージャレベル

P.78 「リスト3-14　Staticステートメント」4行目

誤 

Debug.Print x
正 

Debug.Print "x:", x

P.162「Memo」5行目

誤 PowerPointでは、ドキュメントモジュールにあたるモジュールは存在していません。
正 PowerPointでは、ActiveXコントロールを配置した場合にのみ出現する「Slideモジュール」が存在しています。

P.211「リスト6-25　InitializeイベントとTerminateイベント」2行目

誤 

Dim d As DateTime: Set d = New DateTime
正 

Dim d As DateObject: Set d = New DateObject

P.225「リスト6-30　DateObjectクラスに属性を設定」12行目

誤 

"DataObjectが持つ値"
正 

"DateObjectが持つ値"

P.225「リスト6-30　DateObjectクラスに属性を設定」15行目

誤 

"DataObjectが持つ日付に対して同月の月末日を返す"
正 

"DateObjectが持つ日付に対して同月の月末日を返す"

P.309「リスト9-5　自作コレクションに既定のメンバーを追加する」終わりから4行目

誤 

Public Property Get Item(ByVal index As Variant) As Variant
正 

Public Property Get Item(ByVal index As Variant) As Person

P.388「表11-37　RangeクラスのAddressプロパティの引用」4行目

誤 Scenariosの行
正 Scenariosの行をすべてカット（このような引数は存在していません）。

P.524「リスト13-26　KeysメソッドとItemsメソッドを使用した辞書のループ」

正 

リストを以下にさしかえ

Sub MySub()

    Dim members As Dictionary: Set members = New Dictionary
    With members
        .Add "m01", "Bob"
        .Add "m02", "Tom"
        .Add "m03", "Ivy"
        
        Dim i As Long
        Dim myItems As Variant: myItems = .Items
        For i = LBound(myItems) To UBound(myItems)
            Debug.Print i, myItems(i)
        Next i
        
        Dim myKeys As Variant: myKeys = .Keys
        For i = LBound(myKeys) To UBound(myKeys)
            Debug.Print i, myKeys(i), .Item(myKeys(i))
        Next i
    End With

End Sub