vba 初心者です。
A1〜E50までにランダムに数字が入力されている表があり、同じ数字(重複)毎にセルに色を設定しようと考えています。
下記のようなコードを考えてみたのですが、重複するセルごとに色を変える方法が分かりません。
アドバイスお願いします。
下のコードはカラーを一色で定義しています。
〜ここから〜
Sub Test()
Dim i As Long, j As Long
For x = 1 To 50
For y = 1 To 5
If WorksheetFunction.CountIf(Range("A1:E50"), Cells(x, y)) > 1 Then
Cells(x, y).Interior.ColorIndex = 10
End If
Next x
Next y
End Sub
〜ここまで〜
No.5ベストアンサー
- 回答日時:
No.4です。
https://www.sejuku.net/blog/32288
を基に初級レベルのコードで申し訳ないですがボケジジィが解釈した内容でのコードです。(何組あるのか不明なので57組以上だとエラーになるでしょう)
Sub megu()
Dim myDic As Object
Dim r As Range, rr As Range
Dim c_cnt As Integer
Set myDic = CreateObject("Scripting.Dictionary")
Set rr = Range("A1:E50")
rr.Interior.ColorIndex = xlNone
c_cnt = 3 '黒と白を避けたため
For Each r In rr
If r.Value <> "" And WorksheetFunction.CountIf(rr, r.Value) > 1 Then
If Not myDic.Exists(r.Value) Then
r.Interior.ColorIndex = c_cnt
myDic.Add r.Value, c_cnt
c_cnt = c_cnt + 1
Else
r.Interior.ColorIndex = myDic(r.Value)
End If
End If
Next
Set rr = Nothing
Set myDic = Nothing
End Sub
ほんと解釈がボケでしたらごめんなさい。
No.3
- 回答日時:
>同じ数字(重複)毎にセルに色を設定しようと考えています。
どの数字の重複に『どのような基準で色を決めようと考えている』のかが必要でしょうね。
もしNo.1さんのように『すべての重複しているセルに対して同じ色を付ける』と言う事であればスル~してください。
ボケジジィな私の解釈が悪かっただけですので。
No.2
- 回答日時:
No.1です。
投稿後気づいたのですが、
お示しのコードでも大丈夫ですが、ただ
Nextの順が違っていますね。
>Next x
>Next y
は
>Next y
>Next x
にしないとマクロは動かないと思います。
(変数も違いますが、x と y を変数としているという前提です。)m(_ _)m
No.1
- 回答日時:
こんばんは!
わざわざVBAでなくても条件付き書式で対応できそうですが、
VBAをご希望のようなので、一例です。
Sub Sample1()
Dim c As Range
Dim myRng As Range
Set myRng = Range("A1:E50")
myRng.Interior.ColorIndex = xlNone
For Each c In myRng
If WorksheetFunction.CountIf(myRng, c) > 1 Then
c.Interior.ColorIndex = 10
End If
Next c
End Sub
こんな感じでいけると思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 複数シートの複数列に入力されているデータを重複なしで抽出するVBAを作りたいです。 9 2022/06/17 10:33
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
【VBA】特定の範囲で同じ値を含むセルの色を変える
その他(Microsoft Office)
-
VBAでの重複データに色付け
Visual Basic(VBA)
-
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
エクセルVBAで複数列の重複チェックをするには
Excel(エクセル)
-
6
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
7
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
8
エクセル オートフィルタで絞り込みをしたデータの色つけ
Excel(エクセル)
-
9
エクセル 重複行色付(VBA)について質問です。
その他(パソコン・スマホ・電化製品)
-
10
Cellsのかっこの中はどっちが行と列なの?
Visual Basic(VBA)
-
11
エクセル 重複したデータを別シートに抽出させる
Excel(エクセル)
-
12
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
13
エクセルVBAにて、重複データ処理の高速化を実施したいのですが、いい方法はありますでしょうか? G列
Excel(エクセル)
-
14
VBA 最終行まで数式をコピーする
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
Excel VBA IF文がうまく動作し...
-
エクセルVBA 配列からセルに「...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excelで空白セル直前のセルデー...
-
特定の色のついたセルを削除
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
VBAでユーザーフォームにセル値...
-
Excel-VBA セルのデータ書出し(Q2)
-
【VBA】写真の貼り付けコードが...
-
EXCEL VBA 文中の書式ごと複写...
-
下記のマクロの説明(意味)を...
-
オーバーフローを回避する方法?
-
excelで結合セルの場合にエラー...
-
[Excel VBA] このコードでは行...
-
VBAについて
-
EXCELのフォーム上でリアルタイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
【Excel VBA】一番右端セルまで...
-
Excelで空白セル直前のセルデー...
-
【VBA】写真の貼り付けコードが...
-
VBAコードについて教えてくださ...
-
【VBA】【ユーザーフォーム_Lis...
-
Excel 範囲指定スクショについ...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
VBA にて、条件付き書式で背景...
-
Excel VBAでCheckboxの名前を変...
-
複数指定セルの可視セルのみを...
-
Excel VBA IF文がうまく動作し...
-
エクセルのカーソルを非表示に...
-
入力規則のリスト選択
-
VBA 複数条件の分岐処理の上手...
おすすめ情報