对选择区域的所有行的A-G列填充红色

百日筑基 · 发表于 2017-10-25 09:43

求助各位大神:
对选择区域的所有行的A-G列填充红色,该如何写代码

谢谢!

ken1991518 · 发表于 2017-10-25 10:03

Sub demo()

Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Font.ColorIndex = 3

End Sub

2489586288 · 发表于 2017-10-25 10:22

本帖最后由 2489586288 于 2017-10-25 12:08 编辑

intersect(selection.entirecolumn,range("a:g")).interior.color=rgb(255,0,0)

百日筑基 · 发表于 2017-10-25 10:44

ken1991518 发表于 2017-10-25 10:03
Sub demo()

Range(Selection, Selection.End(xlToLeft)).Select

老师,您好!
您的代码执行后如果当中有空白单元格就错了,且如果内容连续的话,好像是整行改色了

jsgj2023 · 发表于 2017-10-25 11:17

你的第二个条件似乎存在矛盾!

百日筑基 · 发表于 2017-10-25 11:20

本帖最后由百日筑基于 2017-10-25 11:22 编辑

jsgj2023 发表于 2017-10-25 11:17
你的第二个条件似乎存在矛盾!

第二个条件,我是指比如选择了C10:E16,则对A10:G16 字体进行改色

jsgj2023 · 发表于 2017-10-25 11:42

请见附件!!!

ken1991518 · 发表于 2017-10-25 11:42

本帖最后由 ken1991518 于 2017-10-25 11:44 编辑

百日筑基发表于 2017-10-25 10:44
老师,您好!
您的代码执行后如果当中有空白单元格就错了,且如果内容连续的话,好像是整行改色了

Sub demo2()
Dim x As Integer, y As Integer

x = Selection.Row
y = Selection.Row + Selection.Rows.Count - 1
Range("A" & x, "G" & y).Select
Selection.Font.ColorIndex = 3

End Sub

如果这也满足不了你的要求我也无能为力了，有点看不明白你写的需求

百日筑基 · 发表于 2017-10-25 11:44

ken1991518 发表于 2017-10-25 11:42
Sub demo2()
Dim x As Integer, y As Integer

感谢老师!正是我所需要的!谢谢!

ken1991518 · 发表于 2017-10-25 12:05

jsgj2023 发表于 2017-10-25 11:42
请见附件!!!

6666，厉害！

		自动登录	找回密码
密码			免费注册

[求助] 对选择区域的所有行的A-G列填充红色