求大神指点

zhao121010

求大神指点，range("h2:ay1000")任何一个单元格发生变化时,此单元格所在行的A列为"支出",就将此单元格的值转为负值，代码要怎么写

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Row <= 1000 And T.Column > 7 And T.Column < 52 Then
    If T.Count > 1 Then Exit Sub
    If T.Value = "" Then Exit Sub
    Application.EnableEvents = False
    r = T.Row
    If Cells(r, 1) = "支出" Then
        T.Value = T.Value * -1
    End If
    Application.EnableEvents = True
End If
End Sub

3190496160