Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.03.2017, 21:24   #1
Стассон
 
Регистрация: 20.03.2017
Сообщений: 4
По умолчанию 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 Кб, 57 просмотров)

Последний раз редактировалось Стассон; 20.03.2017 в 23:20. Причина: добавление информации
Стассон вне форума Ответить с цитированием
Старый 20.03.2017, 21:59   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

сейчас подтянуться гадалки и экстрасенсы и в миг решат вашу задачу.
им не нужны ни файлы, ни обьяснения - они выдают готовые решения отталкиваясь исключительно от Ника.
ждите, уважаемый Стассон, скоро ответы попрут неудержимым потоком
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 21.03.2017, 09:52   #3
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Сообщений: 209
По умолчанию

Я не экстрасенс, но так как утро вечера мудренее, догадался о чем мечтает ТС.
Код в стандартном модуле
Код:
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, 16:59   #4
Стассон
 
Регистрация: 20.03.2017
Сообщений: 4
По умолчанию

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

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

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

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

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

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

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

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются пробелами и знаками препинания. Заменить все английские слова на многоточие. scarecrow_1 C# (си шарп) 4 08.12.2016 16:41
Найти и заменить одно слово в ячейках на это же слово только отформатированное ExStella Microsoft Office Excel 3 14.10.2016 02:48
Заменить ключевые слова в ворде - Delphi romantik1993 Общие вопросы Delphi 1 29.02.2016 23:21
Печать двоичного представления числа в формате слова. Lina__N Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 06.06.2009 12:06