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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2012, 12:05   #1
bedrock90
Пользователь
 
Регистрация: 26.05.2012
Сообщений: 10
По умолчанию Макрос текст из "Надпись"

Здравствуйте, нужно написать макрос, а потом надстройку, которая будет копировать текст из "Надпись" в ячейки. Проблема в том, что берется значение из последней "надписи" и копируется во все выбранные ячейки.
Вложения
Тип файла: rar 234.rar (29.4 Кб, 16 просмотров)
bedrock90 вне форума Ответить с цитированием
Старый 09.08.2012, 12:24   #2
nerv
Форумчанин
 
Аватар для nerv
 
Регистрация: 26.04.2010
Сообщений: 450
По умолчанию

задание подразумевает оплату?
Тишина – самый громкий звук
nerv вне форума Ответить с цитированием
Старый 09.08.2012, 12:30   #3
bedrock90
Пользователь
 
Регистрация: 26.05.2012
Сообщений: 10
По умолчанию

Я не могу оценить сложность задачи (мне кажется она не такой сложной), но вообще расчитывал на посильную помощь.
bedrock90 вне форума Ответить с цитированием
Старый 09.08.2012, 12:37   #4
nerv
Форумчанин
 
Аватар для nerv
 
Регистрация: 26.04.2010
Сообщений: 450
По умолчанию

Код:
MsgBox ActiveSheet.Shapes("adrorg").AlternativeText
Тишина – самый громкий звук
nerv вне форума Ответить с цитированием
Старый 09.08.2012, 12:49   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,170
По умолчанию

Или
Код:
MsgBox ActiveSheet.Shapes("adrorg").OLEFormat.Object.Text
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 09.08.2012, 12:53   #6
bedrock90
Пользователь
 
Регистрация: 26.05.2012
Сообщений: 10
По умолчанию

Спасибо, но вы не могли бы скинуть весь код, целиком, потому что все равно не получается, возвращает пусто окно без значения в "adrorg". А должно копировать значение "adrorg" в ячейку F2.
bedrock90 вне форума Ответить с цитированием
Старый 09.08.2012, 12:57   #7
bedrock90
Пользователь
 
Регистрация: 26.05.2012
Сообщений: 10
По умолчанию

Спасибо Hugo121, ок теперь Msgbox возвращает нужное значение, но как теперь его скопировать в ячейку G2.
bedrock90 вне форума Ответить с цитированием
Старый 09.08.2012, 13:01   #8
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Вместо MSGBOX напишите [G2] =

Получится как-то так:
Код:
[G2] = ActiveSheet.Shapes("adrorg").OLEFormat.Object.Text
EducatedFool вне форума Ответить с цитированием
Старый 09.08.2012, 13:14   #9
bedrock90
Пользователь
 
Регистрация: 26.05.2012
Сообщений: 10
По умолчанию

Всем большое спасибо, еще такой вопрос: у меня большое количество таких файлов (около 700), в каждом из них необходимо сделать одно и тоже преобразование (как в примере), как это можно ускорить? Может быть с помощью надстройки?
bedrock90 вне форума Ответить с цитированием
Старый 09.08.2012, 13:17   #10
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Да, можно ускорить.
Пишете макрос, который получает список файлов в папке,
потом в цикле обрабатываете файлы.
Для каждого файла:
  • выполняете этот свой код из одной строки,
  • закрываете файл с сохранением
EducatedFool вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Требуется картинка, надпись "НЕТ ФОТО" WennY HTML и CSS 4 27.05.2011 16:30
Связь автофигуры "Надпись" в Word со значением ячейки в Excel. OMEN_6666 Microsoft Office Excel 2 24.12.2010 20:43
Как заменить жирний текст "тис. грн." на обычний текст "тис. грн." Jaroslav Microsoft Office Word 2 01.09.2010 18:09
Как убрать Надпись "Код"? Милана666 БД в Delphi 3 20.05.2010 11:24
Напечатать текст, удалив из него все цифры и знаки "+" или "–". Язык С++. KaylasMKTY Помощь студентам 8 07.03.2010 21:35