vba改变行的背景颜色,当离开该行时,还原,当点击excel一行时,_ExceL对接用友金蝶

http://blog.sina.com.cn/u/5831663924

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

vba改变行的背景颜色,当离开该行时,还原,当点击excel一行时,

(2016-03-21 10:36:46)

标签：

vba改变行背景色

vba点击时改变航颜色

用友数据分析

excel突出行颜色

分类： Excel_VBA

网址;http://blog.sina.com.cn/s/blog_15b9821340102w6yj.html
vba当点击excel一行时,改变该行的背景颜色,当离开该行时,还原

Public Sub jch01_05_明细表_页签_给选择的行_标上_背景色()

'----给选择的行标上背景颜色,方便看的清楚

Set EL_App = GetObject(, "Excel.Application")

'选择的行

Dim Hang As Long

'第10行的最后一列(含标题头的最后一列)

Dim ZhLie As Integer

ZhLie = EL_App.Worksheets("jch01-05").Range("FXD10").End(xlToLeft).Column

'获取的是一个区域的<左上角>单元格的<行>)vb不支持: ActiveCell.Row

Hang = EL_App.Selection.Row

'---改变点击行(指定行)的背景色

'清空该页签所有的颜色

'EL_App.Worksheets("jch01-05").Cells.Interior.ColorIndex = xlNone

‘清除某一行的背景色

’Worksheets("jch01-05").Rows(HeJi_Hang).Interior.ColorIndex = xlNone

'<背景>标色（设置某行的一个区域的单元格颜色）

'EL_App.Worksheets("jch01-05").Range(EL_App.Worksheets("jch01-05").Cells(Hang, 1), ‘EL_App.Worksheets("jch01-05").Cells(Hang, ZhLie)).Interior.ColorIndex = 36

'<背景>标色（设置一个单元格颜色）

Worksheets("jch01-06").Cells(HeJi_Hang, 14).Interior.ColorIndex = 6

'背景的颜色蓝色（用rgb格式表示）

'EL_App.Worksheets("服务器设置1").Cells(7, 10).Interior.Color = YanSe_BeiJing_1

'---改变点击行字体(指定行的字体)的颜色<字体颜色对照表可以参照:http://blog.sina.com.cn/s/blog_15b9821340102w6ym.html>

'还原该页签所有<字体>的颜色为默认黑色

EL_App.Worksheets("jch01-05").Cells.Font.ColorIndex = xlAutomatic

'<字体>标色（设置某行的一个区域的单元格颜色）

EL_App.Worksheets("jch01-05").Range(EL_App.Worksheets("jch01-05").Cells(Hang, 1),

EL_App.Worksheets("jch01-05").Cells(Hang, ZhLie)).Font.ColorIndex = 5

End Sub

以上包含改变选择区域的<背景颜色>和<字体颜色>,请根据需要自行调整

-----------------------------------------------------------------------------

excelvba中字体颜色对照表,EXCEL里如何知道某种颜色的ColorIndex的值是多少？

请参照:该说明

http://blog.sina.com.cn/s/blog_15b9821340102w6ym.html

----------------------------------------------------------------------------

如果您有任何问题或建议或疑问,欢迎反馈和交流,您的要求就是我们的方向和动力
更多<数据分析>模板,将陆续发布,敬请期待
用友数据分析
欢迎访问:http://www.df-bi.com
更多数据分析模型,欢迎扫描"微信公众号"
或者查找微信公众号:"DF数据工厂" 或 "data_f"

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：运行时错误'429' ActiveX 部件不能创建对象

后一篇：excelvba中字体颜色对照表,EXCEL里如何知道某种颜色的ColorIndex的值是多少？

新浪BLOG意见反馈留言板　欢迎批评指正