Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как вычесть из одной таблицы другую с условием
 
#1
20.01.2020 07:27:24
Доброго времени, Уважаемые форумчане. Прошу помощи в корректировке макроса, он вычитает из одной таблицы другую, но если в одной из таблицы не число, то ошибка., а надо чтобы он в эту же ячейку возвращал либо данные, если мы вычитаем из текста число то вычитаемое, если из числа текст, то уменьшаемое. Заранее благодарен
Код
Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
  Arr1 = Range("A2:B10").Value
  With Worksheets("Лист2")
    Arr2 = .Range("A2:B10").Value
    For i = 1 To UBound(Arr1)
      For j = 1 To UBound(Arr1, 2)
        Arr1(i, j) = Arr1(i, j) - Arr2(i, j)
      Next
    Next
    [A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
  End With
End Sub
 
 
 
#2
20.01.2020 07:43:26
alex1210, нельзя вычесть из таблицы другую!!!
Код
Arr1(i, j) = IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0)
По вопросам из тем форума, личку не читаю.
 
 
 
#3
20.01.2020 09:16:28
БМВ, здравствуйте спасибо за помощь. Макрос посчитал, но получились значения со знаком "-", как сделать чтоб его не было?
 
 
 
#4
20.01.2020 09:19:40
alex1210, что вы подразумеваете что бы его не было? если там такое значение....или вам нужен модуль?
если да оберните в получаемый результат в ABS()
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
20.01.2020 10:08:47
Mershik,здравствуйте вот эту строку?
Код
ABC(IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0))
 
 
 
#6
20.01.2020 10:10:29
alex1210, ну оберните посмотрите результат.. строку которую предложил вам
Цитата
БМВ написал:
Arr1(i, j) = IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0)
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
21.01.2020 05:32:18
Mershik, выводит ошибку почему то ошибку, что не так с кодом
Код
Sub iSubtract()
Dim Arr1
Dim Arr2
Dim i As Integer
Dim j As Integer
  Arr1 = Range("A2:B9").Value
  With Worksheets("Лист2")
    Arr2 = .Range("A2:B9").Value
    For i = 1 To UBound(Arr1)
      For j = 1 To UBound(Arr1, 2)
       Arr1(i, j) = IIf(IsNumeric(Arr1(i, j)), Arr1(i, j), 0) + IIf(IsNumeric(Arr2(i, j)), -Arr2(i, j), 0)
      Next
    Next
    [A2].Resize(UBound(Arr1), UBound(Arr1, 2)) = Arr1
  End With
End Sub
 
 
 
Страницы: 1
Наверх