![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
お世話になっております。
この度、私が書籍から参考にし作りましたこちらのVBAは、Dセルに[いちご]と入力されているセルの行セルに色をつけるプログラムになりますが、逆の動きといたしまして、[いちご]以外のデータの行セルに色をつける為には何を記述すればよろしいでしょうか?
よろしくお願いいたします。
Sub Macro1()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("D" & i) = "いちご" Then
Rows(i).Interior.ColorIndex = 6
End If
Next i
End Sub
No.3
- 回答日時:
すみません。
かぶりました。No.2
- 回答日時:
こんばんは、
>逆の動きといたしまして、[いちご]以外
If Range("D" & i) = "いちご" Then "いちご"なら なので
If Range("D" & i) <> "いちご" Then "いちご"以外
If Not Range("D" & i) = "いちご" Then "いちご"以外(=を否定)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
Excelマクロ セルに特定の文字列以外の文字が含まれてたらセルの色を変えたい。
Excel(エクセル)
-
-
4
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
5
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
6
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
7
シート名が変わる場合のVBAの設定の仕方
Excel(エクセル)
-
8
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
9
抽出したデータを修正して元のセルに上書きしたい
Access(アクセス)
-
10
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
7文字以上のフルーツをできるだ...
-
ハーブソルトを代用できるもの...
-
ラズベリーの種の抜き方を教え...
-
梶井基次郎の檸檬
-
何という名前の虫か教えてください
-
Excelでの全通りの組み合わせ出...
-
Excel MATCH関数で検索範囲内...
-
煮物こんにゃくの冷凍保存について
-
パイナップル果汁はなぜ泡立ち...
-
4歳の子供がさくらんぼを種ご...
-
教えてください!!
-
職場で隣の人についてです。飲...
-
【ぶどう】 友人からデラウェア...
-
こんなスイカは食べても大丈夫...
-
中黒「・」か読点「、」か?
-
ブルーベリージャムに種?
-
Excelの関数 SUBSTITUTEとIF関...
-
パイナップルにたかる虫
-
エクセルで数字を入力したら文...
-
スイカが炭酸の味!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
7文字以上のフルーツをできるだ...
-
ハーブソルトを代用できるもの...
-
4歳の子供がさくらんぼを種ご...
-
教えてください!!
-
筍の上の部分が緑色になってい...
-
ラズベリーの種の抜き方を教え...
-
中黒「・」か読点「、」か?
-
さくらんぼを塩水で洗うのは?
-
Excelでの全通りの組み合わせ出...
-
Excel MATCH関数で検索範囲内...
-
スポンジケーキってどのくらい...
-
煮物こんにゃくの冷凍保存について
-
梶井基次郎の檸檬
-
メロンとヨーグルトは合わない...
-
パイナップルにたかる虫
-
さくらんぼに似ているが、さく...
-
ふにゃふにゃになったキウイっ...
-
パイナップル果汁はなぜ泡立ち...
-
「であり」と「であって」の使...
-
エクセルで数字を入力したら文...
おすすめ情報