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

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

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

¦U¦ì¥ý[¶i¦Ñ®v¤j®a¦n
¦³­Ó2°ÝÃD½Ð¥ý¶i ¦Ñ®vÀ°¸Ñ´b
¦b¤u§@ªí1A:DÄ椤.¥Ñ½s¸¹¤¤«e2½X¼Æ¦r¤j¤p
Âà´«¦¨(ªþ¥óA¨®.&B¨®.&C¨®.&ªü§».&ªü¤@)¨Ã¥[¤W½u®Ø.³æ¸¹¤£ÅÜ
¦p¨S¦³½s¸¹½X´N¦C¤J³Ì«á.¦p2¦ì¬Û¦P´N¨Ã¦C
1)¤u§@ªí1»Ý¨D:¥iª½±µ¥ÑB1°µÂà´««áª½±µ¶ñ¤J.
              «È¤á1´N¤£¥Î¶ñ¤JÄx¸¹1¤Î½s¸¹1»Ý¥[¤J
       ¨ä¯ÊÂI:¬OÄx¸¹¤£·|¦]¨®§O¦ÓÅÜ°Ê.
              ©ö»F¦¨»~§ëÄxµ¨(A¨®§ë¤JB¨®).¦]Äx¸¹¬Û¦P

              ©ÎªÌ¥Î2¬q¦¡Âà´«
              ¥ÑB1¤¤¥h¦C¥X¸ê®Æ«á.¦b¥t¦æÂà´«°Ê§@.³æ¸¹¤£ÅÜ
              ·í¦C¥X¸ê®Æ«á.¦A¥h§ó§ïÄx¸¹«áÂà´«
2)¤u§@ªí4»Ý¨D:¥Ñ"F1"(¨®½s)§@°òÂI.¨Ã¥Ñ½s¸¹«e2½X§@¶¶§Ç±Æ¦C
              ¤]´N¬O»¡§â(A¨®)&(B¨®)&(C¨®)....²Õ¦X¤@°_
              ¥H½s¸¹«e2½X¤j¤p¶¶§Ç±Æ¦C
              ¨S½s¸¹ªÌ¥H¨®½s¬°¥D.¦C¤J¸Ó¨®½s¤§³Ì«á.¬Û¦P½s¸¹®É¨Ã¦C
¦p¥i¦bµ{¦¡«á¥[¥Hµù¸Ñ ÁÂÁÂ
  ³o¸Ì¥ýÁÂÁ¦U¦ì¥ý¶i   ¦Ñ®v­Ì ³Ò¤ß
      
   ¬£¨®ªí-¼·¶ÃÂॿ.zip (42.77 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

¦^´_ 33# samwang
ÁÂÁÂ s¤j¤j
²{¦bÂà¦Ü¥¿±`¨Ï¥Îª©¥H«D±`¶¶ºZ¨Ï¥Î
ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 32# BV7BW

½Ð¦b¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub ´_¾ã2()
Dim Arr
With Sheets("¤u§@ªí3")
      With .Range(.[k1], .[a65536].End(3))
          Arr = .Value    '¸ê®Æ¸Ë¤JArr
          For i = 2 To UBound(Arr)
              If Arr(i, 2) = "" Then GoTo 99  'ªÅ¥Õ´N´«¤U¤@­Ó
              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
99:       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

¦^´_ 30# samwang
  s¤j¤j §A¦n
ª©¥»Âà¨ì¥¿±`¨Ï¥Îª©¥»·|¥X²{
Arr(i, 11) = Int(Right(Arr(i, 2), 3))   '°£¤F½s¸¹S¥H¥~¡A¨ú³Ì«á3½Xªº¾ã¼Æ¡A¼Æ­È¸Ë¤JArr(i,11)
³o¬q¿ù»~
°õ¦æ¶¥¬q¿ù»~'13'
«¬ºA¤£²Å¦X
§Ú§ï«Ü¤[.¹³§ïÀx¦s®æ§ï¬°¤å¦r
¤@¼Ë¤£¦æ
½Ð À°¸Ñ´b ÁÂÁ ¬¡­¶Ã¯1.zip (43.71 KB)
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

TOP

¦^´_ 30# samwang
ÁÂÁ  S¤j¤j
§¹¥þ²Å¦X­«¾ã«á½s¸¹
¦A¦¸ÁÂÁ§A  S ¤j¤j§A³Ò¤ß«ü¾É
ÁÂÁ§A
±Ó¦Ó¦n¾Ç,¤£®¢¤U°Ý

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

¦^´_ 28# BV7BW

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

TOP

¦^´_ 27# BV7BW
©êºp
ºµ ¤j¤j
¤S§âºÙ¸¹¿ù¶Ã
±Ó¦Ó¦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

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

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD