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

Страницы: 1 2 3 След.
Сдвинуты столбцы-диапазоны. Как совместить автоматически ?
 
#
15.05.2025 10:42:27
Всем доброго дня.

Есть данные, выгруженные из 1С. Помесячно. Количество столбцов от месяца к месяцу не совпадает. Они (данные в столбцах) соответственно, смещаются друг относительно друга. Нужно как-то совместить, добавив, как я понимаю, в некоторых месяцах пустые столбцы-диапазоны.

Интересует, например, столбец "Всего начислено". И все эти данные  должны быть в одном столбце. А сейчас от месяца к месяцу - они в разных.

P/S/ Про необходимость правильной выгрузки из 1С прошу не упоминать. Доступа к 1С не имею. Нужно решение именно средствами Excel, исходя из того, что уже дано. Спасибо.
Изменено: Сергей Евдокимов - 15.05.2025 10:43:57
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA. Передать звуковой сигнал на другой компьютер по сети. Как ?
 
#
11.06.2024 09:51:34
Здравствуйте.
Здесь описано как передать текстовое сообщение.
А как передачу текстового сообщения сопроводить ещё и звуковым сигналом ? Чтобы ещё что-нибудь пикнуло или заиграло при передаче сообщения.
Спасибо.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Динамический график. Автоматическое изменение диапазона отображаемых данных.
 
#
01.02.2024 05:57:40
Здравствуйте, господа эксперты.

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

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

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

P/S/ Превентивно отмечу, что и у Николая, и у Дмитрия статьи про динамические графики-диаграммы смотрел.  Решение не нашёл.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Замена всех встречающихся спецсиволов (\:*?"<>|/) формулой.
 
#
20.09.2023 05:53:42
Здравствуйте, господа эксперты.

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

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

P/S/ Можно конечно многоэтажно "подставить", но хотелось бы красиво, как вы умеете )
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA. Автофильтр по текущей дате.
 
#
12.09.2023 05:37:08
Всем доброго дня.

Подскажите, пожалуйста, господа 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. Скопировать один в один видимую сроку при наличии скрытых столбцов и использовании автофильтра.
 
#
26.07.2023 06:16:34
Здравствуйте.
Собственно тема, помогите.

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

Как сделать 100%-ый дубликат строки?
Спасибо
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Развернуть формулой массивную запись для подсчета суммы из диапазона.
 
#
24.08.2022 07:20:54

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

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

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

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

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

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

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

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

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

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

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

Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
PQ. Взять значение из указанного столбца, но со сдвигом на одну строчку.
 
#
18.06.2022 10:51:51
Всем доброго дня.
Помогите, плиз, с конструкцией в Power Query.


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

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

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

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

Собственно сабж.
Как сделать, чтобы не подменял пустоту на ноль?
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Найти порядковый номер значимого элемента в массиве., (значимого = по условию)
 
#
15.04.2022 05:44:14
Здравствуйте. Помогите, плиз, не соображу никак.

Ввожу формулу: =ПОИСК(C2;A1:A7)
Получаю такой результат: ={#ЗНАЧ!:#ЗНАЧ!:9:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!:#ЗНАЧ!}

Как формулой найти порядковый номер 9-ки ?

Скрин


Ну и сам файл, если нужен.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA. Как правильно объявить публичную переменную ?
 
#
11.04.2022 07:26:55
Здравствуйте, уважаемые эксперты.

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

1. Где её объявить ? В "Эта книга" ?
2. Как правильно ?

Сделал так, неверно.
Public ws As Worksheet
Set ws = ThisWorkbook.Worksheets("ИмяЛиста")

Пробовал еще всякие комбинации. Не нашел решения.
Заранее спасибо.
Изменено: Сергей Евдокимов - 11.04.2022 07:27:30
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Невыведение предупреждения про защищенный лист., Как заставить Excel не выводить ?
 
#
09.04.2022 16:51:43
Всем здрасте. Собственно сабж.
Само предупреждение

Не надо его выводить, еще и виндовый звук противный подавать. Если юзер тыкается куда не следует, то ничего не происходит.
Возможно ?
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA. BeforeDoubleClick. Как проверить соседнюю ячейку ?
 
#
09.04.2022 07:56:53
Здравствуйте, господа VBA-мастера.
Подскажите плиз, делаю даблклик, запускается реакция на сие событие и пошли действия...

Код
 If Not Intersect(Target, Range("N7:N100")) Is Nothing Then 
        If Target.Value = Chr(168) Then....

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

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

Т.е. кликаю, например, в ячейку левого столбца, как получить координату ячейки в правом ?
Изменено: Сергей Евдокимов - 09.04.2022 08:02:13
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
PQ. Настраиваемый столбец. Текст с новой строки. Как ?
 
#
26.03.2022 11:08:24
Здравствуйте, какой код вставить, чтобы продолжить с новой строки ?
Скрин
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Обновление PQ макросом. Как заставить его подождать результата обновления ?
 
#
24.03.2022 05:51:29
Здравствуйте, господа-PQ-VBA-эксперты.

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

Сейчас последующие действия делаю вторым макросом и запускаю его руками когда запрос обновиться.
Но кто нынче руками-то работает ? Работать надо головой ))

Как макросу указать, чтоб подождал ?


Код
 ActiveWorkbook.Connections("Запрос — Исходники").Refresh
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Найти номер строки, содержащий указанную подстроку, (для последующего формирования гиперссылки)
 
#
17.03.2022 06:08:10
Здравствуйте. Подскажите, плиз.

1. Есть уникальная подстрока (она же часть имени файла).
2. Есть диапазон с именами файлов и путями к ним.

Нужно каждой подстроке из п.1 поставить гиперссылку с адресом из п.2.

Дабы ткнул в "зеленое", и нужный файл открылся.
Вообщем хотелось заполнить это самое "зеленое" )

Спасибо.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA-сообщение на другой компьютер в сети
 
#
14.03.2022 03:08:18
Здравствуйте.
Нужно отправить VBA-сообщение на другой компьютер в сети
Нашел в инете пару способов, оба выдают ошибки.

Код
    result = CreateObject("WScript.shell").Run("msg /Server:192.168.1.0 'это текст'")

Код
    Shell ("msg /Server: 192.168.1.0 'это текст'", vbNormalFocus)


Подскажите, как отправить ?
Изменено: Сергей Евдокимов - 14.03.2022 03:15:10
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Гиперссылка "отписаться" в теле письма, формируемом макросом
 
#
10.03.2022 10:25:18
Здравствуйте, господа VBA-эксперты.
Есть кусок кода (спасибо Дмитрию)
Всё чудесно работает. Но хотелось бы добавить в него гиперссылку "отписаться", кликая по которой у пользователя формируется ответное сообщение на адрес отправителя (или указанный в VBA-коде адрес) и с указанной по умолчанию темой, например, "Мне надоели ваши письма..."

Длинно изложил.

Вообщем сейчас это просто приписка к письму: "Если сие уведомление для вас лишнее и не желаете впредь его получать - оповестите ответным письмом. Больше не побеспокоим." Хотелось бы заменить лаконичным и технологичным "Отписаться". Подсобите? Как его правильно вставить?

Код
    With objMail
        .To = Worksheets("ДанныеОбОплате").Range("M2")
        .BCC = "s.evdokimov@amtrus.ru"
        .Subject = "Решение по вашим неоплаченным счетам и их состояние на " & Date & " (" & Left(Time(), InStr(4, Time(), ":") - 1) & ")"
        .BodyFormat = 2
        .HTMLBody = Worksheets("ДанныеОбОплате").Range("N2") & _
            Worksheets("Текст").Range("A1") & "<BR> <BR>" & _
            ConvertRngToHTM(Selection) & "<BR>" & _
            Worksheets("Текст").Range("A2") & _
            Left(Worksheets("ДанныеОбОплате").Range("N2"), InStr(1, Worksheets("ДанныеОбОплате").Range("N2"), " ") - 1) & _
            Worksheets("Текст").Range("A3") & "<BR> <BR> <BR> " & _
            Worksheets("Текст").Range("A4") & "<BR>" & _
            Worksheets("Текст").Range("A5") & "<BR>" & _
            Worksheets("Текст").Range("A6") & "<BR> <BR>" & _
            Worksheets("Текст").Range("A8") & "<BR>" & _
            Worksheets("Текст").Range("A9") & "<BR>" & _
            Worksheets("Текст").Range("A10")
        .Display
    End With
Изменено: Сергей Евдокимов - 10.03.2022 11:58:35
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA. OutMail. Как добавить диапазон в тело письма ?
 
#
03.03.2022 07:12:03
Здравствуйте, господа VBA-эксперты.

Нужно посредством VBA в тело письма добавить
эту таблицу

Вставлю одну ячейку - работает.
Вставляют диапазон - не вставляется. Пустота.
Код
        ...
        With OutMail
            .To = "s.evdokimov@amt.ru"
            .Subject = "Здесь тема"
            .Body = ActiveWorkbook.Worksheets("Сидоров").Range("A1") ' - так работает
            .Body = ActiveWorkbook.Worksheets("Сидоров").Range("A1:B2") ' - так не работает
            .Display
        End With
        ...

Подскажите, плиз как вставить ?
P/S/ Файл весь нужен ?
Изменено: Сергей Евдокимов - 03.03.2022 07:27:10
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Документ из 1С в Excel напрямую.
 
#
17.02.2022 05:50:22
Здравствуйте, господа эксперты.

Есть 1С и доступ (логин, пароль). В нее ежедневно загружается выписка банка.
Хотение: подключится напрямую к 1С и вытянуть эту выписку в Excel.

Цель конечная: автоматизировать процесс информирования персонала о и движении денег по их счетам. Это я уже сделаю (когда инфа будет в экселе): распил информации, макросы, рассылка и т.д.

Как реализовать первый этап? Входить в 1С и выгружать документы руками - не вариант. Нужно именно автоматизированное подключение. Возможно? Может кто делал, знает? Полагаю, это некий sql-запрос. Насколько сложный? Как сформировать? Или может совсем как-то по другому? Кто в теме - подскажИте, плиз.

   
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
PQ. Как парсить данные с zakupki.gov.ru?
 
#
09.02.2022 11:20:36
Здравствуйте.
Моя унылая попытка стянуть в PQ любые данные приводит...
..к такому результату
Не проходите мимо, подайте "на водку".
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
VBA. Можно ли после CUT вставить только значения?
 
#
21.01.2022 10:04:24
Здравствуйте.
Range("A1:B1").Cut Range("A2:B2")
Как вставить только значения ?
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Как формулой заменить сразу несколько указанных символов ?
 
#
21.01.2022 06:16:04
Всем здрасьте.
Задача такая: пользователь заполняет реестр с данными и автоматом для каждой записи формируется имя файла. Пользователь его копирует и переименовывает файл со счетом.
Проблема такая: теоретически, номер счета может содержать знаки (символы), кои не могут быть в имени файла.
Вот

Хочу формульно их обнаружить и, при наличии, заменить на "-".  
Без макроса.
Для одного символа понятно, функция "подставить", кою и использую. Но как сконструировать сразу для нескольких?

Понимаю, что можно через многоэтажные условия, но такое решение - как-то не кашерно. Всяко должно быть покрасивее.
Дайте, плиз, "на водку" )
Изменено: Сергей Евдокимов - 21.01.2022 06:19:55
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Power Query. Прямое подключение к файлу в облаке OneDrive.
 
#
28.12.2021 11:57:58
Всем здравствуйте.

Собственно сабж. Делаю всё как доктор прописал Николай показал.
Скрин

Итог не тот. Путь копируется совсем другого, прямо-таки печального вида:
такого

А не как у Николая по красоте
вот так

При подключении PQ по такому пути, получаю
ошибку

Чё кручу не так?
P/S/ файл, полагаю, вряд ли нужен.
Изменено: Сергей Евдокимов - 28.12.2021 12:00:08
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Интервалы дат в динамический массив дат. Одной формулой. На лету.
 
#
18.12.2021 18:04:07
Здравствуйте, господа эксперты.

Админу: по правилам я, вроде как, должен в этой теме (двухлетней, без малого, давности) написать. Но у меня иная, чуть более узкая задача. Посему и создал тему новую. Ежели нарушил - каюсь заранее, на берегу. Скажите - перенесу.
Итак,

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

Пытаюсь, не могу. Взываю к помощи. Дайте хотя бы на_водку, как сконструировать массивную формулу ?
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Как ЧИСТРАБДНИ сделать массивной ?
 
#
18.12.2021 09:39:00
Всем добрый день.

На одном интервале ЧИСТРАБДНИ считает.
Как ей задать несколько интервалов, чтобы выдавала массив результатов.
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Найти количество дней в указанных интервалах за вычетом конкретных дат, если они входят в эти интервалы.
 
#
16.12.2021 11:14:44
Всем здравия и здравствовать.

Имею и дано:
1. интервалы дат
2. даты, которые не учитывать
______________________________
Желал бы найти: Суммарное количество дней во всех интервалах, но без учета дней из п.2

Ищу более короткое и изящное решение, нежели мной созданное (вложением).
Почти подходит функция ЧИСТРАБДНИ.МЕЖД если бы она могла не вычитать третий параметр "выходные".
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Выгрузка из 1С в Excel. Отличительный признак контрагента от договора.
 
#
29.11.2021 06:31:51
Всем добрый день.

Дано: выгрузки из 1С (урезанный пример вложением).
Далее посредством PQ привожу в нормализованную таблицу.

Проблема: не могу сформировать отличительный признак контрагента от договора. Сначала в качестве признака использовал вывод ИНН, но, оказалось, он не всегда вносится.
Визуальным признаком является только наличие отступов (красные черточки на скрине). Но Excel показывает, что у них единый формат, а для PQ это вообще ничего не значит.
Скрин с отступами и форматами
Где сие отличие в Excel'e зафиксировано и как можно отследить?

Еще, вероятно, посредством VBA можно как-то вычленить признак через разное количество объединения ячеек у контрагентов и договоров. Может есть более простые и разумные пути ? Подскажите. Как вы это делаете или сделали бы ?
Изменено: Сергей Евдокимов - 29.11.2021 06:41:23
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
PQ. Как к таблице прикрепить список?, Expression.Error: Не удается применить оператор & к типам Table и List.
 
#
28.11.2021 06:16:43
Здравствуйте.
В продолжении этой темы возник вопрос. Как произвести слияние таблицы и созданного из нее же списка ?
Код
let
...
    Таблица = Table.SelectColumns(#"Развернутый элемент Пользовательский",{"Column1", "Column2", "Column3", "Column9", "Column10"}), // к этой таблице нужно приклеить
    Список=(Table.FromColumns({Таблица[Column1],{null}&List.RemoveLastN(Таблица[Column1],1)}))[Column2],                            // это список
    НоваяТаблица = Таблица & Список                                                                                                // так не работает :((
in
НоваяТаблица
Список должен встать в таблицу отдельным столбцом справа (или слева, не важно).
Номера элементов списка и таблицы должны совпасть. Т.е. нулевая, (первая и т.д.) запись таблицы должна быть напротив соответствующего (по номеру) элемента списка.

Можно преобразовать список в таблицу и соединить уже две таблицы. Но для соединения Table.Combine не подходит.
Нужно что-то похожее на слияние запросов, только слияние таблиц. Чтобы одна рядом с другой. А не под ней.
Нифига, вообщем, пока не получается...
Компьютер никогда не заменит человека (©️ Hannibal Lecter)
 
Перейти    
Страницы: 1 2 3 След.
Наверх