ขอความช่วยเหลือครับ Excel macro error 13 : type mismatch

[paisanug]

ผมตอ้งการเขียน excel macro เพื่อสั่งพิมพ์ โดยจำนวน copy ที่พิมพ์นั้นอ่านมาจาก cell , แต่เมื่อ run macro แล้วขึ้น error , run time error '13':type mismatch, ขอความช่วยเหลือด้วยดรับ ตามไฟล์แนบครับ

Dim PFD_02 As Integer
Dim PFD_03 As Integer

PFD_02 = CInt(Sheets("Param").Cells(10, 9).Value)
PFD_03 = Cint(Sheets("Param").Cells(10, 9).Value)

Sheets("FT_HCM_05_PG_1_of_3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=PFD_03
Sheets("FT_HCM_05_PG_2_of_3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=PFD_02

[snasui]

ที่มีปัญหาเพราะว่าไปอ้างผิดเซลล์ครับ

ตัวอย่าง

Sheets("Param").Cells(10, 9).Value ให้ผลลัพธ์เป็น FT_PFD_02 ไม่สามารถใช้ Cint เข้าไปแปลงให้เป็นตัวเลขได้

ผมเข้าใจว่าคุณต้องการนำเซลล์ทีเป็นตัวเลขคือ Sheets("Param").Cells(10, 10).Value คือชีท Param บรรทัดที่ 10 คอลัมน์ ที่ 10 หรือเซลล์ J10 ไปใช้ ซึ่งเป็นตัวเลขอยู่แล้ว ไม่จำเป็นต้องไปแปลงด้วย Cint แต่อย่างใด

[paisanug]

ขอบคุณมากครับ แต่ผมก็ยังมีปัญหาว่าเมื่อสั่งพิมพ ปรากฏว่า excel พิมพ์ออกมาเพียง sheet ละ 1 ก็อปปี้ เช่น ค่าของ cel J11=2 ควรจะพิมพ์ 2 ก็อปปี้ หรือจาด cell J12 = 8 ควรจะพิมพ์ 8 ก็อปปี้ แต่ปรากฎว่า excel พิมพ์ออกมาเพียง sheet ละ 1 ก็อปปี้เท่านั้น รบกวนอีกครั้งนะครับ


PFD_02 = Sheets("Param").Range("J11").Value
Sheets("FT_QAP_03").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=PFD_02

PFD_02 = Sheets("Param").Range("J12").Value
Sheets("FT_QAP_04").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=PFD_02

[snasui]

หากไม่ Print ตาม Copy ทีกำหนดลอง Loop ดูตามตัวอย่างด้านล่างครับ

Code: Select all

PFD_02 = Sheets("Param").Range("J11").Value
For i = 1 To PFD_02
    Sheets("FT_QAP_03").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=i
Next i