全列

大家好,小范来为大家解答以上的问题。全列这个很多人还不知道,现在让我们一起来看看吧！

1、Sub MacroDo()Dim k As Integerk = 3Do While k <= 7    If F < 1800 Then        C = "G" & k        Range(C).Value = "Reorder"    ElseIf F > 1800 And F < 3600 Then        Range(C).Value = "take alert"    ElseIf F > 3600 Then        Range(C).Value = "need clearance"    End If        k = k + 1LoopColumns("G").EntireColumn.AutoFitEnd Sub多个If ... End If连用，可以使用If ... ElseIf ... ElseIf ... End If 代替，如果我的回答对你有帮助，请采纳。

2、Sub MacroDo()Dim k As Integerk = 3Do While k <= 7 If F < 1800 Then C = "G" & k Range(C).Value = "Reorder" ElseIf F > 1800 And F < 3600 Then Range(C).Value = "take alert" ElseIf F > 3600 Then Range(C).Value = "need clearance" End If k = k + 1LoopColumns("G").EntireColumn.AutoFitEnd Subif…then…elseif…then………(elseif…then可以有无数个)If F < 1800 ThenC = "G" & kRange(C).Value = "Reorder"elseIf F > 1800 And F < 3600 ThenRange(C).Value = "take alert"elseIf F > 3600 ThenRange(C).Value = "need clearance"End If也可用select 代替select case fcase is < 1800 :C = "G" & k:Range(C).Value = "Reorder"case 1800 to 3600 : Range(C).Value = "take alert"case is > 3600 : Range(C).Value = "need clearance"End select。

本文到此分享完毕，希望对大家有所帮助。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！