EXCEL里怎么插入小游戏/
发布网友
发布时间：2022-04-20 15:29
共3个回答
热心网友
时间：2023-12-16 08:14
第1步 首先建立一个空白Excel文件，在上方工具栏的空白处按一下鼠标右键，然后点选【控件工具箱】，打开「控件工具箱」工具列。
第2步 出现「控件工具箱」工具列后，在最右边或最下边的「其他控制项」按钮上（是一个锤子和扳手）按一下鼠标右键，然后在选择项中选择「Shockwave Flash Object」项，表示要插入Flash进去。
第3步 接着，鼠标指标会变成一个小十字的图案，此时可以在Excel编辑区中划一个大小适中的方框，这个方框就是用来显示Flash动画的内容的。
第4步 画好方框后，接着在方框上按一下鼠标右键并选择弹出菜单中的【属性】，准备设定该元素的属性
第5步 出现「属性」对话框后，在页面中找到「Movie」这个项目，并在其右边的方框中输入你的Flash档的网址或硬盘中的地址，如果要将flash保存在Excel中，还要将EmbedMovie属性设定为Ture，输入完毕再按一下右上角的〔X〕关闭此对话框即可。
第6步 回到Excel编辑页面后，点一下「控制工具箱」工具列最上边的〔结束设计模式〕按钮，恢复一般模式。
第7步 设定好该物件的属性并回到一般编辑模式后，我们便可看到Excel档案中出现了刚刚贴上的Flash档内容了。
热心网友
时间：2023-12-16 08:14
打开Excel后打开代码编写器（Alt + F11），将如下代码写入其中一个工作表（Sheet）的通用代码部分中。程序首先是初始化。定义数据结构，选择4*4的空格，调整表格大小，改变单元格颜色（标示出游戏区域），然后是让1到15非重复随机分布到前15格空格中：
Type pos
row As Integer
col As Integer
End Type
'blank为空格的位置，初值为最后一格
Public blank As pos
'init_pos为游戏区域的左上角，控制游戏区域的位置，这里为(5,5)单元格
Public init_pos As pos
'border为游戏区域边界
Public border As pos
'N为游戏区域的大小，控制游戏的规模(N*N)，这里N=4
Public N As Integer
'running用于判断游戏是否进行中，如果要中途退出或玩家需要重玩用此变量控制
Public running As Boolean
'此下是本游戏宏的总入口，由工作区中button启动，如果愿意也可以让游戏宏在打开该表时自动运行
Sub Begin()
If running Then
Cells(border.row, border.col).ClearContents '将唯一的空格初始化在右下角
running = False
End If
initialize '调用全局初始化函数
End Sub
'全局初始化函数
Function initialize()
If Not running Then
Dim i As Integer
Dim ii As Integer
Dim temp As Integer
Dim a(14) As Integer
running = True
N = 4
init_pos.col = 5
init_pos.row = 5
border.row = init_pos.row + N - 1
border.col = init_pos.col + N - 1
blank.col = border.col
blank.row = border.row
'游戏区域（颜色）初始化，省略了单元格大小的调整，大家可以应该加入相应语句让游戏外观整齐
Range(Cells(init_pos.row, init_pos.col), Cells(border.row, border.col)).Interior.ColorIndex = 5
'随机数数组初始化，这里是编号0到编号14共15个数
For i = 0 To (N*N-2)
a(i) = i + 1
Next i
'不重复随机分布各数
For i = N*N-2 To 0 Step -1
Randomize
ii = Int(Rnd * i)
temp = a(i)
a(i) = a(ii)
Cells(init_pos.row + i \ N, init_pos.col + (i Mod N)) = a(i)
a(ii) = temp
Next i
End If
End Function
很明显，Excel的单元格是游戏的主角。初始化后游戏开始，逻辑很简单：玩家每单击一个单元格（产生Worksheet中的SelectionChange事件），游戏就判断这个格是否在游戏区域中，若是就判断上下左右4个方向是否有空格，如果有空格就把原单元格中的数传到空格中，原单元格清空（空格与原单元格交换），然后判断游戏是否结束（1到15顺序排序了？），若还没有，什么都不做，等下一次单击事件发生。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If running Then
'所单击单元格是否就是空格
If (Target.row <> blank.row Or Target.Column <> blank.col) Then
'所单击单元格是否在游戏区域
If ((Target.row >= init_pos.row And Target.row <= border.row) And (Target.Column >= init_pos.col And Target.Column <= border.col)) Then
'所单击单元格上下左右是否有空格
If ((Abs(blank.col - Target.Column) <= 1 And blank.row = Target.row) Or (Abs(blank.row - Target.row) <= 1 And blank.col = Target.Column)) Then
'单元格与空格交换
Cells(blank.row, blank.col) = Cells(Target.row, Target.Column)
Cells(Target.row, Target.Column).ClearContents
blank.col = Target.Column
blank.row = Target.row
End If
End If
End If
'判断游戏是否结束?
Dim i As Integer
i = 0
Do While (i < N*N And Cells(init_pos.row + i \ N, init_pos.col + i Mod N) = i + 1)
i = i + 1
Loop
If i = N*N-1 Then
MsgBox ("你成功了!")
running = False
End If
End If
End Sub
最后在Excel工作区中放个button，用来调用游戏宏启动游戏。双击button，输入代码
Private Sub button_Click()
Call Begin
End Sub
保存后单击button，游戏开始了！
这个游戏还可以再加上记时、限时、计算移动步数等功能，并记录在表中某个位置作为游戏纪录。游戏没有防作弊功能，人们能够随便修改单元格中的数值，而这可以通过Worksheet_Change事件加以*（不过这样的游戏都要作弊我无话可说）。
热心网友
时间：2023-12-16 08:15
1、开启Excel之后随便开一新档，将它「另存成Web画面」时，按下发布后再将增加互动功能打勾，再将档案储存为2000.htm。
2、在IE中开启2000.htm，你应该会看到电子表格出现在网页*。
3、找到第2000行、WC列。将第2000行整个选取（整行选取的方法就是按2000的灰色按键），再利用Tab键将第WC列反白使其处于作用状态下（多按几下TAB就会移动到WC列，2000/WC格就会转为白色）。
4、同时按住Shift+Crtl+Alt然后点选左上方的Office logo。
5、开始玩了。
玩法提示：方向键控制、空格键开火、 O 放油、H 大灯。注意看路面上写的字唷
