Sub 按钮2_Click()
Dim rs As Integer
rs = 2
Do While Cells(rs, 7) <> ""
If Cells(rs, 7) >= 30 Then Cells(rs, 8) = 200
ElseIf Cells(rs, 7) < 30 Then Cells(rs, 8) = 150
rs = rs + 1
Loop
End If
End Sub
我想要7列不为空时判断
若大于等于30则8列为200
若小于30则8列为150
一直提示错误,小白不懂,求大神解答
你不是写好了么。。。。。。。
只是分行错误,还有结构错误
Sub 按钮2_Click()Dim rs As Integer
rs = 2
Do While Cells(rs, 7) <> ""
If Cells(rs, 7) >= 30 Then
Cells(rs, 8) = 200
Else
Cells(rs, 8) = 150
End If
rs = rs + 1
Loop
End Sub
温馨提示:答案为网友推荐,仅供参考