![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
No.2ベストアンサー
- 回答日時:
こんばんは!
No.1さんのお礼欄に
>日付を自動で認識して交互に行の色分けができるとありがたいです・・・
とありますので、お邪魔します。
一例です。
1行目はタイトル行でデータは2行目以降にあるとします。
B列データは昇順に並んでいるとして、
Sub 色分け()
Dim i As Long
Dim j As Long
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
j = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(2, 1).Resize(1, j).Interior.ColorIndex = 36 '←薄い黄色にしています。
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 2) = Cells(i - 1, 2) Then
With Cells(i, 1).Resize(1, j)
.Interior.ColorIndex = .Offset(-1).Interior.ColorIndex
End With
ElseIf Cells(i - 1, 1).Interior.ColorIndex = xlNone Then
Cells(i, 1).Resize(1, j).Interior.ColorIndex = 36
End If
Next i
Application.ScreenUpdating = True
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.3
- 回答日時:
こんな感じ、、、???、、、
Option Explicit
Sub HighlightHeavy()
Const xKey_Row = 2
Const xKey_Col = "B"
Const xBlack = 1
Const xWhite = 2
Const xBlue = 5
Const xYellow = 6
Dim kk As Long
Dim nn As Long
Dim xBefre As Boolean
Dim xLast As Long
Dim xRight As Long
xLast = Cells(Rows.Count, xKey_Col).End(xlUp).Row
xRight = Cells(1, Columns.Count).End(xlToLeft).Column
If (xLast <= xKey_Row) Or (xRight < Range(xKey_Col & "1").Column) Then
MsgBox ("No Data Found!!")
Exit Sub
End If
For nn = xKey_Row To xLast
'日付は文字列でもOK?
If (Cells(nn, xKey_Col).Value = Cells(nn + 1, xKey_Col).Value) And (Cells(nn, xKey_Col).Value <> Empty) Then
'どちらもハイライト
For kk = 1 To xRight
Cells(nn, kk).Font.Bold = True
Cells(nn, kk).Font.ColorIndex = xYellow
Cells(nn, kk).Interior.ColorIndex = xBlue
Next kk
xBefre = True
Else
If (xBefre) Then
'直前一致あり:借りを返済
For kk = 1 To xRight
Cells(nn, kk).Font.Bold = True
Cells(nn, kk).Font.ColorIndex = xYellow
Cells(nn, kk).Interior.ColorIndex = xBlue
Next kk
xBefre = False
Else
'前の状態に関係なくリセット
For kk = 1 To xRight
Cells(nn, kk).Font.Bold = False
Cells(nn, kk).Font.ColorIndex = xBlack
Cells(nn, kk).Interior.ColorIndex = xWhite
Next kk
End If
End If
Next nn
End Sub
No.1
- 回答日時:
例えば、
Option Explicit
Sub HighlightHeavy()
Const xKey_Row = 2
Const xKey_Col = "B"
Const xBlack = 1
Const xWhite = 2
Const xBlue = 5
Const xYellow = 6
Dim kk As Long
Dim nn As Long
Dim xLast As Long
Dim xRight As Long
xLast = Cells(Rows.Count, xKey_Col).End(xlUp).Row
xRight = Cells(1, Columns.Count).End(xlToLeft).Column
For nn = xKey_Row To xLast
Select Case Cells(nn, xKey_Col).Value
Case "20120905"
For kk = 1 To xRight
Cells(nn, kk).Font.Bold = True
Cells(nn, kk).Font.ColorIndex = xYellow
Cells(nn, kk).Interior.ColorIndex = xBlue
Next kk
Case Else
For kk = 1 To xRight
Cells(nn, kk).Font.Bold = False
Cells(nn, kk).Font.ColorIndex = xBlack
Cells(nn, kk).Interior.ColorIndex = xWhite
Next kk
End Select
Next nn
End Sub
この回答へのお礼
お礼日時:2012/11/20 14:52
回答ありがとうございます。
説明不足で申し訳ありません。
データが1000行以上あるため、日付を自動で認識して交互に行の色分けができるとありがたいです。質問の表では、A2:C3、A4:C4、A5:C6、A7:C7を交互に色分けになります。お手数ですが、この条件に対応できるようにしていただけますでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- その他(Microsoft Office) EXCELのセルへの色づけ 2 2023/06/07 01:22
- Excel(エクセル) 条件付書式 Sheet1からSheet2に転記した時の転記ミスを反映させたい 5 2022/05/21 09:52
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- CGI VBAで条件から範囲を指定して色を塗る方法を知りたいです 1 2022/06/30 16:05
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Excel(エクセル) Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を 5 2022/11/12 09:33
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessの桁区切りについ...
-
アクセスのクエリで秒→時間、時...
-
ユニオンクエリの書式について
-
Accessでの入力規則について
-
ピボットテーブル
-
Access97で、“分:秒”という形...
-
アクセス クエリ 時間の合計
-
アクセス データエクスポート...
-
Word2010の差込印刷で金額にコ...
-
「年」と「月」だけの日付の表...
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
-
フィールドの更新がない
-
accessでクエリの結果だけをリ...
-
Accessで、1つの項目に複数の...
-
2つのテーブルに共通するレコ...
-
Acsess アクセス のクエリで...
-
クエリで同一テーブルの複数回...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessの桁区切りについ...
-
Word2010の差込印刷で金額にコ...
-
「年」と「月」だけの日付の表...
-
アクセスのクエリで秒→時間、時...
-
アクセス クエリ 時間の合計
-
ユニオンクエリの書式について
-
アクセス データエクスポート...
-
アクセス集計クエリでの書式設定
-
Access テキスト型を日付/時刻...
-
Access2013にてハイパーリンク...
-
AccessVBAでフィールドのデータ...
-
フォーム データシートビューで...
-
access2007 日付 全角
-
【Access2003】書式設定(Forma...
-
アクセスのフォームで、桁数を...
-
ACCESSで、コンマを付けてCSVを...
-
Accessでの入力規則について
-
Access97で、“分:秒”という形...
-
Access2016 フォームで特定の文...
-
「yyyy/mm/dd hh:mm」が「yyyy/...
おすすめ情報