Геоточки. Новичок - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Геоточки. Новичок - Мир MS Excel

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

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

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

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

Дата: Вторник, 18.09.2012, 13:35 | Сообщение № 1

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

Добрый день всем!
Сразу прошу прощения: я новичок и набираюсь опыта.
В работе потребовалась помощь в частности от меня на которую моего опыта не хватило и я начал искать ответ в интернете. Его я толком не нашел поэтому пришлось отнимать у Вас время.
Вопрос заключается в следующем:
Мне нужно ввести адрес в строке например А1 например "ул. московская 23" при нажатии на которую открывались бы карта гугл или любая другая и показывалась бы геоточка где она находится. так как адресов этих 10 000 хотелось бы чтоб это происходило автоматически а не вводить каждую точку по отдельности.
на самом деле точек 2 - точка входа например - "ул. московская 23" и точка выхода "ул. краковская 56"

Если это возможно прошу объяснить как это сделать. если нет - все равно спасибо за уделенное мне время.

Ответить

Дата: Вторник, 18.09.2012, 13:48 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Ну, например, можно сформировать гиперссылку типа: http://maps.yandex.ru/?text=ул. московская 23

Внимание! Зависит от локации пользователя. В разных городах сработает по-разному. Поэтому для уверенности можно добавить город:

http://maps.yandex.ru/?text=Москва пр. Маршала Жукова 60

http://maps.yandex.ru/?text=Санкт-Петербург пр. Маршала Жукова 60

P.S. Упс!! И две точки можно с маршрутом между ними!! Через /?rt...~...

http://maps.yandex.ru/?rt=Сан....ачек 47

текст ссылки выше такой: [vba]

Code

http://maps.yandex.ru/?rt=Санкт-Петербург пр. Маршала Жукова 60~Санкт-Петербург пр. Стачек 47

[/vba]

P.P.S. Для Гугла формат для маршрута такой. Через /maps?saddr=...&daddr=...

http://maps.google.ru/maps?sa....ачек 47

текст ссылки выше такой: [vba]

Code

http://maps.google.ru/maps?saddr=Санкт-Петербург пр. Маршала Жукова 60&daddr=Санкт-Петербург пр. Стачек 47

[/vba]

Забавно, что маршруты Яндекса и Гугла различаются.

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Среда, 19.09.2012, 10:50

Ответить

Дата: Вторник, 18.09.2012, 14:45 | Сообщение № 3

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

Спасибо! попробую завтра сразу на работе.
не ожидал что будет так быстро, приятно очень)
скажите, а можно в ячейке А1 - А500 например вводить адреса а например в В1 - В500 чтоб сразу выводились эти ссылки?
то есть чтоб я вводил только адрес а он сам искал их на карте и выводил маршрут непосредственно в ячейки В?

Ответить

Дата: Вторник, 18.09.2012, 14:49 | Сообщение № 4

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

точнее так: ячейка А1 - вход, В1 - выход, а С1 - маршрут между ними?

Ответить

Дата: Вторник, 18.09.2012, 14:54 | Сообщение № 5

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Как-то так.

P.S. Несколько несложных экпериментов с адресами показывают, что Гугл постабильнее себя ведет, находя маршруты, на которых Яндекс спотыкается. Я не имею отношения ни к одному из них, это моя скромная независимая обывательская точка зрения smile

smile

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

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Вторник, 18.09.2012, 15:20

Ответить

Дата: Вторник, 18.09.2012, 15:12 | Сообщение № 6

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

Супер! Спасибо огромное!
только я не разобрался: как настроить ячейки с маршрутом так чтоб не вводить каждый раз в "функции" в каких ячейках искать маршрут?
то есть чтоб столбец D сразу находил соответствующие в своем ряду А и В ячейки и прокладывал маршрут по ним?
=ГИПЕРССЫЛКА("http://maps.yandex.ru/?rt="&A3&"~"&B3; "Маршрут")
чтоб ячейка D4 искала в только в A4 и B4
а D5 в А5 и В5 соответственно
и так далее?
чтоб не менять формулу с каждой ячейкой?

Ответить

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

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

С Excel совсем что-ли не работали раньше? sad

sad

Всё само настроится при копировании, все эти ссылки, о которых говорите.

МОИ: Ник, Tip box: 41001663842605

Ответить

Дата: Вторник, 18.09.2012, 15:40 | Сообщение № 8

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

Признаться честно - еще в школе, и возможно на первом курсе.
Все равно не понимаю как, вы уж простите, что так.
как мне настроить весь столбец D чтоб искал в своих рядах сам? без прописки в каждой ячейке А5 или А6
вот например в Вашем файле я ввожу ниже в ячейке А4 адрес и в В4 адрес - а D4 остается пустым. Конечно пока я не введу сам в гиперссылку А4 и В4.
если бы мне нужно было таких адресов 10 - я бы не парился и ввел каждый а так как мне нужно 5000 - я и достаю Вас своими вопросами, Вы уж простите меня :(

Ответить

Дата: Вторник, 18.09.2012, 15:55 | Сообщение № 9

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

На D3 щелкаете правой кнопкой мыши => Копировать => мышкой выделяете ниже диапазон ячеек, например, D4:D30 => жмете Enter

Вариант 2. Встаете в D3 => Захватываете левой кнопки мышки правый нижний угол ячейки D3 и тянете вниз (пока не надоест) => Отпускаете кнопку.

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Вторник, 18.09.2012, 16:00

Ответить

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

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

Разобрался!
Спасибо Вам огромное! Вы мне очень помогли!
Еще раз простите меня за мою оплошность, впредь буду знать)
Решение нашлось, тему можно закрывать.
Спасибо!

Ответить

Дата: Вторник, 18.09.2012, 16:11 | Сообщение № 11

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

p.s. Поставьте за меня кто-нибудь +в репутацию Gustavу - оттого что я гость видимо я не могу этого сделать.
надеюсь это читает больше 1го человека и плюсиков будет много:)

Ответить

Дата: Среда, 19.09.2012, 11:18 | Сообщение № 12

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

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

[vba]

Код

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

[/vba]

Всего маршрут Гугл теоретически может состоять из 25 точек (последняя буква - X). Практически мне было лениво генерить такое кол-во адресов.

Строку "+to:" можно применять уже даже для второго пункта, не используя подстроки "&daddr="

[vba]

Код

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

[/vba]

Если кто-нибудь сочинит формулу массива по смыслу наподобие такой

Код

=СЦЕПИТЬ(ЕСЛИ(ЕПУСТО(C3:F3);"";"+to:"&C3:F3))

только чтоб работала и возвращала строку из нескольких элементов, предваряемых подстрокой "+to:" каждый, то будет тому респект и уважуха. У меня пока сходу не получилось ничего перспективного...

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

[vba]

Код

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

[/vba]

Всего маршрут Гугл теоретически может состоять из 25 точек (последняя буква - X). Практически мне было лениво генерить такое кол-во адресов.

Строку "+to:" можно применять уже даже для второго пункта, не используя подстроки "&daddr="

[vba]

Код

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

[/vba]

Если кто-нибудь сочинит формулу массива по смыслу наподобие такой

Код

=СЦЕПИТЬ(ЕСЛИ(ЕПУСТО(C3:F3);"";"+to:"&C3:F3))

только чтоб работала и возвращала строку из нескольких элементов, предваряемых подстрокой "+to:" каждый, то будет тому респект и уважуха. У меня пока сходу не получилось ничего перспективного...Gustav

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Среда, 19.09.2012, 11:25

Ответить

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

[vba]

Код

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

[/vba]

Всего маршрут Гугл теоретически может состоять из 25 точек (последняя буква - X). Практически мне было лениво генерить такое кол-во адресов.

Строку "+to:" можно применять уже даже для второго пункта, не используя подстроки "&daddr="

[vba]

Код

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

[/vba]

Если кто-нибудь сочинит формулу массива по смыслу наподобие такой

Код

=СЦЕПИТЬ(ЕСЛИ(ЕПУСТО(C3:F3);"";"+to:"&C3:F3))

только чтоб работала и возвращала строку из нескольких элементов, предваряемых подстрокой "+to:" каждый, то будет тому респект и уважуха. У меня пока сходу не получилось ничего перспективного...

Автор - Gustav
Дата добавления - 19.09.2012 в 11:18

Дата: Среда, 19.09.2012, 11:25 | Сообщение № 13

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Gustav)

Если кто-нибудь сочинит формулу массива по смыслу наподобие такой

Code

=СЦЕПИТЬ(ЕСЛИ(ЕПУСТО(C3:F3);"";"+to:"&C3:F3))

только чтоб работала и возвращала строку из нескольких элементов, предваряемых подстрокой "+to:" каждый, то будет тому респект и уважуха. У меня пока сходу не получилось ничего перспективного...

И не получится. СЦЕПИТЬ() не может возвращать массив

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 19.09.2012, 11:34 | Сообщение № 14

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Quote (Serge_007)

СЦЕПИТЬ() не может возвращать массив

Что ж, подло с ее стороны! Массив не возвращает, диапазон не принимает... Неужели остается только тупое повторение фрагментов??

[vba]

Code

=СЦЕПИТЬ(
ЕСЛИ(ЕПУСТО(C3);"";"+to:"&C3);
ЕСЛИ(ЕПУСТО(D3);"";"+to:"&D3);
ЕСЛИ(ЕПУСТО(E3);"";"+to:"&E3);
ЕСЛИ(ЕПУСТО(F3);"";"+to:"&F3))

[/vba]

МОИ: Ник, Tip box: 41001663842605

Ответить

Дата: Среда, 19.09.2012, 12:00 | Сообщение № 15

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Gustav)

остается только тупое повторение фрагментов?

К сожалению да...

Лирическое отступление: "Операция Join с массивами - это одна из тех редких операций, которые на сегодня принципиально невозможны стандартными средствами рабочего листа. Это было бы не так, если бы функция СЦЕПИТЬ() не родилась с врожденным дефектом, неспособностью сцеплять и возвращать массивы" - Кирилл Лапин (KL), MVP Excel

--Как сцепить массив?--
Тема от 01.08.2010

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 19.09.2012, 12:28 | Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3691

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

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

365

Если нужно для дела, то думаю можно сочинить UDF для этого дела (сцепить массив).
Но я сейчас не в теме и некогда... не ждите, делайте smile

smile

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Дата: Среда, 19.09.2012, 12:42 | Сообщение № 17

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Hugo)

...думаю можно сочинить UDF для этого дела (сцепить массив)...

Игорь, по ссылке есть несколько вариантов. Например вариант Казанского:
[vba]

Code

Function СцепитьЭлемМассива(Массив)
'Ввод формулы: Ctrl+Shift+Enter
If IsArray(Массив) Then
СцепитьЭлемМассива = Join(Массив, "")
Else
СцепитьЭлемМассива = Массив
End If
End Function

[/vba]

или ещё похожий вариант (автора не знаю)
[vba]

Code

Function СцепитьЭлементыМассива(Массив)
'Ввод формулы: Ctrl+Shift+Enter
     Dim S As String, Arr As Variant, Item As Variant
     '
     If IsArray(Массив) Then
         Arr = Массив
         For Each Item In Arr
             S = S & Item
         Next
         СцепитьЭлементыМассива = S
     Else
         СцепитьЭлементыМассива = Массив
     End If
End Function

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 19.09.2012, 12:47 | Сообщение № 18

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

Ранг: Участник клуба

Сообщений: 2797

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

Замечаний: ±

начинал с Excel 4.0, видел 2.1

Не, спасибо, с UDF-ом понятно, не нужно. Мне-то вообще ничего не нужно, если только потом не потребуется самому ТС (типа аппетит во время еды придет) smile

smile

Просто хотелось формульного торжества разума, но раз не тот случай, то - не тот случай.

МОИ: Ник, Tip box: 41001663842605

Ответить

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

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

добрый день

Code

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

на выходе дает такой результат: http://maps.google.ru/maps?saddr=Boryspil&daddr=KievCSKA%20Stadium
вопрос: как сделать так чтоб ексель ставил пробел между N4 и О4 - так чтоб этот пробел появлялся в строке карт поиска маршрута?

Ответить

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

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Code

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

ЮMoney:41001419691823 | WMR:126292472390

Ответить

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

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

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!