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

Страницы: 1
Согласиться на исправление формулы, не охватывающей смежные ячейки в vba
 
Добрый день. Макрос вырезает и вставляет строки в таблице в нужные места, после этих процедур суммирующие строки в таблице (и не только суммирующие, но использующие "свой" диапазон) не охватывают вновьвставленные ячейки. Можно ли как-то пройтись по строкам и согласиться на добавление в формулу смежных ячеек макросом? Спасибо.
Изменено: KROKS - 06.09.2018 13:02:19
Обращение к ключу словаря типа Range по значению
 
Здравствуйте. Есть структура данных, содержащая магазины, типы товаров в них, недели, план/факты продаж.
Есть куча файлов от разных магазинов, которые нужно свести воедино.
Я пошел путем создания словаря магазинов, где ключ - имя магазина (строка), а объект - [словарь, где ключ - тип товара (ячейка (Range)), а объект - опять {словарь, где ключ - номер недели (строка), а объект - новый элемент класса с полями План/Факт.}]
Проблема оказалась в том, чтобы потом обратиться к ключу, в который я записал ячейку целиком, по value этой ячейки, например "Vegetables":
Код
dictShops.Items("Shop1").Items("Vegetables").Items("14").Plan
Задумывалось что по Value этой ячейки она будет "отзываться" и я смогу тянуть из нее номер колонки, строки и т.п., но увы. Подскажите, пожалуйста, как до этого ключа достучаться? Заранее благодарю.
Изменено: KROKS - 18.04.2018 15:32:23
Не срабатывает условие фильтрации символов при TextBox_KeyPress
 
Добрый день. Делаю форму ручного ввода номера столбца юзером. Хочу сделать фильтрацию по вводимым значениям - либо номер столбца, либо его буквенное обозначение. Однако, при использовании формы он допускает ввод буквы и цифры (например a1) а потом и вовсе игнорирует длину текста. Полагаю, что игнорируется условие
Код
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) And Len(TextBox.Text) <= 3 Then
Однако, при ручной отладке это условие срабатывает и цифры не допускаются, а при обычной работе макроса - игнор. Заранее благодарю за помощь.
Проверить ячейку на ошибку или пустоту или равенство нулю
 
День добрый.
Нужно проверить ячейку на ошибку или пустоту или равенство нулю. Как можно обойти такую проблему - если внутри формулы ИЛИ одно из значений ошибка, то вся формула в результате выдаст ошибку. Если в A1 - ошибка, то в формуле ЕСЛИ(ИЛИ(ЕСЛИОШИБКА(A1);A1="";A1=0);0;1) первое условие - истина, а оставшиеся 2 - #НД.
Заранее спасибо.
Скачивание файла из интернета по ссылке макросом
 
День добрый, профессионалы.
Есть макрос генерирующий ссылку на скачивание файла (пример). Но я никак не могу дойти до того как скачивать этот файл в папку с файлом, в котором исполняется макрос, использовать и удалять. Пробовал реализовать через iexplorer - не получилось решить проблему диалога с "сохранить как". Подскажите, пожалуйста, как решить эту проблему? Спасибо.
RunTime Error 9 в цикле по фигурам на листе
 
День добрый.
Имеется лист с набором фигур с именами типа "fig_####" или "desc_####" (четыре цифры в конце могут совпадать) и массив по пользовательскому типу.
Необходимо чтобы при дублировании четырех конечных цифр и при наличии фигуры с префиксом "desc*" параметр HasDescription был True, при отсутствии фигуры с таким префиксом, соответственно, False.
Соорудил такой цикл, но на предпоследнюю строку компилятор ругается RunTime Error 9.
Подскажите, пожалуйста, в чем может быть проблема? Спасибо.

Код
    ReDim arrFigures(0) As Figure
    i = 0   
    For Each Shape In sh.Shapes
        If Shape.Name Like "fig*" Then
            ReDim Preserve arrFigures(i)
            arrFigures(i).Name = Shape.Name
            arrFigures(i).HasDescription = False
            i = i + 1
        End If
        If Shape.Name Like "desc*" Then arrFigures(i).HasDescription = True
    Next Shape
Сопоставление текста по различным маскам
 
Утро доброе, профессионалы.

Есть такая задача: Необходимо произвести сопоставление элементов из разных документов, в которых коды этих элементов записаны по-разному или даже совмещены.
Например, код 01-PB-01/02 содержит 2 кода: 01-PB-01 и 01-PB-02. или 01PB20/10PR30 это 01PB20 и 10PR30.
Соответственно нужно разобрать коды и сличить их, например 10PR30 = 10-PR-30.

Пример - в прикрепленном файле.
Спасибо!
Разбиение недельного итога по месяцам
 
Утро доброе, профессионалы.

Прошу помочь со следующей проблемой: Необходимо из таблицы со значениями на конец недели наполнять таблицу с суммой за месяц.
Ограничения: в неделе 6 рабочих дней.
Допущения: значения за неделю равномерно распределяются по дням (знач.день = знач.нед/6).

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

Спасибо.
Сравнение дат по месяцу
 
Добрый день.

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

Прошу Вас помочь мне со следующей задачкой:

Есть таблица со различными лотами, которые состоят из различных позиций, которые, в свою очередь, имеют различные версии (Плановые значения, Значения после корректировок, Фактические значения).
Необходимо просуммировать текущую стоимость всех позиций по всем лотам по принципу: Суммирование по факту (если он есть по позиции) - Суммирование по последней корректировке - Суммирование по плану (если нет корректировок).

MS Office '10. Пример во вложении. Заранее спасибо за помощь.
Страницы: 1
Наверх