[已解决]请老师再给看看

ping052062

附件里代码在实用中又有新的问题，麻烦老师们抽时间给看看。详情看附件里
求其它单元格底色.zip (16.02 KB, 下载次数: 11)

2013-6-21 15:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

adders

2013-6-22 04:10

Just change 1 line:

From:

1. Arr = [c1].CurrentRegion

复制代码

To:

1. Arr = Range("C1:D11")
   

复制代码

跳转到最佳答案楼层

adders

Just change 1 line:

From:

1. Arr = [c1].CurrentRegion

复制代码

To:

1. Arr = Range("C1:D11")
   

复制代码