Excel宏工具的使用

最新推荐文章于 2024-05-15 15:10:55 发布

weixin_39710042

最新推荐文章于 2024-05-15 15:10:55 发布

阅读量339

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/weixin_39710042/article/details/107830624

版权

本文介绍了如何利用Excel宏进行单元格的增、删、改、查等高效操作，帮助提升日常办公效率。

摘要由CSDN通过智能技术生成

使用宏对单元格的增删改查

Option Explicit


Public i As Integer

Public Function setupCellColor(s As Worksheet, i As Integer)
    
    Dim c As Range
    Dim j As Integer
    Set c = s.Range("a1")
    Do
        
         If c.Value = "$PA-ET V1" Then
            If c.Offset(, 1).Value = "$刻蚀检查" And c.Offset(1, 1).Value = "$铝后处理" Then
                For j = 1 To 6
                If c.Offset(0, j).Value <> c.Offset(1, j + 14).Value Then
                    c.Offset(1, j + 14).Interior.Color = vbRed
                    c.Offset(0, j).Interior.Color = vbRed
                    i = i + 1
                    Sheets("目录").Cells(i, 11).Value = s.Name
                    End If
                    Next
                ElseIf c.Offset(, 1).Value = "$铝后处理" And c.Offset(-1, 1).Value = "$刻蚀检查" Then
                    For j = 1 To 6
                    If c.Offset(0, j)