Excelマクロの記述をもっとわかりやすくしたいのですが、どなたかご教
Excelマクロの記述をもっとわかりやすくしたいのですが、どなたかご教示お願いします。
Excel2007使用。下記はマクロを記録として作成しました。省略できるものは省略して見やすくしたいのですが、どこを修正していいのか困っています。
範囲は「A2：A1000、B2：B1000」としていますが、「値が入っている範囲」としたい場合はどのように記述したらよいのでしょうか。
マクロ現在勉強中です。よろしくお願いいたします。
Sub CHK()
Range("A2:A1000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($B$2:$B$1000,A2)>0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("B2:B1000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$2:$A$1000,B2)>0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
お礼
有り難うございました、助かりました。