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

fanjy

发布于 2024-05-23 16:37:42

910

发布于 2024-05-23 16:37:42

文章被收录于专栏：完美Excel完美Excel

标签：VBA，用户窗体

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

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

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

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

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

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-05-22，如有侵权请联系 cloudcommunity@tencent.com 删除

技巧