
VBA初心者です。
同じ書式の表(シート)が20枚以上あるBookで、各シートのDとF列に変更が有った場合自動でグラフに反映するプロシージャーを教えてもらって何とか動くようにできたのですが、これだけシートが増えてくると目次のシートが必要だと思い、シートを目次を追加して品名をクリックすると目的のシートに飛ぶようにリンクを張りました。
ところが目次のシートにもVBAが仕込んであり、これとバッティング?することが分かりました。
そこでBookモジュールのイベントプロシージャに特定のシート(目次)は動作対象外、というような設定は出来ないかと。
No.1ベストアンサー
- 回答日時:
こんにちは
>特定のシート(目次)は動作対象外、
>というような設定は出来ないかと。
可能だと思いますが、現状がどうなっているのか不明なので、はっきりとはわかりません。
以下は、全て推測によるものなので、質問者様の実際の環境とは違っている可能性があります。
「BookモジュールのVBA」というのが、
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
で設定されているのであれば、最初の1行目に
If Sh.Name = "hoge" Then Exit Sub
を追加することで、ご質問のようになると思います。
※ ”hoge” 部分には、除外したいシート名(一つだけ)を設定してください。
早々のご回答、それも推察でのご回答ありがとうございます。
当方も投稿してすぐに、実際のコードを記載するべきだったと思っていたところでした。
一発回答ですんなり解決できました!!
後追いで意味ないですが下記のコードで、元々あったsampleXのVBAのトリガーをD-F列が変更された場合、というツギハギのVBAで初心者ゆえの質問でした。
あっさり解決でした。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "品名リスト" Then Exit Sub
If (Target.Column >= 4 And Target.Column <= 6) Then
Call sampleX
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【アメリカ】「80兆円の対米投...
-
括弧があるとHYPERLINKで飛べな...
-
エクセルで複数のシートをフォ...
-
ポップコーンの捨て方
-
スバルサンバー助手席シートを...
-
Google スプレッドシート:FILT...
-
リアシート無しで運転してたら...
-
マクロの別シートのデータ振り...
-
電車のシートって何でこんな暑...
-
スプレッドシートで、2つのシー...
-
ドライブレコーダーのSDカード...
-
XJR400 のシートを替えようと思...
-
車のシートがへたってきました...
-
飛行機の座席について 3列シー...
-
バイクのシートがベタベタする...
-
Vba Array関数について教えてく...
-
バイクに3段シート付けたいので...
-
IHクッキングヒーターの操作パ...
-
Excel Powerクエリーの質問、行...
-
BRIDEのシート張り替えってでき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
IHクッキングヒーターの操作パ...
-
フォルツァ バッテリーを外して...
-
エクセルVBA 4行飛ばしで転記す...
-
シートベルトの固定解除
-
Excel複数シートから日付と文字...
-
【マクロ】シートの変数へ入れ...
-
Vba Array関数について教えてく...
-
原付 レッツシート開け方
-
BRIDEのシート張り替えってでき...
-
ポップコーンの捨て方
-
建築模型、カーブの作り方
-
水の染み込んだバイクのシート...
-
XR250BAJAのシートのはずし方を...
-
癒着してしまったテレビの液晶...
-
カッティングシートの上からア...
-
プリメーラ(P10)の"Tm""Te""...
-
PowerQuery(パワークエリ)のエ...
-
マジェスティ(4HC)のシート下...
おすすめ情報