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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2010, 21:25   #1
ProkVS
Новичок
Джуниор
 
Регистрация: 14.02.2010
Сообщений: 1
По умолчанию Автоматическая замена имени файла в связанной ячейке

Имеем книги "Сотрудник1", "Сотрудник2" и т.д. и книгу "Сводный отчёт"
Ячейка А1 книги "Сотрудник1" связана с ячейкой А1 книги "Сводный отчёт". Ячейка А1 "Сотрудник2" связана с А2 "Сводный отчёт" и т.д.
Таким образом, если заполнить столбец А в "Сводном отчёте" именами сотрудников, во всех книгах этих сотрудников в ячейке А1 отобразятся их имена.
В книге "Сводный отчёт" собрана информация со всех книг "Сотрудников.." в общую таблицу путём связи ячеек. В результате, сотрудники заполняют свои таблицы, а руководитель наблюдает обобщённую картину в одном файле "Сводный отчёт".
В связи с тем, что очень не удобно работать с файлами под названием "Сотрудник1" и т.п., возникает необходимость реализовать следующую задачу:
В книге "Сводный отчёт" в ячейке А1 пишем "Иванов Иван" - автоматически имя файла "Сотрудник1.xls" меняется на "Иванов Иван.xls" и все связанные ячейки в "Сводном отчёте" меняются с "С:\Сотрудник1.." на "С:\Иванов Иван.. "

Насколько я понимаю, это можно реализовать двумя макросами:
Первый запустится при открытии файла "Сотрудник1.xls", сверит название файла с текстом в ячейке А1 и если он будет отличаться, запустит команду "Сохранить как" с прописанным именем файла соответствующим тексту в ячейке А1, далее, если это возможно, удалит оригинал.
Второй макрос запустится в тот самый момент, когда произойдёт изменение в ячейке А1 "Сводного отчёта", он должен будет заменить имя файла во всех связанных ячейках с С:\Сотрудник1.. на С:\Иванов Иван..

Заранее благодарен за любую помощь!
ProkVS вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматическая замена значений Mr.Jass Microsoft Office Excel 8 23.11.2010 17:20
Автоматическая замена формул значениями lordneo Microsoft Office Excel 2 17.08.2010 20:46
Автоматическая замена данных в таблице. <Dmitry!> Microsoft Office Excel 4 18.05.2010 12:43
Автоматическая замена номера на имя Anzor_09 Microsoft Office Excel 3 19.02.2010 11:17
Word. автоматическая замена значений belikk Microsoft Office Word 8 07.03.2009 11:03