Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

379

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Советник

378

Россия, Санкт-Петербург


ID: 401888

puporev

Профессор

216

Россия, Пермский край


ID: 405338

vovaromanov.jr

1-й класс

130


ID: 400669

epimkin

Профессионал

112


ID: 242862

Hunter7007

Мастер-Эксперт

30

Россия, Омск


ID: 137394

Megaloman

Мастер-Эксперт

26

Беларусь, Гомель


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-19 15:16:08-standard


Установка, настройка и работа в пакете Microsoft Office.

Администратор раздела: Megaloman (Мастер-Эксперт)

Консультация онлайн # 160268

Раздел: Пакет MSOffice
Автор вопроса: Зотов В.П.
Дата: 12.02.2009, 10:02 Консультация закрыта
Поступило ответов: 1

Здравствуйте! Помогите пожайлуста в написании макроса в Excel2003. Ситуация такая: Есть Книга1. Должен быть макрос с кнопкой, по нажатию которой выполняется следующее: открываем Книга2, присваиваем переменной1 значение ячейки Книга2.А3, далее Книга2.А8=Книга1.В10+переменная2, далее изменяем переменную1 и записываем в Книга2.А3, закрываем Книга2. Желательно подробно расписанный и рабочий пример, остальное доделаю сам, давно не сталикивался с программированием, макросы не писал ни разу. Заранее спасибо.

Ответ # 243477 от Botsman
Здравствуйте, Зотов В.П.!
Вот требуемый макрос. В принципе, ваша задача содержит ряд непонятных моментов, все они указаны в макросе в примечаниях.
Для того, чтобы макрос работал, его нужно сохранить в вашем файле "Книга1.xls". Для чего жмем Сервис-Макрос-Редактор VisualBasic. Потом в открывшемся окне Вставка-модуль (Insert-Module). Появится новый модуль, открываем его, вставляем код и сохраняем.
После этого с макросом пожно работать Cервис-Макрос-Макросы... и выбираем нужный (у меня он называется main).
Если хотите, можно сделать на листе кнопку. Для этого в книге "Книга1" вставляем какой-нибудь объект, например прямоугольник (Вставка-Рисунок-Автофигуры, выбираем нужную и рисуем ее), после чего щелкаем правой клавишей по этому объекту, выбираем "Назначить макрос" и там выбираем нужный макрос. После этого макрос будет запускаться при щелчке про объекту (прямоугольнику)
Ну, и понятное дело, в екселе должен стоять уровень безопасности, НЕ ЗАПРЕЩАЮЩИЙ запуск макросов.
Вот, вроде бы все. Удачи. Если нужны еще комментарии, пишите.

Приложение:


Botsman

Посетитель
12.02.2009, 12:22
Мини-форум консультации # 160268
неизвестный

1

= общий =    13.02.2009, 12:35

run-time error '9' subscript out of range в строке var1 = Workbooks(fn).Sheets("лист1").Cells(3, 1).Value
fn (имя открываемого файла) определил, лист1 в нем есть, данные забил (в ячейки). Куда не туда лезу? Описать тип переменной? Что-то я торможу

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 122

Megaloman

Мастер-Эксперт

Рейтинг: 26

solowey

Академик

Рейтинг: 4

CradleA

Мастер-Эксперт

Рейтинг: 2

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

SFResid

Мастер-Эксперт

Рейтинг: 0