WPS灵犀写vba代码解决一个小问题——感觉还挺不错!

因为有图片,知乎直答没读懂

在知乎上看到的一个问题:XLSX表格中如何实现若修改A1格的颜色代码,B1格的背景色会随着改变?

接入了DeepSeek-R1的知乎直答,因为有图片,没有读懂题目,乱答一通。

看来暂时还是有我等人类的用武之地的。

添加图片注释,不超过 140 字(可选)

用WPS灵犀来解一下

只要你能描述清楚需求,这种写公式或者写代码的事情,AI还是很擅长的。我决定用用WPS灵犀来解一下。

指令:A列单元格为十六进制颜色代码的文本数据,对应B列单元格底色设置了此代码的颜色,应该用什么公式,或者vba代码?

添加图片注释,不超过 140 字(可选)

按步骤试用了如下代码,确实可行。

注意,要使用代码右上角的复制按钮,不要直接选中代码右键复制,不然代码会乱的。

添加图片注释,不超过 140 字(可选)

但还有一个要求没有达到,当修改A列数据时,B列颜色自动更换。

再给指令:要求,当修改A列数据时,B列颜色自动更换。

添加图片注释,不超过 140 字(可选)

现在代码变成了这样。不过这回有个注意的地方,不再是插入模块再粘贴代码,而是直接在左侧工程窗口双击需要操作的工作表(如 Sheet1),然后粘贴代码。

刚开始我没有注意,还是老办法,结果不行。又学到一个新知识:Worksheet_Change事件代码应该放到对应的事件工作表中。

添加图片注释,不超过 140 字(可选)

又试了一下,修改A列中已经有文本,B颜色可以改变,但是我在A列空白单元格中输入或者粘贴一些文本时,B列对应的单元格的底色没有变化。看来还是要再调一调。

指令:增加要求,当A列输入或者粘贴数据时,B列颜色自动更换

添加图片注释,不超过 140 字(可选)

要求完成达成。最终代码如下。记得要把文件另存为.xlsm格式哦。

演示

操作演示

添加图片注释,不超过 140 字(可选)

效果演示

添加图片注释,不超过 140 字(可选)

广西
浏览 69
收藏
3
分享
3 +1
2
+1
全部评论 2
 
666
· 新疆
1
回复
 
不错不错。 但只输入编号并不完美, 加点深度,可以输入英文或中文。
· 安徽省
1
回复