小编Hum*_*ble的帖子

我目前有一个宏,当我点击一个按钮,它"随机"给我一个msgbox中的数字:

dim number as double
number= Int(8 * Rnd + 1) - 1
MsgBox number

问题是,这些数字实际上并不是随机的.例如:如果我启动宏,单击按钮两次,让我说我得到数字5和2.现在如果我关闭宏并再次打开它并单击按钮两次,我得到相同的两个数字5和2.

现在我知道在VB.net中有一种方法可以实际让它每次吐出随机数而不重复"序列"但是自从我触及vb.net以来已经多年了所以我不记得了,我也会不知道如何在excel vba中使用它.

我目前有一个包含1列和多行的Excel文件.该列包含名字,姓氏和可能的中间名(例如:John Abe Smith).我正在写一个有1个文本框和1个按钮的宏.在excel表中我有几个名字:

Column A
--------
John Abe Smith
Cindy Troll Bee
Randy Row
Joe Jumbo
Katie Kool Kat

我想编写一个宏,当我在文本框中键入内容并单击按钮时,它将在此列中查找名称.如果找到它,那么只需在消息框中说"找到"即可.

我想在搜索名字时使用通配符"*",但我不知道如何.我目前有一些像这样的代码,但通配符不起作用:

Private Sub search_Click()
    For firstloop = 3 To 10
        If Range("G" & firstloop).Text = name.Text & "*" Then
            MsgBox "Found!"
            Exit Sub
        Else
            MsgBox "NOT FOUND"
        End If
    Next
End Sub

例如,假设我在文本框中输入" Troll ",然后单击按钮.我希望循环遍历列以查找包含"Troll"的任何内容.示例数据的结果就是这样Cindy Troll Bee.

我怎么能这样做？

我正在尝试重新保存二维数组.在我的代码的最顶端,我有:

Dim BayQuestionArray() As Variant
Dim numberofbay As Double

我有两个按钮,第一个按钮用于初始化数组大小:

numberofbay = 1
ReDim Preserve BayQuestionArray(numberofbay, 37)

第二个按钮用于升大数组

ReDim Preserve BayQuestionArray(numberofbay + 1, 37)

第二个按钮不起作用,它一直给我一个错误说运行时错误9下标超出范围.为什么？