在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

效果

相关推荐
侃侃_天下2 天前
最终的信号类
开发语言·c++·算法
echoarts2 天前
Rayon Rust中的数据并行库入门教程
开发语言·其他·算法·rust
Aomnitrix2 天前
知识管理新范式——cpolar+Wiki.js打造企业级分布式知识库
开发语言·javascript·分布式
每天回答3个问题2 天前
UE5C++编译遇到MSB3073
开发语言·c++·ue5
伍哥的传说2 天前
Vite Plugin PWA – 零配置构建现代渐进式Web应用
开发语言·前端·javascript·web app·pwa·service worker·workbox
小莞尔2 天前
【51单片机】【protues仿真】 基于51单片机八路抢答器系统
c语言·开发语言·单片机·嵌入式硬件·51单片机
我是菜鸟0713号2 天前
Qt 中 OPC UA 通讯实战
开发语言·qt
JCBP_2 天前
QT(4)
开发语言·汇编·c++·qt·算法
Brookty2 天前
【JavaEE】线程安全-内存可见性、指令全排序
java·开发语言·后端·java-ee·线程安全·内存可见性·指令重排序
百锦再2 天前
[特殊字符] Python在CentOS系统执行深度指南
开发语言·python·plotly·django·centos·virtualenv·pygame