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

 时间:2026-02-14 04:14:06

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

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

2、依次点击工作表中,菜单栏【开发工具】——【visual basic】。

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

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

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

4、在弹出的【模块】窗口,进行代码编辑!

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

5、编辑的代码如下:

Sub 分数等级标注()

Dim rs As Integer

rs = 2

Do

rs = 1 + rs

If Sheet4.Cells(rs, 2) = "" Then

Exit Do

Else

If Sheet4.Cells(rs, 2) >= 90 Then Sheet4.Cells(rs, 3) = "√"

End If

Loop

End Sub

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

6、同时按下CTRL+F11键,返回工作表,点击【开发工具】菜单下的【插入】按钮,选择一表单控件。

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

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

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

8、点击【标注】按钮,立即标注完毕!

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

  • 在VBA中,如何编写删除批注代码?
  • 怎样使用VBA快捷键添加日期批注并自动缩放?
  • Excel2019如何从有规律的数据中提取部分字符
  • 在VBA中,单元格地址的应用?
  • 在VBA中,如何编写添加批注代码?
  • 热门搜索
    我爱你汉字手抄报 疫情手抄报 植树节手抄报内容大全 经典诵读手抄报 关于六一儿童节的手抄报 儿童节手抄报 防火手抄报 英语手抄报内容 汉字的手抄报 关于科技的手抄报