Snasui Excel Forum

1.กดปุ่มแล้วมี MsgBox ขึ้นมา (แบบ OK Cancel)
2.ถ้ากด Ok ให้ไปที่ชีท 3 ถ้ากด Cancel หรือ กากบาท
ให้อยู่ที่หน้าเดิม

ตัวอย่างการปรับ Code ตามด้านล่างครับ

snasui wrote: ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Link1()
    Dim x As Integer
    x = MsgBox("ต้องการคำนวณ ใช่ หรือ ไม่", vbOKCancel, "โปรแกรม")
    If x = vbOK Then
        Sheets("Sheet3").Select
    Else
        Sheets("Sheet1").Select
    End If
End Sub

ขอบคุณค่ะ ได้ตามต้องการเลยค่ะ