Геоточки. Новичок - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Геоточки. Новичок (Прошу помощи в решении проблемы)

Геоточки. Новичок

Друг

Дата: Вторник, 11.12.2012, 14:01 | Сообщение № 21

Группа: Гости

Спасибон огромный!

Ответить

Друг

Дата: Вторник, 11.12.2012, 15:16 | Сообщение № 22

Группа: Гости

А чтоб J4 искало только по Украине? Как прописать туда Ukraine в аналогии как Вы предложили?
в смысле чтоб юкрейн не была ячейкой а просто прописать в саму функцию?

Ответить

Serge_007

Дата: Вторник, 11.12.2012, 15:19 | Сообщение № 23

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Разницу между моей формулой и Вашей видите?
Вот и делайте по аналогии

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Друг

Дата: Вторник, 11.12.2012, 15:25 | Сообщение № 24

Группа: Гости

Code

=ГИПЕРССЫЛКА("http://maps.google.ru/maps?saddr="&J4& "&Ukraine"&daddr="&N4&" "&O4;"route")

не работает - пишет функция не правильная

Code

=ГИПЕРССЫЛКА("http://maps.google.ru/maps?saddr="&J4& "&Ukraine&daddr="&N4&" "&O4;"route")

тоже самое
я пытался. я бы не писал Вам если бы смог найти ответ сам, простите

Ответить

Serge_007

Дата: Вторник, 11.12.2012, 16:10 | Сообщение № 25

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Друг)

если бы смог найти ответ сам

Вам его не надо искать, я ведь уже его Вам дал
ВНИМАТЕЛЬНО посмотрите на

Quote (Serge_007)

Разницу между моей формулой и Вашей

Code

=ГИПЕРССЫЛКА("http://maps.google.ru/maps?saddr="&J4&"Ukrainedaddr="&N4&" "&O4;"route")

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Друг

Дата: Вторник, 11.12.2012, 18:05 | Сообщение № 26

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

http://maps.google.ru/maps?sa....Stadium
вот что получается из Вашей формулы sad

Ответить

Serge_007

Дата: Вторник, 11.12.2012, 20:27 | Сообщение № 27

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Quote (Друг)

вот что получается из Вашей формулы

И что?
Открывается карта
Мне это ни о чем не говорит

И потом - это ВАША формула, а не моя biggrin

ЮMoney:41001419691823 | WMR:126292472390

Ответить

TGM

Дата: Вторник, 15.01.2013, 02:28 | Сообщение № 28

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Добрый вечер! Заинтересовала эта тема,слепил небольшой файлик. В файле, макрос прокладывает маршрут из точки А в точку В. Вот код:
WebBrowser1.Navigate "http://maps.google.com/maps?saddr=" & Range("B2") & "&daddr=" & Range("B3")

Но хотелось бы строить маршрут из нескольких точек,и вот здесь заминка... sad

В этой теме есть такой код:

Цитата (Gustav)

В ходе дальнейших раскопок Гугл была найдена возможность построения маршрута по более чем двум точкам. Все последующие точки после двух добавляются с помощью подстроки "+to:" (переводы строк ниже добавлены для удобочитаемости адресной строки браузера)

http://maps.google.ru/maps?
saddr=Санкт-Петербург пр. Маршала Жукова 60
&daddr=Санкт-Петербург пр. Стачек 47
+to:Санкт-Петербург метро Площадь Восстания
+to:Санкт-Петербург метро Ломоносовская
+to:Санкт-Петербург метро Проспект Большевиков
+to:Санкт-Петербург метро Гражданский проспект
+to:Санкт-Петербург метро Проспект Просвещения
+to:Санкт-Петербург метро Удельная
+to:Санкт-Петербург метро Петроградская
+to:Санкт-Петербург метро Московская

Но он похоже не работает с адресами ячеек.. sad

Может кто-то подскажет другое решение... Помогите пожалуйста.

К сообщению приложен файл: 1005315.xls (38.5 Kb)

Ответить

СообщениеДобрый вечер! Заинтересовала эта тема,слепил небольшой файлик. В файле, макрос прокладывает маршрут из точки А в точку В. Вот код:
WebBrowser1.Navigate "http://maps.google.com/maps?saddr=" & Range("B2") & "&daddr=" & Range("B3")

Но хотелось бы строить маршрут из нескольких точек,и вот здесь заминка... sad

В этой теме есть такой код:

Цитата (Gustav)

Но он похоже не работает с адресами ячеек.. sad

Может кто-то подскажет другое решение... Помогите пожалуйста.

Автор - TGM
Дата добавления - 15.01.2013 в 02:28

GWolf

Дата: Вторник, 15.01.2013, 10:59 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 3 ±

Замечаний: 0% ±

Добрый день!

Вот такой код, "навешенный" на кнопку "Маршрут" решает задачу:

[vba]

Код

Private Sub CommandButton1_Click()
      Dim marsrut As String
      Dim nR As Long, nC As Long

      marsrut = ""
      nR = 2
      nC = 2
      With ThisWorkbook.ActiveSheet
          Do
              If nR = 2 Then
                  marsrut = Cells(nR, nC).Text
              Else
                  marsrut = marsrut & "+to:" & Cells(nR, nC).Text
              End If
              nR = nR + 1

              If nR = 26 Then: MsgBox "Превышено количество (25) возможных" & Chr(10) & _
                     "для пострпоения точек маршрута!" & Chr(10) & Chr(10) & _
                     "Маршрут будет построен для началь-" & Chr(10) & _
                     "ных 25-ти точек маршрута!", vbCritical + vbOKOnly, "Ошибка!": Exit Do
          Loop While Cells(nR, nC).Text <> ""
      End With

      WebBrowser1.Navigate "http://maps.google.com/maps?saddr=" & marsrut
      marsrut = ""
      nR = 0
      nC = 0
End Sub

[/vba]

Путей к вершине множество. Этот один из многих...

Сообщение отредактировал GWolf - Вторник, 15.01.2013, 11:20

Ответить

TGM

Дата: Вторник, 15.01.2013, 15:54 | Сообщение № 30

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

GWolf, спасибо большое! Все работает smile

Ответить

Геоточки. Новичок (Прошу помощи в решении проблемы)

Страница 2 из 2
«
1
2