Page 1 of 1

แบบสอบถาม

Posted: Tue Nov 06, 2012 11:08 am
by som5026
สิ่งที่ต้องการเมื่อเลือก chekbox 1 ครั้งให้เพิ่มค่าที่ละ 1
คือเมื่อเลือก chekbox ตรงผู้บริหาร ครั้งแรกใน cel t ให้เป็น 1 เมื่อคลิกครั้งที่สองตรงผู้บริหาร cel t ก็เปลี่ยนเป็น 2 คือ ให้เพิ่มค่าขึ้นไปที่ละ 1 นะครับ
ส่วนตรงที่พึงพอใจก็เหมือนกันครับ ผมพยายามหาข้อมูลหาไม่ได้จิงครับขอบคุณล่วงหน้า

Re: แบบสอบถาม

Posted: Tue Nov 06, 2012 11:54 am
by snasui
:D ถ้าผมเข้าใจถูกต้อง เป็นการเก็บข้อมูลของแบบสอบถาม ซึ่งจะต้องเก็บทุกครั้งที่มีการคลิก Submit เมื่อทำแบบสอบถามเสร็จ การทำเช่นนั้นต้องอาศัย VBA ครับ สำหรับ VBA ต้องเขียนมาก่อนเสมอตามกฎการใช้บอร์ดข้อที่ 5 ครับ :roll:

Re: แบบสอบถาม

Posted: Tue Nov 06, 2012 2:57 pm
by som5026
ใช่ครับอาจารย์ ผมพยายามจะเขียนโค้ดแต่ไม่มีพื้นฐานเลยครับ ต้องขอโทษอาจารย์ด้วยครับที่ทำผิดกฏพยายาม ค้นหาข้อมูลมาหลายวันแล้วก็ยังไม่เจอ

Re: แบบสอบถาม

Posted: Wed Nov 14, 2012 9:22 am
by som5026
หลังจากใช้ความพยายามอยู่นานทำได้แบบนี้ครับ แต่ต้องการให้นับเฉพาะเวลาที่ check นะครับนับเพิ่มขึ้นไปเรื่อย แต่ถ้า uncheck ไม่ต้องนับครับ

Re: แบบสอบถาม

Posted: Wed Nov 14, 2012 3:13 pm
by snasui
:D ลองดูตัวอย่างการปรับ 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

Re: แบบสอบถาม

Posted: Wed Nov 14, 2012 10:22 pm
by som5026
ใช้ได้ผลครับอาจารย์ ว่าแต่ x10n ใช้แทนอะไรครับเพื่อเป็นความรู้ครับ

Re: แบบสอบถาม

Posted: Wed Nov 14, 2012 11:30 pm
by snasui
:D Propety คือ XLON ครับ ไม่ใช่ x10n ความหมายก็ตามที่ถามมา คือสถานะถูก Check อยู่ครับ