Snasui Excel Forum

:D Code ที่เขียนมาคือ Export ทุกชีตพร้อมกันทีเดียวไปเป็น 1 ไฟล์

การที่จะไม่ Export ออกไปก็ไต้องไม่เลือกชีตนั้น ๆ ก่อนที่จะ Export ครับ

หากผมเข้าใจถูกต้องตัวอย่างการปรับ Code จะเป็นตามด้านล่างครับ

'Other code
Dim exptShs() As Variant, i As Integer, j As Integer

'Set references up-front
Set ...

ขอบพระคุณมากๆเลยครับ

ขอบคุณครับ แต่ยังไม่ใช่อะครับ ผมก็ไม่รู้วิธีเขียนว่าจะทำอย่างไร

-----------
โดยปกติ Code จะทำการSave ชีทที่เลือกทุกตัวเป็น PDF
แต่ผมอยากแปลง ให้ Macro ไปเช็คที่ AA10 ถ้า AA10 เป็น 0 ไม่ต้อง Save ชีทนั้นๆ ครับ แต่ชีทอื่นที่ AA10 มีค่าตั้งแต่ 1 ขึ้นไปก็ Save ปกติครับ

ขอบพระคุณครับ


แบบนี้หรือเปล ...

อันนี้คือชุด Code ทั้งหมดนะครับ อยากจะเพิ่มในส่วนของการตรวจสอบค่า AA10 ทุกชีท ถ้า เท่ากับ 0 ไม่ต้อง Save อะครับ


Sub Picture2_Click()
Dim wksAllSheets As Variant
Dim wksSheet1 As Worksheet
Dim strFilename As String, strFilepath As String

'Set references up-front
Set wksSheet1 = ThisWorkbook ...

logic wrote: Wed May 27, 2020 10:25 am การถามเรื่อง code อ่านกติกาข้อ 4 กับ 5 ด้วย ☝ เดี๋ยวจะไม่มีใครอาสาเข้ามาตอบครับ

ขอโทษด้วยครับ หาปุ่ม Edit กระทู้ไม่เจอ

คือตอนนี้ผมใช้ Macro Save Sheet "nm4-1", "nm4-2", "nm4-3", "nm4-4", "nm4-5", "nm8-1", "nm8-2", "nm8-3", "nm8-4", "nm8-5"
แต่ปัญหาคือ บางชีทถ้าค่า AA10 = 0 ไม่ต้องการให้เซฟ ผมต้องเพิ่ม Code อย่างไรครับ



Sub Picture2_Click()
Dim wksAllSheets As Variant
Dim wksSheet1 As Worksheet
Dim strFilename ...