Excel Forum

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