©m¦W«ö°_©Î¤î¤Î¤é´Á±Æ¦CÅã¥Ü

shan0948

½Ð°Ý¥ý¶i¡A¤p§Ì¦³­ÓÀÉ®×(¦pªþÀÉ)¡A»Ý­n±N¥ªªíªº¸ê®Æ¡AÅã¥Ü¦¨¥kªíªº±Æ¦C¡A½Ð°Ý¨ç¼Æ¤½¦¡­n¦p¦ó³]©w¡AÁÂÁÂ¥ý¶i¡I ©m¦W«ö°_¤î¤é´Á±Æ¦C.zip (9.57 KB)

¤U¸ü¦¸¼Æ: 10

2023-2-20 20:11

shan0948

¦^´_ 15# ML089


    M ¤j¦n¡A·PÁ±zªº¦^ÂСA±zªº¤½¦¡¦³±o¨ì»Ý­nªºµ²ªG¡A¤]ÁA¸Ñ±zªº·N«ä¡A³o¤è¦¡¤]¤£¥¢¬°¥t¤@ºØ³~®|¡AÁÂÁ±z¡I

ML089

¦^´_ 14# shan0948
°ÝÃD¡G
¤é´Á 1 °_¡G
±çÂí¾|¡B¸­º~³¹ 2¤H¶ÈÅã¥Ü¦b L4 ¡A
L5¡BL6¡BL7¡BL8¡BL9 §¡¤£Åã¥Ü¡A
¤é´Á 1 ¤î ¤]¬O¦P¼Ë¤è¦¡

¦^ÂСG
(1) ¦³¤é´Á¦ì¸m L4¡A¤½¦¡µ²ªG¬O§_²Å¦X§A­nªºµª®× ?
(2) L5¡BL6¡BL7¡BL8¡BL9 §¡¤£Åã¥Ü¡A¥i¥H¨Ï¥Î ¥Õ¦â¤å¦r¤Î¶ñ¥R¥Õ¦â¨Ó¾B»\¤å¦r¡A³]©w¤W¦¸¤w¸g»¡©ú¡A¦p¤U
±ø¥ó¦¡®æ¦¡³]©w
¿ï¾Ü L4:O50
¤u¨ã¦C - ±ø¥ó¦¡®æ¦¡³]©w - ·s¼W³W«h - ¨Ï¥Î¤½¦¡¨Ó¨M©w... - ¤½¦¡ = $A4=""
±N¶ñº¡»P¦r«¬ªºÃC¦â ³]¬°­I´ºÃC¦â(¥Õ¦â)

shan0948

¦^´_ 13# ML089


    M ¤j¦n¡A·PÁ«ü¾É¡A¸g´ú¸Õ¤½¦¡³]©w«áµ²ªG¦ü¥¼§¹¥þ²Å¦X¼W¥[ªº»Ý¨D¡A¸Ô²Ó»¡©ú¦pªþÀɮסAÁÂÁ¡I ©m¦W«ö°_¤î¤é´Á±Æ¦C-§ó·s.zip (20.61 KB)

¤U¸ü¦¸¼Æ: 2

2023-3-15 07:49

ML089

¦^´_ 9# shan0948

20230314 ©m¦W«ö°_¤î¤é´Á±Æ¦C-§ó·s ªº½Æ¥».rar (18.39 KB)

¤U¸ü¦¸¼Æ: 3

2023-3-14 15:26

¤½¦¡L4=SUBSTITUTE(TRIM(IF($H4=L$3,$F4,"")&IF($A5=""," "&L5,""))," ","¡B") ¥k©Ô¤U©Ô
¤½¦¡N4=SUBSTITUTE(TRIM(IF(ISERROR(FIND($G4,N$3)),"",$F4)&IF($A5=""," "&N5,""))," ","¡B") ¥k©Ô¤U©Ô

±ø¥ó¦¡®æ¦¡³]©w
¿ï¾Ü L4:O50
¤u¨ã¦C - ±ø¥ó¦¡®æ¦¡³]©w - ·s¼W³W«h - ¨Ï¥Î¤½¦¡¨Ó¨M©w... - ¤½¦¡ = $A4=""
±N¶ñº¡»P¦r«¬ªºÃC¦â ³]¬°­I´ºÃC¦â(¥Õ¦â)

Andy2483

¦^´_ 11# shan0948


    ÁÂÁ«e½ú¦^´_
¤½¦¡(¨ç¼Æ)¤ñVBAÃø,«á¾Ç¼ÈÀ°¤£¤W¦£

shan0948

¦^´_ 10# Andy2483


    ·PÁÂ¥ý¶iªº«ü¾É¡A¦]¤§«e¬O¨Ï¨ç¼Æ¤½¦¡¡A¬G¬°ºû«ù¤@­P©Ê¡A¥i§_¤´¨Ï¥Î¨ç¼Æ¤½¦¡³]©w¡AÁÂÁ¡I

Andy2483

¦^´_ 9# shan0948


    ÁÂÁ«e½ú
«á¾Ç½m²ßVBA¤è¦¡ªº¸Ñ¨M¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò

°õ¦æµ²ªG:

¤U¸ü (136.85 KB)

2023-3-14 11:58

Option Explicit
Sub TEST()
Dim Brr, i&, N&, T1&, T6$, T7$, T8$
Brr = Range([H4], Cells(Rows.Count, 1).End(3))
For i = 1 To UBound(Brr)
   T1 = Val(Brr(i, 1)): T6 = Trim(Brr(i, 6)): T7 = Trim(Brr(i, 7))
   T8 = Trim(Brr(i, 8))
   Brr(i, 2) = "": Brr(i, 3) = "": Brr(i, 4) = "": Brr(i, 5) = ""
   If T8 = "" Then GoTo 111
   If T1 > 0 Then
      N = i
      If T8 = "°_" Then Brr(N, 2) = T6
      If T8 = "¤î" Then Brr(N, 3) = T6
      ElseIf T8 = "°_" Then
         Brr(N, 2) = IIf(Brr(N, 2) = "", T6, Brr(N, 2) & "¡B" & T6)
      ElseIf T8 = "¤î" Then
         Brr(N, 3) = IIf(Brr(N, 3) = "", T6, Brr(N, 3) & "¡B" & T6)
         If T7 = "Â÷¾" Then
            Brr(N, 5) = IIf(Brr(N, 5) = "", T6, Brr(N, 5) & "¡B" & T6)
         End If
   End If
   If T8 = "°_" And (T7 = "·s¶i" Or T7 = "¥L°VÂà¤J") Then
      Brr(N, 4) = IIf(Brr(N, 4) = "", T6, Brr(N, 4) & "¡B" & T6)
   End If
   If T8 = "¤î" And T7 = "Â÷¾" Then
      Brr(N, 5) = IIf(Brr(N, 5) = "", T6, Brr(N, 5) & "¡B" & T6)
   End If
111
Next
[K4].Resize(N, 5) = Brr
End Sub

shan0948

¦^´_ 6# hcm19522


    ¥ý¶i¦n¡A¤§«eªº¸ê®ÆÅã¥Ü¨ç¼Æ¤½¦¡¡A¦]¹ê»Ú»Ý­n¼W¥[±ø¥ó§PÂ_¡A­ì¨ç¼Æ¤½¦¡½Ð°Ý­n¦p¦ó­×¥¿¡A¸Ô²Ó»¡©ú¦pªþÀÉ¡AÁÂÁ¡I ©m¦W«ö°_¤î¤é´Á±Æ¦C-§ó·s.zip (14.19 KB)

¤U¸ü¦¸¼Æ: 6

2023-3-13 11:23

shan0948

¦^´_ 6# hcm19522


   «D±`·PÁÂ¥ý¶iªº«ü¾É¡A¸g´ú¸Õ«á²Å¦X»Ý¨D¡A§U¯q¬Æ¤j¡A·P®¦ÁÂÁ¡I