1、在电脑桌面上新建1个Excel文件,在网上下载所需的扑克牌图片,并把下载的图片插入至Excel文件中,排列成图片所示。
2、在蘅荫酸圉G1:G3单元格中分别输入函数=INDEX(A:A,F1)、=INDEX(A:A,F2)和=INDEX(A:A,F3);在I1:I3单元格中分别输入函数=INDEX(A:A,H1)、=INDEX(A:A,H2)和=INDEX(A:A,H3)。
3、在菜撮劝丛食单栏中选择名称管理器,并新建牌1至牌6共6个函数,并分别设置引用函数为=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$F$1,Sheet1!$A:$A,0)),=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$F$2,Sheet1!$A:$A,0)),=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$F$3,Sheet1!$A:$A,0)),=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$H$1,Sheet1!$A:$A,0)),=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$H$2,Sheet1!$A:$A,0)),=INDEX(Sheet1!$B:$B,MATCH(Sheet1!$H$3,Sheet1!$A:$A,0))。
4、复制已插入的6张图片,在并在函数编辑栏中使其分别等于步骤3中6个函数规则。
5、打开vi衡痕贤伎sual basic新建牌手1、牌手2、牌手1豹子1和牌手2豹子4个程序。主要使用的代码有Range("单元格") = Application.RandBetween(数字, 数字)、If Cells(数字, 数字) =数字 Then Cells(数字, 数字) =数字以及MsgBox "恭喜您,这把是豹子"。
6、打开开发程序→插入4个按钮→将4个按钮分别指定步骤4的4个程序。
7、正常游戏时点击牌手1和牌手2程序,即可随机选择牌型。
8、非正常游戏时点击豹子程序,即可弹出窗口,显示"恭喜您,这把是豹子"。