เกมส์เลือกคำถาม

[lek]

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

ขอบคุณครับ
เล็ก

[snasui]

การทำเช่นนั้นต้องใช้ VBA เข้ามาช่วยครับ ดูไฟล์แนบประกอบ

ให้สร้างปุ่มขึ้นมาก่อนทั้งสี่ปุ่ม แล้วเขียน Code ตามด้านล่าง นอกจากนี้ในแต่ละชีทให้สร้าง Hyperlink เพื่อกลับมายังแผ่นแสดงครับ

Code: Select all

Sub Button4_Click()
Dim i As Integer
For i = 2 To 4
    Worksheets(i).Visible = False
Next i
For i = 1 To 3
    Worksheets("แผ่นแสดง").Shapes(i).Visible = True
Next
End Sub

Sub Button1_Click()
With Worksheets("ถาม1")
    .Visible = True
    .Select
End With
Worksheets("แผ่นแสดง").Shapes("Button 1").Visible = False
End Sub

Sub Button2_Click()
With Worksheets("ถาม2")
    .Visible = True
    .Select
End With
Worksheets("แผ่นแสดง").Shapes("Button 2").Visible = False
End Sub

Sub Button3_Click()
With Worksheets("ถาม3")
    .Visible = True
    .Select
End With
Worksheets("แผ่นแสดง").Shapes("Button 3").Visible = False
End Sub

[lek]

ขอบคุณมากครับอาจาร์ย
ใช้ได้ตามต้องการเลยครับ
เล็ก