Форум программистов
Реклама:
Гарантия безопасности сети с UTM-системой ИКС.
Защита ПД, межсетевой экран, контроль доступа, фильтрация трафика, система предотвращения вторжений.
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 20.03.2017, 22:24   #1
Стассон
Новичок
 
Регистрация: 20.03.2017
Сообщений: 4
Репутация: 10
По умолчанию Excel: заменить слова в ячейках располагающимися под ними ссылками (в формате http://...)

Добрый вечер! Помогите ,пожалуйста, решить задачу по Excel : суть такова, что в каждой ячейке написали , например, Фото1, но под этим словом скрываются гиперссылки,которые нужно изменять в обычном текстовом формате ссылки http//.... ,иначе говоря надо удалить лишнее из каждой =ГИПЕРССЫЛКА("http://www.paremo.ru/upload/images/goods/2108a7fb-d910-11e4-0693-5404a6b1dcb9_11.jpg"; "Фото 11"....12,13 и оставить http://www.paremo.ru/upload/images/g...6b1dcb9_11.jpg, чтобы в ячейках были написаны обычные ссылки, в ручную можно,конечно, удалять лишнее по каждой ячейке, но их таких 1500 и у всех разные ссылки!!!
Изображения
Тип файла: png Снимок А.PNG (2.9 Кб, 27 просмотров)

Последний раз редактировалось Стассон; 21.03.2017 в 00:20. Причина: добавление информации
Стассон вне форума   Ответить с цитированием
Старый 20.03.2017, 22:59   #2
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 8,686
Репутация: 1563

icq: 7934250
skype: i2x0,5
По умолчанию

сейчас подтянуться гадалки и экстрасенсы и в миг решат вашу задачу.
им не нужны ни файлы, ни обьяснения - они выдают готовые решения отталкиваясь исключительно от Ника.
ждите, уважаемый Стассон, скоро ответы попрут неудержимым потоком
__________________
41001804815208 - Яндекс-деньги, Z155636649161, U350333612453, R282655679850 - WebMoney. благодарности за удачные советы и решения складывайте в один из кошельков.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума   Ответить с цитированием
Старый 21.03.2017, 10:52   #3
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Адрес: Москва
Сообщений: 203
Репутация: 107
По умолчанию

Я не экстрасенс, но так как утро вечера мудренее, догадался о чем мечтает ТС.
Код в стандартном модуле
Код:

Sub Макрос()
    Application.ScreenUpdating = False
    Dim iAddress As String, iCell As Range
    For Each iCell In Selection
        iAddress = Split(iCell.Formula, """")(1)
        iCell.ClearContents
        ActiveSheet.Hyperlinks.Add Anchor:=iCell, Address:=iAddress
    Next
    Application.ScreenUpdating = True
End Sub

Выделить диапазон ячеек с гиперссылками, сделанных функцией ГИПЕРССЫЛКА() и запустить макрос.
__________________
Алексей М.
AlexM12 вне форума   Ответить с цитированием
Старый 21.03.2017, 17:59   #4
Стассон
Новичок
 
Регистрация: 20.03.2017
Сообщений: 4
Репутация: 10
По умолчанию

Спасибо, буду пробовать.
Стассон вне форума   Ответить с цитированием
Старый 24.03.2017, 21:18   #5
Стассон
Новичок
 
Регистрация: 20.03.2017
Сообщений: 4
Репутация: 10
По умолчанию Макрос

Спасибо большое, получилось !!! Просто, в Екселе никогда не добирался до макросов, чтобы твой код использовать, разбирался , что оказывается нужно включить вкладку "Разработчик", а потом модуль.
Стассон вне форума   Ответить с цитированием
Старый 24.03.2017, 22:58   #6
tata70
Пользователь
 
Аватар для tata70
 
Регистрация: 24.03.2017
Адрес: Самара
Сообщений: 12
Репутация: 10
По умолчанию

Добрый вечер! у меня стоит такая же задача, но при выполнении макроса
выходит ошибка
Изображения
Тип файла: png Clip2net_170324230644.png (11.1 Кб, 10 просмотров)

Последний раз редактировалось tata70; 24.03.2017 в 23:08.
tata70 вне форума   Ответить с цитированием
Старый 24.03.2017, 23:24   #7
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Адрес: Москва
Сообщений: 203
Репутация: 107
По умолчанию

Покажите файл, с несколькими ссылками.
__________________
Алексей М.
AlexM12 вне форума   Ответить с цитированием
Старый 24.03.2017, 23:31   #8
tata70
Пользователь
 
Аватар для tata70
 
Регистрация: 24.03.2017
Адрес: Самара
Сообщений: 12
Репутация: 10
По умолчанию

Вот так выглядит моя задача)
Изображения
Тип файла: png Clip2net_170324232921.png (5.6 Кб, 10 просмотров)
tata70 вне форума   Ответить с цитированием
Старый 24.03.2017, 23:36   #9
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Адрес: Москва
Сообщений: 203
Репутация: 107
По умолчанию

Макрос с картинками не работает.
Кстати, а вы не забыли Выделить диапазон ячеек с гиперссылками, сделанных функцией ГИПЕРССЫЛКА() и запустить макрос.
__________________
Алексей М.

Последний раз редактировалось AlexM12; 24.03.2017 в 23:39.
AlexM12 вне форума   Ответить с цитированием
Старый 24.03.2017, 23:41   #10
tata70
Пользователь
 
Аватар для tata70
 
Регистрация: 24.03.2017
Адрес: Самара
Сообщений: 12
Репутация: 10
По умолчанию

Цитата:
Сообщение от AlexM12 Посмотреть сообщение
Макрос с картинками не работает.
Кстати, а вы не забыли Выделить диапазон ячеек с гиперссылками, сделанных функцией ГИПЕРССЫЛКА() и запустить макрос.
Спасибо большое за пояснение. Вы сэкономили мне время на выяснении причины.
А случайно не существует макроса для моей задачи?
Диапазон выделяла...
tata70 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. Заменить все английские слова на многоточие. scarecrow_1 C# (си шарп) 4 08.12.2016 17:41
Найти и заменить одно слово в ячейках на это же слово только отформатированное ExStella Microsoft Office Excel 3 14.10.2016 03:48
Заменить ключевые слова в ворде - Delphi romantik1993 Общие вопросы Delphi 1 01.03.2016 00:21
Печать двоичного представления числа в формате слова. Lina__N Assembler 1 06.06.2009 12:06




14:56.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru