Сумма в цикле по строкам ? Помогите пожалуйста доработать макрос , для excel . - VB
Формулировка задачи:
Уважаемые , подскажите пожалуйста ,как реализовать этот макрос , что-бы проходил по всем строкам в заданном диапазоне и если выполняется условие , приблизительно , как показано в этом макросе ( прибавление двух пар столбцов в строке , результат прибавления ,выводится в I и J ) . Строки могут,не все содержать значения .
Sub test444()
Dim myRng As Range, iRow As Range
Set myRng = Range("A1:AB1100")
For Each iRow In myRng.Rows
If А > 0 Then
If Е > 0 Then
I = A + E
End If
End If
If B> 0 Then
If F> 0 Then
J= B + F
End If
End If
Next iRow
End Sub
Sub test444()
Dim myRng As Range, iRow As Range
Set myRng = Range("A1:AB1100")
For Each iRow In myRng.Rows
If А > 0 Then
If Е > 0 Then
I = A + E
End If
End If
If B> 0 Then
If F> 0 Then
J= B + F
End If
End If
Next iRow
End Sub
Решение задачи: «Сумма в цикле по строкам ? Помогите пожалуйста доработать макрос , для excel .»
textual
Листинг программы
<font color="blue">Sub</font> test444() <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font> <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>1100</b></font> <font color="blue">If</font> Cells(i, <font color="darkblue"><b>1</b></font>) > <font color="darkblue"><b>0</b></font> <font color="blue">And</font> Cells(i, <font color="darkblue"><b>5</b></font>) > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> Cells(i, <font color="darkblue"><b>9</b></font>) = Cells(i, <font color="darkblue"><b>1</b></font>) + Cells(i, <font color="darkblue"><b>5</b></font>) <font color="blue">End</font> <font color="blue">If</font> <font color="blue">If</font> Cells(i, <font color="darkblue"><b>2</b></font>) > <font color="darkblue"><b>0</b></font> <font color="blue">And</font> Cells(i, <font color="darkblue"><b>6</b></font>) > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> Cells(i, <font color="darkblue"><b>10</b></font>) = Cells(i, <font color="darkblue"><b>2</b></font>) + Cells(i, <font color="darkblue"><b>6</b></font>) <font color="blue">End</font> <font color="blue">If</font> <font color="blue">Next</font> <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д