帮我看看这串代码，为何短片没有被判断并记录呢？

xqgg2007 · 发表于 2022-12-17 11:21

代码：

Sub DO运行()

Dim 片长 As Integer
Dim 评价 As String

Range("A3").Select

Do Until ActiveCell.Value = ""
片长 = ActiveCell.Offset(0, 3).Value
If 片长 < 120 Then
评价 = "短片"
Else
评价 = "长片"
ActiveCell.Offset(0, 4).Value = 评价
End If
ActiveCell.Offset(1, 0).Select
Loop

End Sub

xqgg2007 · 发表于 2022-12-17 11:23

自己找出问题来了，两行命令顺序不对。

xqgg2007 · 发表于 2022-12-17 11:26

不过有一点没想明白：为何ActiveCell.Offset(0, 4).Value = 评价放在END IF前面就只判断了长片而短片就没记下来呢？

杨建营 · 发表于 2022-12-17 11:44

可以试试Select case，if语句满足一条就不执行下一条了。自己琢磨不知道对不对。

准提部林 · 发表于 2022-12-17 17:37

如果是花
   工具=剪刀
   我需要的=工具  '你少了這個
又如果是樹
   工具=鋸子
   我需要的=工具
結束~~

准提部林 · 发表于 2022-12-17 17:38

如果是花
我需要的=剪刀
又如果是樹
我需要的=鋸子
結束~~

准提部林 · 发表于 2022-12-17 17:38

如果是花
工具=剪刀
又如果是樹
工具=鋸子
結束~~
我需要的=工具

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

[求助] 帮我看看这串代码，为何短片没有被判断并记录呢？