[已解决]一次求助三个相似的问题。

tting · 发表于 2012-1-8 13:02

见附件，有说明。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-1-8 13:47

本帖最后由 zjdh 于 2012-1-9 16:53 编辑

自动查找注色.rar (16.93 KB, 下载次数: 20)

tting · 发表于 2012-1-8 13:39

是没说清楚还是没人解哟，高手回复

zjdh · 发表于 2012-1-8 13:47

本帖最后由 zjdh 于 2012-1-9 16:53 编辑

自动查找注色.rar (16.93 KB, 下载次数: 20)

tting · 发表于 2012-1-8 14:11

Sub Macro2()
'
' Macro2 Macro
'

'
Range("AM12:AO13").Select
With Selection.Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .Color = 65535
      .TintAndShade = 0
      .PatternTintAndShade = 0
End With
End Sub
这一部分的代码可以不要吗？

tting · 发表于 2012-1-8 14:19

好像通用不大好哟，当增加行的时候或者增加查找的列范围时，就不好用了。不知道需要修改哪里，有没有更好的通用性好的代码。

tting · 发表于 2012-1-8 14:23

更好的代码老师。

djyjysxxs · 发表于 2012-1-8 17:00

3楼的代码已经有通用性了。楼主所谓的不通用，请给个不适用于3楼代码的附件上来

zjdh · 发表于 2012-1-9 16:55

tting 发表于 2012-1-8 14:11
Sub Macro2()
'
' Macro2 Macro

那是我确定颜色代码时录制的宏，忘删除了，3楼附件已删除该模块。

zjdh · 发表于 2012-1-9 16:58

tting 发表于 2012-1-8 14:19
好像通用不大好哟，当增加行的时候或者增加查找的列范围时，就不好用了。不知道需要修改哪里，有没有更好的 ...

宏中已考虑通用性，你可以试试：行或列添加数据。

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