02【随机激活码】

首先打开excel

如果没有开发工具按钮可以点击 文件 -> 选项 按钮 在其中找到开发工具 加载到excel即可

有了开发工具之后 店家开发工具下的 插入 按钮

接下来查看代码

Sub 按钮1_Click()
Dim str$, st$, ot$, i%, j%
str = "abcdefghijklmnopqrstuvwxyz0123456789"
For i = 1 To 9
    ot = ""
    For j = 1 To 9
    m = Application.RandBetween(1, 34)
    st = Mid(str, m, 1)
    ot = ot & st
    If j = 9 Then Cells(2 + i, 2) = ot
    Next
Next i
End Sub

将代码编写复制

修改名字  即可完成  激活码按钮