อาจารย์คะ ต้องการเรียนสอบถามการสร้างแบบทดสอบค่ะ

[ภาวินี]

คือหนูยังใช้โปรแกรม Excel ไม่เก่ง ต้องการเรียนถามอาจารย์ผู้รู้ทุกท่านในการทำแบบทดสอบวัดความรู้แบบปรนัย โดยให้เลือกตอบได้แค่ช้อยเดียวเท่านั้นค่ะ ต้องทำอย่างไรบ้างคะ หนูแนบไฟล์มาให้อาจารย์ดูด้วยค่ะ รบกวนด้วยนะคะ ขอบพระคุณมากค่ะ

[snasui]

ให้สร้าง Option Button ใหม่ด้วยเครื่องมือที่ชื่อว่า Form ครับ โดยเข้าไปที่เมนู View > Toolbars > Form จากนั้นในแต่ละข้อให้เลือก Group Box จากเครื่องมือดังกล่าวมาครอบ Option Button ทั้งหมดไว้อีกทีหนึ่ง จากนั้นค่อยซ่อน Group Box เอาไว้ ซึ่งต้องพึ่ง Code VBA ลองทำมาดูก่อนตามตัวอย่างที่ผมทำไว้ในข้อ 1 และ 2 ตามไฟล์แนบครับ

[ภาวินี]

ทำได้แล้วค่ะอาจารย์ ขอบพระคุณมากค่ะ

[ภาวินี]

เอ่อ...แต่หนูยังซ่อนกรอบไม่ได้อ่ะค่ะ ต้องทำไงเหรอคะ หนูส่งไฟล์ให้อาจารย์ตรวจค่ะ

[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

[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

[ภาวินี]

ขอบพระคุณอาจารย์เป็นอย่างสูงที่ให้วิทยาทานค่ะ