[已解决]请教VBA的大侠：选中数据有效性中姓名，在总课程表该姓名的老师所有的课用粉红色底...

qqyyh

班级为列.rar (4.33 KB, 下载次数: 3)

2016-9-5 09:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-9-5 10:22

用条件格式是否满足要求

跳转到最佳答案楼层

苏子龙

用条件格式是否满足要求

qqyyh

苏子龙 发表于 2016-9-5 10:22
用条件格式是否满足要求

太好了，比我想象还完美，谢谢！

苏子龙

Private Sub Worksheet_SelectionChange(ByVal Tg As Range)
Application.ScreenUpdating = False
    Dim arr, x%, y%
    With Tg
        If .Row > 37 And .Row < 3 Then Exit Sub
        If .Column > 18 And .Column < 3 Then Exit Sub
        If .Count > 1 Then Exit Sub
    End With
    For x = 3 To 37
        For y = 3 To 18
            If Cells(x, y) = Tg Then
                Cells(x, y).Interior.Color = 13395711
            Else
                Cells(x, y).Interior.ColorIndex = 0
            End If
        Next y
    Next x
Application.ScreenUpdating = True
End Sub