[已解决]求助各位老师怎么写点过哪个单元格的行就有底色的代码 谢谢

qinhuan66

求助各位老师怎么写点过哪个单元格的行就有底色的代码  谢谢

最佳答案

月排行榜 / 总排行榜

孤单无所谓

2013-1-6 10:48

zhoucs00 发表于 2013-1-6 10:45
外套工作表Selection_Change事件，嘿嘿

呵呵 那就写完整一点吧
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.EntireRow.Interior.ColorIndex = 4
End Sub

跳转到最佳答案楼层

孤单无所谓

Sub dise()
Selection.EntireRow.Interior.ColorIndex = 4
End Sub

zhoucs00

孤单无所谓 发表于 2013-1-6 10:41
Sub dise()
Selection.EntireRow.Interior.ColorIndex = 4
End Sub

外套工作表Selection_Change事件，嘿嘿

孤单无所谓

zhoucs00 发表于 2013-1-6 10:45
外套工作表Selection_Change事件，嘿嘿

呵呵 那就写完整一点吧
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.EntireRow.Interior.ColorIndex = 4
End Sub

qinhuan66

孤单无所谓 发表于 2013-1-6 10:48
呵呵 那就写完整一点吧
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Ent ...

谢谢老师的热情帮忙

孤单无所谓

qinhuan66 发表于 2013-1-6 10:49
谢谢老师的热情帮忙

不谢。。。。。。。。。如果满意能不能在我楼层的右上角 设个最佳哇{:912:}

qinhuan66

孤单无所谓 发表于 2013-1-6 10:54
不谢。。。。。。。。。如果满意能不能在我楼层的右上角 设个最佳哇

能不能在ThisWorkbook中写入呢？

孤单无所谓

qinhuan66 发表于 2013-1-6 11:03
能不能在ThisWorkbook中写入呢？

可以啊  上升到工作簿事件
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Selection.EntireRow.Interior.ColorIndex = 4
  End Sub