198188

¦^´_  198188


    BOMÃþ ¬dPart Listªí ¨ÑÀ³°Ó½s¸¹ ¤j³¡¤À³£¬O - ,©Ò¥H³£¤£¥²¦A¬d¤U¥h,©Ò¥H¨S¦³¤¤¤å/ ...
Andy2483 µoªí©ó 2025-11-18 16:44

1. Sub Bom()
   
2. If Brr(i, 1) = Brr(i - 1, 1) Then A(R, 10) = A(R, 10) + Brr(i, 3): A(R, 14) = A(R, 10): Exit Sub
   
3. R = R + 1: A(R, 1) = R: A(R, 2) = Brr(i, 1): A(R, 3) = Brr(i, 12)
   
4. If A(R, [color=Red]2[/color]) <> "" And Z.Exists(A(R, [color=Red]2[/color]) & "/m") Then
   
5.    For j = 0 To 5: A(R, Array(4, 5, 6, 8, 9, 11)(j)) = Mrr(Z(A(R, [color=Red]2[/color]) & "/m"), Array(5, 6, 7, 11, 10, 8)(j)): Next
   
6. End If
   
7. A(R, 7) = Brr(i, 4) & " x " & Brr(i, 5)
   
8. A(R, 10) = Brr(i, 3)
   
9. A(R, 14) = Brr(i, 3)
   
10. A(R, 18) = Brr(i, 7)
    
11. End Sub
    
12. 
    
13. Sub Gasket()
    
14. Dim T3$
    
15. If Brr(i, 1) = Brr(i - 1, 1) Then A(R, 9) = A(R, 9) + Brr(i, 3):   Exit Sub
    
16. R = R + 1: A(R, 1) = R
    
17. For j = 0 To 5: A(R, Array(2, 9, 6, 7, 11, 3)(j)) = Brr(i, Array(1, 3, 5, 6, 7, 12)(j)): Next
    
18. If A(R, [color=Red]2[/color]) <> "" And Z.Exists(A(R, [color=Red]2[/color]) & "/m") Then
    
19.    For j = 0 To 2: A(R, Array(4, 5, 8)(j)) = Mrr(Z(A(R, [color=Red]2[/color]) & "/m"), Array(5, 6, 8)(j)): Next
    
20. End If

½Æ»s¥N½X

«e½ú¡A §Ú§â A(R,3) §ï¦¨ A(R,2) ¤§«á¡ABOM & Gasket ³£¥i¥H¾É¥X Material ªº¸ê®Æ¡C ¦ý¬O°ß¿W HW--³o­Óªí¤£¦æ¡Aªþ¤W½d¨Ò¡C

198188

¦^´_  198188


    PDFÀɲ£¥X¤è®×¦p¤U:

Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, Pj ...
Andy2483 µoªí©ó 2025-11-5 14:01

   

¤U¸ü (71.3 KB)

¬Q¤Ñ 09:29

«e½ú¡A´ú¸Õ Print PDF «á¡Aµo²{¬O«Ø¥ß¦b¨â­Ó¡§¸ê®Æ§¨¡¨ùØ¡A¦p¤W¹Ï¡C¯à¤£¯à¥u«Ø¥ß¤@­Ó¡§¸ê®Æ§¨¡¨¡H

198188

¦^´_  198188


    ¤ñ¹ï«á¨S¦³¿ù»~
¥þ³¡ ¤¤¤å/­^¤å´y­zªÅ®æ,¨ä¥[¤u¥ó½s¸¹©Ò¹ïÀ³ªº ¨ÑÀ³°Ó½s¸¹³£¬OªÅ®æ ...
Andy2483 µoªí©ó 2025-11-19 08:29

«e½ú¡Aµo²{¬OData Base ÀÉ Material ªí C Äæ ¨ÑÀ³°Ó½s¸¹ ©M Part List ªí  L Äæ ¨ÑÀ³°Ó½s¸¹ ¨âªÌ¤£¤@­P¡A©Ò¥H¾É­PµLªk¾É¥X¸ê®Æ,  ³Ì«áªu¥Î A(R,3)¡A²{¦b¥þ³¡³£¥i¥H¾É¥X¡C

¤£¹L¦pªG A(R,3) §ï¦¨ A(R,2) ¡A HW ªº BOM ÁÙ¬O¾É¤£¥X¸ê®Æ

198188

­×§ï¤è®×¦p¤U:
Form­×§ï¤è®× ¸É¥R¦b 200¼Ó

Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, ...
Andy2483 µoªí©ó 2025-11-19 09:49

¤U¸ü (109.81 KB)

¬Q¤Ñ 10:10

¹B¦æ«á¡A¥X²{³o­Ó°ÝÃD¡C
§Ú¤w¸g§R°£¤F¤§«eªºPDFÀÉ®× ³s¸ê®Æ§¨¡C

198188

¦^´_  198188


    ¥i¯à¬O WO Noªí[E2]¬O²Åé¦r³y¦¨¶Ã½X
Andy2483 µoªí©ó 2025-11-19 10:30

¤U¸ü (106.38 KB)

¬Q¤Ñ 10:37

«e½ú¡A¤£¬O¶Ã½Xªº°ÝÃD¡A¥Î¤§«eªº¸Û¹ê¬O¨S¦³°ÝÃDªº¡C
¥t¥~§Ú§â¤U­±³o¥y­×§ï¤F4¡A¨S¦³¤¤¤å¦r¡A¤]¬O¤@¼Ë¥X¿ù¡C
Pj = ['WO No'!A2].Resize(, 4): Pj = Replace(Join(Application.Transpose(Application.Transpose(Pj)), "_"), "/", "_")

198188

NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 ...
Andy2483 µoªí©ó 2025-11-19 11:30

¥i¥H¤F¡A·PÁ«e½ú«üÂI¡C

198188

NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 ...
Andy2483 µoªí©ó 2025-11-19 11:30

«e½ú¡A¦pªG§Ú·Q¦b¨C­Ó¥Í²£·sªºªí®æ内¡A¬Y­Ó«ü©wªºÀx¦s®æ内¤À§O¶ñ¤J¤£¦P¸ê®Æ¡AÀ³¸Ó«ç¼Ë¥h«ü©w¤£¦Pªíªº¤£¦PÀx¦s®æ¡H¥H¤ÎÀ³¸Ó©ñ¦bSUB FORM ­þ­Ó¦ì¸mùØ¡H

Á|¨Ò


Structural ªí内¡ARange("G3") = Replace(Worksheets("Read").Range("C2"), "WO", "YL")

Gasket ªí内¡ARange("J3") = Replace(Worksheets("Read").Range("C2"), "WO", "YL")

Bom ªí内¡ARange("L5")
if Range("A3")="Screw" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "FW")
if Range("A3")="Panel" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "PM")
if Range("A3")="Hardware" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "HW")
if Range("A3")="Steel" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "SM")
if Range("A3")="Gasket" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "KW")

DN Material ªí内¡ARange("I3") = Replace(Worksheets("Read").Range("C2"), "WO", "DM")

Fabrication Extrusion ªí内¡ARange("H3")  = Replace(Worksheets("Read").Range("C2"), "WO", "FE")

Finish ªí内¡ARange("G3") = Replace(Worksheets("Read").Range("C2"), "WO", "DW")