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

½Ð¨D§ï¨}µ{¦¡

½Ð¨D§ï¨}µ{¦¡


½Ð¨D§ï¨}µ{¦¡¡G
¤U­±µ{¦¡¦³¤U­±°ÝÃD¡G
1¡^ ¦pªGSheet1¦b BÄæ¨S¦³¸ê®Æªº¡A«á­±CÄæ-FÄæ¸ê®Æ³£¤£·|Åã¥Ü¥X¨Ó¡C
2¡^­ì³]­p¨S¦³¤¤½c¤@¦æ
3¡^¸ê®Æ®w¿é¤J¦³®É·|¦³·L§ï

²{·Q­×§ï¤ñ¸û²³æªº³W«h¡A¥u­×§ï¹Ï¤ù³¡¤Àªº³W«h¡C
¹Ï¤ù¤U¤è¬O¸ê®Æ®w¡A¨C­Ó³£©T©w¦³5¦æ¡A¦ý¤£©T©wÄæ¼Æ
¥ª¤W¹Ï¬°©T©w¼ÒªO¡A«ö·Ó¤U¤è¸ê®Æ®wªº¦ì¸m¡A±Æ¤J©T©w¼ÒªO¡C

¤À³Î¨âÄæ¡A
¦pªG¦³"SR" , ²Ä¤@Äæ©â¨úSR¶}©l¨ì "¡]" ©ÎªÌ  ¡¨ ¡§ ªÅ®æ;   
¦pªG¨S¦³"SR" ,²Ä¤@Äæ©â¨ú±q²Ä¤@­Ó¦r¨ì ¡¨ ¡§ ªÅ®æ;   
Á|¨Ò
"¤U¬[ SR1106(15F单¤¸)" ©â¨ú "SR1106"   
"SR02 SM-057-094S (T-boltÁ³丝垫¤ù)" ©â¨ú "SR02"
"#2312302240 ªù®Ø¬Á¼þ 280MM =4PCS"  ©â¨ú "#2312302240"
"W001 (OT3¤uµ{门¥É¬Á¼þGL1-008)" ©â¨ú "W001"

²Ä¤GÄæ©â¨ú²Ä¤@Äæ©â¨ú¦Zªº©Ò¦³¸ê®Æ¡A¦pªGÀY§À¬O¡§¡]¡¨¡§¡^¡¨´N¥h±¼
Á|¨Ò
"¤U¬[ SR1106(15F单¤¸)" ©â¨ú "15F单¤¸"   
"SR02 SM-057-094S (T-boltÁ³丝垫¤ù)" ©â¨ú "SM-057-094S (T-boltÁ³丝垫¤ù"
"#2312302240 ªù®Ø¬Á¼þ 280MM =4PCS"  ©â¨ú "ªù®Ø¬Á¼þ 280MM =4PCS"
"W001 (OT3¤uµ{门¥É¬Á¼þGL1-008)" ©â¨ú "OT3¤uµ{门¥É¬Á¼þGL1-008"

Sub Map()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim Brr, Crr, Ar, Arr, V, Z, A, i&, r&, C%, j%, T$, K$, Qs$, Qd$, No$, Mk$, Q$
For i = Worksheets.Count To 4 Step -1: Worksheets(i).Delete: Next
Set Z = CreateObject("Scripting.Dictionary")
Brr = Union(Sheets(1).UsedRange, Sheets(1).UsedRange.Offset(1))
Crr = Range(Sheets(2).[A1], Sheets(2).UsedRange): K = [B1]
For i = 1 To UBound(Brr) - 1
   If InStr(Brr(i, 1), Left(K, 4)) = 0 Then GoTo i01
   A = Split(Replace(Brr(i, 1), "  ", " "), " "): Q = Mid(A(0), 5, 4): Qd = A(1)
   If UBound(A) > 1 Then Qs = A(UBound(A)) Else Qs = ""
   A = Z(Q): r = Z(Q & "/r"): C = 1
   If Not IsArray(A) Then A = Crr: A(3, 2) = Q: A(3, 6) = Qs: A(3, 9) = Qd: A(4, 13) = Date: r = 5
   r = r + 1: V = A(r, 2)
   If InStr(Brr(i, 2), V) = 0 Or r = 10 Then GoTo i01
   For j = 2 To UBound(Brr, 2)
      C = C + 2: T = Trim(Brr(i, j)): If T = "" Then GoTo j01
      If InStr(T, V) Then
         A(r, C) = Mid(T, 4, 6): A(r, C + 1) = Replace(Mid(T, 11), ")", "")
         Else
         Ar = Split(T, Chr(10))
         For Each Arr In Ar
            If Not Split(Arr & " ", " ")(1) Like "[A-z][A-z]" Then GoTo j01
            No = No & Chr(10) & Split(Arr, " ")(0)
            Mk = Mk & Chr(10) & Mid(Arr, InStr(Arr, Split(Arr, " ")(1)))
         Next
         A(r, C) = Mid(No, 2): A(r, C + 1) = Mid(Mk, 2): No = "": Mk = ""
      End If
j01: Next
   Z(Q) = A: Z(Q & "/r") = r
i01: Brr(i + 1, 1) = IIf(Brr(i + 1, 1) = "", Brr(i, 1), Brr(i + 1, 1))
Next
If Z.Count = 0 Then Exit Sub
For Each A In Z.KEYS
   If Not IsArray(Z(A)) Then GoTo A01
   With Sheets(2).Copy(after:=Worksheets(Sheets.Count))
      ActiveSheet.Name = A
      [A1].Resize(UBound(Z(A)), UBound(Z(A), 2)) = Z(A)
   End With
A01: Next
Application.Goto Sheets(1).[A1]
End Sub

BH#001-004 ±Æ Âd ªí.rar (67.69 KB)

¦^´_ 1# 198188

³o½d¨ÒÀÉ»P¤§«e¸ÜÃDªº½d¨ÒÀɸê®Æ»Ý­n§ó¦h§PÂ_¤~¯àÂç²M¨ä¬° ¤W¬[©Î¤U¬[,«á¾Ç»{¬°¸ê®Æ­n¶i¨B©Ê
«Øij«e½ú¦h½m²ß,¦]À³³o¨Ç¸ê®ÆªºÅܤƭקïµ{¦¡

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483



­ì¥»ªºµ{¦¡¬O¤À¤W¬[ & ¤U¬[¨Ó¤À¿ë¡C

¦]爲¹ê»Ú±¡ªp½Õ¾ã¤F¡A©Ò¥H§ï爲 «ö·Ó§ï¤U¹Ï¤uµ{内5¦æ¨Óª½±µ¤À°t¤J¤W¹Ïªº5¦æ内¡C

¦ÓÄæ¦ì¦P¼Ë¤À³Î¨â³¡¤À¡A®M¤J2­ÓÄæ¦ì, A / B Äæ
Äæ¦ì内ªº³W«h¦³¤Ö³\§ï°Ê¡C
­ºÄæ  A¡G
¦pªG¦³ "SR", ´N©â¨ú ±q¡§SR" ¶}©l­pºâ¨ì¤U¤@­Ó "ªÅ®æ" / "("  
Á|¨Ò
¤U¬[ SR7000 (22F)               => SR7000
¤W¬[ SR70 (22F)                   => SR70
¤U¬[SR700(2F)                     => SR700
SR12(32F)                             =>SR12
¦pªG¨S¦³"SR", ´N©â¨ú²Ä¤@­Ó¦r¨ì²Ä¤@­ÓªÅ®æ
Á|¨Ò
W201 (3-10F)                                       =>W201
2312302240 GLASS                           => 2312302240
#2402190275 WING                          =>#2402190275
TENU7325721-1 GLASS                    =>TENU7325721-1

­ºÄæ  B¡G
©â¨ú­ºÄæA¤§«áªº¦r¤¸¡A¦pªG­º§À¬O¡¨¡]¡^¡§´N¥h±¼¡¨¡]¡^¡§
Á|¨Ò
W201 (3F-5F³æ¤¸)                                         =>3F-5F³æ¤¸
2312302240 GLASS                                      => GLASS
#2402190275 WING                                    =>WING
TENU7325721-1(5-6F¤ô¼Ñ)1500*1200    =>  5-6F¤ô¼Ñ)1500*1200
¤U¬[ SR7000 WINDOW(22F)                                         => WINDOW(22F
¤W¬[ SR70 (22F)                                              => 22F
¤U¬[SR700 (2F)                                               => 2F
SR12 (32F)                                                       =>32F

TOP

¦^´_ 3# 198188

#2312302239 ªù®Ø¬Á¼þ 550MM =11PCS
#2312302236 ªù®Ø¬Á¼þ 300MM =4PCS
#2312302240 ªù®Ø¬Á¼þ 280MM =4PCS
#2402190275 ªù®Ø¬Á¼þ 300MM =4PCS
³o¨Ç¨S¿ìªk§P©w ¤W¬[©Î ¤U¬[
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 4# Andy2483


#2312302239 ªù®Ø¬Á¼þ 550MM =11PCS
#2312302236 ªù®Ø¬Á¼þ 300MM =4PCS
#2312302240 ªù®Ø¬Á¼þ 280MM =4PCS
#2402190275 ªù®Ø¬Á¼þ 300MM =4PCS
¤U¬[ SR7006 (07Fªù¥É¡^
³oùجO5¦æ


¥þ³¡«ö·Ó¸ê®Æªº¶¶§Ç±Æ¦C
Sheet1 ¤u§@­¶ ²Ä¤@¦æ #2312302239 ªù®Ø¬Á¼þ 550MM =11PCS    µ¥©ó   MAP ¤u§@­¶²Ä6¦C    ³Ì¤@¦æªº¤W¬[
Sheet1 ¤u§@­¶ ²Ä¤G¦æ #2312302236 ªù®Ø¬Á¼þ 300MM =4PCS       µ¥©ó   MAP ¤u§@­¶²Ä7¦C    ³Ì¤G¦æªº¤U¬[
Sheet1 ¤u§@­¶ ²Ä¤T¦æ #2312302240 ªù®Ø¬Á¼þ 280MM =4PCS      µ¥©ó    MAP ¤u§@­¶²Ä8¦C    ³Ì¤T¦æªº¤¤½c
Sheet1 ¤u§@­¶ ²Ä¥|¦æ #2402190275 ªù®Ø¬Á¼þ 300MM =4PCS      µ¥©ó    MAP ¤u§@­¶²Ä9¦C    ³Ì¥|¦æªº¤W¬[
Sheet1 ¤u§@­¶ ²Ä¤­¦æ ¤U¬[ SR7006 (07Fªù¥É¡^                                  µ¥©ó    MAP ¤u§@­¶²Ä10¦C  ³Ì¤­¦æªº¤U¬[

¤£»Ý­n®Ú¾Ú¤W¬[ / ¤U¬[¨ÓŪ¨ú

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-3-15 18:42 ½s¿è

¦^´_ 5# 198188


    ¦pªG¶W¹L10¶µ11.12.13....µ¥ªí¤S·|«ç»òÅÜ¡H
»P¨Mµ¦ªÌ¦h°Q½×¦UºØ¤£¦Pª¬ªp¡A¤â°Ê¸Õ¦æ¬Ý¬Ý
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2024-3-16 10:16 ½s¿è

¦^´_ 6# Andy2483





"MAP" ¤u§@ªí¼ÒªO©T©w¦æ¼Æ5¦æ ¡]¦C6 "¤W¬["¡A¦C7 "¤U¬["¡A¦C8 "¤¤½c"¡A¦C9 "¤W¬["¡A¦C10 "¤U¬["), Äæ¦ì©T©w±qÄæC¶}©l¡AÄæ¼Æ¤£©T©w¡A¨ú¨M¤_ "SHEET1"¸ê®Æ®w

"SHEET1" ¤u§@ªí¸ê®Æ®w¡A¦æ¼Æ³Ì¤Ö5¦æ¡AÄæ¦ì©T©w±qÄæB¶}©l¡AÄæ¼Æ¤£©T©w

¹ïÀ³¼Æ¾Úªº³W«h
Sheet1 ¸Ó²Õªº²Ä¤@¦æ  ¹ïÀ³ MAP ¦C6 "¤W¬["
Sheet1 ¸Ó²Õªº²Ä¤G¦æ  ¹ïÀ³ MAP ¦C7 "¤U¬["

Sheet1 ¸Ó²Õªº²Ä¤T¦æ ¡]©ÎªÌ²Ä¤T¦æ ¦Ü §À¤T¦æ¡^  ¹ïÀ³ MAP ¦C8 "¤¤½c"¡A ¦p¤W¹ÏÂŦⳡ¤À
Á|¨Ò¦pªGÁ`¦@6¦æ¡A²Ä3¡A4¦æ ¹ïÀ³ MAP ¦C8 "¤¤½c"¡F¦pªGÁ`¦@7¦æ¡A²Ä3¡A4¡A5¦æ ¹ïÀ³ MAP ¦C8 "¤¤½c"¡A¦pªGÁ`¦@8¦æ¡A²Ä3¡A4¡A5¡A6¦æ ¹ïÀ³ MAP ¦C8 "¤¤½c"¡A¦p¦¹Ãþ±À

Sheet1 ¸Ó²Õªº§À¤G¦æ  ¹ïÀ³ MAP ¦C9 "¤W¬["
Sheet1 ¸Ó²Õªº²Ä§À¦æ  ¹ïÀ³ MAP ¦C10 "¤U¬["

Sheet1 ÄæB ¹ïÀ³ MAP Äæ C&D¡A ÄæC ©â¨ú ¡]¦p¦³ "SR" ¡A±q"SR"¶}©l ¨ì ²Ä¤@­ÓªÅ®æ©ÎªÌ "(" ;  ¦p¨S¦³"SR" ¡A±q²Ä1­Ó¦r ¨ì ²Ä¤@­ÓªÅ®æ©ÎªÌ "(" ¡A¨Ã§R°£²Å¸¹ "#" ¦p¦³¡^¡F ÄæD ©â¨ú (ÄæC ¨ú¨ìªº¦r¤¸¤§«áªº©Ò¦³¦r¤¸¡A¨Ã§R°£²Å¸¹ "(" & ")" ¦p¦³)
Sheet1 ÄæC ¹ïÀ³ MAP Äæ E&F¡A ÄæE ©â¨ú ¡]¦p¦³ "SR" ¡A±q"SR"¶}©l ¨ì ²Ä¤@­ÓªÅ®æ©ÎªÌ "(" ;  ¦p¨S¦³"SR" ¡A±q²Ä1­Ó¦r ¨ì ²Ä¤@­ÓªÅ®æ©ÎªÌ "(" ¡A¨Ã§R°£²Å¸¹ "#" ¦p¦³¡^¡F ÄæF ©â¨ú (ÄæC ¨ú¨ìªº¦r¤¸¤§«áªº©Ò¦³¦r¤¸¡A¨Ã§R°£²Å¸¹ "(" & ")" ¦p¦³)
Sheet1 ÄæD ¹ïÀ³ MAP Äæ G&H¡AÄæG ©â¨ú ¡]¦p¦³ "SR" ¡A±q"SR"¶}©l ¨ì ²Ä¤@­ÓªÅ®æ©ÎªÌ "(" ;  ¦p¨S¦³"SR" ¡A±q²Ä1­Ó¦r ¨ì ²Ä¤@­ÓªÅ®æ©ÎªÌ "(" ¡A¨Ã§R°£²Å¸¹ "#" ¦p¦³¡^¡F ÄæH©â¨ú (ÄæC ¨ú¨ìªº¦r¤¸¤§«áªº©Ò¦³¦r¤¸¡A¨Ã§R°£²Å¸¹ "(" & ")" ¦p¦³)
Sheet1 ÄæE ¹ïÀ³ MAP Äæ I&J ¡A¦p¤W
Sheet1 ÄæF ¹ïÀ³ MAP Äæ K&L ¡A ¦p¤W
Sheet1 ÄæG ¹ïÀ³ MAP Äæ M&N ¡A ¦p¤W
Sheet1 ÄæH ¹ïÀ³ MAP Äæ O&P  ¡A¦p¤W
¦p¦¹Ãþ±À

±Æ Âd ªí.rar (59.88 KB)

TOP

¦^´_ 7# 198188

ÁÂÁ«e½ú¦^´_
³o½d¨Òªº»Ý¨DÁÙ¤@ª½¦bÅܤƻݨD,«Øij¥ý¤â°Ê°õ¦æ¤@¬q®É¶¡«á,µ¥©w®×¤F¦A¥HVBA¦Û°Ê¤Æ³B²z
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 8# Andy2483


    #06 ¬O³Ì²×ªºÅܤƤF¡A¤§«eªº¾Þ§@¬Oªì¨B¤F¸Ñ¡C¤w¸g¸g¹L¤T­Ó¤ëªº´ú¸Õ¡A¤~¦³³o­Ó©w®×¡C

TOP

¦^´_ 9# 198188

ÁÂÁ«e½ú¦^´_
¬d¬Ý¤F½d¨Ò,¨C­ÓÂd¤lªº³W«h³£¤£¬Û¦P,¦Û¥Ñ«×«D±`°ª,¤£¾A¦X¼gµ{¦¡¦Û°Ê§¹¦¨


¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD