โปรแกรมหนังสือรับรองภาษีหัก ณ ที่จ่าย (แจกฟรี)

[mworawuth]

โปรแกรมหนังสือรับรองภาษีหัก ณ ที่จ่าย เขียนด้วย VBA Excel 2003/2007 ตามที่แนบ

โดยมีคุณสมบัติของโปรแกรมดังนี้
1.บันทึก แก้ไข เพิ่มเติม รายการภาษีหัก ณ ที่จ่าย ภงด.3/53
2.แยกรายการตามหน่วยงาน หรือ ตามบริษัท
3.พิมพ์ หนังสือรับรองภาษีหัก ณ ที่จ่าย
4.พิมพ์ใบแนบ เพื่อยื่นภาษี แยกตาม ภงด.3/53 และแยกตามเดือน/ปี
5.พิมพ์ทะเบียนรายการที่บันทึก ภาษีหัก ณ ที่จ่าย

คำแนะนำการใช้งานอยู่ใน Sheet "Help"

ก่อนเริ่มการใช้งานโปรแกรม
1 โปรแกรมนี้ เขียนด้วย VBA (Macro)
ดังนี้นก่อนการใช้งานต้อง Enable Macro ดังนี้
1.1 Excel 2003
Tools > Options > Security > Macro Security > Security Level > Low(not recomended)
1.2 Excel 2007
office Logo > Excel Options > Trust Center > Trust Center Settings > Macro Setting > เลือก Enable all macros...
1.3 Excel 2010
File > Options > Trust Center > Trust Center Settings > Macro Settings > เลือก Enable all macros...
2 ปิด Excel แล้วเปิดใหม่

[mworawuth]

โปรแกรมนี้ ไม่ได้ป้องกันการแก้ไข Source Code VBA สามารถนำไปเป็นตัวอย่างในการพัฒนา
เพื่อการบันทึก แก้ไข ข้อมูล สำหรับฐานข้อมูล / การออกรายงาน /การพิมพ์แบบฟอร์มต่าง ๆ

[snasui]

ขอบคุณครับ

[Romerainbow]

ลองนำไปใช้แล้วเป็นประโยนช์มากค่ะ แต่มีปัญหาตรงที่ เลขประจำตัวผู้เสียภาษีอากรที่ให้เรากรอกในชีท (M_Sheet คอลัมน์ C4)ถ้าเลขประจำตัวขึ้นต้นด้วยเลข 0 ต้องทำอย่างไรให้สูตรมองเห็นค่ะ เพราะผลที่ออกมาเลข 0 ที่นำหน้าไม่ปรากฏขึ้น ลองเปลี่ยนรูปแบบแล้วบางคอลัมน์ที่มีสูตรไม่สามารถทำได้ เลขประจำตัวผู้เสียภาษีที่ขึ้นต้นด้วยเลข 0 ที่ชีท(Report1)ก็ไม่มีเลข0 นำหน้าหน้าเช่นกันเปลี่ยนรูปแบบแล้วพอกับมาคำนวณใหม่ก็กลับมาเป็นเหมือนเดิม รบกวนขอคำแนะนำหน่อยนะค่ะ
ขอบคุณค่ะ

[mworawuth]

ลองนำไปใช้แล้วเป็นประโยนช์มากค่ะ แต่มีปัญหาตรงที่ เลขประจำตัวผู้เสียภาษีอากรที่ให้เรากรอกในชีท (M_Sheet คอลัมน์ C4)ถ้าเลขประจำตัวขึ้นต้นด้วยเลข 0 ต้องทำอย่างไรให้สูตรมองเห็นค่ะ เพราะผลที่ออกมาเลข 0 ที่นำหน้าไม่ปรากฏขึ้น ลองเปลี่ยนรูปแบบแล้วบางคอลัมน์ที่มีสูตรไม่สามารถทำได้ เลขประจำตัวผู้เสียภาษีที่ขึ้นต้นด้วยเลข 0 ที่ชีท(Report1)ก็ไม่มีเลข0 นำหน้าหน้าเช่นกันเปลี่ยนรูปแบบแล้วพอกับมาคำนวณใหม่ก็กลับมาเป็นเหมือนเดิม รบกวนขอคำแนะนำหน่อยนะค่ะ
ขอบคุณค่ะ

1.Sheet"M_AP" และ Sheet"M_Sheet" ข้อมูลเลขประจำตัวผู้เสียภาษีอากร กรณีเป็น 0 นำหน้า ต้องใส่เครื่องหมาย ' เพื่อให้เป็นข้อความ ไม่ใช่้ค่าตัวเลขครับ เช่น 0000567890123 ให้แก้ไขเป็น '0000567890123
2.Sheet"M_Sheet" Cell "i42" ให้แก้ไขสูตรนี้แทนครับ =IF(VLOOKUP($F$42,M_AP!$A:$F,4,FALSE)="","",TEXT(VLOOKUP($F$42,M_AP!$A:$F,4,FALSE),"'0000000000000"))

[Romerainbow]

ขอบคุณค่ะสำหรับคำแนะนำ สอบถามเพิ่มเติมค่ะ วิธีนี้ได้ลองทำแล้วตั้งแต่เบื่้องต้นโดยการใส่ 'หน้าตัวเลข เพื่่อให้เป็นข้อความ จะได้ '0000567890123 แต่ค่าตัวเลขเปลี่ยนค่ะ ตัวเลขจะเรียงติดกันหมด ลองเปลี่ยนค่าตัวเลขแล้วแต่ก็ทำไม่ได้ ถ้าเราต้องการจัดรูปแบบให้มีการเว้นวรรคเช่น 0 0005 67890 12 3 ต้องทำอย่างไรค่ะ โดยที่เลข 0 ไม่หาย รบกวนด้วยค่ะ

ขอบคุณค่ะ

[snasui]

การจัดรูปแบบในเซลล์ให้เว้นวรรคตามที่ต้องการนั้น ค่าที่คีย์ลงไปจะต้องเป็นตัวเลขไม่ใช่เป็น Text ครับ

การคีย์เครื่องหมาย ' นำหน้าตัวเลขจะทำให้ตัวเลขนั้นกลายเป็น Text ซึ่งจะไม่สามารถนำมาจัด Format ได้ การจัด Format เพื่อให้แสดงผลลัพธ์ตามที่ต้องการ ค่าในเซลล์จะต้องเป็นตัวเลขอย่างเดียวเท่านั้นจะเป็นอย่างอื่นใดไปไม่ได้

วิธีการหนึ่งที่สามารถช่วยได้คือใช้ฟังก์ชั่น Text เข้ามาจัดการ โดยการคีย์ค่าไว้ที่เซลล์ใด ๆ แล้วค่อยแปลงค่านั้นด้วยฟังก์ชั่น Text เช่น

=Text(A1,"0000 00000 00 0")

จะเป็นการแปลงตัวเลขที่อยู่ในเซลล์ A1 ให้มีรูปแบบที่มีการเว้นวรรคตามด้านบน

[Romerainbow]

ขอบคุณค่ะ

[mworawuth]

การจัดรูปแบบในเซลล์ให้เว้นวรรคตามที่ต้องการนั้น ค่าที่คีย์ลงไปจะต้องเป็นตัวเลขไม่ใช่เป็น Text ครับ

การคีย์เครื่องหมาย ' นำหน้าตัวเลขจะทำให้ตัวเลขนั้นกลายเป็น Text ซึ่งจะไม่สามารถนำมาจัด Format ได้ การจัด Format เพื่อให้แสดงผลลัพธ์ตามที่ต้องการ ค่าในเซลล์จะต้องเป็นตัวเลขอย่างเดียวเท่านั้นจะเป็นอย่างอื่นใดไปไม่ได้

วิธีการหนึ่งที่สามารถช่วยได้คือใช้ฟังก์ชั่น Text เข้ามาจัดการ โดยการคีย์ค่าไว้ที่เซลล์ใด ๆ แล้วค่อยแปลงค่านั้นด้วยฟังก์ชั่น Text เช่น

=Text(A1,"0000 00000 00 0")

จะเป็นการแปลงตัวเลขที่อยู่ในเซลล์ A1 ให้มีรูปแบบที่มีการเว้นวรรคตามด้านบน

ขอบคุณครับ
ดังนั้นขอแก้ไขสูตรใหม่ดังนี้

2.Sheet"M_Sheet" Cell "i42" ให้แก้ไขสูตรนี้แทนครับ =IF(VLOOKUP($F$42,M_AP!$A:$F,4,FALSE)="","",TEXT(VLOOKUP($F$42,M_AP!$A:$F,4,FALSE),"0 0000 00000 00 0"))

[mworawuth]

โปรแกรมได้แก้ไข/เพิ่มเติม และ อัพโหลดให้ใหม่แล้ว ในกระทู้แรกครับ

[aOOn]

ขอบคุณมากๆนะคะ
ลองใช้แล้ว ดีมากมายค่ะ

[minkanchuda]

ขอบคุณมากค่ะ

[jajajeejy]

รบกวนสอบถามค่ะ
ต้องการให้ตัวเลขขึ้นตรงตามมาตรา เช่น 40(1) แต่พอใส่ใน sheet TX_Entry (ประเภทเงินได้พึงประเมิน) แล้วปริ้นท์ออกมา รายการจะไปอยู่ที่ "6. อื่นๆ (ระบุ)" ทุกครั้งเลย แก้อย่างไรดีคะ

[mworawuth]

รบกวนสอบถามค่ะ
ต้องการให้ตัวเลขขึ้นตรงตามมาตรา เช่น 40(1) แต่พอใส่ใน sheet TX_Entry (ประเภทเงินได้พึงประเมิน) แล้วปริ้นท์ออกมา รายการจะไปอยู่ที่ "6. อื่นๆ (ระบุ)" ทุกครั้งเลย แก้อย่างไรดีคะ

โปรแกรมนี้ใช้สำหรับแบบ ภงด.3/ภงด.53 ดังนั้นรายการภาษี จึงอยู่ในช่อง อื่่่น ๆ

ถ้าจะแก้ไขให้ใชักับ เงินได้ตามมาตรา 40(1)ประเภทเงินเดือน/ค่าจ้าง คุณสามารถปรับเปลียนได้เองโดย
ย้าย Cells "E29:G29" ไปไว้ที่ Cells "E11:G11" ใน Sheet"Form1" และ
ย้าย Cells "M29:O29" ไปไว้ที่ Cells "M11:O11" ใน Sheet"Form1"

[prang30]

ขอบคุณคะ

[chatsinee]

ขอบคุณมากๆนะคะ ที่ให้นำมาใช้ฟรี

[chatsinee]

รบกวนสอบถามค่ะ ถ้ามียอดการหัก ณ ที่จ่าย จำนวน 2 อัตราภาษี ในการจ่ายเงิน 1 ครั้ง เป็น ค่าบริการ 3%และ ค่าขนส่ง 1 % จะสามารถบันทึกได้หรือไม่คะ จะต้องบันทึกอย่างไร เพราะใน sheet TX_Entry (จำนวนเงินที่จ่าย และอัตราภาษี มีอยู่ ช่องเดียว) ขอบคุณค่ะ

[mworawuth]

รบกวนสอบถามค่ะ ถ้ามียอดการหัก ณ ที่จ่าย จำนวน 2 อัตราภาษี ในการจ่ายเงิน 1 ครั้ง เป็น ค่าบริการ 3%และ ค่าขนส่ง 1 % จะสามารถบันทึกได้หรือไม่คะ จะต้องบันทึกอย่างไร เพราะใน sheet TX_Entry (จำนวนเงินที่จ่าย และอัตราภาษี มีอยู่ ช่องเดียว) ขอบคุณค่ะ

ต้องบันทึกเป็น 2 เอกสาร ไม่สามารถบันทึก 2 อัตราในเอกสารใบเดียวครับ

[chatsinee]

ขอบคุณค่ะ

[ธวัลรัตน์]

ไม่ทราบว่าจะเข้าไปดาวน์โหลดตรงไหนค่ะ