イベントマクロを初めて書いてみたのですが
A列を全部選択して削除などをするとエラーがて出てしまいます
回避するにはどのようにしたら良いのでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Select Case Target.Value
Case Is = "りんご"
cellColor = 3
Case Is = "みかん"
cellColor = 6
End Select
End If
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Select Case Target.Value
Case Is = "りんご"
cellColor = 6
Case Is = "みかん"
cellColor = 3
End Select
End If
Target.Interior.ColorIndex = cellColor
End Sub
以上が書いたものです。
皆様の知恵お貸しください
宜しくお願いします。
No.2
- 回答日時:
こんな感じでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellColor As Integer
Dim Rng As Range
If Not Intersect(Target, Range("A:A")) Is Nothing Then
For Each Rng In Target
cellColor = Rng.Interior.ColorIndex
Select Case Rng.Value
Case "りんご"
cellColor = 3
Case "みかん"
cellColor = 6
Case ""
cellColor = xlNone
End Select
Rng.Interior.ColorIndex = cellColor
Next Rng
End If
If Not Intersect(Target, Range("B:B")) Is Nothing Then
For Each Rng In Target
cellColor = Rng.Interior.ColorIndex
Select Case Rng.Value
Case "りんご"
cellColor = 6
Case "みかん"
cellColor = 3
Case ""
cellColor = xlNone
End Select
Rng.Interior.ColorIndex = cellColor
Next Rng
End If
End Sub
参考まで
ありがとうございます
実行させていただいたのですが
ターゲットをA:Aとしているせいでしょうか
A全体を消したときなどかなりの時間がかかってしまうようです
しかしながらエラーは出なくなりました
参考にさせていただきます。
No.3
- 回答日時:
こんばんは。
細かいところは別として、
If Target.Count > 1 Then Exit Sub
If Target.Value ="" Then Exit Sub
プロシージャの下に、この二つを先頭に加えればよいと思います。
それと、列全体を対象とするなら、
If Not Intersect(Target, Range("A:A")) Is Nothing Then
↓
If Target.Column = 1 Then
としたほうが短くて済みます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アップルパイと茶巾絞りのつく...
-
エクセルvbaで重複データを加算...
-
相手に物を譲る時、金額が発生...
-
自然数ってマイナス含まれますか?
-
シナモンの甘みの成分は何と呼...
-
海外の人がりんごを皮ごと食べ...
-
エクセルでのフラグの立て方
-
常温で6時間放置
-
玉ねぎの代りになる野菜は何で...
-
「もぐ」って方言ですか?
-
自家用車(軽自動車)に砂糖を...
-
ミキサーで生クリーム泡立ちま...
-
パン屋の生クリーム
-
パン屋のホイップクリームとは...
-
お肉の平均的なお値段
-
おいしくない洋ナシに、救いを...
-
コーンフレークとコーンフロス...
-
歯ごたえのないらっきょう食べ...
-
無人販売所で、ピッタリのお金...
-
手作りのロールケーキ、冷蔵庫...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでのフラグの立て方
-
マクドナルド行ったら(・・?
-
簡単な質問で申し訳ないのです...
-
ミルフィーユと・・
-
1.1は自然数ですか?
-
パサパサになってまずくなって...
-
相手に物を譲る時、金額が発生...
-
海外の人がりんごを皮ごと食べ...
-
「どこだか」と「どこか」どう...
-
桃の皮の上手なむき方
-
パイの焼き方
-
「だまされたと思って」
-
「りんご5つをください」と「...
-
硬くて甘くないリンゴの美味し...
-
紅玉は煮崩れしにくい?
-
アップルパイは温かいか冷たいか
-
アップルパイの下側の生地
-
エクセルvbaで重複データを加算...
-
「りんごの歌」のりんごの気持...
-
うさぎの形にりんごを切り始め...
おすすめ情報