Excel VBA 質問スレ Part84 (167ﾚｽ)
上下前次1-新
107: 10/28(火)21:57 ID:DelTjWwd(1) AAS
バカボンのパパ(´^ω^)
108: 10/28(火)22:41 ID:wDWtv1wu(1) AAS
>>105
マウスじゃなくキーボードでトグルしていくUIはいかが？
こんなの（INSキーでA1セルの値が増える）
Sub Init()
Application.OnKey "{INSERT}", "ThisWorkbook.OnKey_Ins"
End Sub
Sub OnKey_Ins()
Range("A1").Value = Range("A1").Value + 1
End Sub
109(1): 10/29(水)02:29 ID:SoMHk0As(1) AAS
馬鹿は馬鹿な頭で考えた馬鹿な方法に固執する例
110: 10/29(水)06:43 ID:0NTgZ+aL(1/2) AAS
これでいいのだ
111: 10/29(水)06:46 ID:0NTgZ+aL(2/2) AAS
>>109
この人カバの逆立ちなのだ
112: 96 10/29(水)07:39 ID:K2GlQHDP(1) AAS
代案ありがとうございます！
やはり何かしらの大体策を考えるしかないですかね
右ダブルがキャッチできれば解決するんだけどなぁ
113: 10/29(水)18:26 ID:GMHlOV3c(1) AAS
カバは逆立ちしてもカバなのだ
114: 10/30(木)03:56 ID:k5qTIKM4(1) AAS
【高市自民】自維連立に衝撃 維新トップに赤旗砲「重大疑惑」２千万円絡む疑惑と 共産党Ｘが「だから裏金自民党とも組めるのか」と攻撃 説明求める声
外部ﾘﾝｸ:news.yahoo.co.jp
115: 11/01(土)03:09 ID:2yW7ZPbn(1) AAS
環境構築も配布の容易さも世の中の情報量も加味するとpythonなんて比較対象にならんな
特定のシステムでVBAに勝てるものはないわ
運用される規模は部署内程度になゆけどさ
116(1): 11/01(土)10:44 ID:kVMvyffB(1) AAS
マクロを起動するための各種コントロールは今後はフォームを使うべきなのか
これまで作ってきたActiveXコントロールは置き換えていくべきなのか
117: 11/01(土)10:47 ID:abESDRO+(1) AAS
PythonはてっきりVBE上で使えると思ってたからなぁ
ワークシート上の関数とかじゃ使いづらすぎて拍子抜けだわ
118: 警備員[Lv.0][新芽] 11/01(土)16:45 ID:IivztI/y(1) AAS
>>116
デフォルトでActiveX無効になったから、置き換えないと支障が出ることが多い
119: 11/01(土)17:42 ID:Hux2CBJ+(1) AAS
365に変えてから動かなくなった原因がそれだった
120: 11/01(土)18:59 ID:h6jsjnZZ(1/2) AAS
マクロが増えてきてどれがなんのマクロか分かんなくなってきた。間違ったマクロが実行されたEXCELが元に戻らないのも嫌だし、どうしたら良いですか？
121(1): 11/01(土)19:04 ID:xL3BSUWP(1) AAS
うまい具合に人のせいにしてください
122: 11/01(土)19:35 ID:b8gravi3(1) AAS
間違ったマクロを実行した時にEXCELを元に戻すマクロを作ればいい
123: 11/01(土)19:53 ID:+zpxt/zr(1) AAS
適切なマクロを実行するマクロを作る
124: 11/01(土)20:11 ID:6pe+t0kU(1) AAS
AIに丸投げして聞いたらいい
完璧に教えてくれるよ
125(1): 11/01(土)22:42 ID:h6jsjnZZ(2/2) AAS
>>121
採用！
126: 11/05(水)14:44 ID:rUtaLWLS(1) AAS
>>125
人のせいであっても現状の問題への対応はしなければならないのではないか
127: 11/16(日)08:35 ID:BUsW0orn(1/4) AAS
ピボットテーブルのスライサーが変更されたとき、
ピボットテーブルを置いているsheetについて
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
を使っていくつかのマクロを実行させるようにしているんだけど、
これが3つあって、関連するクエリーやらをちょっとメンテ作業すると、これも動いてしまうものだから、
いちいちコメントアウト？（頭に ' 付けるヤツ）にして、このマクロを止めている。
これもっと上手いやり方ないかしら？
128(1): 11/16(日)08:47 ID:Mx/pwiFm(1) AAS
デバッグ用定数を定義しておいて、
そのデバッグ用定数の値が特定の値なら動かさない、とかにすれば、
メンテ中の変更が一カ所で済む、とかそういう話？
129: 11/16(日)08:48 ID:diBaXt68(1) AAS
よく分からんが、フラグ変数とかじゃダメなん？
130: 11/16(日)09:13 ID:bRFFjOtJ(1) AAS
どこかのセルをデバッグON/Offのフラグにする
131: 11/16(日)09:16 ID:EzK8Q/Ny(1/4) AAS
デバッグ定数を使うかApplication.EnableEventsを一時的にFalseにするか
ちなみにデバッグ定数はシート上に隠しておく形式にして例えばRange("A1").Value = Not Range("A1").ValueみたいなSubをイミディエイトから呼び出すのが個人的には楽
132: 11/16(日)09:32 ID:BUsW0orn(2/4) AAS
>>128
うーん、クエリー弄っちゃうと修正途中なので
不用意に動いたVBAでデバッグ入って・・・
てのはあるんだけど。
そもそもの
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
を一時的に止める方法はないのかと。
やっぱ、ワークシート上のどっかのセルに「メンテ中」なら "1" でも入力して、これをフラグにして
3つのPrivate Subの中で if then で、1ならそのまま終わるか、Call 以下のマクロを実行するかの分岐処理？
先達らはもっときれいなことやっているのかと・・・
133(2): 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(2): 11/16(日)09:37 ID:EzK8Q/Ny(3/4) AAS
あ、ミスった
シートモジュールだけにまとめるならPublicなConstは使えないから、Const定義を標準モジュールに書くか、PrivateなConstにするかしてね
135: 11/16(日)09:39 ID:BUsW0orn(3/4) AAS
言ってみれば、プロシージャのインターロック機構みたいな仕組みかな？
136: 11/16(日)09:41 ID:BUsW0orn(4/4) AAS
>>133,134
ありがとう。
やってみる。
上下前次1-新書関写板覧索設栞歴
あと 31 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.293s*