[µo°Ý] ¦p¦ó§R°£«ü©wÄæ¦ì¼Æ¦r«á¦A¦^¶ñ¥¼§R°£¼Æ¦r

BV7BW

¦U¦ì«e½ú¥ý¶i­Ì ¤j®a¦n

½Ð±Ð¦U¦ì (¤@)¦p¦ó§R°£«ü©wÄæ¦ì«á2¦ì¼Æ¦r&¦p¦³"S"¤]§R°£.«á¦A¦^¶ñ«e­±¥¼§R°£¼Æ¦r(¥þ­±§R°£«á¦A¦^¶ñ)
             ¨Ò""Äx¸¹²M°£""«ö¶s
         
         (¤G)¥H"¨®½s"¬°°ò·Ç.§R°£«ü©wÄæ¦ì«á2¦ì¼Æ¦r&¦p¦³"S"¤]§R°£«á¦A¦^¶ñ«e­±¥¼§R°£¼Æ¦r(³¡¤À§R°£«á¦^¶ñ)
             ¨Ò"A¨®Äx¸¹²M°£"

    ÁÂÁ¦U¦ì«e½ú¥ý¶i­Ì Äx¸¹²M°£.zip (28.58 KB)

¤U¸ü¦¸¼Æ: 9

2021-6-8 09:25

BV7BW

¦^´_ 9# ­ã´£³¡ªL
ÁÂÁ ¦Ñ®v Ãöª`
¦³ª`·N³o±¡ªp
ÁÂÁ´£¿ô

­ã´£³¡ªL

Arr(R, 1) = Replace(Arr(R, 1), "S", "")            '¥h±¼'S'
ª`·N:
12-ÄxAS12S ·|Åܦ¨ 12-ÄxA12

©Ò¦³ªºS³£·|¦Y±¼~~

BV7BW

¦^´_ 7# n7822123


ÁÂÁÂ Às¤j¤j
¥H¦X©Ò»Ý¨D¹B§@
¤]«D±`ÁÂÁ Às ¤j¤j «ü±Ð ·PÁÂ

n7822123

¦^´_ 4# BV7BW


§Úªºµ{¦¡¥[¤@¦æ´N¦æ¤F~

³Ìªñµo²{·Ç¤j¦bExcel Home ¤]«Ü¬¡ÅD

Sub Ÿ¹²M°£(Optional ¨®¸¹ As String)
'¦¹¨ç¼Æ¥Î'¿ï¾Ü©Ê¤Þ¼Æ'¡A¤£¿é¤J¨®¸¹§Yªí¥Ü¥þ³¡²M°£
Arr = Range([B1], [F1].End(4))
If ¨®¸¹ = "" Then ²M°£ = True
For R = 2 To UBound(Arr)
  If Arr(R, 5) = ¨®¸¹ Or ²M°£ Then
      Arr(R, 1) = Replace(Arr(R, 1), "S", "")            '¥h±¼'S'
      Arr(R, 1) = Left(Arr(R, 1), Len(Arr(R, 1)) - 2) '¥h±¼«á¨â¦ì
      Arr(R, 1) = Arr(R, 1) & "00"
  End If
Next R
[B1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub  

BV7BW

¦^´_ 5# ­ã´£³¡ªL
·PÁ ­ã´£³¡ªL ¦Ñ®v«ü¾É

­ã´£³¡ªL ¦Ñ®v  §A¦n ¦n¤[¤£¨£«Ü°ª¿³¦A¨£¦Ñ®v¤âµ§
­è´ú¸Õ§¹¥þ¥¿§k¦X©Ò»Ý.¦p¼W¦C¨®¥D.½s¸¹.¶¶¦ì§R°£¦h¤è­±§¹¥þ¾Þ§@

¦Ñ®v¤@¥X¤âµ§.¤°»ò³£¦³
¦A¦¸·PÁ¦Ѯv ÁÂÁÂ

­ã´£³¡ªL

¦h´X­Ó³B²z¤è®×:
Xl0000553.rar (22.07 KB)

¤U¸ü¦¸¼Æ: 6

2021-6-12 10:50

BV7BW

¦^´_ 2# n7822123
Às  ¤j¤j §A¦n
©êºp ©µÌX´ú¸Õ¦^³ø ©êºp
   ¸g´ú¸Õ¦³1°ÝÃD½Ð°Ý.¦]µLªk°t¦X"Äx¸¹­«¾ã"¹B¥Î
½Ð°Ý¯à§_§R°£¼Æ¦r«á¥[¤W00
¨Ò  A¨®  00-ÄxA01§R°£01«á¥[¤W00....="00-ÄxA00"
      B¨®  00-ÄxB01§R°£01«á¥[¤W00....="00-ÄxB00"
      C¨®  00-ÄxC01§R°£01«á¥[¤W00....="00-ÄxC00" µ¥µ¥Ãþ±À
  ¤SA¨®  00-ÄxAS11S§R°£11S«á¥[¤W00...="00-ÄxAS00"
      B¨®  00-ÄxBS11S§R°£11S«á¥[¤W00...="00-ÄxBS00"
      C¨®  00-ÄxCS11S§R°£11S«á¥[¤W00...="00-ÄxCS00"µ¥µ¥Ãþ±À
  ·PÁ§A

BV7BW

¦^´_ 2# n7822123


    ÁÂÁ Às¤j¤j «üÂI
§Ú¥ý´ú¸Õ.¦A¦^³ø ÁÂÁ§A

n7822123

¦^´_ 1# BV7BW

¦n¤[¨S¤W¨Ó³o¸Ì¤F¡A¤W¨Ó®Ì¤@®Ì

¸Õ¬Ý¬Ý¬O¤£¬O§A­nªº

Sub A¨®ÂŸ¹²M°£()
Ÿ¹²M°£ "A¨®"
End Sub

Sub ©Ò¦³¨®ÂŸ¹²M°£()
Ÿ¹²M°£
End Sub

Sub ¦Û¿ïŸ¹²M°£()
¨®½s$ = InputBox("½Ð¿é¤J¨®½s¡AEx:A¨®", Excel¸ß°Ý, "A¨®")
Ÿ¹²M°£ ¨®½s
End Sub

Sub Ÿ¹²M°£(Optional ¨®¸¹ As String)
'¦¹¨ç¼Æ¥Î'¿ï¾Ü©Ê¤Þ¼Æ'¡A¤£¿é¤J¨®¸¹§Yªí¥Ü¥þ³¡²M°£
Arr = Range([B1], [F1].End(4))
If ¨®¸¹ = "" Then ²M°£ = True
For R = 2 To UBound(Arr)
  If Arr(R, 5) = ¨®¸¹ Or ²M°£ Then
      Arr(R, 1) = Replace(Arr(R, 1), "S", "")            '¥h±¼'S'
      Arr(R, 1) = Left(Arr(R, 1), Len(Arr(R, 1)) - 2) '¥h±¼«á¨â¦ì
  End If
Next R
[B1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

Äx¸¹²M°£-A.rar (29.72 KB)

¤U¸ü¦¸¼Æ: 9

2021-6-8 12:26