Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл для суммирования отклонений / 5 сообщений из 5, страница 1 из 1
06.05.2013, 20:17
    #38249531
krisha
krisha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл для суммирования отклонений
Здравствуйте!
Подскажите, пожалуйста, как написать макрос, для решения подобной задачи:
имеется 2400 строк на листе, и для каждой строки необходимо для последних 54 столбцов выполнить следующее - из каждой такой ячейки нужно вычесть число, которое находится, скажем, в 5 столбце, и если разность больше 0, то нужно просуммировать данные значения
Отчасти представляю, как такое записать в Delphi, но вот в ВБА боюсь накосячить с циклом

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
    Dim i As Integer
    Dim j As Integer
    Dim S As Integer
    S=0
    For i = 18 To 2403
        For j = 39 To 92
      If Cells(i, j) > Cell(i,5)
        S = S+Cells(i, j)
      End If



Дальше этго пока не продвинулась, идеи есть, но путаюсь в реализации
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2013, 20:45
    #38249559
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл для суммирования отклонений
krisha,

Легче и быстрее через формулу массива, примерный вид на скрине. Или подобная формула
Код: vbnet
1.
{=СУММ(ЕСЛИ(C2:I23-A2:A23>0;C2:I23;0))}


...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2013, 20:50
    #38249561
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл для суммирования отклонений
Да и код почти такой же, вот под мой пример. Для вашего поменяйте I, J на верные

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub T()
    Dim I As Long, J As Long, Summ As Long
    Dim wsList As Worksheet
    Set wsList = ThisWorkbook.Sheets("Ëèñò1")
    
    For I = 2 To 23
        For J = 3 To 9
            If wsList.Cells(I, J) > wsList.Cells(I, 1) Then
                Summ = Summ + wsList.Cells(I, J)
            End If
        Next
    Next
    
    MsgBox Summ, vbInformation
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2013, 21:38
    #38249584
krisha
krisha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл для суммирования отклонений
VSVLAD, спасибо! Но у меня вылетает ошибка
Run-time error '9',
subscript out of range

что это значит?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.05.2013, 21:43
    #38249590
krisha
krisha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Цикл для суммирования отклонений
VSVLAD,
сам код у меня следующий:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub R

    Dim I As Long, J As Long, Summ As Long
    Dim wsList As Worksheet
    Set wsList = ThisWorkbook.Sheets("Ëèñò1")
    
    For I = 18 To 2403
        For J = 38 To 91
            If wsList.Cells(I, J) > wsList.Cells(I, 17) Then
                Summ = Summ + wsList.Cells(I, J) - wsList.Cells(I, 17)
            End If
        Next
        wsList.Cells(I, 95) = Summ
    Next
        MsgBox Summ, vbInformation
        
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл для суммирования отклонений / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 408ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156994]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 260ms
total:  408ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]