恢复单元格Interior.Color 即四个边框颜色

0wchz · 发表于 2025-7-5 23:15

原来单元格Interior.Color=vbgreen，改为原来的颜色，并且四个边框颜色也同时恢复原来颜色，代码怎么写谢谢了

ynzsvt · 发表于 2025-7-6 08:07

期待中……

quqiyuan · 发表于 2025-7-6 08:39

Borders.Color = vbGreen

leolee82 · 发表于 2025-7-6 09:49

先保存，用到时再恢复。可以录制宏看看

0wchz · 发表于 2025-7-6 20:19

您好，单元格原来的颜色是绿色，现在要改为初始时的单元格及边框颜色

0wchz · 发表于 2025-7-6 21:19

初始时单元格背景色，即边框色，怎么恢复初始值，谢谢

quqiyuan · 发表于 2025-7-6 21:27

0wchz 发表于 2025-7-6 21:19
初始时单元格背景色，即边框色，怎么恢复初始值，谢谢

初始，应该没有填充色的吧
边框黑色。。。
Interior.Color = xlNone
Borders.Color = vbBlack

0wchz · 发表于 2025-7-6 21:27

把m,o列单元格背景色interior.color borders.color都改回初始值，怎么办谢谢

大灰狼1976 · 发表于 2025-7-7 13:37

Dim rng As Range
Set rng = Range("m:m,o:o")
rng.Interior.Color = xlNone
rng.Borders.LineStyle = xlNone

sancoz · 发表于 2025-7-7 17:40

0wchz 发表于 2025-7-6 21:27
把m,o列单元格背景色interior.color borders.color都改回初始值，怎么办谢谢

你是不是改颜色之前有别的颜色，然后修改后有需要恢复成原来的颜色？盲猜你是想做聚光灯的功能，这个需要先做一个字典之类的东西记录你当时显示的单元格范围所有有颜色的单元格颜色分别是什么，在选了其它单元格后要先还原一次然后再做新的记录，再生成新的聚光灯效果

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

[求助] 恢复单元格Interior.Color 即四个边框颜色