Цикл, вывод остатка после распределения

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Цикл, вывод остатка после распределения - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл, вывод остатка после распределения (Макросы/Sub)

Цикл, вывод остатка после распределения

Elvira66

Дата: Воскресенье, 29.07.2018, 07:39 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

К сообщению приложен файл: 6713367.xlsm (24.9 Kb)

Ответить

doober

Дата: Воскресенье, 29.07.2018, 10:16 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Можно так[vba]

Код

' ..........
        Next j

        For Each Key In .Keys
            If .Item(Key) < 1 Then
                .Remove Key
            End If
        Next
        Sheets("Осталось").Cells(2, 1).Resize(.Count, 2) = Application.Transpose(Array(.Keys, .Items))
    End With
    Sheets("Можем").Cells(2, 1).Resize(k_, 3) = arm    'выгружаем на лист только нужный кусок массива
    Application.ScreenUpdating = 1
End Sub

[/vba]

Ответить

Elvira66

Дата: Воскресенье, 29.07.2018, 10:19 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Задача решена! Спасибо большое!)

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл, вывод остатка после распределения (Макросы/Sub)

Страница 1 из 1
1