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

Страницы: 1
Макрос для SQL зароса в excel, Не работает макрос для выведение результата sql запроса в ячейку excel
 
Здравствуйте уважаемые формучане, в файле примера, при его запуске вылезает форма, которая позволяет выбрать месяц и год и на основе этих данных получить отчет на листе эксель, но при работе выдает ошибку "1004 синтаксическая ошибка sql" и ругается на строчку .refresh backgroundquery:=false. Кто может подсказать в чем может быть проблема, и может быть в принципе мой способ получение sql запроса не оптимальный.

Для полной картины сылку на БД прилагаю https://drive.google.com/open?id=1gIAo0VNcMoir5Dzg7zNzR_-UQhaLAVYp
Подсчет количества ячеек подходящих под шаблон
 
Здравствуйте уважаемый формучане. Есть задача подсчитать количество ячеек подходящих под шаблон, например:
123
213
123
123
213
1
Для это таблице функция должна выдать 5, если шаблон ### (любые числа). Для этого написал небольшой макрос, но почему-то он не выдает ошибок в работе, но всегда выдает ЗНАЧ.
P.s. Существует ли способ используя функцию СЧЁТЕСЛИ решить аналогичную задачу? По определенному значению, только пустые или только заполненные, она позволяет посчитать, может и шаблон тоже возможно подсчитать с ее помощью?
Код макроса:
Код
Function ТЕКСТКАК1(text As Range, patter As String) As Boolean
Dim I, arr, S
arr = Intersect(text, text.Parent.UsedRange).Value
    For I = 1 To UBound(arr)
        If arr(I, 1) Like patter Then
        I = I + 1
        End If
        Next
            ТЕКСТКАК1 = I - 1
End Function
Изменено: FastPuppy - 05.02.2018 09:07:11 (Добавил файл примера и исправил код в соответствии с комментариями)
Перенос текстовых значений из диапазона ячеейк в ячейку
 
Здравствуйте, уважаемые форумчане!

В ходе работы над таблицей встала следующая задача, на листе БД, есть поле брак и мне нужно, что б все текстовые значения поля брак, через запятую переносились в ячейку F5 листа УЧАСТОК(если они посимвольно повторяются, то было б круто если б писалось "Брак - 2 шт."), с теме же условиями проверки, как и для ячейки C5 того же листа. То есть, что б значения брались только из диапазона ограниченного столбцами ТИП и Эксп, листа БД. и месяцев при выборе его из выпадающего списка. Можно ли эту задачу решить стандартными средствами excel? Если нету, то прошу посильной помощи в создании пользовательской функции.

Ps Динамический список с автоматическим добавлением месяцев по мере заполнения листа БД работает, просто через костыль, который раздувает файл до 5 мегабайт веса, так что в примере это удалил.
Перестало работать автозаполнение формул по двойному клику
 
Здравствуйте, уважаемые форумчане. Столкнулся с следующей проблемой в данном файле на листе "лист1" столбец А был заполнен формулами(=ЕСЛИ(СЧЁТЗ('Участок № 491 БД'!C3);ТЕКСТ('Участок № 491 БД'!C3;"ММММ ГГГГ");"")) до конца, а потом с помощью удалить дубликаты оставались только уникальные значения. Так вот еще вчера все работало как надо, но почему-то сегодня данный столбец ( а нужен он для динамического списка) перестал работать как надо, функция мгновенное заполнение не хочет работать ни в каком виде (двойной клик по крестику или через работу с данными). Файл по каким-то непонятным причинам раздуло до размеров в 5 мегабайт, по этому делюсь им через гугл диск https://drive.google.com/open?id=1nt1TxQjJQPdts5o8ljGdjilgnrY9Jlz-
Составить динамический диапазон из списка дат на месяц
 
Здравствуйте, уважаемые форумчани. В файле примера стоит след задача, есть лист БД и есть лист отчета. Скажите каким образом можно "перенести" фильтр по месяцам в выпадающий список на листе отчета? То есть, что б пользователь выбрал январь например и отныне все формулы в таблице отчета обсчитывали только таблицу с фильтром на январь в столбце дата поступления. Если резюмировать, то как мне возможно фильтр (и обсчет с учетом фильтра) перенести в выпадающий список. Как применить ИНДЕКС или СМЕЩ в данном контексте не в полной мере понял. Отдельной функции ФИЛЬТР к сожалению не нашел. Надеюсь правильно сформулировал свой вопрос, Заранее спасибо за помощь.
Изменено: FastPuppy - 22.12.2017 09:40:41
Страницы: 1
Наверх