Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 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 Кб, 20 просмотров)

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

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

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

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

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

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

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

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

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

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

Последний раз редактировалось AlexM12; Вчера в 23:39.
AlexM12 вне форума   Ответить с цитированием
Старый Вчера, 23:41   #10
tata70
Новичок
 
Аватар для tata70
 
Регистрация: 24.03.2017
Адрес: Самара
Сообщений: 5
Репутация: 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




07:55.


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

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


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

RusProfile.ru


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