[已解决]小白求助

海礁 · 发表于 2016-11-22 14:12

如下面的代码,要对B列的值,在C列做出优劣判断.我的代码错在哪儿,为什么运行没有反应呢?

Sub GTY()
Dim NB, RT As Byte
Dim CF As String
For RT = 1 To 40
      NB = Cells(RT, 2)
      CF = Cells(RT, 3)
      Select Case NB
         Case Is >= 80
            CF = "优"
         Case Is >= 60
            CF = "好"
         Case Is < 60
            CF = "差"
      End Select
Next RT
End Sub

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-11-22 14:20

本帖最后由望帝春心于 2016-11-22 14:21 编辑

Sub GTY()
Dim NB, RT As Byte
For RT = 1 To 40
NB = Cells(RT, 2)
Select Case NB
Case Is >= 80
Cells(RT, 3) = "优"
Case Is >= 60
Cells(RT, 3) = "好"
Case Is < 60
Cells(RT, 3) = "差"
End Select
Next RT
End Sub

复制代码

跳转到最佳答案楼层

望帝春心 · 发表于 2016-11-22 14:20

本帖最后由望帝春心于 2016-11-22 14:21 编辑

Sub GTY()
Dim NB, RT As Byte
For RT = 1 To 40
NB = Cells(RT, 2)
Select Case NB
Case Is >= 80
Cells(RT, 3) = "优"
Case Is >= 60
Cells(RT, 3) = "好"
Case Is < 60
Cells(RT, 3) = "差"
End Select
Next RT
End Sub

复制代码

望帝春心 · 发表于 2016-11-22 14:22

小白你好，我是大白

桀骜孤星 · 发表于 2016-11-22 14:27

大白好快，确实在上面CF本就是错的

望帝春心 · 发表于 2016-11-22 14:33

桀骜孤星发表于 2016-11-22 14:27
大白好快，确实在上面CF本就是错的

其实NB都没必要定义的

海礁 · 发表于 2016-11-22 14:42

谢谢大白啊

CASE下面的语句块必须得直接写,不能像我那样用自定义的变量呗.
NB没必要定义吗,如果要定义的话,是不是定义为RANGE更合适呢?
那么RT是不是也没必要定义啊,我下面都给出取值范围了.

望帝春心 · 发表于 2016-11-22 15:11

海礁发表于 2016-11-22 14:42
谢谢大白啊
CASE下面的语句块必须得直接写,不能像我那样用自定义的变量呗.
NB没必要定义吗,如果要 ...

可以用变量的，但是你用完变量要把变量赋值到单元格中去，这样代码就麻烦了，关键是没必要那样做

望帝春心 · 发表于 2016-11-22 15:13

海礁发表于 2016-11-22 14:42
谢谢大白啊
CASE下面的语句块必须得直接写,不能像我那样用自定义的变量呗.
NB没必要定义吗,如果要 ...

RT是要定义（这个变量是必须的，有它才能循环），NB没必要可以直接SELECT CASE CELLS...

苏子龙 · 发表于 2016-11-22 15:28

我是白白

Sub GTY()
Dim NB, RT As Byte
Dim CF As String
For RT = 1 To 40
NB = Cells(RT, 2)
Select Case NB
Case Is >= 80: CF = "优"
Case Is >= 60: CF = "好"
Case Is < 60: CF = "差"
End Select
Cells(RT, 3) = CF
Next RT
End Sub

复制代码

望帝春心 · 发表于 2016-11-22 15:41

苏子龙发表于 2016-11-22 15:28
我是白白

思维定式了，汗～～～

		自动登录	找回密码
密码			注册

[已解决]小白求助

评分

评分