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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 16 След.
Динамический график. Автоматическое изменение диапазона отображаемых данных.
 
Цитата
БМВ написал:
Примерно так
Спасибо. Уверен был, что вы легко щелкнете эту задачку )
Изменено: Сергей Евдокимов - 01.02.2024 07:57:05
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Динамический график. Автоматическое изменение диапазона отображаемых данных.
 
Всё, разобрался.
Дату нужно превратить в именованный диапазон. Размерность которого брать смещением от данных фактического веса.

Всем спасибо ))
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Динамический график. Автоматическое изменение диапазона отображаемых данных.
 
Здравствуйте, господа эксперты.

Вложением простой набор данных:  вес желаемый, вес фактический.

Как сделать,  чтобы при ежедневном внесении фактического веса  диапазон отображаемых данных в на графике сдвигался также на один день.  То есть чтобы план всегда опережал факт на неделю. Автоматически.

Возможно такое чудо ?

P/S/ Превентивно отмечу, что и у Николая, и у Дмитрия статьи про динамические графики-диаграммы смотрел.  Решение не нашёл.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Макрос - копирование значения ячеек в буфер обмена
 
Sanja, спасибо вам большое. Буду разбираться.
С наступающим !
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Макрос - копирование значения ячеек в буфер обмена
 
Здравствуйте, vba-гуру.

Как скопировать в буфер обмена Windows  содержимое двух несмежных ячеек,  без использования промежуточной ячейки для слияния ?
Пример вложением.

Ячейка А1: Иванов
Ячейка С3: Петя

Результат работы макроса: в буфере обмена Windows   "Иванов Петя"

Спасибо.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Макрос не подставляет имя файла при сохранении.
 
Цитата
БМВ написал:
предположу что заданный фильтр  *.xlsx блокирует
Спасибо за попытку, но не помогло.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Макрос не подставляет имя файла при сохранении.
 
Здравствуйте.
Собственно сабж, но точная причина в том, что имя файла содержит точку.
Часть кода:
Код
    
FName = "Бронь. Колбаса"
    FName = Application.GetSaveAsFilename(InitialFileName:=FName, _
        FileFilter:="Excel Files (*.xlsx), *.xlsx", _
        Title:="Выберите или введите имя файла для сохранения")
    If VarType(FName) <> vbBoolean Then ActiveWorkbook.SaveAs FName


Если между "Бронь" и "Колбаса" стоит точка, то имя  файлы по умолчанию в диалоговом окне не подставляется. Без точки - подставляется. Т.е. именно точка блокирует эту возможность.
Есть решение? Надо чтобы точка была, но не мешала.
Изменено: Сергей Евдокимов - 14.12.2023 07:37:05
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
vba Мониторинг директории в реальном времени, (починка кода)
 
Цитата
sokol92 написал:
Что-то изменилось?
Нет. Не изменилось. А сетевую папку подключил и проверил ещё до написания поста.

P/S/ Решение нашел. Ежели кому надо мониторить (хоть локально, хоть по сети), то можно использовать вот эту бесплатную прогу. Контролирует и появление, и изменения, и удаление файлов. Обо всём уведомляет и визуально, и аудио. Автозапускается. Висит в трее, есть не просит. В общем то, что дохтор прописал..
Изменено: Сергей Евдокимов - 27.09.2023 04:31:55
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
vba Мониторинг директории в реальном времени, (починка кода)
 
Цитата
Андрей VG написал:
Попробуйте вариант на "родственном" языке  VBScript: слежение за созданием файлов в указанном каталоге
Не знаете, сия программа по сети должна мониторить ?
А то что-то у меня локально работает, а сетевую папку не мониторит.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Замена всех встречающихся спецсиволов (\:*?"<>|/) формулой.
 
Здравствуйте, господа эксперты.

Есть текстовая ячейка, возможно, содержащая спесимволы (\:*?"<>|/).
Надо формулой узреть их наличие и при таковом заменить на, например, "-" (дефис).

Полученное значение используется в качестве имени файла, где спецсимволы недопустимы.

P/S/ Можно конечно многоэтажно "подставить", но хотелось бы красиво, как вы умеете )
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
VBA. Автофильтр по текущей дате.
 
Цитата
Sanja :
Так?
Да, похоже именно так.
Спасибо Вам большущее..
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
VBA. Автофильтр по текущей дате.
 
Всем доброго дня.

Подскажите, пожалуйста, господа VBA-эксперты, как установить автофильтр по ТЕКУЩЕЙ дате ?

Sub ПростоМакрос()
   ActiveSheet.Range("$A$1:$C$454").AutoFilter Field:=3, Operator:= xlFilterValues, Criteria2:=Array(2, "9/12/2023")
End Sub

То есть вместо красновыделенной конструкции должна стоять текущая дата.
Оператор date выводит дату в другом формате. Надо, видимо, как-то преобразовать. А как ?
Спасибо.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
VBA. Скопировать один в один видимую сроку при наличии скрытых столбцов и использовании автофильтра.
 
Цитата
Ігор Гончаренко написал:
самый правильный подход:файл-пример

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

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

Цитата
Ігор Гончаренко написал:
на данных файла обьясняете.. где результат
Вроде указал на старте.
"Есть строка, нужна точно такая же, со всеми данными, включая скрытые, но в конце таблицы"

Например, всё содержимое второй строки должно полностью продублироваться в шестую строку в тех же колонках, данные друг под другом.

P/S/
SAS888 вижу переносит циклом значение каждой ячейчи.
Это единственный возможный вариант ?
Изменено: Сергей Евдокимов - 26.07.2023 11:56:13
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
VBA. Скопировать один в один видимую сроку при наличии скрытых столбцов и использовании автофильтра.
 
evgeniygeo, это не то, ибо не решает проблему.
Надо чтобы копировались данные из ВСЕХ ячеек во ВСЕ ячейки. Т.е. так, словно никаких фильтров не стоит и скрытых столбцов нет.
ОДИН-В-ОДИН. Тупо дубль. Полный.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
VBA. Скопировать один в один видимую сроку при наличии скрытых столбцов и использовании автофильтра.
 
Здравствуйте.
Собственно тема, помогите.

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

Как сделать 100%-ый дубликат строки?
Спасибо
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Макрос копирования таблицы и вставки в письмо как картинки
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
Код прикладывайте полностью

Прикладываю, Дмитрий
Полностью не стал, много уж там лишнего. Очистил. Сейчас, вроде, останавливается код на нужной ошибке.
На вопрос  - ответ по умолчанию ("нет").
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Макрос копирования таблицы и вставки в письмо как картинки
 
Дмитрий, вложением часть вашего кода.
Работал более полугода. Исправно.
Вроде ничего не менялось, но вчера выдал ошибку.

Как понять причину ее появления, подскажите, плиз.

P/S/ или если Дмитрий не увидит, может кто другой даст совет как раскопать проблему и разрулить ситуацию ?


Цитата

Администратору: сорри (на берегу). Не знаю как сформулировать название для новой темы.  
Абстрактное "ошибка VBA" - ни о чем.
Изменено: Сергей Евдокимов - 11.11.2022 05:35:09
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Power Query. "Ключу не соответствует ни одна строка в таблице", Как нынче грамотные люди ищут источник ошибки ?
 
Цитата
написал:
Цитата
Сергей Евдокимов написал:
Я вообще про принцип. Как искать такие ошибки ? Чиво крутить, што жать ? (если дело не в запросе)
Если вы делаете загрузку однотипных файлов из папки с помощью функции, то на шаге добавления функции видно будет где ошибка.
Именно так и делаю. Где ошибка - вижу. А причину ее появления пронять/устранить - не могу.
_____________________________________________

Были файлы формата .xlsx  Все прекрасно работало.
Некоторые из них сохранил в формате .xlsb Появились ошибки.

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

Скрин ошибки


ДОПОЛНЕНИЕ: всё, помощи не надо. Ошибка пропала. Один в один переписал функцию, но на основе файла .xlsb
Код такой же. Странно.
Изменено: Сергей Евдокимов - 01.10.2022 06:34:02
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Развернуть формулой массивную запись для подсчета суммы из диапазона.
 
Цитата
написал:
А, понял. Сперва создаем трудности, потом их преодалеваем.
Вы совершенно правы, так и развиваемся ))
За идею спасибо. Толково! Сделал.

Behruz A.N., спасибо. Вижу работает. Осталось разобраться "как". Непростая формула у вас. Еще и с подменой запятых )

memo, спасибо. Решение ваше, если не ошибаюсь, немного не отвечает условию задачи (п.5), но суть понятна и это главное. А остальное - технические мелочи.
Изменено: Сергей Евдокимов - 24.08.2022 11:27:20
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Развернуть формулой массивную запись для подсчета суммы из диапазона.
 

Всем здравствуйте, господа эксперты.

1.       Есть исходные данные во вкладке «ИсходныеДанные»

2.       Название сметы есть всегда.

3.       Раздел сметы и сумма может быть, а может и не быть.

4.       Во вкладке «Итог» массивно-динамически создаю уникальную запись сметы и раздел сметы (при наличии)

5.       Обращаю внимание: если раздел сметы есть, то от названия он отделяется пробелом с запятой « ,». Причем это разделитель не уникальный,  может быть и в названии сметы (уникальным же разделителем является либо слово «раздел» либо «без раздела»)

Задача: во вкладке «Итог» получить формулой сумму в каждой строке.

Условия: без PQ, без VBA, без дополнительных столбцов и предварительных (где-либо) расчетов.

Имеет задача решение? Подкиньте хотя бы идею ))

P/S/ естественно, вся эта конструкция имеет гораздо большее количество строк/столбцов. Для удобства восприятия всё «лишнее» вырезал.

P/S/S/ Долго думал над названием темы. Не ругайте, пожалуйста, сильно, если не заходит формулировка. Согласен на любую )

Компьютер никогда не заменит человека (©️ Hannibal Lecter)
PQ. Взять значение из указанного столбца, но со сдвигом на одну строчку.
 
Михаил Л, спасибо, но, к сожалению, не могу прикрутить ваш код, т.к. не понимаю, что он делает. И не знаю как его вставить.
Вас не затруднит указать на ошибку в моей конструкции на скрине?  Вроде она, конструкция,  как у Дмитрия в статье. И мне понятна. Плюс ошибку не выдает и чего-то там даже считает. Правда уже 4-ый час )

P/S/ Ура, всё посчитала. 3 часа 10 минут. Жесть ))
Изменено: Сергей Евдокимов - 18.06.2022 16:41:37
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
PQ. Взять значение из указанного столбца, но со сдвигом на одну строчку.
 
Дмитрий, оказывается, уже разжевал.

Скажите, вот эта конструкция правильно написана же. Верно? Ничего, вроде, в ней криминального.
Конструкция

А обрабатывал её комп часа 1,5. Дальше я остановил процесс.
Отображались при этом какие-то десятки миллионов строк.
Откуда их вдруг такое количество? И почему так долго?

Скрытый текст
Изменено: Сергей Евдокимов - 18.06.2022 16:00:42
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
PQ. Взять значение из указанного столбца, но со сдвигом на одну строчку.
 
Всем доброго дня.
Помогите, плиз, с конструкцией в Power Query.


В приложенном файле написано, продублирую здесь:
Если значение в ячейке столбца "B" пусто (отсутствует), то установить в эту пустую ячейку значение из того же столбца "B", но из строчки ниже (напротив красной "Всего по позиции")

P/S/ Чем то похожая задача здесь была рассмотрена. Но никак не могу совместить их для решения.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Игнорировать ноль и пустые ячейки в СЧЁТЕСЛИ()
 
Круто. Всем спасибо.
Еще лет на 10 точно закрыли вопрос ))
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Игнорировать ноль и пустые ячейки в СЧЁТЕСЛИ()
 
Здравствуйте.

Сия тема есть, но она в архиве.
И решение там есть, но ему больше 10 лет.

Много воды утекло, может что полаконичней появилось вместо этого?
=СЧЁТЕСЛИ(A:A;">0")+СЧЁТЕСЛИ(A:A;"<0")
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Динамический массив выводит ноль вместо пустоты. А нужна пустота. Как ?
 
Цитата
RAN написал:
Для этого достаточно убрать крыж "Показывать нули..."
Знал, что такие советы будут ) Но они не подходят.
Там где в исходных данных нули - мне нужны именно нули. А там где пустота - нужна пустота.
Так бывает...
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Динамический массив выводит ноль вместо пустоты. А нужна пустота. Как ?
 
Цитата
Ігор Гончаренко написал:
т.е. не пусто там(((
Да. Это так. Но визуального отсутствия нолей там, где их быть не должно - мне было достаточно.

А как понять что там?
А то и ничего нет, и не пусто - противоречие какое-то )
Изменено: Сергей Евдокимов - 17.04.2022 14:07:53
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Динамический массив выводит ноль вместо пустоты. А нужна пустота. Как ?
 
БМВ, отлично! То, что доктор прописал. Спасибо!
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Динамический массив выводит ноль вместо пустоты. А нужна пустота. Как ?
 
Здравствуйте, господа эксперты.

Собственно сабж.
Как сделать, чтобы не подменял пустоту на ноль?
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Найти порядковый номер значимого элемента в массиве., (значимого = по условию)
 
БМВ, Спасибо.

P/S/ и спасибо вам за недавний ответ в теме про объявление глобальных переменных (не буду её поднимать). Я сначала так и не понял причину вашей рекомендации (про "END") пока самолично не столкнулся с этой проблемой. Столкнулся, проникся и усвоил. Так сказать, опытным путем ))
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 16 След.
Наверх