powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как VBA сложить числа в диапозоне ячеек по условию
4 сообщений из 4, страница 1 из 1
как VBA сложить числа в диапозоне ячеек по условию
    #33668713
gimbat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет. Нужна помощь.
Есть 1000 строк.
Два столбца: в первом код организации во втором площадь объекта
Есть организации и есть объекты в этих организациях
Я могу написать цикл, который пролистает все 1000 строк и задав условием код нужной организации могу получить общую площадь ее объектов.
Почти на 100 % убежден что это можно сделать одним оператором.
Только не знаю каким)))
Выручайте.
...
Рейтинг: 0 / 0
как VBA сложить числа в диапозоне ячеек по условию
    #33668763
ВasiС
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пожалуйста уточни:
в чём у тебя строки - в access?
в чём ты пишешь код VB, VBA (в excel, в access)
Пиши подробней плз. Мы не телепуты =)
...
Рейтинг: 0 / 0
как VBA сложить числа в диапозоне ячеек по условию
    #33668894
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Зачем прибегать к VBA, если можно все решить одной формулой.

Код: plaintext
=СУММЕСЛИ(A1:A10; 1 ;B1:B10)

Но, если все-таки хочешь на VBA, то можно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim rng As Range
    
    Set rng = Worksheets("Лист1").Range("A1:B10")
    
    MsgBox Application.WorksheetFunction. _
      SumIf(rng.Columns( 1 ),  1 , rng.Columns( 2 ))
    
    Set rng = Nothing
...
Рейтинг: 0 / 0
как VBA сложить числа в диапозоне ячеек по условию
    #33670449
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть еще БДСУММ для сложных условий
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как VBA сложить числа в диапозоне ячеек по условию
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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