Page 1 of 1
การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 11:38 am
by niwat2811
เรียนท่านอาจารย์ ตามที่ได้ลองนำ Code ที่เคยได้จากท่านอาจารย์ไปประยุกต์ใช้ แต่ว่ายังติดข้ดอยู่ตรงการเลือก Checkbox แล้วให้ไปบันทึกอีก Sheet ซึ่งการบันทึกก็เกือบจะถูกต้องอยู่แล้วเพียงแต่ไม่ตรงกับความต้องการ รบกวนท่านอาจารย์ดู Code ให้หน่อยครับ คือว่าถ้าไม่ได้เลือก Checkbox ให้บันทึกเป็น 0 แต่ถ้าเลือก Checkbox ให้บันทึกเป็น 1 โดยเรียงกันไปทีละคอลัมภ์เริ่มตั้งแต่คอลัมภน์ G ไปทางขวาเรื่อย ๆ ครับ ผมลองแก้ Code ของท่านอาจารย์แล้วแต่ก็ยังไม่ได้ รบกวนท่านอาจารย์ปรับ Code ให้หน่อยครับ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 12:04 pm
by snasui
ช่วยอธิบายเพิ่มด้วยครับว่า Check Box ที่ว่านั้นมีกี่ตัวและเริ่มจากไหน สิ้นสุดที่ไหน ผลจากการทำเครื่องหมายที่ Check box ให้ไปแสดงที่ใด
สอบถามเพิ่มเติมว่าใน Code นั้นอ้างอิงถึงเซลล์ที่เป็นผลจากการทำเครื่องหมายที่ Check Box แล้วยังครับ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 12:19 pm
by niwat2811
ครับ ต้องขอโทษท่านอาจารย์ด้วยครับลืมหมายเหตุเข้าไปในไฟล์ คือว่า Checkbox ที่ว่านั้นมีประมาณ 280 อยู่ใน sheet "กระดาษทำการ" แถวที่ 19 ผลจากการเลือก Checkbox ข้อมูลไปแสดงที่ M17:M296 (ซึ่งซ่อนอยู่ครับ) แต่ข้อมูลในไฟล์ที่ส่งให้อาจารย์ทดสอบผมตัดข้อมูลออกไปหลายบรรทัดครับ (ไฟล์ใหญ่มาก) Code ที่อ้างอิง
Set rsAll = Sheets("กระดาษทำการ").Range("M17:M296") รบกวนท่านอาจารย์ด้วยครับ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 12:34 pm
by snasui
ค่อย ๆ ถามตอบกันไปเรื่อย ๆ นะครับ จาก Code ด้านล่าง
Code: Select all
For Each rs In rsAll
i = i + 6
rt.Offset(0, i) = IIf(rs, 1, 0)
Next rs
Code i = i + 6 ต้องการจะให้แสดงผลอย่างไรถึงได้บวกด้วย 6 ครับ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 12:42 pm
by bank9597
ทำไมแก้ง่ายดายจังเลยครับอาจารย์ ผมคิดว่ายาก อิอิ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 12:44 pm
by snasui
อย่าเพิ่งสรุปครับ ต้องดูว่าคุณ niwat2811 ต้องการผลลัพธ์เป็นอย่างไรก่อนครับ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 1:47 pm
by niwat2811
ครับผม คือผมได้ลองแนบไฟล์มาใหม่แล้วครับ ข้อมูลที่อยากได้อยู่ที่ Sheet"Database" ครับ ที่ผมได้ลองใช้ i = i + 6 ก็เพราะว่าอยากให้ Checkbox ที่เลือกเริ่มที่คอลัมภน์ G2 น่ะครับ
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 2:02 pm
by snasui
สามารถปรับ Code จากเดิมให้เป็นตามด้านล่างครับ
Code: Select all
For Each rs In rsAll
rt.Offset(0, 6 + i) = IIf(rs, 1, 0)
i = i + 1
Next rs
หรือจะเปลี่ยนเป็นด้านล่างก็ได้ครับ
Code: Select all
For Each rs In rsAll
i = i + 1
rt.Offset(0, 5 + i) = IIf(rs, 1, 0)
Next rs
Re: การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet
Posted: Wed Feb 08, 2012 2:13 pm
by niwat2811
แจ้งผลการนำ Code ไปใช้เป็นไปตามความต้องการเลยครับ ขอบพระคุณท่านอาจารย์มากครับ