在Excel里制作简单游戏界面

生成随机激活码

找工具箱

插入按钮

建宏

方法一:新建按钮的时候创建宏

方法二:右键->指定宏

VBA

VBA代码界面 调整字体

VBA代码

vbnet 复制代码
Public str As String ' 存储激活码显示的字符
Public st As String ' 中间变量,用来替代随机数
Public ot As String ' 显示的激活码
Public i As Integer ' 显示激活码的数量
Public j As Integer ' 激活码长度

Sub 按钮2_Click()
    ' 允许显示的字符
    str = "1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
    
    ' 循环9次生成9个激活码
    For i = 1 To 9
        ot = "" ' 每次生成激活码时清空ot
        ' 循环9次生成每个激活码的9个字符
        For j = 1 To 9
            ' 从1到62中随机生成一个数
            m = Application.WorksheetFunction.RandBetween(1, 62)
            ' 从str中提取第m个字符
            st = Mid(str, m, 1)
            ' 将提取的字符添加到ot中
            ot = ot & st
        Next j
        ' 将生成的激活码放入对应的单元格
        Cells(1 + i, 2) = ot
    Next i
End Sub
vbnet 复制代码
Sub 按钮2_Click()

str = "1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"

For i = 1 To 9
ot = ""
For j = 1 To 9
m = Application.RandBetween(1, 62)
st = Mid(str, m, 1)
ot = ot & st
If j = 9 Then Cells(1 + i, 2) = ot
Next
Next i

End Sub

效果

创建加减血条

血条颜色(自定义设置表格渐变)

这里可以改

血条加减代码

cs 复制代码
Sub Sheet2_按钮2_Click()
liliang = liliang + 1
Range("B1").Value = liliang
End Sub
Sub 按钮3_Click()
liliang = liliang - 1
Range("B1").Value = liliang
End Sub

效果

相关推荐
人生在勤,不索何获-白大侠5 分钟前
day17——Java集合进阶(Collections、Map)
java·开发语言
程序员小羊!17 分钟前
Java教程:JavaWeb ---MySQL高级
java·开发语言·mysql
m0_7231402324 分钟前
Python训练营-Day49
开发语言·python
一洽客服系统1 小时前
网页嵌入与接入功能说明
开发语言·前端·javascript
zhangfeng11331 小时前
python 数据分析 单细胞测序数据分析 相关的图表,常见于肿瘤免疫微环境、细胞亚群功能研究 ,各图表类型及逻辑关系如下
开发语言·python·数据分析·医学
Sylvia-girl1 小时前
Java---IDEA
java·开发语言·intellij-idea
Z_W_H_2 小时前
【Springboot】Bean解释
java·开发语言
L_autinue_Star3 小时前
手写vector容器:C++模板实战指南(从0到1掌握泛型编程)
java·c语言·开发语言·c++·学习·stl
元气小嘉3 小时前
前端技术小结
开发语言·前端·javascript·vue.js·人工智能
励志的大鹰哥3 小时前
V少JS基础班之第七弹
开发语言·javascript·ecmascript