ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
9 сообщений из 9, страница 1 из 1
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36817150
Shpr0TinG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shpr0TinG
Гость
Макрос на сравнение и подсчет в первом столбце строк, и сумирование значений этих строк в другом столбце, и вывод в отдельную ячейку.

в общем незнаю как сделать, подскажите что.

пример прикрепил.

Просто объем очень большой и нужен макрос
...
Рейтинг: 0 / 0
28.08.2010, 16:31
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36817275
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Shpr0TinG,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Sub Макрос3()
Dim j, s, ja, jg, ji
ja =  1      'для наглядности
jg =  7 
ji =  9     'Я взяла лишний чтобы не бить ващ
j =  64000  'можете уменньшить под ваши данные
''''''''''не стала усложнять поиском конца даннах
s =  0 
Do While j >  1 
s = s + Cells(j, jg).Value
If Len("" & Cells(j, ja)) >  0  Then
Cells(j, ji).Value = s
Cells(j, ji).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color =  65535 
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With
s =  0 
End If

j = j -  1 
Loop
End Sub
...
Рейтинг: 0 / 0
28.08.2010, 19:28
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36817301
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ну, зачем уж излишества-то?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Count1()
    Dim nI, nJ
    nJ =  2 
    For nI =  2  To ActiveSheet.UsedRange.Rows.Count
        If Len(Cells(nI,  1 ).Value) >  0  Then
            nJ = nI
        End If
        Cells(nJ,  8 ).Value = Cells(nJ,  8 ).Value + Cells(nI,  7 ).Value
    Next
End Sub
...
Рейтинг: 0 / 0
28.08.2010, 20:59
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36817421
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
AndreTM,

запусти-ка пару раз макрос и 5,.. не получишь.....
...
Рейтинг: 0 / 0
29.08.2010, 00:20
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36817477
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ПЕНСИОНЕРКА,

Вообще-то, это ПРИМЕР
В моём тестовом рабочем варианте первой командой была .Range("H:H").Clear
...
Рейтинг: 0 / 0
29.08.2010, 02:44
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36819077
Shpr0TinG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shpr0TinG
Гость
ПЕНСИОНЕРКА,
спасибо, но не получается.

вот примерно полная версия файла
...
Рейтинг: 0 / 0
30.08.2010, 14:15
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36819091
Shpr0TinG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shpr0TinG
Гость
...
Рейтинг: 0 / 0
30.08.2010, 14:19
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36819101
Shpr0TinG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shpr0TinG
Гость
...
Рейтинг: 0 / 0
30.08.2010, 14:23
| Ответить | Цитировать | Написать  
Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
    #36819235
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
Shpr0TinG,

если у вас действительно большие объемы, то вот так будет быстрее:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub t()
Dim r, n&, i&, s, k&
n = Cells(Rows.Count,  2 ).End(xlUp).Row
r = Range(Cells( 7 ,  1 ), Cells(n,  1 ))
s = Range(Cells( 7 ,  7 ), Cells(n,  7 ))
For i =  1  To n -  6 
    If Len(r(i,  1 ) & "") >  0  Then
        r(i,  1 ) = s(i,  1 )
        k = i
    Else
        r(k,  1 ) = r(k,  1 ) + s(i,  1 )
    End If
Next
Range(Cells( 7 ,  8 ), Cells(n,  8 )) = r
End Sub
...
Рейтинг: 0 / 0
30.08.2010, 15:02
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос на сравнение и подсчет в первом столбце строк, и сум-е знач. этих строк в другом ст
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=152&tid=2177740]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 204ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


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