Arrays 选择Case语句-IF语句-define数组-VBA

我想根据年龄变量的值定义新数组。我是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

如果24

通常当您使用array时，您需要重拨（数组变量）-redim Arr\u Num3554（1）

通常当您使用array时，您需要重拨（数组变量）-redim Arr\u Num3554（1）

您的代码是否编译？试试这个，同时注意@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

---

你的代码甚至可以编译吗？试试这个，同时注意@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

---

为什么您的案例标准重叠？刚刚更正。为什么您的案例标准重叠？刚刚更正。