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

Вернуться   Форум программистов > 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

Ответ
 
Опции темы
Старый 24.03.2017, 23:45   #11
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Адрес: Москва
Сообщений: 143
Репутация: 107
По умолчанию

Я задачи не видел. Задача должна быть в файле Excel.

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

Цитата:
Сообщение от AlexM12 Посмотреть сообщение
Я задачи не видел. Задача должна быть в файле Excel.

Если же такая, то макрос должен подходить. Если задача почти такая, то опишите отличия.
Вы правы, наверное почти такая же. Есть прайс со ссылками на страницу с фото(=ГИПЕРССЫЛКА("http://www.supertoys.ru/image.php?f=7867&m=82269";"фото"), ссылки закрыты "фото".... я очищаю эти ссылки до такого http://www.supertoys.ru/image.php?f=7867&m=82269 , а потом преобразовываю в http://www.supertoys.ru/img/7867.jpg. Вот такая задача) сижу долго... пытаюсь найти решение для автоматизации процесса.
tata70 вне форума   Ответить с цитированием
Старый 25.03.2017, 00:31   #13
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Адрес: Москва
Сообщений: 143
Репутация: 107
По умолчанию

Код:

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

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

Ура!!!! Вы просто добрый волшебник! спасибо вам огромное! Все работает.
Даже не ожидала, что кто то возьмется мне помочь.
Простите за наглость... а можно если возникнет необходимость обратиться к Вам еще?))
tata70 вне форума   Ответить с цитированием
Старый 25.03.2017, 00:41   #15
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Адрес: Москва
Сообщений: 143
Репутация: 107
По умолчанию

Вы пишите вопрос на форуме, прикладывайте файл в формате Excel и вам помогут.
__________________
Алексей М.
AlexM12 вне форума   Ответить с цитированием
Ответ



Опции темы

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

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




08:48.


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

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


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

RusProfile.ru


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