[已解决]求：共享工作簿下查询并自动填充代码？

fxgg72

如题，见附件。
谢谢各位大侠老师的帮助！


求：共享工作簿下查询代码？.zip (3.41 KB, 下载次数: 10)

2015-8-24 20:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-25 17:06

添加一个条件格式，可以吗？

跳转到最佳答案楼层

fxgg72

顶起来，继续求助..............

fxgg72

大神老师啊！
快点现身吧！

爱疯

添加一个条件格式，可以吗？

fxgg72

爱疯 发表于 2015-8-25 17:06
添加一个条件格式，可以吗？

谢谢老师！
您的方法也行的。
问题是工作表中相关单元格区域都已经有条件格式了，而且都是三个条件，没法再添加条件了。
我也很郁闷啊！
老师能用代码实现么？
谢谢！

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)

    '>>> A6:C27根据C2填充背景色
    Dim i As Integer
    If Target.Address = "$C$2" Then
        [a6:a27].Interior.ColorIndex = 0
        For i = 6 To 27
            If Cells(i, 1) = [c2] Then Cells(i, 1).Interior.ColorIndex = 35 '浅绿色
        Next i
    End If
    '<<<

End Sub


1）代码不要放到模块里，要放到Sheet1工作表对象中。
2）如果不是07及以后版本，可添加多余3个条件格式

fxgg72

爱疯 发表于 2015-8-26 08:48
Private Sub Worksheet_Change(ByVal Target As Range)

    '>>> A6:C27根据C2填充背景色

见图片疑问？
谢谢老师！

爱疯

我前面说错了2处：

1）注释里应该是A6:A27
2）如果07及以后版本，可添加多余3个条件格式。

fxgg72

爱疯 发表于 2015-8-26 16:29
我前面说错了2处：

1）注释里应该是A6:A27

03就不行了啊！
看来还是弄不成了。
谢谢老师！