怎么用excel制作弹出框,就是用来恶搞的那种，听说有人做出了。求方法

1.在Sheet1工作表的A1输入 请按我
2.在Sheet1物件放入下列程式即可
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target <> "请按我" Then
MsgBox ("您乱按")
Else
Target = ""
Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1) = "请按我"
MsgBox ("哈哈按不到")
End If
End Sub