
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
隣の枝がはみ出してきたら切ってもいい?最もやってはいけないことは?
「隣の木が越境してきて困るが、勝手に切ってはいけないと聞くし…」そう思っている方も多いだろう。実は、2023年4月1日に民法が改正され、この「越境枝」のルールが大きく変わった。 教えて!gooでも「境界から出て...
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA セル間のリンク修正につい...
-
vba textboxへの入力について教...
-
VBAでCOPYを繰り返すと、処理が...
-
Vba セルの4辺について罫線が有...
-
複数のExcelファイルをマージす...
-
エクセルの改行について
-
以下のプログラムの実行結果は...
-
VBA 入力箇所指定方法
-
ワードの図形にマクロを登録で...
-
testファイル内にある複数のpng...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
【VBA】 結合セルに複数画像と...
-
エクセルのVBAコードについて教...
-
【マクロ】切取りの場合、形式...
-
ExcelVBAでパワポを操作したい
-
Excelマクロで使うVBAコードを...
-
Vba 型が一致しません(エラー1...
-
VBAでセルの書式を変えずに文字...
-
IF文、条件分岐の整理方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
複数のExcelファイルをマージす...
-
【ExcelVBA】5万行以上のデー...
-
vbsでのwebフォームへの入力制限?
-
vba textboxへの入力について教...
-
Vba セルの4辺について罫線が有...
-
【マクロ】シートの変数へ入れ...
-
【マクロ】並び替えの範囲が、...
-
Vba Array関数について教えてく...
-
【ExcelVBA】値を変更しながら...
-
【マクロ】開いているブックの...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルのマクロについて教え...
-
エクセルの改行について
-
VBA 入力箇所指定方法
-
[VB.net] ボタン(Flat)のEnable...
-
VBAでセルの書式を変えずに文字...
-
vb.net(vs2022)のtextboxのデザ...
-
Excelのマクロについて教えてく...
-
改行文字「vbCrLf」とは
おすすめ情報