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

Вход

Регистрация

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

 

= Мир MS Excel/Вытащить массив СкладПоНоменклатуре=Пусто либо Ноль - Мир MS Excel

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

Excel 2010
Пример прилагаю.

Цель - вытащить массив данных, на новый Лист, где Остаток склада по Номенклатуре равен Пусто либо Ноль.
Для дальнейших работ по распределению товарных запасов.

Необходимо:
По Листу Исх - это Остатки склада по Номенклатурно, я Макросом (который прилагаю по тексту в Листе Макрос) произвожу переворот таблицы,
выход на Листе Достичь коллонки А,В,С.

Далее,

необходимо допилить макрос таким образом, что бы массив данных привести к правилу Остаток склада по Номенклатуре равен Пусто либо Ноль,
пример того, что должно получиться представлено на Листе Достичь коллонки H,I,J. Тобишь удалить строки, где Склад+Номенклатура >=1.
К сообщению приложен файл: _1.xls(90.0 Kb)
 
Ответить
СообщениеПример прилагаю.

Цель - вытащить массив данных, на новый Лист, где Остаток склада по Номенклатуре равен Пусто либо Ноль.
Для дальнейших работ по распределению товарных запасов.

Необходимо:
По Листу Исх - это Остатки склада по Номенклатурно, я Макросом (который прилагаю по тексту в Листе Макрос) произвожу переворот таблицы,
выход на Листе Достичь коллонки А,В,С.

Далее,

необходимо допилить макрос таким образом, что бы массив данных привести к правилу Остаток склада по Номенклатуре равен Пусто либо Ноль,
пример того, что должно получиться представлено на Листе Достичь коллонки H,I,J. Тобишь удалить строки, где Склад+Номенклатура >=1.

Автор - Snake1501
Дата добавления - 24.06.2019 в 18:33
RAN Дата: Понедельник, 24.06.2019, 22:00 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5154
Репутация: 1027 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Мяу()
    Dim i As Long
    Dim hc As Integer, hr As Integer
    Dim ns As Worksheet

    hr = InputBox("""Сколько строк с подписями сверху?""")
    hc = InputBox("""Сколько столбцов с подписями слева?""")

    Application.ScreenUpdating = False

    i = 1
    Set inpdata = Selection
    Set ns = Worksheets.Add

    For r = (hr + 1) To inpdata.Rows.Count
        For c = (hc + 1) To inpdata.Columns.Count
            For j = 1 To hc
                If inpdata.Cells(r, c) = "" Then
                    ns.Cells(i, j) = inpdata.Cells(r, j)
                    For k = 1 To hr
                        ns.Cells(i, j + k) = inpdata.Cells(k, c)
                    Next k
                    ns.Cells(i, j + k) = inpdata.Cells(r, c)
                    i = i + 1
                End If
            Next j
        Next c
    Next r
    Application.ScreenUpdating = True

End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Мяу()
    Dim i As Long
    Dim hc As Integer, hr As Integer
    Dim ns As Worksheet

    hr = InputBox("""Сколько строк с подписями сверху?""")
    hc = InputBox("""Сколько столбцов с подписями слева?""")

    Application.ScreenUpdating = False

    i = 1
    Set inpdata = Selection
    Set ns = Worksheets.Add

    For r = (hr + 1) To inpdata.Rows.Count
        For c = (hc + 1) To inpdata.Columns.Count
            For j = 1 To hc
                If inpdata.Cells(r, c) = "" Then
                    ns.Cells(i, j) = inpdata.Cells(r, j)
                    For k = 1 To hr
                        ns.Cells(i, j + k) = inpdata.Cells(k, c)
                    Next k
                    ns.Cells(i, j + k) = inpdata.Cells(r, c)
                    i = i + 1
                End If
            Next j
        Next c
    Next r
    Application.ScreenUpdating = True

End Sub
[/vba]

Автор - RAN
Дата добавления - 24.06.2019 в 22:00
Snake1501 Дата: Четверг, 27.06.2019, 16:50 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
hands hands hands hands hands Оно))) спасибо
 
Ответить
Сообщениеhands hands hands hands hands Оно))) спасибо

Автор - Snake1501
Дата добавления - 27.06.2019 в 16:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вытащить массив СкладПоНоменклатуре=Пусто либо Ноль (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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