excel vba填充相同内容单元格为黄色和名称为黄色

答案:2 悬赏:80 手机版

解决时间 2021-03-19 19:35

提问者网友：椧運幽默
2021-03-19 12:28

第39行至1039行为数据范围
3.第32单元为区域名字

最佳答案

五星知识达人网友：大漠
2021-03-19 13:58

Sub s()
    t = [AE36].Text
    For i = 1 To 31 Step 10
        For j = 0 To 9
        For k = 39 To 1038
            If Cells(k, i + j).Text = t Then
                Cells(k, i + j).Interior.Color = vbYellow
                Cells(32, i).Interior.Color = vbYellow
            End If
        Next k, j
    Next
End Sub

全部回答

1楼网友：行路难
2021-03-19 15:11

private sub worksheet_selectionchange(byval target as range) if target.column = 9 or target.column = 11 then if target.rows.count > 1 then exit sub target.interior.colorindex = xlnone if target = 1 then target.interior.colorindex = 4 if target = 2 then target.interior.colorindex = 6 if target = 3 then target.interior.colorindex = 3 end if end sub '填写数据后用向下箭头过滤一下每个单元格才行，或者填写一个数据回击一下单元格。 '不然就要用循环语句，关键整个列数量太庞大，所以有些慢

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息