VBA问题，26个字母要根据某一事件随机的逐个显示在文本框中

Question

事件比如说按一下按钮则显示一个字母，是字母是随机出现的。
如何设计这个代码？

Answer 1

Private Sub CommandButton1_Click()

Me.TextBox1.Value = Choose(Int(25 * Rnd()) + 1, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")

End Sub

我是把字母都给你列出来的 可以OPEN 事件 里面加个SHOW事件

Private Sub Workbook_Open()

UserForm1.Show

End Sub效果如图

Answer 2

Range("A1").Value = Chr(Int(65 + 26 * Rnd))
说明
这里是显示大写字母，注意到ASCII码中，A~Z为65~90。因此只要其范围内的一个随机数，再用Chr函数转化为字符即可。
要生成某个范围内的随机整数，使用Int(lowerbound+(upperbound - lowerbound + 1) * Rnd) 。如果要小写字母的随机ASCII码，就是Int(97+26*Rnd)

Answer 3

VBA问题？是在form中实现还是在execel中？不具体

Answer 4

Private Sub Command1_Click()
Text1.Text = Text1.Text & Chr(Int(Rnd * (122 - 97 + 1) + 97)) & " "
End Sub本回答被提问者采纳