A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんばんは
VBAでのご質問ですが、いちいちVBAを実行しなくても「条件付き書式」を利用すれば、入力時に自動的に色が変わるようになります。
VBAであることが必要な場合には、以下は無視してください。
A列を選択し、A1セルがアクティブな状態で、「ホーム」-「条件付き書式」から「数式を使用して~~」を選択し、数式欄に
=AGGREGATE(14,6,COUNTIF(OFFSET(A1,-(ROW(A$1:A$6))+1,,6),A1),1)=6
を入力して、書式で塗り色を設定することで可能になります。
No.2
- 回答日時:
#1の 修正です。
If chk >= 5 Then
.Range(.Cells(r, 1), .Cells(r + chk, 1)).Interior.Color = RGB(255, 0, 0)
End If
7つ以上で繰り返し実行されるので、この場所は、良くないですね
考えるとここですね。Elseの後が良いです。
Else
If chk >= 5 Then
.Range(.Cells(r, 1), .Cells(r + chk, 1)).Interior.Color = RGB(255, 0, 0)
End If
chk = 0
r = 0
すみません
No.1
- 回答日時:
こんにちは
なんか、適切なメソッドがあったような気がしますが
恥ずかしながら、べたに処理を進めると下記のような感じでどうでしょう?
Sub a()
Dim chk As Long, i As Long, r As Long
With ActiveSheet
For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
If chk = 0 Then r = i
If .Cells(i, 1) <> "" Then
If .Cells(i, 1) = .Cells(i + 1, 1) Then
chk = chk + 1
If chk >= 5 Then
.Range(.Cells(r, 1), .Cells(r + chk, 1)).Interior.Color = RGB(255, 0, 0)
End If
Else
chk = 0
r = 0
End If
End If
Next i
End With
End Sub
.Range(.Cells(r, 1), .Cells(r + chk, 1)).Interior.Color = RGB(255, 0, 0)
処理を重ねるの嫌だけれど、、取敢えず。改造してみてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) エクセルでA列セル内で折り返すことなく、文字列を、B列C列・・・側に一行に 2 2022/07/23 02:02
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelについて▶あるセルに文字を入力すると、別のセルに色がつく(条件付き書式) 1 2022/03/27 16:43
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/08 09:05
- Excel(エクセル) EXCEL関数(数式)を教えてください 11 2023/05/09 13:19
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
ユーザーフォームに別シートか...
-
VB.net(VB)で、フォームにExcel...
-
Excelのマクロについて教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
VBAの計算で@が出てしまう件
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
左右の表のキー位置を合わせたい
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
VBA レジストリの値の読み方に...
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報