rgb给单元格标色

rgb给单元格标色

   YanSe_BeiJing_1 = RGB(255, 218, 185)

    YanSe_BeiJing_2 = RGB(176, 224, 230)

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

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

         '---检测参数不能是空的信息

         If .Cells(11, 5).Value = "" Then                                                      

             .Cells(11, 5).Interior.Color = YanSe_BeiJing_1

              JianCha_TongGuo = False

         Else

             .Cells(11, 5).Interior.ColorIndex = xlNone

         End If

         If .Cells(12, 5).Value = "" Then                                                    

             .Cells(12, 5).Interior.Color = YanSe_BeiJing_1

              JianCha_TongGuo = False

         Else

             .Cells(12, 5).Interior.ColorIndex = xlNone

         End If

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