首页 > 其他分享 >Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单

时间:2022-11-02 11:31:08浏览次数:49  
标签:VBA 非常简单 游戏 代码 Excel 推盘 Step 操作 我们

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_按键事件


在前面说了很多其他的VBA使用方法,今天要和大家介绍的是利用VBA代码写出来的一个小小游戏,也是我们常数的数字推盘小游戏。


这个游戏的原理其实非常简单,利用我们的窗体来显示和完成数据操作,当然这个游戏是19世纪国外发明的,我们可以来一起学习一下其中代码的编程方式,你会受益良多。



如下是我们游戏的操作界面,玩法是非常简单。就是我们需要将数字从小到大进行排列和我们的魔方有点类似啊!只要操作的时候,点击空格旁边的按键,程序就会自动移动到空格位置。实现这个操作的原理,主要是利用了类模块来处理按键事件的,等下我们一起看看代码!

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_小游戏_02

PS:这个游戏有3中操作难度,可以自己进行选择,有最简单的3*3,稍微难一点的4*4,再就是5*5难度。


操作动画如下,有兴趣的小伙伴可以下载下来,在工作放松之余,可以玩一哈的。

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_按键事件_03


好啦!现在一起来看看源代码吧!


Step-01 此部分代码是我们的MouseUp移动事件的根本,代码的意思是如果我们一旦点击某个方块,那么他就会执行移动过程(原理是属性进行切换)。其实非常简单,有兴趣的小伙伴可以研究一下。

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_小游戏_04


Step-02 此段代码的作用是,设置我们用户窗体上面的数字显示和操作计算方式,这个位置可以改变数字的大小,相信大家都能看的懂,有不懂的可以留言,我会一一解答的。

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_数据操作_05


Step-03 此段代码是我们窗体里面设置代码,设置我们CommandButton的显示,,代码是比较简洁的,也容易好懂。

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_按键事件_06


这段代码主要作用是完成了这个三个按键的操作,还有步数的计数。

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_数据操作_07


小结:当你看懂上面的代码后就会发现,其实我们方块并没有进行移动操作,只是我们视觉上面的错觉。其根本操作就是,利用了CommandButton的Visible属性进行切换,也是就是我们点击的那个的Caption的属性和隐藏的进行交换,实质上我们方块是没有移动的。


怎么样,小伙伴们,有没看懂这个代码的原理呢?有需要源代码的可以私信我“Play Game”即可获得,谢谢支持!


如果有不明白的或者不懂的可以在下方留言,我们会一一解答的。

Excel VBA制作数字推盘小游戏哦!别怕代码其实非常简单_小游戏_08

我是Excel教案,关注我持续分享更多的Excel技巧!

标签:VBA,非常简单,游戏,代码,Excel,推盘,Step,操作,我们
From: https://blog.51cto.com/u_15705258/5816133

相关文章

  • 让Excel中的图表自动转化为PPT,你会用VBA来实现这个动作吗
    我们都知道Excel的图表功能是十分强大的,那么你在制作PPT的时候,肯定会遇上把我们在表格中的数据直接拿到我们的PPT中间使用。当然你也许会说,我们其实在PPT中也可以使用这个功......
  • Excel工作薄数据汇总到一个工作表,你其实只需要一键操作
    我们有时候需要将在同一个文件夹下的多个工作薄的数据到同一个工作表当中,首先我们需要确认的是这些数据的格式是否具有一致性,如果所有的数据格式都是一样的,那么这个问题就非......
  • 将Word文件中的表格批量写入Excel,你知道咋在一瞬间完成的吗?
    ExcelVBA将Word文件中的表格批量写入Excel,知道咋在一瞬间完成的吗?我们本文要介绍的是如何使用VBA代码将Word文件的表格数据批量写入Excel中间,一起来看看吧!举个例子,假如您有......
  • 轻松学会Excel函数,解决80%的工作难题
    HI,大家好,我是Excel教案。从小到大,你一定经历过:大大小小的不少赛事。但是,你,有没有想过……如果你要组织一个这样的比赛;到底要怎么算分呢?​虽然现在手机上都有计算器,但你不会......
  • 数据透视表你只会手动创建吗?其实可以使用VBA一键生成噢
    Excel的数据透视表是一个非常强大的功能,说起数据透视表初次出现的时候,那是在我们Excel5的版本中间,在后续的版本依次更新迭代,直至目前仍然在改进中。当然我们今天不说基础的......
  • 关于VBA中,activesheet用法的一些思考
    前二天,给财务部做了个数据采集的工具,因为财务现在用的是excel2013 和2017的版本,所以我决定不用python,改用VBA来处理这个工具。在 写过程的时候,我用了sheets(i)来定......
  • python 读取excel
    练习#coding:utf-8"""#@Time:2022/10/2517:47#@Author:GinaGao#@File:#@Software:PyCharm#@Descript:pipinstall-ihttps://pypi.tuna.tsinghua......
  • 900001 Excel 基本函数
    =SUM(C2:C10)//求和=AVERAGE(C2:C10)//平均值=COUNT(C2:C10)//计数=MAX(C2:C10)//最大值=MIN(C2:C10)//最小值=IF(C2>=60,"合格","不合格")//条件判断效果图:......
  • DataFrame写入excel不同的sheet
    直接上代码初始化2个dataframedf1=pd.DataFrame({'Name':['Jack','Kate','Jim','Steve'],'Gender':['M','F','M','M'],'Height&#......
  • easyExcel追加内容
        Filefile=newFile("test.xlsx");    FiletempFile=newFile("temp.xlsx");    Wordword=newWord();    word.w="AAAkkk22......