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

Страницы: 1
Не могу изменить свойства листа в редакторе VBA, окно properties листа редакторе Visual Basic
 
#
04.12.2016 16:15:55
видимо только макросом... не удобно конечно!
 
Перейти    
Не могу изменить свойства листа в редакторе VBA, окно properties листа редакторе Visual Basic
 
#
30.11.2016 21:57:05
Юрий, F4 пробовал не помогает :(
 
Перейти    
Не могу изменить свойства листа в редакторе VBA, окно properties листа редакторе Visual Basic
 
#
30.11.2016 14:08:08
добрый день форумчане!
возникла необходимость редактировать файл в среде OS X один из листов VeryHidden
не могу найти в Редакторе VBA свойства листа... Куда смотреть?

Спасибо!
 
Перейти    
расстояние по Google Maps, как получить нужную часть из структуры xml
 
#
18.06.2015 15:59:03
Спасибо! А как это правильно внедрить в мою функцию?
 
Перейти    
расстояние по Google Maps, как получить нужную часть из структуры xml
 
#
17.06.2015 16:07:55
Добрый день, собрал пользовательскую функцию по получению расстояния:
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
' https://maps.googleapis.com/maps/api/distancematrix/xml?origins=Moscow&destinations=57.460578+41.512...
Function GetKM(s As String, b As String)
 razd = Application.International(xlDecimalSeparator) ' Cистемный разделитель
 Set r = CreateObject("Microsoft.XMLHTTP")
 L1 = "https://maps.googleapis.com/maps/api/distancematrix/xml?origins= " & s & "&destinations=" & b & "&mode=driving&language=ru-RUS"
 r.Open "GET", L1, 0: Application.Wait Now + TimeValue("00:00:05"): r.send
 GetKM = Split(Split(r.responseText, "<value>")(2), "</value>")(0)
' "<text>")(2) если стоит двойка - км, единичка - часы и минуты
' если <"text"> по получим текстовые данные, если <"value"> по при двойке получим расстояние в метрах, при единичке - в секундах
 Set r = Nothing
End Function
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
как получить данные из раздела distance значение value?

Я выкрутился через (r.responseText, "<value>")(2) но уверен что это не правильно...

Спасибо!
 
Перейти    
UDF: адрес брать из указываемой в формуле ячейке
 
#
21.05.2015 23:25:16
Доработал формулу для работы с различными аргументами. Теперь можно быстро и удобно по полю с адресом (причем с весьма вольным способом введения) получить gps координаты; название города; округа; тот же адрес но только в Нормальном стандартном формате. Все также справедливо для поля с координатами.
Код
' формула GetGPS(ссылка_на_ячейку_с_адресом_или_коодинатами;АРГУМЕНТ)
' АРГУМЕНТЫ:
' pos возвращает координаты
' AdministrativeAreaName возвращает Округ
' AddressLine возвращает адрес
' LocalityName возвращает ГОРОД
' другие аргументы [URL=http://geocode-maps.yandex.ru/1.x/?geocode=]http://geocode-maps.yandex.ru/1.x/?geocode="москва[/URL], дмитровское шоссе 100"
Function GetGPS(s As String, b As String)
  razd = Application.International(xlDecimalSeparator) ' Cистемный разделитель
  Set r = CreateObject("Microsoft.XMLHTTP";)
  L1 = "[URL=http://geocode-maps.yandex.ru/1.x/?geocode]http://geocode-maps.yandex.ru/1.x/?geocode[/URL]= " & s
  r.Open "GET", L1, 0: Application.Wait Now + TimeValue("00:00:05";): r.send
  GetGPS = Split(Split(r.responseText, "<" & b & ">";)(1), "</" & b & ">";)(0)
  Set r = Nothing
End Function
 
Перейти    
UDF: адрес брать из указываемой в формуле ячейке
 
#
21.05.2015 15:17:27
Спасибо! Все работает!
 
Перейти    
UDF: адрес брать из указываемой в формуле ячейке
 
#
21.05.2015 12:05:57
Добрый день, нужна функция (формула) которая по адресу в строке возвращает gps координаты:
я собрал из разных источников "конструкцию" которая работает, но вот как сделать чтобы адрес брался из указываемой в формуле ячейке не соображу...
Помогите плз!
Код
Function GetGPS()
  razd = Application.International(xlDecimalSeparator) ' Cистемный разделитель
  Set r = CreateObject("Microsoft.XMLHTTP")
  L1 = "[URL=http://geocode-maps.yandex.ru/1.x/?geocode]http://geocode-maps.yandex.ru/1.x/?geocode[/URL]= Москва, Дмитровское шоссе 100"
  r.Open "GET", L1, 0: Application.Wait Now + TimeValue("00:00:05") : r.send
  GetGPS = Split(Split(r.responseText, "<pos>") (1), "</pos>") (0)
  Set r = Nothing
End Function
 
Перейти    
Страницы: 1
Наверх