Page 1 of 1
อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Mon Dec 26, 2011 12:13 pm
by ภาวินี
คือหนูยังใช้โปรแกรม Excel ไม่เก่ง ต้องการเรียนถามอาจารย์ผู้รู้ทุกท่านในการทำแบบทดสอบวัดความรู้แบบปรนัย โดยให้เลือกตอบได้แค่ช้อยเดียวเท่านั้นค่ะ ต้องทำอย่างไรบ้างคะ หนูแนบไฟล์มาให้อาจารย์ดูด้วยค่ะ รบกวนด้วยนะคะ ขอบพระคุณมากค่ะ
Re: อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Mon Dec 26, 2011 12:35 pm
by snasui
ให้สร้าง Option Button ใหม่ด้วยเครื่องมือที่ชื่อว่า Form ครับ โดยเข้าไปที่เมนู View > Toolbars > Form จากนั้นในแต่ละข้อให้เลือก Group Box จากเครื่องมือดังกล่าวมาครอบ Option Button ทั้งหมดไว้อีกทีหนึ่ง จากนั้นค่อยซ่อน Group Box เอาไว้ ซึ่งต้องพึ่ง Code VBA ลองทำมาดูก่อนตามตัวอย่างที่ผมทำไว้ในข้อ 1 และ 2 ตามไฟล์แนบครับ
Re: อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Mon Dec 26, 2011 5:42 pm
by ภาวินี
ทำได้แล้วค่ะอาจารย์ ขอบพระคุณมากค่ะ
Re: อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Mon Dec 26, 2011 5:59 pm
by ภาวินี
เอ่อ...แต่หนูยังซ่อนกรอบไม่ได้อ่ะค่ะ ต้องทำไงเหรอคะ หนูส่งไฟล์ให้อาจารย์ตรวจค่ะ
Re: อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Mon Dec 26, 2011 6:17 pm
by snasui
ไฟล์ที่แนบมานี้ผมซ่อน Group Box ให้เรียบร้อยแล้ว
สำหรับ Code ที่ใช้ซ่อนนั้นดูตามด้านล่างครับ
Code: Select all
Sub test()
Dim gb As Object
For Each gb In ActiveSheet.Shapes
If Left(gb.Name, 5) = "Group" Then
gb.Visible = False
End If
Next gb
End Sub
Re: อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Mon Dec 26, 2011 6:53 pm
by snasui
เพิ่งมาอ่านเจอว่าต้องการลบ Control ออกไปด้วย สามารถใช้ Code ตามด้านล่างครับ
Code: Select all
Sub test1()
Dim gb As Object
For Each gb In ActiveSheet.Shapes
If Left(gb.Name, 7) = "Control" Then
gb.Delete
End If
Next gb
End Sub
ส่วนวิธีการใช้ Code ลองดูตาม Link นี้ครับ
viewtopic.php?p=12865#p12865
Re: อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ
Posted: Wed Dec 28, 2011 9:27 am
by ภาวินี
ขอบพระคุณอาจารย์เป็นอย่างสูงที่ให้วิทยาทานค่ะ