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

[µo°Ý] ¬£¨®ªí_¼·¶ÃÂॿ

¦^´_ 20# BV7BW


    Sub tt2()
Dim Arr
With Sheets("¤u§@ªí4")
    With .Range(.[k1], .[a65536].End(3))
        Arr = .Value    '¸ê®Æ¸Ë¤JArr
        For i = 2 To UBound(Arr)
            If InStr(Arr(i, 2), "A") Then   '½s¸¹¦³ A
                Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
            Else
                Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '°£¤F½s¸¹A¥H¥~ªº­È¡A¨ú-¥H«á3½X¾ã¼Æ+S¡A¼Æ­È¸Ë¤JArr(i,11)
            End If
        Next
        .Value = Arr 'Arr­È¶K¦^excel
        .Sort Key1:=.Item(11), Order1:=1, Header:=1 '¥HKÄæ±Æ§Ç
    End With
    .Range("k1:k" & UBound(Arr)) = ""   '²M°£KÄæ¼Æ­È
End With
End Sub

TOP

¦^´_ 20# BV7BW


µù¸Ñ¤w¸É¤W¡A½Ð¦Û¦æ½Õ¾ã¹B¥Î¡A¦³°ÝÃD¦A°Q½×¡AÁÂÁÂ

TOP

¦^´_ 22# samwang

ÁÂÁ§A S¤j¤j
¦³µù¸Ñ§Ú¥i¦A²`¤J²z¸Ñ
¦A¦¸ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 22# samwang
S¤j¤j §A¦n
¤u§@ªí4¤¤¥H½s¸¹xx-A001.""A""¶}ÀY  'If InStr(Arr(i, 2), "A") Then   '½s¸¹¦³ A
¦p¥H""B""©Î""C""¡K¡K..¶}ÀY.¥X²{¿ù»~
²{¥H""A""¶}ÀY.¥u¯à³æ¤@¹B¥Î
¦p¯à¥[¤W""B"".""C""¡K¡K¡K.©ÎªÌ¥u¥H½s¸¹«á3½X§@¬°Âà´«¸ê®Æ°òÂI.¦Ó«á3½X¦³S¤@¼Ë¦C¦b³Ì«á
³o¼Ë¹B¥ÎÅܤƤñ¸ûÆF¬¡
ÁÂÁ§A S ¤j¤j
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 24# BV7BW

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub tt3()
Dim Arr
With Sheets("¤u§@ªí4")
     With .Range(.[k1], .[a65536].End(3))
         Arr = .Value    '¸ê®Æ¸Ë¤JArr
         For i = 2 To UBound(Arr)
             If InStr(Arr(i, 2), "S") Then   '½s¸¹¦³ S
                 Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '½s¸¹S¡A¨ú-¥H«á3½X¾ã¼Æ+S¡A¼Æ­È¸Ë¤JArr(i,11)
             Else
                 Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '°£¤F½s¸¹S¥H¥~¡A¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
             End If
         Next
         .Value = Arr 'Arr­È¶K¦^excel
         .Sort Key1:=.Item(11), Order1:=1, Header:=1 '¥HKÄæ±Æ§Ç
    End With
     .Range("k1:k" & UBound(Arr)) = ""   '²M°£KÄæ¼Æ­È
End With
End Sub

TOP

ÁÂÁÂ S ¤j¤j
¥Ø«e¹B§@¶¶ºZ
·PÁ§A³Ò¤ß½ç±Ð ÁÂÁÂ
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 8# °a¤ªºµ

S ¤j¤j §A¦n
¨®½s­«¾ã«á.½s¸¹¬O¥Ñ01.¶¶§Ç±Æ¦C
²{»Ý¨D¥HA001.B001.C001¶¶§Ç±Æ¦C
ÁÂÁ§A ³Ò¤ß
«È¤á­«¾ã.zip (21.71 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 27# BV7BW
©êºp
ºµ ¤j¤j
¤S§âºÙ¸¹¿ù¶Ã
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 28# BV7BW

¬Æ»òºÙ¸¹¿ù¶Ã?

TOP

¦^´_ 27# BV7BW

¤£ª¾¹D¬O¤£¬O§A­nªº»Ý¨D¡A½Ð½T»{¬Ý¬Ý¡AÁÂÁ¡C
Sub tt4()
Dim Arr
With Sheets("¤u§@ªí1")
      With .Range(.[k1], .[a65536].End(3))
          Arr = .Value    '¸ê®Æ¸Ë¤JArr
          For i = 2 To UBound(Arr)
              If InStr(Arr(i, 2), "S") Then   '½s¸¹¦³ S
                  Arr(i, 11) = Int(Mid(Arr(i, 2), 4, 3)) & "s"  '½s¸¹S¡A¨ú-¥H«á3½X¾ã¼Æ+S¡A¼Æ­È¸Ë¤JArr(i,11)
              Else
                  Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '°£¤F½s¸¹S¥H¥~¡A¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
              End If
          Next
          .Value = Arr 'Arr­È¶K¦^excel
          .Sort Key1:=.Item(6), Order1:=1, _
          Key2:=.Item(11), Order1:=1, Header:=1 '¥HF¡BKÄæ±Æ§Ç

    End With
      .Range("k1:k" & UBound(Arr)) = ""   '²M°£KÄæ¼Æ­È
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD