求写宏代码

木虫

杨建营 发表于 2022-12-7 21:21
请楼主参考。

谢谢   
这个我修改对了   

A列包含的语句怎么写

杨建营

木虫 发表于 2022-12-7 21:27
谢谢   
这个我修改对了   

strtext = Cells(j, 1).Value
With Cells(j, 4)
           If InStr(strtext, "意向客户") Then '判断A列值是否包含特定字符，符合条件的在D列输入相应内容
                .Value = "预受理"
                .Font.Color = vbBlue '字体蓝色
            ElseIf InStr(strtext, "办理") Then
                .Value = "办理"
            ElseIf InStr(strtext, "设施类") Then
                .Value = "设施类"
            ElseIf InStr(strtext, "移机核实线路") Then
                .Value = "移机"
            ElseIf InStr(strtext, "销户问题") Then
                .Value = "销户问题"
            End If
End With

木虫

杨建营 发表于 2022-12-7 21:46
strtext = Cells(j, 1).Value
With Cells(j, 4)
           If InStr(strtext, "意向客户") Then '判断 ...

谢谢 已修改成功。

木虫

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

换个工作簿，工作表名称修改过了，运行结果不显示，提示数据未变动。也尝试更新数据，还是一样的提示。什么原因呢？

杨建营

木虫 发表于 2022-12-9 07:48
换个工作簿，工作表名称修改过了，运行结果不显示，提示数据未变动。也尝试更新数据，还是一样的提示。什 ...

解决楼主这么多问题，要朵鲜花不过分吧？
虽然可以巩固自己的知识，但是没有动力也不行啊。

木虫

杨建营 发表于 2022-12-9 08:30
解决楼主这么多问题，要朵鲜花不过分吧？
虽然可以巩固自己的知识，但是没有动力也不行啊。

当然  怎么送    刚才尝试了一下  是平分吗 刚刚平分了
今天的都送给你们了  不好一下  不知道有送花的  以后会注意的 谢谢你的帮助

杨建营

木虫 发表于 2022-12-9 11:04
当然  怎么送    刚才尝试了一下  是平分吗 刚刚平分了
今天的都送给你们了  不好一下  不知道有送花的  ...

谢谢。
因为注册表已经保存了最初文件的最后行数，如果要换文件使用代码，需要把保存注册表的键值修改一下，保证是专用与当前文件的就可以了。比如最开始的文件键值是count，现在使用的可以保存为NOWcount，只要与第一个不一样就可以了。

木虫

杨建营 发表于 2022-12-9 11:45
谢谢。
因为注册表已经保存了最初文件的最后行数，如果要换文件使用代码，需要把保存注册表的键值修改一 ...

  不懂  蒙了  有简单点的吗   先去学习下

木虫

杨建营 发表于 2022-12-9 11:45
谢谢。
因为注册表已经保存了最初文件的最后行数，如果要换文件使用代码，需要把保存注册表的键值修改一 ...

蒙圈了  可以修改代码使用吗

杨建营

这两句中的代码修改一下。