Snasui Excel Forum

Sub PrintPreview2()
Application.ScreenUpdating = False
If [N3].Value = 0 Then
MsgBox ("¢éÍÁÙÅäÁè¤Ãº ¢Ò´¢éÍÁÙÅ»ÃÐàÀ·§Ò¹")
Else: MyVar = [choice]
FromNum = 1
ToNum = 5

For i = FromNum To ToNum

[choice2] = i
Calculate
ActiveWindow.SelectedSheets.PrintPreview

Next i

[choice2] = 1 ...

รับทราบครับ ขอบพระคุณมากครับ

:D กรณีใช้งาน VBA จำเป็นต้องเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 5 ด้านบนครับ :roll:


CODE ปัจจุบันทำไว้ดังนี้ครับ

Sub SavePDF()
Application.ScreenUpdating = True

ActiveSheet.PageSetup.PrintArea = "Area3"
[choice] = 3

Dim strFileName As String
strFileName = Application.GetSaveAsFilename ...

จากไฟล์ที่ผมแนบมา ผมมีสร้างปุ่มการพิมพ์โดยใช้คำสั่ง VBA เพื่อช่วยให้มีเลขหน้าตามช่อง Cell ที่ผมต้องการ แต่ปัญหาคือ ถ้าผมต้องการให้ทั้ง 3 หน้า (ตามที่ผมทำปุ่ม Print Preview) โดยกดปุ่ม Save PDF ให้ทั้ง 3 หน้า รวมเป็นไฟล์เดียว พร้อมทั้งมีเลขหน้าที่ต้องการ 1-3 ชื่อไฟล์เหมือนเดิม ในโฟล์เดอร์เดิม จะต้องเข ...

ต้องการใช้สูตรแยกให้เหลือรายการที่ไม่ซ้ำ ตามไฟล์แนบ (2 กรณี) โดยการใช้สูตร ต้องเขียนสูตรอย่างไรครับ