Page 2 of 2
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Mon Oct 21, 2019 11:27 pm
by toncenter
code ใหม่ใช้งานได้ดีครับอาจารย์ รูปไม่ล้นเพจแล้วครับ
แต่ว่า หลังจากได้ไฟล์ .pdf ออกมาแล้วอยากล้างข้อมูลในหน้า Sheet(PDF)ให้ว่างรอการป้อน Userformใหม่
ค่าใน cell ล้างออกได้ครับ แต่ cell ที่มีรูปลบออกยังไงครับ (ผมลองเอาcodeลบรูปไปซ้อนอีกรอบมันไม่ผ่านครับ
)
อันนี้คือcodeลบรูปใช่มั้ยครับ
Code: Select all
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End If
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 6:48 am
by snasui
ไม่พบ Code ที่แจ้งมาไฟล์แนบ กรุณาแนบไฟล์ที่ได้เพิ่ม Code นี้เอาไว้แล้วจะได้ดูต่อไปจากนั้นครับ
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 10:20 am
by toncenter
ขออภัยที่ไม่ได้ตรวจสอบไฟล์ก่อนส่งครับ
ล่าสุดตอนนี้ผมทำได้แล้วครับ ส่วนใหญ่ผมจะพยายามทำเองก่อนครับ
แต่มีเรื่องรบกวนอีกอย่างครับ
-ผมอยากแก้ไข ไดเร็กทอรี่ ที่เรียกไฟล์รูปให้เรียกจากที่เดียวกับไฟล์เอกสารได้มั้ยครับ คล้ายๆกับ code ที่save file pdf
Code: Select all
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & Range("B6").Value & " " _
& Range("b8").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, _
OpenAfterPublish:=True
Code: Select all
With Range("F16:I28")
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="C:\Users\Mold\Desktop\PDF\111\" & k & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
Width:=.Width - 5, Height:=.Height)
End With
-codeด้านบนsaveไปยังไดเร็กทอรี่ที่ ไฟล์เอกสารอยู่
-codeด้านล่างดึงรูปจากไดเร็กทอรี่
ปัญหานี้จะเกิดขึ้นตอนนำไฟล์นี้ไปใช้เครื่องอื่น ตำแหน่งของไดเร็กทอรี่ที่เรียกไฟล์รูปจะเปลี่ยนไปต้องมาแก้codeทุกครั้งครับ
ควรจะแก้ไขหรือเพิ่มตรงส่วนไหนครับ
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 7:44 pm
by snasui
ส่วนนี้คือ Directory ไฟล์โปรแกรมครับ
ActiveWorkbook.Path & "\"
หากต้องการจะเก็บอะไรไว้ในที่เดียวกันก็ให้อ้างอิง Code นี้นำด้านหน้า ที่เหลือก็เป็นชื่อไฟล์ครับ
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 9:19 pm
by toncenter
snasui wrote: Tue Oct 22, 2019 7:44 pm
ส่วนนี้คือ Directory ไฟล์โปรแกรมครับ
ActiveWorkbook.Path & "\"
หากต้องการจะเก็บอะไรไว้ในที่เดียวกันก็ให้อ้างอิง Code นี้นำด้านหน้า ที่เหลือก็เป็นชื่อไฟล์ครับ
ตามcodeที่ผมอ้างอิงเลยครับ
แต่ถ้าเป็นการดึงไฟล์จากที่เดียวกันล่ะครับ
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 9:33 pm
by snasui
ดึงไฟล์หรือเก็บไฟล์ก็ใช้ Path เดียวกันได้ทั้งหมดแตกต่างกันที่ชื่อไฟล์ครับ
ไม่ทราบว่ามีประเด็นอะไรที่นอกเหนือจากนี้หรือไม่ กรุณาอธิบายให้ละเอียด ควรจะลองเขียนดูด้วยจะได้เห็นภาพครับ
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 9:54 pm
by toncenter
snasui wrote: Tue Oct 22, 2019 9:33 pm
ดึงไฟล์หรือเก็บไฟล์ก็ใช้ Path เดียวกันได้ทั้งหมดแตกต่างกันที่ชื่อไฟล์ครับ
ไม่ทราบว่ามีประเด็นอะไรที่นอกเหนือจากนี้หรือไม่ กรุณาอธิบายให้ละเอียด ควรจะลองเขียนดูด้วยจะได้เห็นภาพครับ
ตอนนี้ขอลองทำตามคำแนะนำของอาจารย์ก่อนครับ
ส่วนเรื่องอื่นน่าจะเป็นเรื่องทำช่องค้นหาและแก้ไขรายการครับ
แต่ผมจะพยายามทำด้วยตัวเองก่อนนะครับ
Re: สร้าง Userform แล้วบันทึกลง 2 sheet พร้อมกัน
Posted: Tue Oct 22, 2019 10:08 pm
by snasui
toncenter wrote: Tue Oct 22, 2019 9:54 pm
แต่ผมจะพยายามทำด้วยตัวเองก่อนนะครับ
หากมีปัญหาอย่าลืมแนบ Code นั้นมากับไฟล์ประกอบคำถามทุกครั้งครับ