|
錄製宏--排序。想對C列到L列每列單獨做單元格條件格式。錄制的宏只能進行單個列的排序。求助。謝謝
Sub 排序()
'
' 排序 宏
' 前70名排序
'
'
ActiveWindow.SmallScroll Down:=90
Range("A150:M161").Select
Range("A161").Activate
ActiveWindow.SmallScroll Down:=102
Range("A1:M262").Select
Range("A262").Activate
ActiveWorkbook.Worksheets("2014年AMD客戶分析").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("2014年AMD客戶分析").Sort.SortFields.Add Key:=Range( _
"L1:L262"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("2014年AMD客戶分析").Sort
.SetRange Range("A1:L262")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.SmallScroll Down:=-186
Range("L2:L70").Select
Range("L70").Activate
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
End With
Range("C8").Select
End Sub
|
|