Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Комбинаторика. Найти паллеты, на которых минимальное кол-во каждого артикула не меньше указанного
 
Уважаемые коллеги,

Посоветуйте, пожалуйста, в какую сторону думать.
Задача - есть набор паллет в которых находятся артикулы товара в разных сочетаниях и кол-вах. Нужно найти (отобрать) такие паллеты, при которых будет выполнено условие "минимальное кол-во каждого артикула не менее, чем..." . Например 1800 шт.
Пока стою в тупике... Пример прилагаю.

С уважением, Андрей.
Изменено: vikttur - 09.07.2021 09:57:27
Бэкап модулей из личной книги макросов
 
Уважаемые форумчане,

Копал, но не смог найти метод каким можно было бы бэкапить сразу ВСЕ модули из личной книги макросов.
Может кто подскажет как это оптимально сделать?

(Решение путем эспорта "поштучно" не рассматривается, т.к. модулей много.)

С уважением, Андрей
Описание вывода формулой для макроса
 
Уважаемые форумчане,

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

Буду благодарен за любые мысли по этому поводу.

С уважением, Андрей.
Выбор значения из результатов массива автофильтра
 
Уважаемые специалисты по формулам!

Не могу найти подход к следующей задаче:
На листе 1  есть список повторяющихся кодов с которым я работаю с помощью автофильтра, на листе 2 - список сопоставлений этих уникальных кодов и значений.
При выборе автофильтром массива значений на листе 1 нужно в ячейке получить соответствующее значение из списка соответствий листа 2.

Читается сумбурно, при взгляде в файл все станет понятно.
(На макросах не хотелось бы это делать).

Буду очень признателен за помощь!

С уважением,
Андрей.
Формат данных - пропадает часть значения после дроби
 
Добрый день, уважаемые форумчане!

Помогите с проблемой - есть файл, результат сохранения отчета 1С. В нем данные в каком-то непонятном формате: например вижу, что в ячейке "30/120", а при выделении этой ячейки и соответственно получении данных макросом считывается только "30".
Эти хитрые данные можно корректно получить только путем промежуточного копирования через блокнот.
Подскажите, пожалуйста, как корректно работать макросом с такими ячейками? Файл прилагаю.

С уважением, Андрей.
формат изображения для .Shapes.AddPicture, Как установить общий формат для изображений?
 
Уважаемые Гуру!

Подскажите, пожалуйста, есть ли прием, позволяющий обозначить любой графический формат для метода .Shapes.AddPicture?
Смысл в том, что неизвестно какой формат будет у файла .jpg или .png или .bmp ... Известно лишь имя файла.
Например есть часть кода:
Код
picaddr = папка & "\" & CStr(kartinka) & [B]".png"[/B]
With ActiveSheet.Shapes.AddPicture(picaddr, msoFalse, msoCTrue, 0, 0, 0, 0).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Top = Cells(i, ss).Top
Selection.ShapeRange.Left = Cells(i, ss).Left
Selection.ShapeRange.Height = k.EntireRow.RowHeight
End With

Таким образом нужно продублировать эту часть кода столько раз сколько есть форматов файлов (для jpg, bmp ...) или можно как-то изменить тип искомого файла?

С уважением, Андрей.
Изменено: UnDrew - 08.04.2014 19:28:14
CheckBox - автоматическое управление
 
Уважаемы Мастера !

Есть задача:
На листе в столбце "А" в ячейки может добавляться любая информация.

Читал форум, не нашел ответа на вопрос: как написать макрос , который бы автоматически ставил чекбокс в случае появления любой информации в столбце A. в ячейке ,справа от той, где появляется эта информация?
И, соответственно, удаления чекбокса, если информация из ячейки столбца "А" удаляется.

С уважением, Андрей.
Изменено: UnDrew - 20.12.2013 15:47:57
Ускорения цикла с .EntireRow.OutlineLevel
 
Уважаемые Профессионалы!

Есть ли способ ускорить перебор по циклу нижеприведенного куска (создания структуры) ?

Код
For i = 4 To 25 000
    If ActSh.Cells(i, 1).Interior.ColorIndex = col1 Then
       ActSh.Cells(i, 1).EntireRow.OutlineLevel = 1
    Else
       If ActSh.Cells(i, 1).Interior.ColorIndex = col2 Then
          ActSh.Cells(i, 1).EntireRow.OutlineLevel = 2
       Else
          If ActSh.Cells(i, 1).Interior.ColorIndex = col3 Then
             ActSh.Cells(i, 1).EntireRow.OutlineLevel = 3
          Else
             If ActSh.Cells(i, 1).Interior.ColorIndex = col4 Then
                ActSh.Cells(i, 1).EntireRow.OutlineLevel = 4
             Else
                ActSh.Cells(i, 1).EntireRow.OutlineLevel = 5
             End If
          End If
       End If
    End If
Next


В настоящий момент на 25 000 строк уходит около 120 секунд. Можно что-нибудь с этим сделать?

С уважением, Андрей.
Sripting Dictionary применительно к ВПР
 
Уважаемые Профессионалы.  
 
Тема не нова, но ответ на вопрос как применить Sripting Dictionary к ВПР я так и не смог.  
Задача: в приложенном файле листа 1 в столбец 3 получить соответвующие значения 3-го столбца листа 2. Если значений много, то их сумму.  
В файле великолепный макрос (кажется от Hugo) но он делает выборку уникальных, удаляя повторы, не совсем то.  
 
То есть нужно доделать макрос, чтобы он вставлял результат в соответсвующюю ячейку напротив искомого значения из столбца 1 листа 1.  
 
(Причина почему я не пользую просто ВПР - при сопоставлении 2 таблиц по 10 тыс. строк на моем компе это занимает до 3-5 минут, не знаю почему так долго)  
 
С уважением,  
Андрей
Макрос: Копирование столбцов (только данные) по условию с сохранением фрматирования
 
Уважаемые мастера!  
 
Являясь новичком в макросах, прошу помочь дополнить скомпилированный макрос 2 моментами:  
1. Данные должны копироваться как значения  
2. Исходное форматирование должно сохраняться.  
 
Много искал, но свести воедино полученную информацию не смог...  
 
С уважением,  
Андрей.
Нарастающий итог, сбрасывающийся по критерию
 
Добрый день, уважаемые мастера!  
 
Возможно ли сделать формулу нарастающего итога , но не сквозную по всей таблице, а периодически сбрасывающуюся по критерию?  
 
С уважением,  
Андрей.
Сумма n- последних значения ячейки от конца диапазона по критерию
 
Уважаемые мастера экселя, подскажите, пожалуйста, возможно ли создать формулу для подсчета суммы значений последних н- столбцов определенного названия? Пример прилагаю.  
 
С уважением,  
Андрей.
Страницы: 1
Loading...