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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 18 След.
Как удалить из формулы битую ссылку на ячейку #ССЫЛКА! с помощью макроса
 
Супер, спасибо!)))
Как удалить из формулы битую ссылку на ячейку #ССЫЛКА! с помощью макроса
 
Добрый день, есть задача с помощью макроса автоматически удалять в формулах ссылки на несуществующие ячейки типа "#ССЫЛКА!"
Если это делать в ручную с помощью замены Ctrl + H, "#ССЫЛКА!" заменить на "", то все работает. Но если это прописать в скрипте через метод replace, то метод не срабатывает. Подозреваю, что Эксель считывает формулу из ячейки как единое значение, а не как набор текста, поэтому не работает метод.

Подскажите пожалуйста, как можно переписать команду, что бы замена все же произошла?
Код
Selection.Replace What:="#ССЫЛКА!+", Replacement:=""
Не работает функция CEILING в Эксель в запросе SQL
 
БМВ, Спасибо, это красивое решение, не додумался до такого)
Не работает функция CEILING в Эксель в запросе SQL
 
Добрый день, столкнулся с проблемой, что при использовании SQL запроса в файле Эксель функция CEILING почему то не работает (Эксель ее не понимает). Может есть какая то замена округления в большую сторону до целого числа?
Подскажите пожалуйста
VBA + SQL обращение к таблице с условием отбора по дате
 
Спасибо, помогло!
VBA + SQL обращение к таблице с условием отбора по дате
 
Добрый день, обращаюсь к таблице в Эксель через VBA + SQL запрос, в таблице имеется колонка с датами в формате "ДД.ММ.ГГГГ", как правильно написать SQL запрос с условием по отборе с Датой?

Подскажите пожалуйста, такой код не работает, ошибка в написании WHERE Дата = " & date_start & "
Код
'Создаем соединение
Dim CON As Object 'New ADODB.Connection
Dim RS As Object 'New ADODB.Recordset
Dim arrS

date_start = "20.02.2023"

Set CON = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")

CON.Provider = "Microsoft.ACE.OLEDB.12.0"
CON.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ActiveWorkbook.Name & "; Extended Properties=""Excel 12.0 Xml;HDR=YES"""
CON.Open
'Заполняем сводную
RS.Open "SELECT Товар, SUM(Количество) FROM [БАЗА ПРОДАЖИ$] WHERE Дата = " & date_start & " GROUP BY Товар", CON
Worksheets("Сводная").Range("A2").CopyFromRecordset RS
RS.Close
Изменение имени вставленного рисунка в Эксель
 
Ігор Гончаренко, макросом получилось. Но у меня не получается вручную переименовать название рисунка, как это сделать?
Изменение имени вставленного рисунка в Эксель
 
Добрый день, подскажите пожалуйста, можно ли изменить имя вставленной картинки в ячейку Эксель. Что бы потом можно было обращаться к данной картинке из кода макроса по смысловому названию.
Изменено: DopplerEffect - 26.12.2022 20:37:11
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
doober, этим способом тоже получаются знаки вопросов вместо всех букв.
Изменено: DopplerEffect - 18.01.2022 16:49:29
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
МатросНаЗебре, Попробовал ваш способ, но все русские буквы заменились на знаки вопроса.
Изменено: DopplerEffect - 18.01.2022 16:49:44
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
Добрый день, написал макрос для чтения txt файла и занесения информации в Эксель. Но при чтении на этапе вот этой команды:
Код
txt = CreateObject("scripting.filesystemobject").OpenTextFile(Filename, 1, True).ReadAll

происходит неверное распознавание русских символов. Пробовал 3 варианта последнего параметра для функции OpenTextFile (-2, -1, 0), но это не помогло, во всех трех случаях все равно буквы не распознаются.

Помогите пожалуйста, кто то сталкивался, как можно решить проблему?  
Изменено: DopplerEffect - 18.01.2022 16:06:54
Отчет в Power BI с подключением к 1С УАТ
 
Добрый день, нужно подключить Power BI к 1С УАТ и на базе этого создать отчетность. Бюджет выше 10000 р., обсуждаемый. Клиент крупный ритейл.
Сделать, что бы макрос работал на Маке
 
А как файл прикрепить можно в личке? Может на почту лучше?
Сделать, что бы макрос работал на Маке
 
Добрый день, есть файл с макросом, который делает определенные действия с 2 файлами (открывает их, сводит таблицы и некоторые преобразования с данными происходят). В коде один модуль чуть больше 100 строчек. На Виндовсе все работает, на Маке постоянно ошибки. Кто может помочь переделать?

Бюджет 2000 р.
При попытке установить пароль на макрос Эксель запрашивает пароль
 
Спасибо за ответы
При попытке установить пароль на макрос Эксель запрашивает пароль
 
А почему тогда я вижу сам код макроса и могу его редактировать?
При попытке установить пароль на макрос Эксель запрашивает пароль
 
Добрый день, столкнулся впервые с такой штукой, через меню VBAProject Properties хочу установить пароль на макрос (сам макрос естественно открыт), но при попытке входа в меню Эксель запрашивает пароль. Что это может быть? Есть предположение, что в этом меню есть какое то свойство, с помощью которого устанавливается пароль на открытие данного меню? Или это может быть глюк какой то? По ссылке видео демонстрация на 30 секунд.

https://youtu.be/2V2OII52r00
Чем заменить метод Application.GetOpenFilename в Виндовс на Маке?
 
Добрый день, есть макрос, который открывает диалоговое окно для выбора файла и записывает в переменную полный путь и название к этому файлу:
Код
Dim avFiles
avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*", 1, "Выбрать отчет ФМС", , False)
If VarType(avFiles) = vbBoolean Then
    Exit Sub
End If
При запуске на Виндовсе все работает, при запуске на маке код выдает ошибку на строке:
Код
avFiles = Application.GetOpenFilename _
    ("Excel files(*.xls*),*.xls*", 1, "Выбрать отчет ФМС", , False)
Подскажите пожалуйста, чем заменить данный метод, что бы работало на Мак?
ComboBox на листе превратился в рисунок
 
Я попробовал пересохранять файл через гугл таблицы, когда это делаешь, то ComboBox превращается в картинку. Но пользователь утверждает, что открывает только в Эксель, может ли быть еще какая то причина?
ComboBox на листе превратился в рисунок
 
Добрый день, на листе "Реестр" есть размещенный элемент ComboBox, все работает. Но при каких то событиях у пользователя этот ComboBox превращается в рисунок на листе. Пример файла во вложении. Пользователь говорит, что открывает всегда файл через Microsoft Excel, и при очередном открытии обнаруживается вот такая нелепость.

Подскажите пожалуйста, кто то сталкивался с такой проблемой? Из-за чего такое может возникать?
Умножить числа по условиям
 
Спасибо, додумался множественным условием если (во вложении), но ваши решения проще и лучше)
Умножить числа по условиям
 
Добрый день, подскажите пожалуйста, есть ли функция похожая на СУММЕСЛИМН, только умножающая числа, типа ПРОИЗВЕСЛИМН? Или может по другому как то можно решить задачу умножения массива чисел по условию?

Пример во вложении, в зеленой ячейке нужно получить формулой решение.
Запись макрокодером фильтрации не работает
 
Добрый день, подскажите пожалуйста. В файле ставлю на запись макрос, устанавливаю фильтры, делаю нужные сортировки, останавливаю запись макроса. Но он записывается с ошибками синтаксиса и соответственно не запускается, вот такой получается код:
Код
Sub Макрос3()
'
' Макрос3 Макрос
'

'
    Rows("1:1").Select
    .
    Name.DisplayRightToLeft("ВИЗУАЛЬНЫЙ ПРИМЕР")....DupeUnique
    Name.DisplayRightToLeft("ВИЗУАЛЬНЫЙ ПРИМЕР")....ActiveSheet  := Range("Q1"), _
        Type := xlSortOnValues, SortOn := xlAscending,  := xlSortNormal
    With Name.DisplayRightToLeft("ВИЗУАЛЬНЫЙ ПРИМЕР")..
        . = xlYes
        . = FALSE
        . = xlTopToBottom
        . = xlPinYin
        .
    End With
End Sub

Это происходит только на одном компьютере, на остальных все работает. Подскажите пожалуйста, с чем это может быть связано?
Скопировать цвет условного форматирования
 
Спасибо, работает!
Скопировать цвет условного форматирования
 
Есть ячейка с условным форматированием (которое задано формулой). Мне нужно скопировать эту ячейку и вставить на другой лист, как значение без правил условного форматирования, но что бы цвет сохранился. Подскажите пожалуйста, можно ли это сделать стандартными средствами? Ну или с помощью макроса?
Как поменять формат даты в фильтре сводной таблицы
 
mechanix 85, а с форматом никак не получится? Просто в одной сводной почему то так отображается, а в другой, как месяц + год. Причем исходные данные одинаковые и по датам и по форматам...С дополнительным столбцом решение понятно, спасибо. Но хотел разобраться почему Эксель себя так ведет.
Как поменять формат даты в фильтре сводной таблицы
 
Добрый день, есть сводная таблица. Дата вынесена в фильтр, даты в исходных данных всегда первые числа месяца. В исходных данных формат даты стоит как месяц + год, в фильтре сводной таблицы тоже поставил такой формат, но когда открываешь фильтр для выбора значений, то дата там стоит в формате дд.мм.гггг. Подскажите пожалуйста, как поменять отображение даты в самом фильтре при выборе?
Combobox на листе после сохранения файла превратился в картинку
 
Добрый день, может кто то сталкивался или знает, как такое может быть. На листе Эксель есть элемент ActiveX ComboBox, все нормально работает, но периодически при очередном открытии файла на месте ComboBox оказывается картинка, которая по внешнему виду не отличается, но соответственно это картинка и она не кликабельная. У меня такого ниразу не происходило, но у коллеги периодически возникает такая ситуация. У меня было предположение, что это возможно из-за пересохранения файла в других программах типа Open Office и.т.д., но коллега говорит, что пользуется только Эксель и делает всегда одни и те же действия с файлом и почему то иногда ComboBox слетает.

Подскажите пожалуйста, в чем может быть причина, кто то сталкивался с таким?
Макрос для Виндовс переделать, что бы работал на Мак
 
Здравствуйте, проблема решилась своими силами, спасибо.
Макрос для Виндовс переделать, что бы работал на Мак
 
Добрый день, есть работающий макрос на Виндовс, макрос заполняет шаблон договора в Ворд из таблицы Эксель. На Маке работать отказывается, ругается на строчку:
Код
Set objWord = CreateObject("Word.Application")
Возможно и в других строках тоже могут быть проблемы, задача переделать макрос, что бы он работал на Маке, бюджет 1500 р. Файл скину исполнителю на почту.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 18 След.
Наверх