VBAmacros：有条件的列填充
我从昨天起就一直在摔跤，但没有得到任何帮助，希望有人能给我指示
我有这个工作簿，其中我有以下2个要求：
1）如果用户在列A中input一个值（这是一个date）：在列C中自动填充“2”的值
2）
如果用户在列D中input正数（+）（例如：+100）：“DEP”的值自动填入列“H”
b-如果用户在D列input一个负数（ – ）（例如：-50）：'WD'的值自动填入'H'列。
再次作为指针将不胜感激。
非常感谢
这不能用正则expression式来完成吗？
列H：= IF（VALUE（D1）> = 0，“DEP”，“WD”）
Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range On Error Goto ws_exit Application.EnableEvents = False If Target.Row > 1 Then If Not Intersect(Target, Me.Columns(1)) Is Nothing Then For Each cell In Target cell.Offset(0, 2).Value = 2 Next cell ElseIf Not Intersect(Target, Me.Columns(4)) Is Nothing Then For Each cell In Target If cell.Value > 0 Then cell.Offset(0, 4).Value = "DEP" Else cell.Offset(0, 4).Value = "WD" End If Next cell End If End If