Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл, вывод остатка после распределения (Макросы/Sub)
Цикл, вывод остатка после распределения
Elvira66 Дата: Воскресенье, 29.07.2018, 07:39 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помогите подредактировать макрос, вывести остаток после распределения, задача описана в файле.
К сообщению приложен файл: 6713367.xlsm(24.9 Kb)
 
Ответить
СообщениеДобрый день!
Помогите подредактировать макрос, вывести остаток после распределения, задача описана в файле.

Автор - Elvira66
Дата добавления - 29.07.2018 в 07:39
doober Дата: Воскресенье, 29.07.2018, 10:16 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 499
Репутация: 229 ±
Замечаний: 0% ±

Excel 2007
Можно так[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]


 
Ответить
СообщениеМожно так[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]

Автор - doober
Дата добавления - 29.07.2018 в 10:16
Elvira66 Дата: Воскресенье, 29.07.2018, 10:19 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Задача решена! Спасибо большое!)
 
Ответить
СообщениеЗадача решена! Спасибо большое!)

Автор - Elvira66
Дата добавления - 29.07.2018 в 10:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл, вывод остатка после распределения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!