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

[µo°Ý] VBA ½Ð°Ý¦r¼Æ+¦r¥À±Æ§Ç«ç»ò°µ

¦^´_ 10# s13030029

Sub TEST_A3()
Dim R&, Arr, LN&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A2:A" & R)
     Arr = .Value
     For i = 1 To .Count
         LN = Len(Arr(i, 1))
         Arr(i, 1) = 100 + IIf(LN = 0, 99, LN) & "|" & Arr(i, 1)
     Next i
     .Value = Arr
     .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
     .Replace "*|", "", Lookat:=xlPart
End With
End Sub

TOP

¦^´_ 11# ­ã´£³¡ªL
ÁÂÁ ­ã¤j~³o¬O§Ú­nªº~·P®¦
´N¬O»¡¥ý°µ¦r¼Æ­åªR¦s¨ì°}¦C¦A¨Ì¦r¥À±Æ¦C

TOP

¦^´_ 12# s13030029


G03 >> 3­Ó¦r >> Åܦ¨ 103|G03
FK2156 ¦P²zÅܦ¨ 106|FK2156
ªÅ¥Õ «h Åܦ¨ 199|

§Y¥i¨Ì¦r¼Æ±Æ§Ç, ¥BªÅ¥Õªº±Æ¨ì³Ì«á, ¦A±N"*|"¤§«eªº¼Æ¦r´À´«¬°ªÅ!

TOP

¦^´_ 13# ­ã´£³¡ªL
­ã¤j±z¦n~
§Ú¦³·sªº°ÝÃD·Q½Ð±Ð¡A´N¬O»¡§Úªº²£«~½s¸¹¦³ "OAE-008-3" ³oºØªº
¦pªG­n°µ¦r¥À¤Î½s¸¹¤j¤p±Æ§Çªº¸Ü­n«ç»ò§ï?
±Æ§Ç«e                         ±Æ§Ç«á
A001                              A001
B001                              B001
OCB-001                     OAE-007-1
OBB-001                      OAE-008-2
OAE-008-3                 OAE-008-3
OAE-012                     OAE-012
OAE-007-1                 OBB-001
OAE-008-2                 OCB-001

TOP

¦^´_ 14# s13030029

¬Ý¤å¦r¦³³W«ß, ª½±µ±Æ§Ç¤£¦æ¶Ü???
©ÎªÌ¦³¨ä¥¦ª¬ªp, ¤W¶ÇÀɮ׬ݬÝ~~

TOP

¦^´_ 15# ­ã´£³¡ªL
¦]¬°¤§«e¬O¨Ì¦r¼Æ©Ò¥HOAE-008-3³oºØ¸ûªøªº·|¦b³Ì«á

TOP

¦^´_ 16# s13030029
¬Ý°_¨Ó µ²ªG¬O ¤@¼Ëªº ¤@¯ë±Æ§Ç¤]¥i¥H
Range(Cells(Rows.Count, 1).End(xlDown), Cells(2, 1)).Sort Cells(2, 1)

TOP

¦^´_ 14# s13030029

­É¥Î­ã¤j­×§ï¦p¤U
Sub TEST()
Dim R&, Arr, LN&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A2:A" & R)
    Arr = .Value
    For i = 1 To .Count
        ipos = InStr(5, Arr(i, 1), "-")
        If ipos > o Then
            xR = Mid(Arr(i, 1), 1, ipos - 1)
            Arr(i, 1) = 100 + IIf(LN = 0, 99, ipos - 1) & "|" & Arr(i, 1)
        Else
            LN = Len(Arr(i, 1))
            Arr(i, 1) = 100 + IIf(LN = 0, 99, LN) & "|" & Arr(i, 1)
        End If
      Next i
      .Value = Arr
      .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
      .Replace "*|", "", Lookat:=xlPart
End With
End Sub

TOP

¦^´_ 18# samwang
ÁÂÁ¤j¤j¸Ñ¨M¤F§Úªº°ÝÃD~~·P¿E¤£ºÉ!!

TOP

¦^´_ 11# ­ã´£³¡ªL


    ÁÂÁ½׾Â,ÁÂÁ«e½ú
«á¾ÇÂǦ¹©«¾Ç²ß«e½úªº¤è®×,±N¤è®×³]­p¬°¦P¦r¼Æ«á¦A±Æ§Ç,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú¦A«ü¾É

«e½ú«ü¾Éªº¤èªk:
20230606_1.jpg
2023-6-6 15:08


«á¾Ç©µ¦ù¾Ç²ßªº¤èªk:
20230606_2.jpg
2023-6-6 15:08



Option Explicit
Sub TEST_A4()
Dim R&, Arr, LN&, i&
R = Cells(Rows.Count, 1).End(xlUp).Row
If R < 3 Then Exit Sub
With Range("A2:A" & R)
     Arr = .Value
     For i = 1 To .Count
         LN = 10 - Len(Arr(i, 1))
         Arr(i, 1) = Application.Rept("|", LN) & Arr(i, 1)
     Next i
     .Value = Arr
     .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
     .Replace "|", "", Lookat:=xlPart
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD