永发信息网

点击excel某单元格,可以变成另外一个颜色吗?

答案:4  悬赏:80  手机版
解决时间 2021-04-25 01:26
点击excel某单元格,可以变成另外一个颜色吗?
最佳答案

同时按Alt和F11,进入VB界面


在左上角的窗口中选择你要实现功能的Sheet,右键,查看代码


在右边出现的窗口里粘贴如下代码:


Private rng As Range
Private cIdx As Integer


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (rng Is Nothing) Then
With rng.Interior
.ColorIndex = cIdx
End With
End If


If Not (Target Is Nothing) Then
cIdx = Target.Interior.ColorIndex

With Target.Interior
.ColorIndex = 41
End With
End If
Set rng = Target
End Sub

全部回答
这个用VBA代码很容易就能实现的。
如果点一个就不会,选中几个就会

可以。

在指定单元格右键、设置单元格格式、图案、选个颜色,确定。

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
关于中秋节的谚语,关于中秋节的谚语
赛尔号小雷伊是怎么回事
谁知道哪里有好的女装批发网?
形容生活很无奈的句子,求表达自己很是无奈伤
有没有好听的关于雪的歌曲啊?
如果没结婚,【伴侣戒指】买的能带不,还是买
如果忘记不了一个人要怎么办
大掌柜水饺福兴花园店地址有知道的么?有点事
求歌!一首开头为萨克斯的前奏,节奏感要强的
可以在家养长颈鹿吗??
求下列矩阵的秩,并求它的一个最高阶非零子式!
天龙八部心法90级以上就没等级限制了吗?可以
DNF选频道的时候进不去。怎么回事?
你心里容不容我一席之地?
求王小恺太阳公公MP3下载
推荐资讯
<<Peerless>>的歌词
QQ幻想世界 生存幻境 怎么玩啊 好没聊
锅炉企业该如何发展?
豫东装饰(枣园巷)地址有知道的么?有点事想过
为什么我的酷币十万变六千
18岁的年龄一天到晚在家里怎么过?
谁给我个 100以上问道号 最好有装备 宠物
宏基笔记本里自带了迈克菲杀毒软件 请问可以
南充有个什么江
今天上HF玩DOTA怎么看不到房间
脸上的白头粉刺怎么去除?
2009年农历十二月十二号为阳历几月几日?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?