Excel VBA 質問スレ Part84

[1 デフォルトの名無しさん 2025/10/01(水) 14:36:42.66 ID:lecUwKjm]

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part83
https://mevius.5ch.net/test/read.cgi/tech/1749348402/

[133 デフォルトの名無しさん 2025/11/16(日) 09:33:47.22 ID:EzK8Q/Ny]

分かるとは思うけど一応

Public Const IsDebug As Boolean = False　　'平時
'Public Const IsDebug As Boolean = True　 　'デバッグ時

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
If IsDebug Then Exit Sub

'ここに処理を記述

End Sub

みたいにするってことね

コメントアウトを楽にするならConstじゃなくて
Public Function IsDebug As Boolean
' IsDebug = True　　'平時はコメントアウトする
End Function
にするのもアリ

[134 デフォルトの名無しさん 2025/11/16(日) 09:37:59.73 ID:EzK8Q/Ny]

あ、ミスった
シートモジュールだけにまとめるならPublicなConstは使えないから、Const定義を標準モジュールに書くか、PrivateなConstにするかしてね