求写宏代码

木虫

杨建营 发表于 2022-12-7 08:48
按照楼主要求改了，请参考。

谢谢 你给于的帮助。
代码是否可修改成：颜色填充也只执行最新的数据  执行过的就不在填充了。希望给于再次的解答 ，拜托了。

杨建营

木虫 发表于 2022-12-7 19:24
谢谢 你给于的帮助。
代码是否可修改成：颜色填充也只执行最新的数据  执行过的就不在填充了。希望给于 ...

只有“新行数大于最后一行行数才改变，把“”新行数=最后一行行数“”改为“”新行数大于最后一行行数“”就可以。代码中是这句：if newrow = lastrow then 改为  if newrow > lastrow then 就OK了。

ssfx1982

发个图片看下

木虫

ssfx1982 发表于 2022-12-7 19:48
发个图片看下

运行就在这样了

木虫

杨建营 发表于 2022-12-7 19:36
只有“新行数大于最后一行行数才改变，把“”新行数=最后一行行数“”改为“”新行数大于最后一行行数“ ...

根据你的提示 尝试修改了IF下面的代码 好像成功了   先运行一下看看看 谢谢

ssfx1982

这个是我试颜色录制的宏，不是这个代码。只要用鼠标选中B列的单元格就能自动填充C,D列值的，代码在SHEET1的代码窗里，是个工作表的SELECTIONCHANGE事件

ssfx1982

木虫

ssfx1982 发表于 2022-12-7 20:49

看到了 是的是的  不能批量吗

木虫

杨建营 发表于 2022-12-7 08:48
按照楼主要求改了，请参考。

你好  判断A列包含字符  不要等于的  代码如何修改


Select Case Cells(j, 1) '根据条件写结果
        Case Is = "意向客户"
            Cells(j, 4).Value = "预受理"

杨建营

木虫 发表于 2022-12-7 20:17
根据你的提示 尝试修改了IF下面的代码 好像成功了   先运行一下看看看 谢谢

木虫 发表于 2022-12-7 19:24
谢谢 你给于的帮助。
代码是否可修改成：颜色填充也只执行最新的数据  执行过的就不在填充了。希望给于 ...

请楼主参考。