Макрос VBA: условное заполнение столбца

Question

Я боролся с этим со вчерашнего дня, но ничего не получил, надеялся, что кто-нибудь сможет показать мне свет

У меня есть эта рабочая тетрадь, в которой у меня есть следующие 2 требования:

1) если пользователь вводит значение (которое является датой) в столбец A: значение «2» автоматически заполняется в столбце C

2)

a-, если пользователь вводит положительное число (+) в столбце D (например, +100): значение «DEP» автоматически заполняется в столбце «H»

b- если пользователь вводит отрицательное число (-) в столбце D (например, -50): значение 'WD' автоматически заполняется в столбце 'H'.

Опять же, как указатели будут высоко оценены.

Большое спасибо

Answer 1

Разве это нельзя сделать с помощью обычной формулы?

Столбец H: = IF (VALUE (D1)> = 0, "DEP", "WD")

Answer 2

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