单元格根据值填充颜色

pcliuyi · 发表于 2024-10-30 10:10

各位大虾：

我想根据某个单元格的数值，填充该单元格后的该值单元格个数的底色，请问如何实现？如附件中： C3单元格的值为2，则填充D2:E2 2个单元格的底色，C5的值为6，则填充D5：I5 单元格共6个的底色。

shiruiqiang · 发表于 2024-10-30 10:12

本帖最后由 shiruiqiang 于 2024-10-30 10:41 编辑

offset(0,1)的resize(1,单元格的值)

大灰狼1976 · 发表于 2024-10-30 10:14

不便下载附件，如果是用change事件
target.offset(,1).resize(,target.value).interior.color=vbgreen
简单示例，可根据需要修改

pcliuyi · 发表于 2024-10-30 10:21

利用Offset 在条件格式里貌似不能实现呢？方便在附件的文件里更新一下么？谢谢！

shiruiqiang · 发表于 2024-10-30 10:36

Sub test()
Dim rng As Range
For Each rng In Range("c3:c7")
rng.Offset(0, 1).Resize(1, rng.Value).Interior.Color = vbGreen
Next
End Sub

kevinchengcw · 发表于 2024-10-30 10:36

pcliuyi 发表于 2024-10-30 10:21
利用Offset 在条件格式里貌似不能实现呢？方便在附件的文件里更新一下么？谢谢！

条件格式里不应该是用offset，应该是判断column(a1)<=$c3这样判断

pcliuyi · 发表于 2024-10-30 10:39

初学VBA，感谢2位大虾！！！VBA真的太猛了

sxbjzjf110 · 发表于 2024-10-30 11:57

参与一下。。。。。

sero61 · 发表于 2024-10-30 15:38

学习一下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 3 Or Target.Value = " " Then Exit Sub
Target.Offset(0, 1).Resize(1, Target.Value).Interior.ColorIndex = 8
End Sub

pcliuyi · 发表于 2024-10-30 15:59

初学VBA，再次感谢各位大虾！！！

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

[求助] 单元格根据值填充颜色