跨工作簿复制时，对被选的数据区域所在的工作表设置颜色

njwtg · 发表于 2023-6-20 09:04

代码是gwjkkkkk老师写的，谢谢gwjkkkkk老师！

遇到个新的需求，当跨工作簿复制时，因为要复制的工作表很多，能不能在第一个对话框出现后选择的数据区域，所在的工作表设置为橙色，这样就可以一目了然哪些工作表被复制过，谢谢老师！
用这个ActiveSheet.Tab.ThemeColor = xlThemeColorAccent2 时，跨工作簿就不起作用了

njwtg · 发表于 2023-6-20 10:54

有请大师看看加哪些代码？谢谢！

fanyoulin · 发表于 2023-6-20 11:52

如果要求不是很严谨的话，在第一个选择的后面加一行：
Worksheets(sRng.Parent.Name).Tab.ThemeColor = xlThemeColorAccent4

cyq4896 · 发表于 2023-6-20 15:13

请试试是这样吗

njwtg · 发表于 2023-6-20 16:49

谢谢2位老师！，我测试了下，使用场景是：我同时打开任意位置的工作簿“增加颜色*”和工作簿“城市”，在工作簿“增加颜色*”中运行程序，将工作簿“城市”中的任意一个工作表的选定数据提取到工作簿“增加颜色*”中的选定位置，同时将被选工作表的颜色改为橙色，
需求就是增加：将被选工作表的颜色改为橙色的代码

在此应用场景下，2位老师的代码未能实现该功能，

cyq4896 · 发表于 2023-6-20 20:08

改标签颜色

gwjkkkkk · 发表于 2023-6-20 20:30

请参考附件。。。

njwtg · 发表于 2023-6-20 20:54

测试了很多次，觉得
gwjkkkkk老师的程序逻辑符合预期，能够在不同的当前活动工作簿中准确设置需要的工作表的标签颜色，也谢谢各位老师的鼎力帮助，谢谢！

cyq4896 · 发表于 2023-6-20 21:48

..............

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

[求助] 跨工作簿复制时，对被选的数据区域所在的工作表设置颜色

评分