すみません。
ご存じの方、ご教授願います。
エクセル用マクロを作成しているのですが、
たとえば、
A1、A4、A9に目的の該当文”FFFF”があり、
行1、行4、行9のバックカラーを変更する場合、
どのようなマクロを作成すればよいのでしょうか?
なお、上記A1、A4、A9は毎回一定ではなく、該当セルの数がゼロの場合もあれば、10以上の場合もあります。(同じ列には存在しています。)
検索”FFFF”→SHIFT+スペースではセルの場所が特定されてしまうので、目的の文の場所がかわったあるいはないときにも背景色を変えてしまいます。
どうかよろしくお願いします。
No.3ベストアンサー
- 回答日時:
こんな感じで如何でしょう。
Sub Sample()
Dim aCell As Range
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For Each aCell In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If aCell.Value = "FFFF" Then aCell.EntireRow.Interior.ColorIndex = 6
Next aCell
Application.ScreenUpdating = True
End Sub
No.4
- 回答日時:
条件付き書式を使い,特にマクロなど使わずに設定できます。
手順:
列範囲を列選択する
2003までのエクセルでは書式メニューから,2007以降ではホームタブで条件付き書式を開始する
2003までのエクセルでは
セルの値が →数式が に変えて
2007以降では
数式を使用してセルの書式を設定 を選んで
=$F1="FFFF"
と条件の数式設定し,希望の書式を取り付けてOKする。
どうしてもマクロでやりたいならたとえば
sub macro1()
range("A1:J100").interior.colorindex = xlnone
if application.countif(range("F:F"), "FFFF") = 0 then exit sub
application.screenupdating = false
range("F1:F100").autofilter field:=1, criteria1:="FFFF"
range("A2:J100").interior.colorindex = 4
activesheet.autofiltermode = false
application.screenupdating = true
end sub
といった具合で,セル範囲を舐めるように巡回せずに素早く結果を得られます。
No.2
- 回答日時:
こんばんは!
こういうことですかね?
操作したいSheet見出し上で右クリック → コードの表示 → VBE画面がでますので、
↓のコードをコピー&ペーストしてデータを入力してみてください。
尚、セルの色は「赤」としていますが、COLORINDEX番号で好みの色に変更してみてください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
Dim i As Long
Cells.Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "FFFF" Then
Rows(i).Interior.ColorIndex = 3
End If
Next i
End Sub 'この行まで
外していたらごめんなさいね。m(__)m
No.1
- 回答日時:
'>行1、行4、行9のバックカラーを変更する場合
'色の変えたい範囲が分からないので行全体にしてあります。
'色は6の所を好みの色に変更して下さい。
Sub Macro1()
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Range("A" & i) = "FFFF" Then
Rows(i).Interior.ColorIndex = 6
End If
Next i
End Sub
で出来ると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/08 09:05
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Excel(エクセル) 判定結果に応じて〇印(図形)をつけるマクロ 4 2022/10/30 11:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
E列のセルに数値が入れば(空白...
-
Excel にて条件付き書式の色に...
-
条件付き書式で、結果が1行ずれる
-
条件付書式で「=#N/A」に色を付...
-
エクセル 条件付き書式で色をつ...
-
Excelの条件付き書式にて空白セ...
-
エクセルの枠の中の文字が青文...
-
エクエルで隣のセルの文字が赤...
-
エクセルで特定の数字等を表示...
-
エクセルで1以上は全て1にするには
-
Excelについて あるセルに文字...
-
条件付き書式で太罫線を引く方法
-
Excelで2つのファイルを比較し...
-
セル結合させてるときの 条件...
-
別シートのセルの色も同じ色に...
-
エクセル内で複数の文字(50個ぐ...
-
エクセルで一定期間が経過した...
-
【エクセル】シフトで○が6個以...
-
互換性チェック
-
エクセルでカーソルのある行を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
E列のセルに数値が入れば(空白...
-
Excel にて条件付き書式の色に...
-
条件付書式で「=#N/A」に色を付...
-
条件付き書式で、結果が1行ずれる
-
エクセルの枠の中の文字が青文...
-
エクセルで特定の数字等を表示...
-
エクセル 条件付き書式で色をつ...
-
Excelの条件付き書式にて空白セ...
-
エクエルで隣のセルの文字が赤...
-
条件付き書式で太罫線を引く方法
-
エクセル内で複数の文字(50個ぐ...
-
セル結合させてるときの 条件...
-
Excelについて あるセルに文字...
-
Excelで2つのファイルを比較し...
-
エクセルで一定期間が経過した...
-
エクセルで1以上は全て1にするには
-
エクセルでカーソルのある行を...
-
セルの値が空白じゃないなら色...
-
【エクセル】今日の日付に赤枠...
-
エクセルで日付を入力したらカ...
おすすめ情報