0

我最近在 Excel 中搞乱了 VBA。作为我自己的一个小项目，我正在尝试创建一个“从帽子上画名字”的宏。

我首先生成一个随机数，然后使用 case 语句从表（即 ListObject）中选择哪个条目。这样做的问题是它只适用于表条目的数量总是相同的。

所以我的问题（可能是一个荒谬的问题）是：是否有可能生成一个动态的“选择案例”块，其中块上的案例数量基于表中的条目数？

谢谢。

-肖恩

编辑：澄清：我正在尝试做的，确切地说，是这样的：

我生成一个随机数 i，从 1 到 n=10*（表条目数）。在此之后，我想在一个单元格中显示一个基于随机数的表格条目。

理想情况下，代码的工作方式与此类似：

if i = 1 to 10 then choose event 1
if i = 11 to 20 then choose event 2
if i = 21 to 30 then choose event 3
...
if i = (n-9) to n then choose event (n/10)

我希望这有助于澄清代码的目标。

4

2 回答 2

1

根据我们的评论，您可以使用以下内容：

Sub random()
    Dim used_rows As Integer
    Dim random As Integer
    Dim cell_array() As Integer
    used_rows = Sheet1.UsedRange.Rows.Count
    ReDim cell_array(used_rows)
    For i = 1 To used_rows
        cell_array(i - 1) = Cells(i, 1)
    Next
    random = Int(Rnd * (used_rows))
    MsgBox cell_array(random)
End Sub

您可以继续将 MsgBox 更改为您喜欢的任何内容，或设置为 Cell(1,4).Value = cell_array(random)，或者您想继续。它将基于使用的行数。尽管根据您实现电子表格的方式，代码可能需要稍作更改。

这是来自评论建议的更新代码。还要记住在表单初始化或 WorkBook Open 函数中使用 Randomize()。

Sub random()
    Dim used_rows As Integer
    Dim random As Integer
    'Multiple ways to get the row count, this is just a simple one which will work for most implementations
    used_rows = Sheet1.UsedRange.Rows.Count
    random = Int(Rnd * (used_rows)) 
    'I use the variable only for the reason that you might want to reference it later
    MsgBox Cells(random, 1)
End Sub
于 2014-01-24T15:35:25.103 回答
1

这假设“表”是指“带有大写 T 的表”，在 VBA 中称为ListObject：

Sub PickRandomTens()
Dim lo As Excel.ListObject
Dim ListRowsCount As Long
Dim RandomNumber As Long
Dim ListEvent As String
Dim Tens As Long

Set lo = ActiveSheet.ListObjects(1)
ListRowsCount = lo.DataBodyRange.Rows.Count
RandomNumber = Application.WorksheetFunction.RandBetween(10, ListRowsCount * 10)
ListEvent = lo.ListColumns("Data Column").DataBodyRange.Cells(Int(RandomNumber / 10))
MsgBox "Random number: " & RandomNumber & vbCrLf & _
       "Event: " & ListEvent
End Sub
于 2014-01-24T15:51:06.553 回答