VBA循环语句do...loop之应用

1、通过实例和大家分享我的经验，【实例：90分以上标注“√”】！

3、进入VB工作表，点击菜单栏中的【插入】，在下拉菜单中，选择【模块】。

5、编辑的代码如下：Sub 分数等级标注()Dim rs As Integerrs = 2Dors = 1 + rsIf Sheet4.Cells(rs, 2) = "" ThenExit DoElseIf Sheet4.Cells(rs, 2) >= 90 Then Sheet4.Cells(rs, 3) = "√"End IfLoopEnd Sub

7、在工作表中的空白处，用鼠标一拉，便会出现一按钮，同时在弹出的【指定宏】窗口，选取刚才编辑的模块！