ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý³oVBA µ{¦¡½X¿ù»~ªº¦a¤è¬O¦³¤°»ò°ÝÃD©O?

¦^´_ 1# jeffrey628litw


·Pı¦bª±¤j®a¨Ó§äâí.............

ActiveWorkbook.Worksheets("¬Q¤é").Sort.SortFields.Add2 Key:=Range("e2:e99") _              
    , SortOn:=xlSortOnValues, Order:=x1Ascending, DataOption:=xlSortNormal

¦h¤F­Ó"2"¡A1 §ï¦¨ "L"
¥¿½T¼gªk¦p¤U

ActiveWorkbook.Worksheets("¬Q¤é").Sort.SortFields.Add Key:=Range("e2:e99") _              
    , SortOn:=xlSortOnValues, Order:=xLAscending, DataOption:=xlSortNormal
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 3# jeffrey628litw


  Len(Sheets("±Æµ{½Æ»s").CeIls(i + 3, j)) > 10
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD