VBA技巧：每次打开用户窗体，都会产生一个新的编码

2024-05-23 16:37:42 浏览数 (3)

标签：VBA，用户窗体

Q：我有一个用户窗体，其中放置有一个文本框，我想每次打开这个用户窗体，在该文本框中都会生成一个新的编码，编码由数字和字母组成。如何实现？

A：你要将代码放置在用户窗体的Initialize事件中，每次打开用户窗体时，都会执行该事件。

打开VBE，插入一个用户窗体，在其中放置一个文本框，该文本框示例名为“TextBox1”。然后，打开该用户窗体的代码模块，输入下面的代码：

代码语言：javascript复制

Private Sub UserForm_Initialize()
 Dim NumandLetter As String
 Dim i As Integer
 
 Randomize
 
 For i = 1 To 6
   If Int((2 * Rnd)   1) = 1 Then
     NumandLetter = NumandLetter & Chr(Int(26 * Rnd   65))
   Else
     NumandLetter = NumandLetter & Int(10 * Rnd)
   End If
 Next i
 TextBox1.Text = NumandLetter
End Sub

这样，每次运行该用户窗体，都会看到其文本框中输入了一个由数字和字母组成的随机字符串。有兴趣的朋友可以试试。

技巧事件字符串 vba 编码

0 人点赞