是否可以根据表中的条目数将案例添加到选择案例中？

Question

最近，我在Excel中使用了一些VBA；作为一个小项目，我正在尝试创建一个“从帽子中画名字”的宏。

我首先生成一个随机数，然后选择使用case语句从一个表(即ListObject)中选择哪个条目。这方面的问题是，它只工作在表条目的数量总是相同的。

因此，我的问题(可能是一个荒谬的问题)是:是否有可能生成一个动态的“选择案例”块，其中块上的案例数是根据表中的条目数计算的？

谢谢。

-Sean

编辑:澄清:确切地说，我想做的是：

我生成一个随机数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)

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

Answer 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更改为您喜欢的任何东西，或者设置为单元格(1，4).Value=cell_array(随机)，或者不管您想继续进行什么。它将基于所使用的行数。不过，根据您实现电子表格的方式，代码可能需要稍微更改一下。

以下是注释中建议的更新代码。还记得在表单初始化或WorkBook打开函数中使用随机性()。

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

Answer 2

这假定“表”指的是“带有大写字母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