VBA 麻烦改一下谢谢了

答案:2 悬赏:80 手机版

解决时间 2021-02-11 03:11

提问者网友：孤凫
2021-02-10 23:27

VBA 麻烦改一下谢谢了

最佳答案

五星知识达人网友：独行浪子会拥风
2021-02-11 00:49

Sub 填充黄色()
X = Range("I65536").End(xlUp).Row
Range(Cells(2, "a"), Cells(X, 10)).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
Dim I%
For I = 2 To Range("I65536").End(xlUp).Row
If Cells(I, "i") = "EMS" Then
Range(Cells(I, "a"), Cells(I, 10)).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
End Sub
追问可以大概解释一下吗！
谢谢
一定采纳追答Sub 填充黄色()

X = Range("I65536").End(xlUp).Row '判断I列最后有数据的1行的行数，动态的

Range(Cells(2, "a"), Cells(X, 10)).Select 'A2：J最后1行这个区域恢复颜色

With Selection.Interior

.ColorIndex = 0

.Pattern = xlSolid

End With

Dim I% '变量i

For I = 2 To Range("I65536").End(xlUp).Row '2到I列最后有数据的1行，动态的

If Cells(I, "i") = "EMS" Then

Range(Cells(I, "a"), Cells(I, 10)).Select 'A列某行：j列某行，填充为黄色，其他区域不填充颜色

With Selection.Interior

.ColorIndex = 6

.Pattern = xlSolid

End With

End If

Next

End Sub
采纳都无所谓，又不是给 RMB,哈哈！来自：求助得到的回答

全部回答

1楼网友：慢性怪人
2021-02-11 01:15

Rows("2:100").Select '事先将2：100行的字体颜色恢复正常（根据实际修改100这个数字）
Selection.Font.ColorIndex = 0
Dim I% '定义变量为I
For I = 2 To Range("I65536").End(xlUp).Row '从第2行开始，直到I列最后1行有数据的行
If Cells(I, "i") = "EMS" Then '如果I列某行是 EMS ，那么
Rows(I).Select '该行字体变为红色
Selection.Font.ColorIndex = 3
Cells(I, 1).Interior.ColorIndex = 6
Cells(I, 10).Interior.ColorIndex = 6
End If
Next
End Sub

我要举报

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

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