选择Case语句- IF语句-定义数组- VBA

Question

我希望根据年龄变量的值来定义新的数组。我是VBA的新手，下面是我的代码不起作用。我没有错误信息。我想知道为什么数组没有从这段代码中得到任何值！

Select Case num
   Case 24 To 55
       Arr_Num3554 = 1
        Case Else
       Arr_Num3554 = 0
   End Select

Select Case Num
   Case 54 To 75
       Arr_Num5574 = 1
        Case Else
       Arr_Num5574 = 0
   End Select

Select Case Num
   Case 75 To 100
       Arr_Num74plus= 1
        Case Else
       Arr_Num74plus= 0
   End Select

另外，我也尝试过一个IF语句。同样的，我也有同样的问题

If 24 < Num < 55 Then Arr_Num3554 = 1 Else Arr_Num3554 = 0
If 54 < Num < 75 Then Arr_Num5574 = 1 Else Arr_Num5574 = 0
If 75 < Num Then Arr_Num74plus = 1 Else Arr_Num74plus = 0

Answer 1

通常，当您使用arrray时，您需要redim (数组变量)- ReDim Arr_Num3554(1)

Answer 2

您的代码甚至编译了吗？试一试，并注意@Lowpar的评论：

Select Case num
   Case 24 To 55
       Arr_Num3554 = 1
        Case Else
       Arr_Num3554 = 0

   Case 54 To 75
       Arr_Num5574 = 1
        Case Else
       Arr_Num5574 = 0

   Case 75 To 100
       Arr_Num74plus= 1
        Case Else
       Arr_Num74plus= 0

End Select