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

Страницы: 1 2 След.
Блокировка сайтом при PQ запросе
 
Здравствуйте.

Пытаюсь набить руку в PQ, пробую web ipmort. Обращаюсь к тестируемому ресурсу, видно, что он подгружает несколько строк, а потом ошибка Expression.Error: Доступ к ресурсу запрещен.
Если брать малое кол-во строк обращения, то всё норм, а как применяю функцию к 8000 страницам, такая ошибка.
Это защита сайта? И это можно обойти?

Спасибо.

P.S.: Сайт это каталог фильмов
Дублирование запроса PQ при создании сводной
 
Всем доброго.

Создал запрос PQ, сохранил его в подключение. Затем выбираю построить сводную по подключению, и при построении существующий запрос дублируется.
Кто знает почему? Баг?
Офис 365.
Развернуть даты в PQ/Power pivot (автокалендарь + интревальный просмотр ВПР)
 
Всем доброго дня.

Есть таблица, где указана дата цены и цена, которая действует до начала новой даты цены (например, первая цена 01.01.19г, вторая цена 01.02.19г. соответственно первая цена действует месяц).
И есть таблица автокалендарь.
В какую сторону копать, чтоб к каждой дате автокалендаря соответствовала цена, которая относится к промежутку между ценами (что-то типа интервального просмотра ВПР, но уверен в DAX или PQ что-то другое должно быть)?
Т.е. к 02-31.01.19г. должна подтянуться цена от 01.01.19г.

Спасибо.

Ковырял файл, но не получилось. Во вложении.
Горячая клавиша на ячейку с гиперссылкой
 
Всем доброго дня.

Подскажите, пожалуйста, можно ли назначить горячую клавишу на открытие гиперссылки в книге эксель, если находишься на ячейке, где эта гиперссылка (т.е. встал на ячейку с гиперссылкой, нажал горячую клавишу и файл по ссылке открылся)? Или тут макрос нужен?
Спасибо.
Открытие pdf ссылки из экселя программой по умолчанию
 
Всем доброго дня.

Acrobat Reader по умолчанию настроен в windows как программа для открытия pdf файлов. В книге эксель есть гиперссылка на pdf файл, при клике на неё pdf файл открывается иной программой для просмотра pdf (Nuance).
Как настроить, чтоб из экселя pdf файлы по ссылкам также бы открывались Acrobat Reader.
Спасибо.
Склеить разное количество строк в PQ
 
Всем доброго дня.
Имеется выписка в текстовом формате (прикреплена). У каждого документа имеется поле назначение платежа, но текст в нём разбивается на несколько строк.
Скрытый текст
                                                                                   
Возможно ли при помощи PQ на выходе получить такой вид (склеить текст из поля назначение платежа по каждому документу, с учётом, что строк текста в этом поле может быть разное количество ? И если можно, то небольшой ликбез.
Скрытый текст

Спасибо.
Прекращение работы макроса в 16 офисе, Перенёс макрос из 13 в 16 офис и макрос перестал работать
 
Всем доброго дня.

Есть небольшой макрос для вывода диалогового окна фильтра.
Код
Sub Fil()
    s = Application.Dialogs(xlDialogFilter).Show(ActiveCell.Column)
End Sub

Перенёс его в 16 офис (в 13 работал) и он перестал работать - окно вызывается, но после это выдаётся ошибка "Невозможно получить свойство Show класса Dialog".

Может кто подсказать как поправить код?

Спасибо.
Раскрытие уровней в сводной
 
Вот здесь, dimonovych озвучивал тему одновременного разворачивания полей с одинаковым названием, но в разных группах сводной (легче понять если посмотреть вложенный файл). Т.е. если мы разворачиваем по "+" "дед1" в группе "прабабушка1", то также "дед1" разворачивается в группе "прабабушка2".
Есть подозрение, но проверить не могу, что в 2016 версии такого не наблюдается. Может кто проверить в 2016?
Спасибо.
Работает ли функция "ПОДСТАВИТЬ" с массивом?
 
Всем, добрый день.

Подскажите, хотел соорудить такую формулу:
Код
=ПОДСТАВИТЬ(A1;ИНДЕКС(B1:B2;;);"")
т.е. чтобы функция в ячейке А1 меняла текст из ячеек B1:B2 на ничто, но не работает.
Попробовал на вскидку так:
Код
{=ПОДСТАВИТЬ(A1;ИНДЕКС(B1:B2;;);"")}
Тоже не хочет работать.

Функция ПОДСТАВИТЬ воспринимает массивы? Если да, то как правильно соорудить формулу?
Спасибо.
Изменено: Валерий Кузнецов - 09.06.2016 18:33:15
Баг или норма по промежуточным итогам в сводной?
 
Добрый день,

Прошу помощи. В прикреплённом файле есть две сводные (одинаковые по содержанию), только в верхней таблице промежуточный итог по полю "Валюта стоимости" по Договору №1 показывает сумму 6 500 000 000, хотя это сумма промежуточного итога по Договору №2. А промежуточный итог по Договору №2 не выводится.

Сделал аналогичную таблицу ниже, но с промежуточным итогом не в заголовке группы, а под группой. Там итоги правильно выводятся.

Вопрос: В верхней таблице это баг и неправильно выводится промежуточный итог или я что-то не понимаю.

Спасибо.
Почему replace не меняет "пробел и любое количество любых символов" на "ничто"?
 
Уважаемые форумчане, добрый день.
Голову сломал, почему этот код не меняет "пробел и любое количество любых символов" на "ничто"
Код
Sub test()
ActiveCell = Replace(ActiveCell, " *", "")
End Sub
И как сделать что б менял?
Спасибо.
Подтянуть данные из другой закрытой книги при помощи VBA, замена функции ВПР
 
Уважаемы форумчане, прошу помочь.
Хотел написать функцию, которая бы, используя аргумент Дату, возвращала бы курс на эту дату, найденный через ВПР в другой закрытой книге.
Если сделать такую функцию, которая бы работала бы внутри книги, то получилось, а как правильно написать функцию, что бы она ВПР-ла эту дату в другой закрытой книги? Полагаю, что адрес как-то неправильно указываю.
Код
Function Курс(value)
Курс = WorksheetFunction.VLookup(value, ActiveSheet.Range("A1:B10000"), 2, 0) ' внутри книги работает
'Курс = WorksheetFunction.VLookup(value, "'\\192.168.115.246\finance\[Курс.xlsm]Лист1'!$A:$B", 2, 0) ' в закрытой другой книге не работает
End Function
Макрос резервного сохранения в надстройке., Как через надстройку резервно сохранять файлы?
 
Здравствуйте, уважаемы форумчане.
Из приёмов на данном сайте скопировал код резервного сохранения и повесил его в модуль "Эта книга" как событие Workbook_BeforeClose.
А каким образом подобный код можно внедрить в надстройку, что бы в перспективе любой файл (который открывается с этой надстройкой) и не имея у себя в модуле книги это кода, активировал этот код и сохранялся перед закрытием.
Спасибо.
Метод Show из класса Dialog завершен неверно., Ошибка при выполнении макроса
 
Уважаемые форумчане, добрый день.
Прошу помочь, есть такой макрос с одной строкой:
Код
Application.Dialogs(xlDialogFilter).Show ActiveCell.Column
который вызывает диалоговое окно фильтра по текущему столбцу.
Если макрос запустить с открытым редактором VBE, то макрос работает (запускаю макрос, указываю значение, макрос фильтрует строки).
Но если редактор закрыт, выдается ошибка "Метод Show из класса Dialog завершен неверно."
Как побороть?
Спасибо.
Вызов выпадающего меню фильтра (в умной таблице) по горячей клавише
 
Здравствуйте, уважаемые форумчане.

Выпадающее меню фильтра вызывается кликаньем на иконку с треугольником в шапке столбца. Как можно вызвать аналогичное выпадающее меню горячей клавишей, стоя на какой либо ячейке?
Попытался макрорекордером, но он ничего не записал.


Как через VBA это выпадающее меню вызывается?
Спасибо.
Узнать индекс RowFields, у которого Position = 1
 
Не освоил пока объектную модель и концепцию коллекций и потому не могу понять, как в ВБА узнать индекс RowFields, у которого Position = 1.
"Логика" подталкивала к такому коду  :) , но он не рабочий:
y = Position(1).ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).RowFields
Прошу подсказать.
Спасибо.
Подсказать по Rowfields в сводной, Сворачивание сводной по Rowfields
 
Здравствуйте, уважаемые форумчане.

Сворачиваю сводную которая имеет 5 уровней вложенностей такой вот строкой
ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).RowFields(1).ShowDetail = False
В итоге сворачивает до первой строки.
Но если первый (самый верхний) уровень вложенности делаю третьим в сводной, то у него индекс RowFields не меняется на 3, а так и остается 1.
Если я правильно понял, то RowFields не номер вложенности строки, а номер уроня в исходнике сводной.
Как обратиться к сводной (без привязки к имени поля которое нужно свернуть), что бы она свернулась, допустим, до самого верхнего уровня?
Приложил файл, где первый лист И1 самый верхний уровень и имеет RowFields(1), на втором листе смещаю И1 в середину вложенности, но он все равно имеет RowFields(1) и в данном случае сворачивает до 3-го уровня.
Прошу прощения, если криво пояснил.
Найти максимальное значение (помощь в освоении темы массивов)
 
Здравствуйте, уважаемые участники.
Сложная для меня тема формулы массивов и пока не могу разобраться. Прошу помочь.
Например, думал, что вот такая формула {=МАКС(ИНДЕКС(R37:R39;СТРОКА(R1:R3)))} должна вернуть наибольшее из значений которые указаны в диапазоне R37:R39. Но это не так. А как правильно? Где мой подход в работе с массивом не верен?
Спасибо.
Изменено: Валерий Кузнецов - 01.10.2014 13:08:51
Смоделировать расчёт начисления процентов ананалогично банковскому
 
Всем доброго дня.

Файл прикрепил. Прошу помочь. Если вкретце описать, то проблема следующая:
Делаю расчёт начисления процентов за каждый день периода, а потом складываю, банк за аналогичный период рассчитывает иначе - начисляет не за каждый день, а за период когда действовала одна и таже ставка и была одна и таже задолженность в этот период, например, 3 дня по 10 млн. по 6% + 2 дня по 11 млн. по 7% и т.д. и каждую сумму округялет до 2 знаков после запятой. В итоге есть разница начисленных процентов по моему расчёту по бо банковскому. Как формулой смоделировать расчёт начисления процентов, за базу взяв мою таблицу? Сам пытался решить (внутри файла описал, что думал), но т.к., думаю, формула получится трёхэтажной и массивно, то голова поломалась. Буду рад, если кто сможет помочь.
Поиск значения в массиве (как в 1С)
 
Здравствуйте, уважаемые форумчане.

В 1С есть такая опция (не знаю как называется): многомерный массив (например список сотрудников по фио, должности, дате принятия и т.д.), находясь в любом столбце (например, ФИО), на клавиатуре набираешь Иванов и курсор сам подбирается ко всем Ивановым. Можно ли такое реализовать (не дюже сложным способом) через VBA? Представляю по такому приблизительному принципу (извиняюсь за дилетанизм): макрос отключает ввод в ячейку (ведь мы находимся на любой из ячеек массива) и перехватывает набор нажатых клавиш и перебрасывает к ближайшему вниз подходящему значению в данном столбце. Набрали "и" подвёл курсор к ближайшейму снизу значению, которое начинается с "и", набрали "ив", курсор подвёлся к ближайшему снизу значению, которое начинается с "ив",
Спасибо.
П.С.: поиском не нашел подобных тем (хотя возникли затруднения как запрос задать).
Изменено: Валерий Кузнецов - 02.09.2014 15:13:09
Макрос сворачивания всех полей Сводной, Отделить строки от колонн
 
Здравствуйте, уважаемые форумчане.
Два вопроса, но близких - по одной теме. (один вопрос модератор уже удалил, так что уже один вопрос  :)  )
Имеется код, который сворачивает все поля Сводной.

Код
Sub CollapseAll()
 For Each PivotTable In ActiveSheet.PivotTables
     For Each PivotField In PivotTable.PivotFields
      On Error Resume Next
      PivotField.ShowDetail = False
     Next PivotField
 Next PivotTable
End Sub



Как его изменить, что бы он сворачивал только строки? Ведь что строки, что колонны в VBA называются PivotFields.

Спасибо.
Вопросы по сводной, но это не значит, что все в одну тему [МОДЕРАТОР]
Изменено: Валерий Кузнецов - 29.08.2014 13:13:17
Импорт данных из Интернет (при отсутствии таблиц для импорта).
 
Здравствуйте.

Прошу прощения, что тема косвенно относится к Экселю. Но так как привых с ним рабтать, то и реализация идей видится через него.
Иногда приходится "пасти" (ждать появления) определенные билеты на сайте РЖД. Обновлять страницу запроса сайта муторно и нудно, хотелось бы создать запрос в Экселе, который обновляется через определенный период (загружая новые данные на лист) и проверя, не появились ли билеты, соответствующие определенным требованиям.
Но увы, данные о билетах на поезда выводятся на сайте РЖД в формате, который нельзя импотировать в Эксель (толи Ява, толи Флеш не знаю)
Вот пример запроса на сайте РЖД

Подскажите, можно ли это (пасти билеты на сайте РЖД посредством Экселя) реализовать? Если да, то в каком направлении копать? что изучать?
Спасибо.
Ограничение создаваемых списков сортировки/заполнения.
 
Всем доброго предпраздничного дня.

Это скорее не вопрос, а вопрос-размышление.

Для создания списков сортировки/заполнения вручную имеется ограничение, что такой список не должен быть больше 255 символов, однако если такие списки создавать через Импорт из данных в ячейках("Параметры"-"Дополнительно"), то заметил что такие списки имеют иные ограничения, а именно: не более 1000 элементов или не более 1924 символов (по крайней мере мне такие числа удалось получить).
1. Почему такая разница между созданием списков вручную и импортом? (по кол-ву символов).
2. И ограничение в 1000 элементов и 1924 символов, путём создания импорта, это где-то описано в техдокументации? :)
3. Можно ли обойти это ограничение?
4. Данные списки, я так понимаю, не принимают маски? (б*, а*)
Разделитель функции split
 
Два вопроса по функции split:
1. Как для данной функции указать, что разделитель это любая цифра?  (Насколько я понял символ решётки # применим только к функции Like)
2. Split уничтожает разделитель в обрабатываемом фрагменте, т.е. если "Мама,папа" и разделитель запятая "," - то функция вернёт "Мама" "папа", так вот: как сделать (возможно есть функция аналог), что б разделение шло после или до выбранного разделителя, что б в итоге из "Мама,папа", указывая разделитель запятая "," можно было получить "Мама," "папа" или "Мама" ",папа"? (что б разделитель не уничтожался).
Спасибо.
Обращение к сводной через VBA, Возможно ли в VBA обращаться к сводной через "tablename"?
 
Здравствуйте.
При обращении к сводной таблице (в частности к фильтру), макрорекордер записывает обращение, включающее имя листа, на котором находится сводная:
Код
 Worksheets("4").PivotTables("Рекл").PivotFields("Дата").CurrentPage

А возможно ли обращение в VBA к сводной через такой параметр сводной, как "tablename", без указания листа?
И еще параллельный вопрос, "Имя сводной таблицы" разве не относится к категории именованных диапазонов? (т.е. почему в диспетчере имен нет имен сводных таблиц?)
Буду рад, если подскажите. И если вопрос дюже дилетантский, то прошу извинить :)
Изменено: Валерий Кузнецов - 21.03.2014 20:40:50
Программно задать ячейке условное форматирование с соседней
 
Здравствуйте, Уважаемые форумчане.
Сейчас пользуюсь циклом, который копирует УФ ячейки и как специальную вставку (форматирование) вставляет на другую ячейку. Понимаю, что коряво написано. Как это можно реализовать по такому принципу:
Cells(i, t).FormatConditions = Cells(1, 1).FormatConditions (код не рабочий, для понятийности).
Понимаю, что это как-то надо через Add реализовать, но не знаю как и найти не получается.
Спасибо.
Программно переходить к следующему значению фильтра.
 
Здравствуйте, гуру.

В прикреплённом файле активен фильтр по значению 01.01.13. Что бы перейти к следующему значению в фильтре (02.01.13) необходимо войти в фильтр, деактивировать 1-ое число, и активировать 2-ое. А возможно ли программно листать значения фильтра, переходя к следующему значению? Если это возможно, то подскажиите в каком направлении копать (объекты, свойства, методы).
Спасибо.
Определение века Экселем
 
Уважаемые планетяне, подскажите.

По какому критерию Эксель определяет:
если ввести в ячейку "01.05.29", то он определяет это как "01.05.2029",
а если ввести - "01.05.30", то определяет как "01.05.1930"?

Спасибо.
Изменено: Валерий Кузнецов - 25.09.2013 23:52:01
Копирование условного форматирования
 
Здавствуйте, уважаемые форумчане.  
 
Прочитал форум на тему копирования условного форматирования, нашёл темы, но решения, вроде и нет.  
Эксель 2007  
 
Имеется условное форматирование на основании значений ячеек.  
Пытаюсь скопировать условное форматирование с ячейки A1 на ячейку B1 и далее (включая копирование - специальная вставка - формат). Копирует своеобразно, не так как надо мне. Причина абсолютная ссылка на значение в условном форматировании. На относительную ссылку её эксель поменять не хочет, ругается.  
Неужели надо для каждой ячейки вручную прописывать условное форматирование?  
Признателен за помощь.  
Прикреплён пример.
Вставить макросом из буфера обмена.
 
Здравствуйте, уважаемые знатоки Экселя и VBA.  
 
Прочитал на форуме, что буфер обмена при запуске макроса буфер опустошается. Подскажите пожалуйста код макроса (если это теоретически предусмотрено), что б при запуске макроса (!в котором не прописано откуда копировать и куда вставлять) в выбранную ячейку вставлялось то, что было скопированно в буфер обмена до запуска макроса. Спасибо.
Страницы: 1 2 След.
Наверх