Public Sub jch01_06_汇总表_页签_给选择的行_标上_背景色()

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

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

    If EL_App.Worksheets("数据表设置1").Cells(21, 80).Value = "是" Then                                                         '选择的行,字体标色

         Dim Hang As Long                                                                                   '选择的行

         Dim ZhLie As Integer                                                                               '第1行的最后一列(含标题头的最后一列)

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

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

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

        'EL_App.Worksheets("jch01-06").Cells.Interior.ColorIndex = xlNone                                   '清空该页签所有的颜色

        'EL_App.Worksheets("jch01-06").Range(EL_App.Worksheets("jch01-06").Cells(Hang, 1), EL_App.Worksheets("jch01-06").Cells(Hang, ZhLie)).Interior.ColorIndex = 35 '标色

        '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-06").Cells.Font.ColorIndex = xlAutomatic                                                       '还原该页签 所有<字体>的颜色为默认黑色

         EL_App.Worksheets("jch01-06").Range(EL_App.Worksheets("jch01-06").Cells(Hang, 1), EL_App.Worksheets("jch01-06").Cells(Hang, ZhLie)).Font.ColorIndex = 5 '<字体>标色

    End If

    

End Sub