Excelマクロである条件のセル間(行方向)に色を付けたい

質問

Excelマクロである条件のセル間(行方向)に色を付けたい
例えば、エクセルのあるセルに"A"が書かれていた場合、次にその行のセルに"円"と書かれているまでは、続く行のセルには色をつけるようにしたいのですが、良い方法を教えて頂けないでしょうか？

対象となるシート（列方向）に、今回のパターンが複数存在し、
それぞれにこの処理を実施することを想定しております。

（イメージ画像を添付します）

お恥ずかしい話、当方VBAには明るくありませんので、簡単なサンプルコードを示して頂けると幸いです。

回答No.3

jcctaira · ベストアンサー

Sub 背景色付け()
　Const 開始文字 = "A"
　Const 終了文字 = "円"
　Const 背景色 = 35
　Dim 検索範囲 As Range
　Dim 条件範囲 As Range
　Dim C As Integer
　Dim R As Integer

　Set 検索範囲 = Range("A1", Cells.SpecialCells(xlCellTypeLastCell))
　For R = 1 To 検索範囲.Rows.Count
　　　Set 条件範囲 = Nothing
　　　For C = 1 To 検索範囲.Columns.Count
　　　　　Select Case Cells(R, C)
　　　　　　　Case 開始文字
　　　　　　　　 Set 条件範囲 = Cells(R, C + 1)
　　　　　　　Case 終了文字
　　　　　　　　 If Not (条件範囲 Is Nothing) Then
　　　　　　　　　　 Set 条件範囲 = Range(条件範囲, Cells(R, C - 1))
　　　　　　　　　　 条件範囲.Interior.ColorIndex = 背景色
　　　　　　　　　　 Set 条件範囲 = Nothing
　　　　　　　　 End If
　　　　　End Select
　　　Next C
　Next R
End Sub

お礼

ありがとうございます！まさにやりたかったことです。

回答No.2

kagakusuki

「A」や「円」が存在する列が決まっていない場合や、同じ行において、「A」や「円」が複数存在する場合には、

B1セルを選択
　　↓
メニューの［書式］をクリック
　　↓
現れた選択肢の中にある［条件付き書式］をクリック
　　↓
現れた「条件付き書式の設定」ウィンドウの左端の欄をクリック
　　↓
現れた選択肢の中にある「数式が」をクリック
　　↓
右側の欄をクリックして、次の数式を入力

=COUNTIF($A1:A1,"A")>COUNTIF($A1:B1,"円")

　　↓
「条件付き書式の設定」ウィンドウの［書式］ボタンをクリック
　　↓
現れた「セルの書式設定」ウィンドウの［パターン］タグをクリック
　　↓
好みの色をクリックして選択
　　↓
「セルの書式設定」ウィンドウの［OK］ボタンをクリック
　　↓
「条件付き書式の設定」ウィンドウの［OK］ボタンをクリック
　　↓
B1セルにカーソルを合わせて、マウスを右クリック
　　↓
現れた選択肢の中にある［コピー］をクリック
　　↓
条件付き書式で色を付ける範囲全体を範囲選択して、マウスを右クリック
　　↓
現れた選択肢の中にある［形式を選択して貼り付け］をクリック
　　↓
現れた「形式を選択して貼り付け」ウィンドウの貼り付け欄にある、［書式］と記されている箇所をクリックしてチェックを入れる
　　↓
「形式を選択して貼り付け」ウィンドウの［OK］ボタンをクリック

　以上で完了です。
　尚、上記の数式では、半角文字の「A」にしか対応しておりませんから、もし、入力される「Ａ」が全角文字である場合には、入力する数式を次の様に変更して下さい。

=COUNTIF($A1:A1,"Ａ")>COUNTIF($A1:B1,"円")

　又、半角文字と全角文字が混在している場合には、入力する数式を次の様に変更して下さい。

=COUNTIF($A1:A1,"A")+COUNTIF($A1:A1,"Ａ")>COUNTIF($A1:B1,"円")

お礼

ご指導ありがとうございました。
今回は、No3様の回答をBAとさせて頂きました。
ご了承下さい。

回答No.1

kmetu

条件付書式で対応できます

BからG列まで選択し

数式が：　=$A１="A"

として書式を設定してください

お礼

ありがとうございました。