Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Vitalee
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Подсчет заданного кол-ва рабочих дней от даты в Power Query
 
#
19.02.2021 10:10:08
Шаманство, прям какое-то: без танцев с бубнами до истины не докопаться.
Еще раз огромное спасибо!
Остался маленький момент - на портале открытых данных с 2019 года не обновлялись справочники производственных календарей. может кто-то подскажет другой ресурс?
 
Перейти    
Подсчет заданного кол-ва рабочих дней от даты в Power Query
 
#
19.02.2021 04:16:40
Спасибо, PooHkrd, да, это то что нужно. Очень выручили.
перечитал 3 раза описание Table.ReplaceValue на MicrosoftDocs и так и не понял: как она сработала в данном случае.
больше всего вопросов вызвала интерпретация четвертого аргумента  (replacer function)
Код
(a,b,c)=>List.Difference( List.Select(a,(x)=> Date.DayOfWeek(x)>5),Праздники){b-1},
 
Перейти    
Подсчет заданного кол-ва рабочих дней от даты в Power Query
 
#
18.02.2021 15:55:44
PooHkrd, я бы хотел понять как во второй параметр функции Table.TransformColumns (table, transformOperations, ...)
передать значение из самой таблицы table, чью колонку данная функция преобразует

В итоге функция Table.TransformColumns для каждой записи таблицы table развернула бы свой элемент из списка дат
Изменено: Vitalee - 18.02.2021 16:18:43
 
Перейти    
Подсчет заданного кол-ва рабочих дней от даты в Power Query
 
#
18.02.2021 10:35:26
Цитата
PooHkrd написал:
от получившегося списка забираете первый его элемент либо через прямую ссылку {0}, либо через List.First().
очень актуальная для меня  тема.
Как быть если во вновь образованном списке рабочих дней, начинающихся с определенной даты нужно выбрать не первый а заданный числом в отдельном столбце таблицы (см. пример)
Изменено: Vitalee - 18.02.2021 10:58:52
 
Перейти    
Переключение в режим конструктора вырубает excel
 
#
02.02.2021 15:44:07
Цитата
Дмитрий(The_Prist) Щербаков написал:
Не в момент выполнения кода, случаем?
нет. просто загружаешь файл нажимаешь "режим конструктора" и привет  Excel вырубается.
такая же ситуация происходит если в процесс отладки с подсвеченной желтой строкой в коде нажать "стоп"
 
Перейти    
Переключение в режим конструктора вырубает excel
 
#
02.02.2021 12:14:03
компиляция проекта не помогает. на одном из двух ПК продолжает вышибать Excel при попытке переключиться в "Режим конструктора"
 
Перейти    
Переключение в режим конструктора вырубает excel
 
#
02.02.2021 11:28:43
Цитата
Дмитрий(The_Prist) Щербаков написал:
Попробуйте компилировать проект после любых изменений
а если нет Visual studio - код пишется через MS visual basic for applications?
 
Перейти    
Переключение в режим конструктора вырубает excel
 
#
02.02.2021 11:18:51
Цитата
Дмитрий(The_Prist) Щербаков написал: а нет там таких кодов, которые так же меняют сам VBA код?
вроде нет.
приложил кусочек рабочей формы на листе "перемещение" пользователь может задать в желтых ячейках поиск номенклатуры по ключевому слову и код ячейки.

изменение желтых ячеек запускает процессы обновления данных в таблице (через запросы Power Query)
ссылка на файл пример

Цитата
Дмитрий(The_Prist) Щербаков написал: Попробуйте компилировать проект после любых изменений
а если нет Visual studio - код пишется через MS visual basic for applications?
Изменено: Vitalee - 02.02.2021 11:34:50
 
Перейти    
Переключение в режим конструктора вырубает excel
 
#
02.02.2021 06:34:00
Здравствуйте!
Не уловил момента когда такое произошло, но в процессе написания кода для Excel в VBA
в режиме отладчика Excel стал самопроизвольно закрываться.

не подскажете из-за чего это может происходить?
ошибка происходит при включении "режима конструктора" или после завершения процесса отладки (по кнопке "остановить выполнение макроса").

Сам файл пока не выкладываю. Надеюсь кто-то подскажет на что нужно обратить внимание и смогу разобраться самостоятельно.
пока попробую по шагам откатить код до предыдущих версий чтобы понять когда ошибка исчезнет.
в файле есть:
несколько листов реагирующих на изменение ячеек
3 UserForms
3 подключения к внешним данным
15 обработчиков запросов PowerQuery

в журнале событий генерируется следующая запись:
Имя журнала:   Application
Источник:      Application ErrorДата:          02.02.2021 13:58:05
Код события:   1000
Категория задачи:(100)
Уровень:       Ошибка
Ключевые слова:Классический
Пользователь:  Н/Д
Компьютер:     .....
Описание:
Имя сбойного приложения: EXCEL.EXE, версия: 16.0.12527.21416, метка времени: 0x5fc53649
Имя сбойного модуля: VBE7.DLL, версия: 0.0.0.0, метка времени: 0x5f512666
Код исключения: 0xc0000005
Смещение ошибки: 0x00000000002c3bbf
Идентификатор сбойного процесса: 0x385c
Время запуска сбойного приложения: 0x01d6f91feedd9d00
Путь сбойного приложения: C:\Program Files\Microsoft Office\Root\Office16\EXCEL.EXE
Путь сбойного модуля: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL
Идентификатор отчета: 8c5a8f46-32c4-4675-97b6-3f81fd30e791
Полное имя сбойного пакета:
Код приложения, связанного со сбойным пакетом:
Xml события:

Код
<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">
  <System>
    <Provider Name="Application Error" />
    <EventID Qualifiers="0">1000</EventID>
    <Level>2</Level>
    <Task>100</Task>
    <Keywords>0x80000000000000</Keywords>
    <TimeCreated SystemTime="2021-02-02T04:58:05.193770800Z" />
    <EventRecordID>54940</EventRecordID>
    <Channel>Application</Channel>
    <Computer>......</Computer>
    <Security />
  </System>
  <EventData>
    <Data>EXCEL.EXE</Data>
    <Data>16.0.12527.21416</Data>
    <Data>5fc53649</Data>
    <Data>VBE7.DLL</Data>
    <Data>0.0.0.0</Data>
    <Data>5f512666</Data>
    <Data>c0000005</Data>
    <Data>00000000002c3bbf</Data>
    <Data>385c</Data>
    <Data>01d6f91feedd9d00</Data>
    <Data>C:\Program Files\Microsoft Office\Root\Office16\EXCEL.EXE</Data>
    <Data>C:\Program Files\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL</Data>
    <Data>8c5a8f46-32c4-4675-97b6-3f81fd30e791</Data>
    <Data>
    </Data>
    <Data>
    </Data>
  </EventData>
</Event>

P.S. с другого компьютера использование файла ошибок не вызывает.

 
Перейти    
длинный Caption не влезает в CommandButton или я чего-то не знаю
 
#
30.01.2021 15:07:02
Цитата
sokol92 написал: ряд элементов управления размещен за правой видимой границей формы.
Если вы про элементы "Frame"  то так и задумано (они открываются по кнопке)
 
Перейти    
длинный Caption не влезает в CommandButton или я чего-то не знаю
 
#
30.01.2021 03:10:42
sokol92,файл загрузил.
хоть и удалось победить самостоятельно но понять бы хотелось: почему видимая часть текста кнопки сильно меньше габаритов самой кнопки.
а при декларировании CommandButton.Caption как текст & chr (13) видимая область текста кнопки меняется ?

в приложенном примере кнопка-переключатель (13/32) заменяет commandButton8.Caption на текст с Chr(13) и Chr(32) соответственно.
Думаю, что секрет кроется в хитростях свойства .Zoom но это не точно .
Может кто-то уже разбирался или знает точно в чем проблема.
Изменено: Vitalee - 30.01.2021 04:09:51
 
Перейти    
длинный Caption не влезает в CommandButton или я чего-то не знаю
 
#
29.01.2021 13:43:26
Как ни странно, задавать caption через составной текст с применением Chr(13) помогло решить проблему.
так и надо или есть более разумный способ?
Код
 CommandButton8.Caption = "Раскрыть" & Chr(13) & "схемы" & Chr(13) & "помещений"
Изменено: Vitalee - 30.01.2021 04:10:19
 
Перейти    
длинный Caption не влезает в CommandButton или я чего-то не знаю
 
#
29.01.2021 13:30:50
Нужно на кнопку вывести текст в три строчки (см. скриншот) визуально в форме третья строчка почему-то обрезается.
Это можно как-то побороть?

p.s. расширять форму/кнопку не желательно . Справа по нажатию кнопки раскрывается картинка со схемами.
 
Перейти    
Как объект Shape преобразовать в фоновую картинку Chart или Frame
 
#
29.01.2021 10:40:52
Все что удалось найти и выяснить - это то, что в картинку из Excel можно сохранить только объект Chart
Насколько я смог разобраться, кроме как .Copy .Paste вставить картинку нельзя. Или все-таки можно?

В видео показан способ выгрузки картинки через этот самый Chart.
Почему в Excel VBA нет возможности применять метод Export или SaveAsPicture к другим объектам листа (кроме Chart) для меня остается загадкой.
 
Перейти    
В UserForm вставить картинку Image, нарисованую в пэинд
 
#
29.01.2021 08:12:37
https://youtu.be/zZmG4u_z8mQ
Все что удалось найти и выяснить это то, что в картинку из Excel можно сохранить только объект Chart
В видео, по ссылке выше, показан способ выгрузки картинки через этот самый Chart.

Почему в Excel VBA нет возможности применять метод Export или SaveAsPicture к другим объектам листа (кроме Chart) для меня остается загадкой.
 
Перейти    
В UserForm вставить картинку Image, нарисованую в пэинд
 
#
29.01.2021 04:05:01
В продолжении темы: а можно ли вместо картинки на диске вставить ссылку на рисунок связанный с ячейками или диаграммой из файла?
 
Перейти    
адрес полученный методом .address из VBA не воспринимается как ссылка в формулах EXCEL
 
#
26.01.2021 09:28:46
спасибо. разобрался. день прожил, узнав что-то новое. и это здорово.
 
Перейти    
адрес полученный методом .address из VBA не воспринимается как ссылка в формулах EXCEL
 
#
26.01.2021 09:04:00
Цитата
Дмитрий(The_Prist) Щербаков написал:
= ЯЧЕЙКА("адрес";getAddress(1,A1:D15); "obj")
а вот с этого места по подробнее хотелось бы.
разве у функции ЯЧЕЙКА есть третий аргумент?
 
Перейти    
адрес полученный методом .address из VBA не воспринимается как ссылка в формулах EXCEL
 
#
26.01.2021 08:57:26
неплохое начало. Ігор Гончаренко. и самое смешное что вы правы.

исходный файл очень большой, при подготовке фрагмента файла понял глупость своего вопроса.
функция getAddress возвращает текст
для преобразования текстовой ссылки в аргумент "ссылка" ее  нужно "заворачивать" в функцию ДВССЫЛ.

тогда все работает.
p.s. файл загрузил , может еще в чем-то покритикуете.  
Изменено: Vitalee - 26.01.2021 09:02:51
 
Перейти    
адрес полученный методом .address из VBA не воспринимается как ссылка в формулах EXCEL
 
#
26.01.2021 06:23:59
Добрый день. Подскажите пожалуйста, почему адрес ячейки найденный через функцию VBA методом .Address нельзя применить в качестве аргумента "ссылка" в функциях Excel&
пример :
функция возвращает адрес ячейки диапазона, соответствующего значению
Цитата
Function getAddress(sv As Integer, r As Range) As String

For Each Item In r
If Item.Value = sv Then getAddress = Item.Address: Exit Function
Next Item

End Function
в EXCEL
функция = ДВССЫЛ(getAddress(1,A1:D15))  работает
а функция = ЯЧЕЙКА("адрес";getAddress(1,A1:D15)) возвращает #ЗНАЧ

в чем разница между двумя аргументами
ДВССЫЛ(ссылка_на_текст;[a1])
и
ЯЧЕЙКА(тип_сведений;[ссылка])
 
Перейти    
Зависание Excel при копировании ячейки, проблемы работы больших файлов
 
#
11.11.2019 07:16:34
У меня были подозрения на глюк из-за анимации.

kruks001, спасибо за подсказку.

Респект за изыскания, Alshanskiy p.s. удивительно вопрос 2014 года до сих пор актуален
 
Перейти    
Страницы: 1
Наверх