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

Страницы: 1
Разделитель десятичных знаков. Баг или так и должно быть?, Откуда берется символ разделителя десятичных знаков
 
Форумчане, добрый день.


Столкнулся с проблемой при попытке сделать макрос невосприимчивым к системному разделителю десятичных знаков.
Заметил, что результат выражения "Application.DecimalSeparator" и системные настройки разделителя десятичных знаков различаются (при этом "Application.UseSystemSeparators = True").

Немного попереключал флажки и получил следующие результаты в окне Immediate (системные настройки разделителя всегда ","):
1.
Код
? Application.DecimalSeparator 
,
При




2.
Код
? application.DecimalSeparator
.

При




3. При выключенном флажке "использовать системные разделители", принимаются значения указанные в "Разделитель целой и дробной части".

То есть получается, что разделитель дробной части игнорирует значения флажка "Использовать системные разделите" и использует значение из "серенького окошка" (разделитель  целой и дробной части). Так должно быть? Или неправильные запросы делаю?

И другой вопрос: как в коде лучше прописать, чтобы код работал вне зависимости от системных настроек:
так?
Код
Application.UseSystemSeparators = False
Application.DecimalSeparator = ","
Изменено: AlbertSF - 21.11.2019 15:04:09
Обращение к ячейкам объединенных диапазонов
 
Доброго времени суток, форумчане!

Столкнулся с проблемой обращения к ячейкам в объединенных диапазонах. Ниже кусок кода:
Код
Dim rr As Range
Set rr = Union(Range("A1:A3"), Range("B1:D1"))

Debug.Print rr.Cells.Count          'значение 6 - всё верно
Debug.Print rr.Cells(1).Address     'значение $A$1 - всё верно
Debug.Print rr.Cells(2).Address     'значение $A$2 - всё верно
Debug.Print rr.Cells(4).Address     'значение $A$4 - хотелось бы получить значение $B$1 - четвертой ячейки объединенного диапазона rr

Имеется диапазон ячеек, объединенных из двух диапазонов "A1:A3" и "B1:D1".
Хотел обращаться к ячейкам по их индексу в объединенном диапазоне "rr" , то есть всего ячеек 6, первая - это А1, вторая А2 ... шестая D1
Не понимаю логику обращения. До А3 идет как мне представляется, далее просто вниз продолжается.

Кто-нибудь сталкивался с такой проблемой? Можете подсказать пути решения? или лучше в словарь/массив нужные ячейки загонять?
Ошибка Ошибка при загрузке сайта с помощью объекта InternetExplorer.Application, работа с InternetExplorer.Application
 
Добрый день, форумчане!

Не могу разобраться с проблемой возникновения ошибки.
Код следующий:
Код
Sub check()
Set objIE = CreateObject("InternetExplorer.Application")
'objIE.Navigate "https://ya.ru/"
objIE.Navigate "https://www.reestr-zalogov.ru/search/index"

While objIE.Busy Or (objIE.ReadyState <> 4)
DoEvents
Wend

objIE.Visible = 1
MsgBox objIE.LocationURL
objIE.Quit
Set objIE = Nothing
End Sub
При выполнении кода возникают разные ошибки на строке
Код
While objIE.Busy Or (objIE.ReadyState <> 4)
Ошибка:
Run-time error -2147023179 (800706b5)
Automation error
the interface is unknown

Ошибка:
Run-time error -2147467259
Automation error
Unspecified error

Ошибка:
Method "Busy" of object 'IWebBrowser2" failed

Причем на строке
Код
objIE.Navigate "https://www.reestr-zalogov.ru/search/index"
объект "objIE" принимает значение Visible (хотя до этой строки код еще не дошел)

Этот же код при замене URL адреса на "https://ya.ru/" отрабатывает без проблем.
В чем может быть причина ошибок? Сам сайт блокирует корректное выполнение макроса?
Поиск части фразы, расположенной на листе, ошибка при использовании функции Application.WorksheetFunction.Match
 
Добрый день, Форумчане!

При попытке найти часть фразы, расположенной на листе, некоторые фразы ищутся без проблем, а на некоторых выдает ошибку. Пожалуйста, помогите разобраться. Файл пример прикладываю.
Статистика использования (запуска) макроса, Получение информации о пользователях, запускающих макрос.
 
Добрый день, форумчане!

В ходе работы приходится пользоваться макросами, значительно упрощающими выполнение поставленных задач. Некоторые из подобных макросов написаны мною и используются коллегами в разных городах и субъектах РФ. Поэтому, любопытно (а может иногда и полезно) было бы получать информацию об использовании макросов: кем запускался (имя пользователя Excel, учетная запись Windows, ip-адрес), когда запускался (дата).

Может кто уже сталкивался с подобными задачами? Какими способами можно получать такую статистику? Единственное до чего пока додумался, при каждом использовании макроса отсылать письмо со статистикой на мой электронный адрес. Или можно проще всё сделать? Подскажите пожалуйста в каком направлении работать.  
Использование аргументов в методе Application.Dialogs(xlDialogInsertPicture)
 
Добрый день, форумчане!

Никак не смог разобраться с аргуметами в методе Application.Dialogs(xlDialogInsertPicture) , прошу вашей помощи. Хочу чтобы при открытии диалогового окна "Вставка рисунка" в поле "Имя файла" прописывалось заранее заданное имя (в итоговом файле: статическая карта из "Яндекс Карт" из интернета). Примено также как это прописывается при использовании :
Application.Dialogs(xlDialogSaveAs).Show "NewBook"

Перепробовал несколько разных вариантов, в том числе:
Код
Sub PastePicture()  
Application.Dialogs(xlDialogInsertPicture).Show Arg1:="C:\DISTR\Picture.jpg" 
Application.Dialogs(xlDialogInsertPicture).Show "C:\DISTR\Picture.jpg"  
End Sub 

Не помогают.

Способ вставки ActiveSheet.Pictures.Insert выдает ошибку, так как установлены ограничение на обращение к ресурсам Яндекс.
Подскажите пожалуйста, как можно решить проблему? Возможно есть еще способы вставки изображений?
Страницы: 1
Наверх