※ ChatGPTを利用し、要約された質問です（原文：エクセルVBAの質問）
エクセルVBAで勘定科目を指定する方法
このQ&Aのポイント
マクロ初心者のため、エクセルVBAで勘定科目を指定する方法がわかりません。特定の勘定科目を表示させるだけでなく、存在しない場合はスルーする方法も知りたいです。
エクセルVBAで、特定の勘定科目を指定して表示させる方法がわかりません。また、存在しない場合はエラーが出てしまいます。どのようにすれば良いでしょうか。
マクロ初心者です。エクセルVBAを使用して特定の勘定科目を表示させる方法を教えてください。また、存在しない場合は処理をスキップする方法も知りたいです。
エクセルVBAの質問
こんにちは。マクロ初心者です。
事前にネット検索をいろいろしたのですが、どうにも解決できませんでしたので質問させてください・・。
以下のようなマクロがあるとします。
With ActiveSheet.PivotTables(1).PivotFields("勘定科目")
.PivotItems("仮受消費税").Visible = False
.PivotItems("仮払消費税").Visible = False
.PivotItems("現金").Visible = False
.PivotItems("仕入").Visible = False
.PivotItems("仕入戻り高").Visible = False
.PivotItems("受取手形").Visible = False
.PivotItems("買掛金").Visible = False
.PivotItems("売掛金").Visible = False
.PivotItems("売上").Visible = False
.PivotItems("仮受金").Visible = False
.PivotItems("未払消費税").Visible = False
End With
フィールドに示される「勘定科目」で、いくつか科目を指定していますが、
月によっては、上記勘定科目を使用しないときもあります。
この状態でマクロを実行するとエラーになってしまいます。
このとき、例えば「以下の科目があれば適用し、見あたらなければスルーする」というような
一文を加えたいのですが、どうしたら良いでしょうか。
お教えください、宜しくお願いいたします。
お礼
いやあ、うまく行きました！ シンプルイズベストな回答、ありがとうございました！