Question

怎么用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

但是看不懂，不知道怎么弄。谁帮忙一下。

Answer 1

你的代码很好。
实现方法如下：
1.右击sheet1工作表，选择“查看代码”。
2.在自动弹出的代码窗口中粘贴上述代码。
3.回到excel的sheet1工作表试试，即可看到效果。

代码解释：
第一行定义一个过程，这个过程的含义是选择单元格区域时发生的
第二行开始的if...else...endif多行语句，其实是一条完整的语句，
如果你单击单元格中不是“请按我”三个字时，提示你“您乱按”，但当你单击“请按我”三个字时，这三个字又跑到其它地方去了，同时提示你“("哈哈按不到")”。
其中的语句：Cells(Int(Rnd() * 10) + 1, Int(Rnd() * 10) + 1) = "请按我"
就是“你按我”三个字跑到其它单元格中去的意思，cells的用法：cells(行号,列号)，即单元格地址。

Answer 2

很实用的制作病毒弹窗.mp4