No.3ベストアンサー
- 回答日時:
No.1です。
もっと短くなるのかもですけど初級者なのでご勘弁を。(ちょっと前まで2002を使ってた者でして)
Sub Macro_2()
Dim r As Range
For Each r In Intersect(Range("A:A,C:C"), Range("A13", Cells(Rows.Count, "A").End(xlUp)).EntireRow).Areas
r.FormatConditions.AddUniqueValues
r.FormatConditions(r.FormatConditions.Count).SetFirstPriority
r.FormatConditions(1).DupeUnique = xlDuplicate
With r.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With r.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
r.FormatConditions(1).StopIfTrue = False
Next
End Sub
一応A列とC列は同じ行数と仮定してのコードです。
めぐみんさん、ありがとうございます。
理想の動きができました。
この度はありがとうございました。
また質問させていただくと思いますが、
その際にはよろしくお願いいたします。
No.2
- 回答日時:
こんにちは
No1様と同様なさりたいことがわからないので、具体的な回答は示せませんが…
>マクロの記録を行ったのですが、コードが長くなってしまう為~
実際に、どのような操作を記録なさったのか不明ですが、記録されるマクロを短くする工夫の一つとして、記録中は無駄な操作を行わないことが挙げられます。
また、ご質問の内容を実現する方法のひとつとして、「条件付き書式」を利用する方法が考えらえます。
条件付書式の設定の操作をマクロの記録で記録すれば、1回分の設定操作の記録だけで済むはずですので、記録が長くなるようなことも無いと考えられます。
No.1
- 回答日時:
質問の内容が把握できないのですが?
・A13と一致するC13以下のデータを塗りつぶす
・A列とC列の13行目以下にあるデータで、コンボすると重複になる行(セル?)を塗りつぶす
・A~C列の13行目以下にあるデータ(以降は上記と同じ)
データ内容と塗りつぶす内容について画像添付があったらわかりやすかったかも。
あと『ピンク』ってちなみにどのように指定したのでしょう?
それとコードを提示した方がどんな作り方をしたのかって点で指導を受けると勉強にはなると思うのですけど?
めぐみんさん、回答ありがとうございます。
いつもお世話になっております。
私の言葉足らずで申し訳ございません。
理想の形といたしまして、A列とC列の13行目以下にあるデータの重複に
対し、添付させていただきました画像の動きをさせたいご質問になります。
B列は塗りつぶしをさせたくなかったので、マクロの記録の際に列選択を
せずに記録した際のプログラムはこのような形になりました。
Option Explicit
Sub Macro1()
'
' Macro1 Macro
'
Range("A:A,C:C").Select
Range("C1").Activate
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
ですが記録したこちらのマクロを実行いたしますと、
11行目の結合セルに【入荷リスト】の文字が入っている為、
B列の色も塗りつぶしがされる為、困っている次第です。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) 特定の文字を条件に指定範囲のデータを貼り付けるVBA 3 2023/01/15 06:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) 複数指定セルの可視セルのみを別シートに転記するVBAについて 2 2022/05/27 21:19
- Excel(エクセル) 重複データの抽出について 2 2023/07/21 14:52
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて 重複したものがあれば行を削除するとい 1 2023/02/27 18:49
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
【VBA】特定の範囲で同じ値を含むセルの色を変える
その他(Microsoft Office)
-
VBA 重複文字列 色付け
Visual Basic(VBA)
-
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
-
4
ExcelのVBAで連番を振る。
Excel(エクセル)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
別シートのデータを参照してセルの色を塗り替えたい
Excel(エクセル)
-
7
エクセル 重複したデータを別シートに抽出させる
Excel(エクセル)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
11
最終行に合計(最終行が列によって異なる場合)
Excel(エクセル)
-
12
エクセルマクロ:複数列 重複があった場合、メッセージと印入れる方法
Excel(エクセル)
-
13
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
14
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
15
セルの値が空白じゃないなら色を付ける
Excel(エクセル)
-
16
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
列から特定の文字列検索→該当以...
-
エクセルで階層図を作る方法
-
【VBA】指定月のオートフィルタ...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセル住所録でフラッグの個...
-
VBA 行削除した連番
-
VB.net
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
Excel VBA オートフィルタの結...
-
エクセルのVBAで指定した行数の...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
エクセル関数>参照ファイル名...
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセル;相対パスを絶対パスへ...
-
エクセルの表を複数枚印刷した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
数値に見えるものはすべて数値...
-
エクセルのデータがない行には...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
【VBA】条件に一致しない行を削...
-
エクセルのVBAで指定した行数の...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
マクロにて指定の文字間の文字...
-
Excel97 指定した行だけマク...
-
EXCEL VBAでA列にある空白行よ...
-
excel2021で実行できないマクロ...
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
Excel VBA オートフィルタの結...
-
エクセルで階層図を作る方法
-
VBAで特定の行と一つ上の行を削...
-
【至急】Excel 同一人物の情報...
-
Excelで、マウスで範囲を選択し...
おすすめ情報
理想のプログラムの処理はこの形にしたいと思っております。