2003のため、条件付書式を5つ作るのにマクロが必要なのですが触ったことないので全くわかりません。以下のマクロ作ったのですが、"コンパイルエラー End Subが必要です"と出てしまいます。どこが悪いのか見当も付きません(TT)。添削をお願いします。
やりたいことは、「決まっている範囲内に入力されている単語別にセルの色を分ける」です。
Sub 条件()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = IntersectC9: F28
If rng Is Nothing Then Exit Sub
Dim x As Range
For Each x In rng
Dim myColor As Integer
Select Case x.Value
Case "りんご": myColor = 3 '赤色
Case "ばなな": myColor = 45 'オレンジ色
Case "みかん": myColor = 6 '黄色
Case "いちご": myColor = 5 '青色
Case "他": myColor = 4 '緑色
Case Else: myColor = xlNone
End Select
x.Interior.ColorIndex = myColor
Next x
Set rng = Nothing
Set x = Nothing
End Sub
No.2ベストアンサー
- 回答日時:
初めてマクロを書かれた割には惜しいところまできていますが、このマクロでは動きません。
以下のマクロを「シート名右クリック」→「コードの表示」で開く画面に貼り付けてください。ワークシートに戻って C9:F28 に値を入力してみて下さい
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim x As Range
Dim myColor As Integer
Set rng = Intersect(Target, Range("C9:F28"))
If rng Is Nothing Then Exit Sub
For Each x In rng
Select Case x.Value
Case Is = "りんご"
myColor = 3 '赤色
Case Is = "ばなな"
myColor = 45 'オレンジ色
Case Is = "みかん"
myColor = 6 '黄色
Case Is = "いちご"
myColor = 5 '青色
Case Is = "他"
myColor = 4 '緑色
Case Else
myColor = xlNone
End Select
x.Interior.ColorIndex = myColor
Next x
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
7文字以上のフルーツをできるだ...
-
教えてください!!
-
ハーブソルトを代用できるもの...
-
筍の上の部分が緑色になってい...
-
10年前のにんにく漬け、食べて...
-
中黒「・」か読点「、」か?
-
Excelの関数 SUBSTITUTEとIF関...
-
Excel MATCH関数で検索範囲内...
-
スポンジケーキってどのくらい...
-
Excelでの全通りの組み合わせ出...
-
エクセルで数字を入力したら文...
-
JRE POINTサイトがスイカ登録す...
-
煮物こんにゃくの冷凍保存について
-
さくらんぼに似ているが、さく...
-
梶井基次郎の檸檬
-
パイナップル果汁はなぜ泡立ち...
-
職場で隣の人についてです。飲...
-
キノコは野菜ですか?栗は果物...
-
「であり」と「であって」の使...
-
イチゴジャムを作っているんで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
7文字以上のフルーツをできるだ...
-
教えてください!!
-
スポンジケーキってどのくらい...
-
ハーブソルトを代用できるもの...
-
Excel MATCH関数で検索範囲内...
-
中黒「・」か読点「、」か?
-
Excelでの全通りの組み合わせ出...
-
バルサミコ酢とバルサミコソー...
-
外はふわふわで(柔らかい)、...
-
エクセルで数字を入力したら文...
-
「であり」と「であって」の使...
-
インドの国旗とアイルランドの...
-
職場で隣の人についてです。飲...
-
エクセル 同名の場合はB列にC...
-
Excelの関数 SUBSTITUTEとIF関...
-
しらたきと吐き気
-
ライム(果物)を漢字になおす...
-
東京モノレールはスイカで乗れ...
-
スーパーで買った1つ300円の梨...
-
せとか(オレンジみたいなやつ...
おすすめ情報