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

[µo°Ý] Excel VBA±ø¥ó±Æ§Ç°ÝÃD

¦^´_ 20# Kubi


©Ò¥H¬O¡A¥H«á­±ªº±Æ§Ç§¹¦¨«á¡A¦A±N¸ê®Æ§R°£Åo¡H

TOP

¦^´_ 21# »a³·
¬O°Ú¡ã±Æ§Ç§¹¦¨«á¡A´N¤£»Ý­n¦A¯d¦sµL¥Îªº¸ê®ÆÅo¡C

¥t¥~¥H¼ÒÀÀ¸ê®Æªº¤è¦¡¡A¥[¼g¨â¤ä¤£¥Î¦Û­q²M³æªº±Æ§Çµ{¦¡¡A1¤ä¬O¥u¥Î1­Ó»²§UÄæ¨Ó±Æ§Ç¡A¥t¥~1¤ä¬O¤£¥Î
»²§UÄæ¨Ó±Æ§Ç¡A¦³¿³½ìªº¸Ü½Ð¤U¸ü°Ñ¦Ò¡C
ÁÙ¦³¡A¥H¤W§¡¨S¦³¥[¼g¨¾§bµ{¦¡½X³á¡A­Y¦³Bug½Ð¦Û¦æ°£¿ù¡C
Excel VBA±ø¥ó±Æ§Ç.rar (20.04 KB)

TOP

¦^´_ 22# Kubi


©êºp¡A·Q¦A¦h°Ý­Ó°ÝÃD¡C

­Y¬O±ø¥ó±Æ§Ç§¹¦¨«á¡A§Ú¥i¥H¿ï¾Ü­þ¨Ç¸ê®Æ­n¯d¤U¶Ü¡H

¨Ò¡J ±Æ§Ç«á
L20[2/E]S  
L20[3.5/B.5]E
L20[7/C]N  
L20[7.5/B.5]S
L20[9/C]N
L20[15.5/D]N
L20[15.5/F.5]N  
L20[19/F]N         
L20[21/E]N

¦Ó§Ú­nªº¸ê®Æ ²Ä¤@­Ó§P§O¯d¤Uªº¬° L20¡A²Ä¤G­Ó¬° 7~16¤§¶¡ªº¼Æ¦r¡A²Ä¤T­Ó¬° A~F.5 ¤§¶¡ªº­^¤å¡C
¨ä¾lªº¸ê®Æ«hDelete¡C

ÁÙÀµ½Ð¤j¤j«ü±Ð¡AÁÂÁ¡C

TOP

¦^´_ 23# »a³·
½Ð°Ñ¦Ò¡C
Sub test()
    arr = Array("L20", "L10", "L30")
    Application.ScreenUpdating = False
    er = [C65536].End(3).Row
    For r = 2 To er
        L = Application.Match(Split(Cells(r, 3).Value, "[")(0), arr, 0)
        N = Format(Split(Split(Cells(r, 3).Value, "/")(0), "[")(1), "00.0")
        E = Left(Split(Split(Cells(r, 3).Value, "/")(1), "]")(0), 1)
        If L = 1 And N >= 7 And N <= 16 And Asc(E) >= 65 And Asc(E) <= 70 Then
            Cells(r, 5).Value = L & N & E
        End If
    Next r
    Range("E2:E" & er).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("A2:E" & er).Sort Key1:=[E2]
    Columns("E").ClearContents
    Application.ScreenUpdating = True
End Sub

TOP

¦^´_ 24# Kubi


    ¤Ó±j¤j¤F¡AÅý§Ú¾Ç¨ì¦n¦h¡C
    ¹³¬O Application¤£¥Î WorksheetFunction ¥i¥Hª½±µ¨Ï¥Îsum ...µ¥»yªk¡C

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD