Board logo

標題: [發問] 請各位高手賜教,如何可以寫得簡短些 [打印本頁]
作者: qqqqwwww    時間: 2014-5-4 18:08     標題: 請各位高手賜教,如何可以寫得簡短些

請各位高手賜教,程式如下
  1. Sub sort_weight()
  2. '
  3. ' sort_weight Macro
  4. '

  6. '
  7.     Range("C2:E2").Select
  8.     Range(Selection, Selection.End(xlDown)).Select
  9.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
  10.         Formula1:="=300.1"
  11.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  12.     With Selection.FormatConditions(1).Font
  13.         .Color = -16383844
  14.         .TintAndShade = 0
  15.     End With
  16.     With Selection.FormatConditions(1).Interior
  17.         .PatternColorIndex = xlAutomatic
  18.         .Color = 13551615
  19.         .TintAndShade = 0
  20.     End With
  21.     Selection.FormatConditions(1).StopIfTrue = False
  22.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
  23.         Formula1:="=180.1", Formula2:="=300"
  24.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  25.     With Selection.FormatConditions(1).Font
  26.         .Color = -16752384
  27.         .TintAndShade = 0
  28.     End With
  29.     With Selection.FormatConditions(1).Interior
  30.         .PatternColorIndex = xlAutomatic
  31.         .Color = 13561798
  32.         .TintAndShade = 0
  33.     End With
  34.     Selection.FormatConditions(1).StopIfTrue = False
  35.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
  36.         Formula1:="=120.1", Formula2:="=180"
  37.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  38.     With Selection.FormatConditions(1).Font
  39.         .Color = -16751204
  40.         .TintAndShade = 0
  41.     End With
  42.     With Selection.FormatConditions(1).Interior
  43.         .PatternColorIndex = xlAutomatic
  44.         .Color = 10284031
  45.         .TintAndShade = 0
  46.     End With
  47.     Selection.FormatConditions(1).StopIfTrue = False
  48.     Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
  49.         Formula1:="=2", Formula2:="=3"
  50.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  51.     With Selection.FormatConditions(1).Font
  52.         .Color = -16752384
  53.         .TintAndShade = 0
  54.     End With
  55.     With Selection.FormatConditions(1).Interior
  56.         .PatternColorIndex = xlAutomatic
  57.         .Color = 13561798
  58.         .TintAndShade = 0
  59.     End With
  60.     Selection.FormatConditions(1).StopIfTrue = False
  61.     Range("D2").Select
  62.     Range(Selection, Selection.End(xlDown)).Select
  63.     ActiveWorkbook.Worksheets("shipment detail").Sort.SortFields.Clear
  64.     ActiveWorkbook.Worksheets("shipment detail").Sort.SortFields.Add Key:=Range( _
  65.         "D2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  66.         xlSortNormal
  67.     With ActiveWorkbook.Worksheets("shipment detail").Sort
  68.         .SetRange Range("A2:Q41")
  69.         .Header = xlNo
  70.         .MatchCase = False
  71.         .Orientation = xlTopToBottom
  72.         .SortMethod = xlPinYin
  73.         .Apply
  74.     End With
  75.     Range("F2").Select
  76.     Range(Selection, Selection.End(xlToRight)).Select
  77.     Range(Selection, Selection.End(xlDown)).Select
  78.     [color=Red]Selection.FormatConditions.Add Type:=xlTextString, String:="NET-A-PORTER", _
  79.         TextOperator:=xlContains
  80.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  81.     With Selection.FormatConditions(1).Font
  82.         .Color = -16383844
  83.         .TintAndShade = 0
  84.     End With
  85.     With Selection.FormatConditions(1).Interior
  86.         .PatternColorIndex = xlAutomatic
  87.         .Color = 13551615
  88.         .TintAndShade = 0
  89.     End With
  90.     Selection.FormatConditions(1).StopIfTrue = False
  91.     Selection.FormatConditions.Add Type:=xlTextString, String:="NET A PORTER", _
  92.         TextOperator:=xlContains
  93.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  94.     With Selection.FormatConditions(1).Font
  95.         .Color = -16383844
  96.         .TintAndShade = 0
  97.     End With
  98.     With Selection.FormatConditions(1).Interior
  99.         .PatternColorIndex = xlAutomatic
  100.         .Color = 13551615
  101.         .TintAndShade = 0
  102.     End With
  103.     Selection.FormatConditions(1).StopIfTrue = False
  104.     Selection.FormatConditions.Add Type:=xlTextString, String:="INTERLINK", _
  105.         TextOperator:=xlContains
  106.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  107.     With Selection.FormatConditions(1).Font
  108.         .Color = -16383844
  109.         .TintAndShade = 0
  110.     End With
  111.     With Selection.FormatConditions(1).Interior
  112.         .PatternColorIndex = xlAutomatic
  113.         .Color = 13551615
  114.         .TintAndShade = 0
  115.     End With
  116.     Selection.FormatConditions(1).StopIfTrue = False
  117.     Selection.FormatConditions.Add Type:=xlTextString, String:="39 TSING YI", _
  118.         TextOperator:=xlContains
  119.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  120.     With Selection.FormatConditions(1).Font
  121.         .Color = -16383844
  122.         .TintAndShade = 0
  123.     End With
  124.     With Selection.FormatConditions(1).Interior
  125.         .PatternColorIndex = xlAutomatic
  126.         .Color = 13551615
  127.         .TintAndShade = 0
  128.     End With
  129.     Selection.FormatConditions(1).StopIfTrue = False[/color]End Sub
複製代碼
請各位大大幫忙解惑，感謝！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)