【高分求解】vb代码麻烦帮小弟我转成C#的

【高分求解】vb代码麻烦帮我转成C#的

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;    }} 

 

查看更多 下一篇