在vba中，使用select case 语句时限对分支选择，运行的时候，只执行一部分的分支选择。这是为什么？

答案:3 悬赏:30 手机版

解决时间 2021-01-27 03:42

提问者网友：藍了天白赴美
2021-01-26 16:22

代码如下：Private Sub CommandButton4_Click()
Dim a(7, 14) As Single
Dim i, j As Integer
For i = 0 To 14
For j = 0 To 7
a(j, i) = Sheets("可行性").cells(102 + 2 * j, 4 + i).Value
Select Case a(j, i)
case 1 to 3599
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 1
case 3600 to 7799
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 2
case 7800 to 12599
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 3
case 12600 to 15000
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 4
end select
Next j

Next i
End Sub

最佳答案

五星知识达人网友：轻雾山林
2021-01-26 17:57

case "january"

字符串要加半角双引号

全部回答

1楼网友：独钓一江月
2021-01-26 20:09

每次最多只执行分支中的一个啊也有可能一个都不执行。 a(j,i)的值只可能是分支中的一个，或不在分支所给出的范围内

2楼网友：玩家
2021-01-26 18:55

Private Sub CommandButton4_Click() Dim a(7, 14) As Single Dim i, j As Integer For i = 0 To 14 For j = 0 To 7 a(j, i) = Sheets("可行性").cells(102 + 2 * j, 4 + i).Value Select Case a(j, i) Case 1 To 3599 a(j, i) = 1 Case 3600 To 7799 a(j, i) = 2 Case 7800 To 12599 a(j, i) = 3 Case 12600 To 15000 a(j, i) = 4 End Select Next j Next i End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息