|
VBA初学者,最近有文件需要识别重复值并标记。我录制了一段条件格式标记重复值的宏文件,确实很好用,但是很多方法属性没有见过,也查不到,能请各位老师讲解一下么?
PS:不懂的地方:
1、AddUniqueValues 是在做什么?想在表格里实现什么功能?
在msdn上的解释我实在没查明白,不知道有没有更详细的解释,请各位大神指条明路QAQ
MSDN的解释如下:
Returns a new UniqueValues object representing a conditional formatting rule for the specified range.
返回一个新的UniqueValues的对象,代表特定单元格的条件格式规则。
请问上面这是要干什么呢?
https://msdn.microsoft.com/zh-cn/library/office/microsoft.office.interop.excel.formatconditions_methods.aspx,倒数第五个
2、为什么要用Selection.FormatConditions.Count统计选中区域的条件格式数量?
3、SetFirstPriority是什么意思?设置第一个条件属性?不设置会怎样呢?
Sets the priority value for this conditional formatting rule to "1" so that it will be evaluated before all other rules on the worksheet.
为条件格式规则设置优先值1,这样,这个规则就会在工作表1当中的所有其他规则之前计算。
https://msdn.microsoft.com/zh-cn/library/office/microsoft.office.interop.excel.uniquevalues_members.aspx
为什么要在统计了选中区域有多少条件格式(Selection.FormatConditions.Count)后,再设置一个条件属性呢?
4、DupeUnique是怎么用的呢?msdn上的我还是没看明白……因为只有解释(请见图片附件,网址见下)
https://msdn.microsoft.com/zh-cn/library/office/microsoft.office.interop.excel.uniquevalues.dupeunique.aspx
(翻译过来好像是:如果条件规则正在查找无重复或重复值,那么就返回或设置这个值)
5、特别不懂就是这里了:这段宏是怎么识别重复值的,是用DupeUnique 的xlDuplicate吗?(xlDuplicate的MSDN网址如下)
https://msdn.microsoft.com/zh-cn/library/office/microsoft.office.interop.excel.xldupeunique.aspx
xlDuplicate Display duplicate values.
————————————————————————
Sub 宏2()
'
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
效果请各位大神见图片附件。
|
|