½Ð°Ý³W«h02F - 04F ¦pªG¦bData Base ¿z¿ï¦b³o­Ó½d³ò内ªº¬ÛÃö¸ê®Æ

198188

[attach]38095[/attach][attach]38096[/attach][attach]38097[/attach]

½Ð°Ý¦pªG³W«h¬O02F - 04F ©ÎªÌ¦h­Ó¼Ó¼h¡A¦pªG¦bData Base ¿z¿ï¦b³o­Ó½d³ò内ªº¬ÛÃö¸ê®Æ¡C
¦p¹Ï¤@¡A¹Ï¤G¡A¹Ï¤T
ªþ¤WExcel Data Base & ·Q­nªºµ²ªG¤Î³W«h¡C

Andy2483

¦^´_ 209# 198188


Structural ªí内¡ARange("G3") = Replace(Worksheets("Read").Range("C2"), "WO", "YL")
½Ð¸Õ¸Õ¬Ý:

With Range(Z(Z(T & "/s") & "/V3")): .Value = Z(T & "/EC"): .ShrinkToFit = True: End With
If Z(T & "/s") = "Structural" Then [G3] = Replace(ThisWorkbook.Sheets("Read").[C2], "WO", "YL")
A = Crr: R = 0

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")

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

Andy2483

«e½ú¡A¤£¬O¶Ã½Xªº°ÝÃD¡A¥Î¤§«eªº¸Û¹ê¬O¨S¦³°ÝÃDªº¡C
¥t¥~§Ú§â¤U­±³o¥y­×§ï¤F4¡A¨S¦³¤¤¤å¦r¡A¤]¬O¤@¼Ë ...
198188 µoªí©ó 2025-11-19 10:39

NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 Step -1
³o¦æº|¤F

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)), "_"), "/", "_")

Andy2483

¦^´_ 204# 198188


    ¥i¯à¬O WO Noªí[E2]¬O²Åé¦r³y¦¨¶Ã½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

Andy2483

«e½ú¡A´ú¸Õ Print PDF «á¡Aµo²{¬O«Ø¥ß¦b¨â­Ó¡§¸ê®Æ§¨¡¨ùØ¡A¦p¤W¹Ï¡C¯à¤£¯à¥u«Ø¥ß¤@­Ó¡§¸ê®Æ§¨ ...
198188 µoªí©ó 2025-11-19 09:31

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

Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, Pj, PP$, Dn$
Application.ScreenUpdating = False
Call RuleRun

Dn = Format(Now, "yyyy_mm_dd_hh_nn_ss")
Pj = ['WO No'!A2].Resize(, 11): Pj = Replace(Join(Application.Transpose(Application.Transpose(Pj)), "_"), "/", "_")
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
For i = Worksheets.Count To 1 Step -1
   T = Sheets(i).Name & "/s"
   If Z(T) <> "" Then
      Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewMyPath & Z(Sheets(i).Name & "/") & ".pdf", _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   End If
Next
MsgBox "PDF_Save_Address: " & vbLf & NewMyPath
End Sub

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¸ê®Æ