VBA做的随机密码生成工具

以下是一个 VBA 代码示例，可以生成指定长度的随机密码：

Sub GeneratePassword()

    Dim Password As String
    Dim PasswordLength As Integer
    Dim i As Integer
    
    PasswordLength = InputBox("请输入密码长度：")
    
    '密码长度必须大于0
    If PasswordLength <= 0 Then
        MsgBox "密码长度必须大于0！"
        Exit Sub
    End If
    
    '生成随机密码
    For i = 1 To PasswordLength
        Password = Password & Chr(Int(Rnd() * 26) + 65)
    Next i
    
    '显示生成的密码
    MsgBox "生成的密码为：" & Password

End Sub

在这个示例中，当运行这个宏时，会弹出一个输入框要求输入密码长度。然后程序会生成指定长度的随机密码，并将其显示在消息框中。你可以根据需要修改代码，比如限制密码中必须包含数字或特殊字符，或者将生成的密码输出到 Excel 单元格中等。

相关问题

vba 生成随机密码

在VBA中，我们可以使用Randomize和Rnd函数来生成随机密码。以下是一个示例的代码：

Option Explicit

Sub 生成随机密码()
    Dim 可用字符 As String
    Dim 密码长度 As Integer
    Dim 密码 As String
    Dim i As Integer
    
    可用字符 = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()_-+=<>?;:~"
    密码长度 = 8 ' 可根据需要更改密码长度
    
    Randomize ' 初始化随机数生成器
    
    For i = 1 To 密码长度
        密码 = 密码 & Mid(可用字符, Int((Len(可用字符) * Rnd) + 1), 1)
    Next i
    
    MsgBox "生成的随机密码为：" & 密码, vbInformation
End Sub

上述代码中，首先定义了可用字符的字符串，包含了小写字母、大写字母、数字和一些特殊字符。然后定义了密码长度。通过使用Randomize和Rnd函数，我们可以生成一个0到1之间的随机数。在循环中，将可用字符的一个随机位置的字符添加到密码中，直到达到设定的密码长度。最后，将生成的随机密码显示在一个消息框中。可以根据需要修改密码长度。

vba第1至10列生成随机密码

好的，以下是使用 VBA 生成随机密码的示例代码，该代码会生成第1至10列的随机密码：

Sub GenerateRandomPasswords()
    Dim password As String
    Dim randomValue As Integer
    Dim chars As String
    chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%^&*()_+"
    
    For i = 1 To 10 '循环处理第1至10列
        For j = 1 To 10 '循环处理每一行
            password = ""
            For k = 1 To 8 '生成8个字符的随机密码
                randomValue = Int((Len(chars) * Rnd) + 1)
                password = password & Mid(chars, randomValue, 1)
            Next k
            '将生成的密码填充到对应的单元格中
            Cells(j, i) = password
        Next j
    Next i
    
    '提示生成完成
    MsgBox "Random passwords generated!"
End Sub

这段代码会生成包含大小写字母、数字和一些特殊字符的字符串，然后在 Excel 的第1至10列中的每一行生成一个 8 个字符的随机密码。最后会弹出一个消息框提示生成完成。