แบบสอบถาม

[som5026]

สิ่งที่ต้องการเมื่อเลือก chekbox 1 ครั้งให้เพิ่มค่าที่ละ 1
คือเมื่อเลือก chekbox ตรงผู้บริหาร ครั้งแรกใน cel t ให้เป็น 1 เมื่อคลิกครั้งที่สองตรงผู้บริหาร cel t ก็เปลี่ยนเป็น 2 คือ ให้เพิ่มค่าขึ้นไปที่ละ 1 นะครับ
ส่วนตรงที่พึงพอใจก็เหมือนกันครับ ผมพยายามหาข้อมูลหาไม่ได้จิงครับขอบคุณล่วงหน้า

[snasui]

ถ้าผมเข้าใจถูกต้อง เป็นการเก็บข้อมูลของแบบสอบถาม ซึ่งจะต้องเก็บทุกครั้งที่มีการคลิก Submit เมื่อทำแบบสอบถามเสร็จ การทำเช่นนั้นต้องอาศัย VBA ครับ สำหรับ VBA ต้องเขียนมาก่อนเสมอตามกฎการใช้บอร์ดข้อที่ 5 ครับ

[som5026]

ใช่ครับอาจารย์ ผมพยายามจะเขียนโค้ดแต่ไม่มีพื้นฐานเลยครับ ต้องขอโทษอาจารย์ด้วยครับที่ทำผิดกฏพยายาม ค้นหาข้อมูลมาหลายวันแล้วก็ยังไม่เจอ

[som5026]

หลังจากใช้ความพยายามอยู่นานทำได้แบบนี้ครับ แต่ต้องการให้นับเฉพาะเวลาที่ check นะครับนับเพิ่มขึ้นไปเรื่อย แต่ถ้า uncheck ไม่ต้องนับครับ

[snasui]

ลองดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub CheckBox44_Click()
    If ActiveSheet.Shapes("Check Box 44").ControlFormat.Value = xlOn Then
        Range("V28").Value = Range("V28").Value + 1
    End If
End Sub

[som5026]

ใช้ได้ผลครับอาจารย์ ว่าแต่ x10n ใช้แทนอะไรครับเพื่อเป็นความรู้ครับ

[snasui]

Propety คือ XLON ครับ ไม่ใช่ x10n ความหมายก็ตามที่ถามมา คือสถานะถูก Check อยู่ครับ