loggingmacros不logging适当的分类代码(不同的结果比手动方法logging)
所以我有一个“标志”列,条件格式化=IF(INDIRECT("RC",0)="",TRUE,FALSE)
,它改变字体颜色,使字体颜色是不同的颜色(蓝色)if该单元格是空白的,因为当我手动按值sorting时,空白单元格结束了。 当我通过字体颜色手动sorting,一切正常。
手动分类:
手动sorting结果:
这个想法是使这个macros,所以我logging了我做手动sorting,并得到了以下几点:
Range("A1:F9").Select ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Add(Range( _ "E2:E9"), xlSortOnFontColor, xlDescending, , xlSortNormal).SortOnValue.Color = _ RGB(0, 0, 0) ActiveWorkbook.Worksheets("Sheet1").SORT.SortFields.Add Key:= _ Range("D2:D9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").SORT .SetRange Range("A1:F9") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
但是,当我运行录制的代码时,我得到了与我想要的完全相反的结果,底部有空白标志的单元格:
我试过改变xlSortOnFontColor
的xlDescending
为xlAscending
,但它仍然有相同的不想要的结果。
问题:鉴于我logging了一个可用于手动过程的macros,为什么logging的代码不工作,代码应该是什么?
你还没有select字体颜色来sorting:
.SortOnValue.Color = _ RGB(0, 0, 0)
这也显示在你的sorting屏幕截图。 再次loggingmacros,并select特定的字体颜色放在上面。 再次录制更容易,否则您将需要find所选颜色的RGB代码。
录制过程还很不完善,但它仍然是一个非常有用的工具。