Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Суммирование остатков, Суммирование остатков
 
Для того чтобы рассчитать кредитный оборот.

Какова суть, нужно суммировать все остатки за выбранный период и поделить его на количество выбранных дней.

чтобы выявить кредитный оборот.

он по формуле банка считается суммируют всю задолженность на конец дня и делят на количество дней.  
Суммирование остатков, Суммирование остатков
 
Да.. нужно посчитать остатки за каждый ...  
Суммирование остатков, Суммирование остатков
 
Пример!
Суммирование остатков, Суммирование остатков
 
Коллеги, добрый день!

Подскажите как с помощью формул суммировать остатки.

пример
                      +     /    -    / итого по дню
01.01.2000   100   /         /   100
05.01.2000   200   /         /   300

и нужно посчитать сумму нарастающим итогом за каждый день

100 + 100 + 100 + 100 + 300 = 700

Как можно с помощью формул зацепить каждый день межу датами ?            
Объединение данных из листов книги на одном листе
 
Не тот файл, прикрепил..  
Объединение данных из листов книги на одном листе
 
Добрый день!

Как отобрать по удовлетворяющим условиям строки по всем листам книги и объединить их на одном листе ?
VBA Работа с диапазоном
 
{quote}{login=KIA}{date=14.12.2011 10:46}{thema=}{post}1) Лучше (быстрее) то, что предложил Hugo, а дополнил я.  
{/post}{/quote}  
Спасибо за разъяснения, возьму вариант  Hugo с вашими дополнениями в работу.  
А есть какие нибудь функции, которые выводят время выполнения процедуры, чтобы себя проверить, что эффективней работает ?
VBA Работа с диапазоном
 
{quote}{login=KIA}{date=14.12.2011 10:32}{thema=}{post}Автор, вот ещё один вариант, основываясь на коде от Hugo. Только с определением последней строки в столбце А  
{/post}{/quote}  
 
Интересная реализация. Спасибо за хорошие идеи.
VBA Работа с диапазоном
 
Получился такой окончательный вариант.    
 
 With Worksheets("TableDeal")  
        Dim iSource As Range, iCell As Range  
        Set iSource = .Range("TableDeal[Бумага сокращенно]")
   With CreateObject("Scripting.Dictionary")  
        For Each iCell In iSource  
            iText$ = CStr(iCell.Value)  
            If Not .Exists(iText$) Then .Add iText$, iText$  
        Next  
        iItems = Application.Transpose(.Items)  
   End With  
   With Worksheets("Report").Range("A1").Resize(UBound(iItems))  
        .EntireColumn.Clear  
        .Value = iItems  
   End With  
 End With  
End Sub  
 
Может что лишние убрать?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
VBA Работа с диапазоном
 
Разобрался, чтобы выделить столбец в таблице сделал так Range("TableDeal[Название столбца в таблице]").
 
Теперь с выделенным диапазоном можно работать ...
VBA Работа с диапазоном
 
{quote}{login=}{date=14.12.2011 09:34}{thema=}{post}Для вашего задания выделять диапазон (.Select) совсем не нужно.  
Приложите небольшой пример и скажите, что нужно сделать{/post}{/quote}  
 
Select - это для наглядности, правильно ли я задаю массив, чтобы потом эти данные подставить в сам код VBA для вытаскивания уникальных значений...  
Логика моя правильная?)
VBA Работа с диапазоном
 
{quote}{login=}{date=14.12.2011 09:34}{thema=}{post}Для вашего задания выделять диапазон (.Select) совсем не нужно.  
Приложите небольшой пример и скажите, что нужно сделать{/post}{/quote}
VBA Работа с диапазоном
 
Для чего все - это нужно (может есть способ проще).  
У меня есть таблица "Сделки", один из столбцов таблицы имеет название "Бумага сокращенно" с помощью кода VBA я буду выводить из этого столбца уникальный значения и мне нужно определить первую и последнию строку  с данными, чтобы код работал только выделенном массиве.
VBA Работа с диапазоном
 
iRowLast = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1  
Range(A1:iRowLast).Select    
 
 
Имеется столбец с данными начинающийся с А1 и заканчивающийся А10 (последние значение может быть разным (iRowLast), как можно выделить диапазон с данными с помощью кода VBA (Range("A1:A10").Select)?  
 
как правильно выделить диапазон Range(A1:iRowLast).Select
Страницы: 1
Наверх