-婺源中学科技实践活动


	今天是 2026-6-8 星期一		QQ:545684816 TEL:13979373522

站内公告

Excel中VBA编程应用——检索每天得分不低于32分的人

发表时间：2021-5-2 浏览次数：40

	1	2	3	4	5	6	7	8	9	10
程江河	34	32	34	42	34	32	34	42	34	32
刘红英	45	24	43	34	45	24	43	34	45	24
陈燕红	56	31	31	25	56	32	31	34	32	31
莫能海	33	43	35	32	42	43	37	32	51	49
江昊飞	45	16	34	31	15	16	35	41	34	16

一、启用宏

视图 → 宏 → 输入一个宏名（是变量名，如wyw） → 点击【创建】

二、将代码复制到宏中

Sub wyw()
    'Sheet1是宏中使用的内部表名，与外部显示的表名可以一样也可不一样
    hang = Sheet1.UsedRange.Rows.Count - 1 '获取数据的行数【要减去表头1行】
    lie = Sheet1.UsedRange.Columns.Count - 1 '获取数据的列数【要减去姓名列】

    Dim n() '定义一个数组，存放每个人是否符合检索条件的标志
    ReDim n(hang)
    For i = 1 To hang
        n(i) = 1 '初始化为1
    Next

    For i = 1 To hang
        For j = 1 To lie
            If Sheet1.Cells(i+1, j+1) < 32 Then
               n(i) = 0
               Exit For
            End If
        Next
    Next

    For i = 1 To hang
        If n(i) = 1 Then
Sheet1.Cells(i+1, 1).Interior.Color =RGB(255,0,0) '设置单元格背景颜色
End If
Next
End Sub

三、关闭宏 → 视图 → 宏 → 执行，几乎立即就会看到检索结果

四、VBA获取工作表的个数——Sheets.Count

五、VBA获取第i个工作表的表名——Sheets(i).Name