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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 18 След.
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 19:12:45
Что то я не могу понять, как мне схему файла открыть, получается в глубине эксель все таки хранит верные значения, но отображает их "криво"?
 
Перейти    
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 18:52:29
Спасибо!
 
Перейти    
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 18:38:05
А как вы это определили значение?
 
Перейти    
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 18:31:09
Офигеть...Ну то есть получается нужно изначально следить за исходными данными что бы они в такой формат не записывались?
 
Перейти    
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 18:23:17
Не совсем понял комментарий про карту, какое первое число не истинное?
У меня это артикулы, если в ячейке эксель поставить формат текстовый кликнуть в ячейку курсор, то значение отобразиться верно. Но реализовать тоже самое на VBA не получается.
 
Перейти    
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 18:18:44
Ну вот да, некоторые числа переводятся верно, некоторые нет.
Вообще мне это все нужно для того что бы сравнивать две таблицы, просто в одной могут быть значения в экспоненциальном виде, а в другой таблице например в текстовом.

Идея была переводить принудительно в текстовый формат все значения и сравнивать.
 
Перейти    
Как с помощью VBA отобразить число не в экспоненциальном формате
 
#
15.08.2024 18:00:20
Добрый день, подскажите пожалуйста, я пытаюсь взять значение из ячейки Эксель в экспоненциальном формате и отобразить его в виде стандартного числа или как вариант текста. Но при использовании функции Format число меняется...

Пример файла прикладываю.
 
Перейти    
Как удалить из формулы битую ссылку на ячейку #ССЫЛКА! с помощью макроса
 
#
01.08.2023 16:54:43
Супер, спасибо!)))
 
Перейти    
Как удалить из формулы битую ссылку на ячейку #ССЫЛКА! с помощью макроса
 
#
01.08.2023 15:45:33
Добрый день, есть задача с помощью макроса автоматически удалять в формулах ссылки на несуществующие ячейки типа "#ССЫЛКА!"
Если это делать в ручную с помощью замены Ctrl + H, "#ССЫЛКА!" заменить на "", то все работает. Но если это прописать в скрипте через метод replace, то метод не срабатывает. Подозреваю, что Эксель считывает формулу из ячейки как единое значение, а не как набор текста, поэтому не работает метод.

Подскажите пожалуйста, как можно переписать команду, что бы замена все же произошла?
Код
Selection.Replace What:="#ССЫЛКА!+", Replacement:=""
 
Перейти    
Не работает функция CEILING в Эксель в запросе SQL
 
#
24.04.2023 07:57:38
БМВ, Спасибо, это красивое решение, не додумался до такого)
 
Перейти    
Не работает функция CEILING в Эксель в запросе SQL
 
#
24.04.2023 07:18:44
Добрый день, столкнулся с проблемой, что при использовании SQL запроса в файле Эксель функция CEILING почему то не работает (Эксель ее не понимает). Может есть какая то замена округления в большую сторону до целого числа?
Подскажите пожалуйста
 
Перейти    
VBA + SQL обращение к таблице с условием отбора по дате
 
#
05.03.2023 12:21:41
Спасибо, помогло!
 
Перейти    
VBA + SQL обращение к таблице с условием отбора по дате
 
#
05.03.2023 10:55:26
Добрый день, обращаюсь к таблице в Эксель через 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
 
Перейти    
Изменение имени вставленного рисунка в Эксель
 
#
26.12.2022 21:29:40
Ігор Гончаренко, макросом получилось. Но у меня не получается вручную переименовать название рисунка, как это сделать?
 
Перейти    
Изменение имени вставленного рисунка в Эксель
 
#
26.12.2022 20:35:47
Добрый день, подскажите пожалуйста, можно ли изменить имя вставленной картинки в ячейку Эксель. Что бы потом можно было обращаться к данной картинке из кода макроса по смысловому названию.
Изменено: DopplerEffect - 26.12.2022 20:37:11
 
Перейти    
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
#
18.01.2022 16:49:08
doober, этим способом тоже получаются знаки вопросов вместо всех букв.
Изменено: DopplerEffect - 18.01.2022 16:49:29
 
Перейти    
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
#
18.01.2022 16:41:02
МатросНаЗебре, Попробовал ваш способ, но все русские буквы заменились на знаки вопроса.
Изменено: DopplerEffect - 18.01.2022 16:49:44
 
Перейти    
Проблема с кодировкой при чтении txt файла через VBA в Excel
 
#
18.01.2022 16:06:24
Добрый день, написал макрос для чтения 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С УАТ
 
#
26.12.2021 11:37:38
Добрый день, нужно подключить Power BI к 1С УАТ и на базе этого создать отчетность. Бюджет выше 10000 р., обсуждаемый. Клиент крупный ритейл.
 
Перейти    
Сделать, что бы макрос работал на Маке
 
#
28.10.2021 15:49:33
А как файл прикрепить можно в личке? Может на почту лучше?
 
Перейти    
Сделать, что бы макрос работал на Маке
 
#
28.10.2021 14:54:04
Добрый день, есть файл с макросом, который делает определенные действия с 2 файлами (открывает их, сводит таблицы и некоторые преобразования с данными происходят). В коде один модуль чуть больше 100 строчек. На Виндовсе все работает, на Маке постоянно ошибки. Кто может помочь переделать?

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

https://youtu.be/2V2OII52r00
 
Перейти    
Чем заменить метод Application.GetOpenFilename в Виндовс на Маке?
 
#
22.10.2021 16:58:13
Добрый день, есть макрос, который открывает диалоговое окно для выбора файла и записывает в переменную полный путь и название к этому файлу:
Код
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 на листе превратился в рисунок
 
#
12.10.2021 10:28:32
Я попробовал пересохранять файл через гугл таблицы, когда это делаешь, то ComboBox превращается в картинку. Но пользователь утверждает, что открывает только в Эксель, может ли быть еще какая то причина?
 
Перейти    
ComboBox на листе превратился в рисунок
 
#
12.10.2021 10:02:54
Добрый день, на листе "Реестр" есть размещенный элемент ComboBox, все работает. Но при каких то событиях у пользователя этот ComboBox превращается в рисунок на листе. Пример файла во вложении. Пользователь говорит, что открывает всегда файл через Microsoft Excel, и при очередном открытии обнаруживается вот такая нелепость.

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

Пример во вложении, в зеленой ячейке нужно получить формулой решение.
 
Перейти    
Запись макрокодером фильтрации не работает
 
#
25.09.2021 09:37:57
Добрый день, подскажите пожалуйста. В файле ставлю на запись макрос, устанавливаю фильтры, делаю нужные сортировки, останавливаю запись макроса. Но он записывается с ошибками синтаксиса и соответственно не запускается, вот такой получается код:
Код
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
Это происходит только на одном компьютере, на остальных все работает. Подскажите пожалуйста, с чем это может быть связано?
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 18 След.
Наверх