钓虾网今天给大家分享《excel表格2016隐藏游戏》,钓虾网小编对内容进行了深度展开编辑,希望通过本文能为您带来解惑。
很多朋友可能不知道,微软的操作系统和办公软件中,其实都会隐藏一些有趣的小彩蛋,比如小游戏等等。今天,钓虾网小编就来教大家如何在Excel 2016中找到隐藏的小游戏。
首先,我们需要打开一个空白的Excel 2016表格。然后,按下键盘上的“Alt+F11”组合键,这会打开VBA编辑器。
在VBA编辑器中,点击菜单栏的“插入”,选择“模块”,这时会在右侧出现一个空白的模块窗口。将以下代码复制粘贴到模块窗口中:
```vbSub EasterEgg() Dim strName As String strName = Application.UserName
ActiveSheet.Range("A1:R20").ClearContents ActiveSheet.Range("A1").Value = "Get ready, " & strName & "..." DoEvents Application.Wait Now + TimeValue("00:00:03") ActiveSheet.Range("A1").Value = "3..." DoEvents Application.Wait Now + TimeValue("00:00:01") ActiveSheet.Range("A1").Value = "2..." DoEvents Application.Wait Now + TimeValue("00:00:01") ActiveSheet.Range("A1").Value = "1..." DoEvents Application.Wait Now + TimeValue("00:00:01") ActiveSheet.Range("A1").Value = "GO!!!" DoEvents ActiveSheet.Range("A1:R20").ClearContents DoEvents Set game = New Breakout game.StartEnd Sub```粘贴完成后,关闭VBA编辑器,回到Excel表格界面。你会发现表格中多了一个名为“模块1”的模块。此时,按下键盘上的“F5”键,或者在VBA编辑器中点击“运行”按钮,即可运行这段代码。
稍等片刻,你就会发现Excel表格中出现了一个经典的打砖块游戏!钓虾网小编提醒大家,使用方向键控制挡板,空格键发射小球,快来挑战一下吧!
钓虾网小编对《excel表格2016隐藏游戏》内容分享到这里,如果有相关疑问请在本站留言。
文章来自《钓虾网小编|www.jnqjk.cn》整理于网络,文章内容不代表本站立场,转载请注明出处。