การเลือก CheckBox แล้วให้ไปบันทึกอีก Sheet

[niwat2811]

เรียนท่านอาจารย์ ตามที่ได้ลองนำ Code ที่เคยได้จากท่านอาจารย์ไปประยุกต์ใช้ แต่ว่ายังติดข้ดอยู่ตรงการเลือก Checkbox แล้วให้ไปบันทึกอีก Sheet ซึ่งการบันทึกก็เกือบจะถูกต้องอยู่แล้วเพียงแต่ไม่ตรงกับความต้องการ รบกวนท่านอาจารย์ดู Code ให้หน่อยครับ คือว่าถ้าไม่ได้เลือก Checkbox ให้บันทึกเป็น 0 แต่ถ้าเลือก Checkbox ให้บันทึกเป็น 1 โดยเรียงกันไปทีละคอลัมภ์เริ่มตั้งแต่คอลัมภน์ G ไปทางขวาเรื่อย ๆ ครับ ผมลองแก้ Code ของท่านอาจารย์แล้วแต่ก็ยังไม่ได้ รบกวนท่านอาจารย์ปรับ Code ให้หน่อยครับ

[snasui]

ช่วยอธิบายเพิ่มด้วยครับว่า Check Box ที่ว่านั้นมีกี่ตัวและเริ่มจากไหน สิ้นสุดที่ไหน ผลจากการทำเครื่องหมายที่ Check box ให้ไปแสดงที่ใด

สอบถามเพิ่มเติมว่าใน Code นั้นอ้างอิงถึงเซลล์ที่เป็นผลจากการทำเครื่องหมายที่ Check Box แล้วยังครับ

[niwat2811]

ครับ ต้องขอโทษท่านอาจารย์ด้วยครับลืมหมายเหตุเข้าไปในไฟล์ คือว่า Checkbox ที่ว่านั้นมีประมาณ 280 อยู่ใน sheet "กระดาษทำการ" แถวที่ 19 ผลจากการเลือก Checkbox ข้อมูลไปแสดงที่ M17:M296 (ซึ่งซ่อนอยู่ครับ) แต่ข้อมูลในไฟล์ที่ส่งให้อาจารย์ทดสอบผมตัดข้อมูลออกไปหลายบรรทัดครับ (ไฟล์ใหญ่มาก) Code ที่อ้างอิง
Set rsAll = Sheets("กระดาษทำการ").Range("M17:M296") รบกวนท่านอาจารย์ด้วยครับ

[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 ครับ

[bank9597]

ทำไมแก้ง่ายดายจังเลยครับอาจารย์ ผมคิดว่ายาก อิอิ

[snasui]

อย่าเพิ่งสรุปครับ ต้องดูว่าคุณ niwat2811 ต้องการผลลัพธ์เป็นอย่างไรก่อนครับ

[niwat2811]

ครับผม คือผมได้ลองแนบไฟล์มาใหม่แล้วครับ ข้อมูลที่อยากได้อยู่ที่ Sheet"Database" ครับ ที่ผมได้ลองใช้ i = i + 6 ก็เพราะว่าอยากให้ Checkbox ที่เลือกเริ่มที่คอลัมภน์ G2 น่ะครับ

[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

[niwat2811]

แจ้งผลการนำ Code ไปใช้เป็นไปตามความต้องการเลยครับ ขอบพระคุณท่านอาจารย์มากครับ