:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

ฟอรัมถาม-ตอบปัญหาการใช้งาน Macro และ VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
User avatar
sweetken
Member
Member
Posts: 62
Joined: Fri Jun 24, 2016 10:41 am

ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#1

Post by sweetken »

ดิฉันได้ทำตารางข้อมูล เพื่อนำไปเติมในแบบฟอร์มแบบอัตโนมัต มีติดปัญหาดังนี้

1 เมื่อเติมช่อง E15 กับ H 15 ให้ check box มีเครื่องหมายถูกเอง อัตโนมัต
สรุปคือ ถ้าในช่องว่างแถวไหนถูกเติม ให้check box ติ๊กเครื่องหมายถูกเองอัตโนมัติค่ะ

2. เมื่อรันโปรแกรมแล้ว พยายามจัดให้หน้ากระดาษอยู่ใน a4 เพื่อพร้อมปริ้น ไม่ได้ค่ะ

อธิบายการทำงาน
ในไฟล์แนบ
ชีท Print เป็นการก๊อป ชีท Template มาวางต่อๆกัน แล้วนำข้อมูลจาก ชีท List มาเติมตามช่องว่าที่เซ็ตไว้ค่ะ
ขอบพระคุณมากค่ะ
Attachments
Test Job.xlsm
(192.5 KiB) Downloaded 27 times
User avatar
DhitiBank
Gold
Gold
Posts: 1676
Joined: Mon Oct 15, 2012 12:07 am

Re: ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#2

Post by DhitiBank »

ผมขอช่วยตอบแค่ข้อแรกนะครับ เรื่องจัดหน้านี่ไม่ถนัดจริงๆ
ไม่ทราบได้ลองเขียนโค้ดในไฟล์แนบแล้วหรือยังครับ หากเขียนแล้วติดตรงไหน แต่ลองดูแล้วในชีท Print ยังไม่โค้ดที่รันตาม Event หากให้แนะนำแบบที่ผมเคยทำ ก็อาจเลือกเหตุการณ์เป็น Worksheet_Change แล้วก็ใช้คำสั่งเพื่อตรวจว่ามีการคีย์วันที่ในเซลล์ Target ครบแล้วหรือยัง หากครบแล้วก็ให้ติ๊กที่ check box ครับ คำสั่งเกี่ยวกับ check box ที่อยู่บน worksheet ผมใช้ Sheets(...).Shapes("ชื่อ check box").ControlFormat.Value=xlOn กรณีสั่งให้ติ๊กครับ
User avatar
sweetken
Member
Member
Posts: 62
Joined: Fri Jun 24, 2016 10:41 am

Re: ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#3

Post by sweetken »

อ้อ เข้าใจแล้วค่ะ ขอบคุณนะค่ะ
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:

Re: ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#4

Post by snasui »

:D ช่วยให้รายละเอียดเพิ่มเติมเรื่อง Print ให้พอดี A4 ไม่ทราบว่า Print เป็นรายใบตาม Template หรือ Print อย่างไรครับ
User avatar
sweetken
Member
Member
Posts: 62
Joined: Fri Jun 24, 2016 10:41 am

Re: ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#5

Post by sweetken »

ปริ้นเป็นรายใบตาม Template และเรียงลำดับตามชีท Print ค่ะ
User avatar
sweetken
Member
Member
Posts: 62
Joined: Fri Jun 24, 2016 10:41 am

Re: ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#6

Post by sweetken »

คือสั่งปริ้นในชีท ที่ชื่อ print ค่ะ แล้วเกิดปัญหาว่า พอก๊อปปี้มาวางต่อๆกัน (ที่ชีท print ) แล้ว มันไม่อยู่ในหน้ากระดาษ A4 มันจะเหลื่อมซ้อน กันขึ้นมา ทำให้ปริ้นต่อเนื่องไม่ได้ ต้องมานั่งจัดหน้ากระดาษเองก่อนทุกครั้ง ถึงจะสั่งปริ้นได้ค่ะ
User avatar
snasui
Site Admin
Site Admin
Posts: 31253
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 2019
Contact:

Re: ตั้งค่า check box ให้ ติ๊กถูกเองอัตโนมัต เมื่อเติมข้อมูลในช่องว่าง VBA

#7

Post by snasui »

:D หากเพื่อ Print ไม่จำเป็นต้อง Copy มาวางต่อเนื่องกันก่อนแล้วค่อย Print ครับ

เราสามารถ Loop ข้อมูลแต่ละบรรทัดมาลง Form แล้ว Print ทีละ Form โดยจัดหน้ากระดาษของ Form นั้นให้พอดีกับหน้า A4 ตามต้องการ ปัญหาคือหากต้องการจะให้ระบุเลขหน้าสำหรับการพิมพ์จะต้องใช้ Code เข้าไปช่วยกำหนด

ไม่ทราบว่าวิธีการด้านบนสามารถใช้งานได้หรือไม่ หากไม่ได้ ช่วยแจ้งติดข้อจำกัดใด หากไม่ติดข้อจำกัดแล้ว ลองเขียน Code ลักษณะนี้มาดูกันใหม่ ติดตรงไหนค่อยถามกันต่อได้เรื่อ ๆ ครับ
Post Reply