Цикл, чтобы изменить положительный или отрицательный на основе текста другой ячейки - PullRequest
Новая
       34

Цикл, чтобы изменить положительный или отрицательный на основе текста другой ячейки

0 голосов
/ 26 сентября 2019

В одном столбце есть положительные или отрицательные числа или «неполное».Другой столбец, в той же строке есть «да» или «нет».Все совпадающие числа «да» должны быть отрицательными, а все совпадающие числа «нет» должны быть положительными.

Мне удалось пропустить «неполное» и изменить значения, но я изменил все значения.Если число «да» уже отрицательное, оно меняется на положительное.Я прочитал другие посты, изменил свой код, и теперь я получаю «несоответствие типов». 

Sub posneg()

    Dim cell As Range
    Dim pn As Range

    Set pn = rawday.Range(rawday.Range("A4"). _
    Offset(0, 42), rawday.Range("A4").Offset(0, 42).End(xlUp))

    For Each cell In pn
        If cell = "Incomplete" Then
        ElseIf cell = "Yes" Then
            cell.Offset(0, -30) = Abs(cell.Offset(0, -30)) * -1
            cell.Offset(0, -30).Value = Abs(cell.Offset(0, -30)) * -1
        ElseIf cell = "No" Then
            cell.Offset(0, -30) = Abs(cell.Offset(0, -30)) * 1
            cell.Offset(0, -30).Value = Abs(cell.Offset(0, -30)) * 1
        End If       
    Next

End Sub

Я ожидаю, что все соответствующие значения «Да» будут отрицательными, а все соответствующие значения «Нет» - положительными,Спасибо!

...