- VB.NET code
Sub 重复值() ActiveWindow.SmallScroll Down:=-9 Columns("B:C").Select Selection.FormatConditions.AddUniqueValues Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority Selection.FormatConditions(1).DupeUnique = xlDuplicate With Selection.FormatConditions(1).Font .Bold = True .Italic = False .Color = -16776961 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = FalseEnd Sub
------解决方案--------------------------------------------------------
VS2010卸载掉了,不能帮到你了,呵呵
这种代码你可以去MSDN里查查,经常有现成的
------解决方案--------------------------------------------------------
手头没有装vs软件,所以用在线翻译帮你翻的:http://converter.telerik.com/ 翻译时必须加到class里,所以我就把你的代码放到了名叫test的类。如有不妥欢迎指正
- C# code
public class test{ public void 重复值() {[color=#FF0000] ActiveWindow.SmallScroll Down = -9; //注意这句在线翻译不能翻,所以我自己写的,不确定准确否[/color] Columns("B:C").Select(); Selection.FormatConditions.AddUniqueValues(); Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority(); Selection.FormatConditions(1).DupeUnique = xlDuplicate; { Selection.FormatConditions(1).Font.Bold = true; Selection.FormatConditions(1).Font.Italic = false; Selection.FormatConditions(1).Font.Color = -16776961; Selection.FormatConditions(1).Font.TintAndShade = 0; } Selection.FormatConditions(1).StopIfTrue = false; }}