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

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

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

         Dim Hang As Long                                                                                                       '选择的行

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

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

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

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

        'EL_App.Worksheets("jch01-05").Cells.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 '<背景>标色

        '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 If

    

End Sub