在excl中用VBA查找内容并设置字体、大小、颜色等

shuikouzx

要求：1、用VBA查找班级课程表、教师课程表中的“*课程表”，并设置“*课程表”的字体为“仿宋_GB2312”，字号为“20”,字体颜色为红色，背景色为黄色。
      2、用VBA查找班级课课表、教师课程表中的“早自习、上午、下午、晚自习”，并设置“早自习、上午、下午、晚自习”的字体为“仿宋_GB2312”，字号为“18”号。

limonet

Sub 宏1()
    Dim Sht As Worksheet, i%
    For Each Sht In Worksheets
        If Sht.Name <> "要求" Then
            Sht.Activate
            For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
                If Cells(i, 1).MergeCells Then
                    If Cells(i, 1) Like "*课程表" Then
                        Cells(i, 1).Font.Name = "仿宋"
                        Cells(i, 1).Font.Size = 20
                        Cells(i, 1).Font.Color = -16776961
                        Cells(i, 1).Interior.Color = 65535
                    Else
                        Cells(i, 1).Font.Name = "仿宋"
                        Cells(i, 1).Font.Size = 18
                    End If
                End If
            Next i
        End If
    Next Sht
End Sub

limonet

我的电脑里没有“仿宋_GB2312"，只有仿宋，你自己改下。

shuikouzx

limonet 发表于 2022-6-13 16:05
我的电脑里没有“仿宋_GB2312"，只有仿宋，你自己改下。

好的，谢谢老师