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

发布网友发布时间：2022-04-30 09:47

共1个回答

热心网友时间：2023-10-22 10:15

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

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