以下是引用lpdcd在2004-10-18 8:22:00的发言:
举个例子:填充非空单元格颜色
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Value <> "" Then
Target.Interior.ColorIndex = 3
End If
End Sub
上面是一个事件程序,当工作表内容改变时就运行Target.Interior.ColorIndex = 3
兰老师:为什么在我的附件中当工作表内容改变时不能运行Target.interior.Colorlndex = 3 呢?
你把工作薄事件放在工作表事件中当然不行了,应该放在THISWORKBOOK中,以后在输入事年程序的时候程序名不要手工输入,而是通过选取,就不会出现这样的错误了,如本例你只想让SHEET1中自动填充,就换成工作表事件。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value <> "" Then
Target.Interior.ColorIndex = 3
End If
End Sub |