Excel VBA 質問スレ Part84 (149ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

131: 11/16(日)09:16 ID:EzK8Q/Ny(1/4) AAS
デバッグ定数を使うかApplication.EnableEventsを一時的にFalseにするか
ちなみにデバッグ定数はシート上に隠しておく形式にして例えばRange("A1").Value = Not Range("A1").ValueみたいなSubをイミディエイトから呼び出すのが個人的には楽

---

133(1): 11/16(日)09:33 ID:EzK8Q/Ny(2/4) AAS
分かるとは思うけど一応

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(1): 11/16(日)09:37 ID:EzK8Q/Ny(3/4) AAS
あ、ミスった
シートモジュールだけにまとめるならPublicなConstは使えないから、Const定義を標準モジュールに書くか、PrivateなConstにするかしてね

---

137: 11/16(日)09:41 ID:EzK8Q/Ny(4/4) AAS
そそ
ちなみにどのプロジェクトでもまず最初にこの機構を作る癖を付けておくといろいろ捗るよ

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.010s