怎样在excel表格中用鼠标选定内容后自动变颜色?
3个回答
展开全部
可以随便写点脚本,打开excel文件,按alt+F11,进入vba的编程环境,
在左边的excel对象中选择sheet1(假如你是操作sheet1表的话),在右边的编译窗口上面的list中,左边选择worksheet,右边选择selectionchange.
输入以下代码:
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
这时你一点击excel的单元格,就变为了黄色啦,要设置其他颜色就根据自己的习惯修改参数就可以啦。只要修改ColorIndex中的数字就可以啦
在左边的excel对象中选择sheet1(假如你是操作sheet1表的话),在右边的编译窗口上面的list中,左边选择worksheet,右边选择selectionchange.
输入以下代码:
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
这时你一点击excel的单元格,就变为了黄色啦,要设置其他颜色就根据自己的习惯修改参数就可以啦。只要修改ColorIndex中的数字就可以啦
推荐于2016-05-20 · 知道合伙人软件行家
关注
展开全部
用万能的VBA来做。做一个小程序,当鼠标在C列上点击时,当前单元格的填充色设定为咖啡色。代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Column = 3 Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Column = 3 Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
与windows桌面主题有关。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询