Копирование данных между разными книгами

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных между разными книгами (Макросы/Sub)

stasikkk

Дата: Воскресенье, 28.11.2021, 13:02 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день. Возникла заминка с копированием данных между разными книгами. Суть такая: есть книга "Ведомость донор" в которую могут вносить данные разные люди и есть файл "График вставка" в котором работаю я, формируя графики для работы. Нужно из ведомости периодически переносить данные в график. Домов в ведомости может быть тысяча и хотелось бы делать это по нажатию на кнопку. В приложенных файлах есть макрос, но при большом количестве домов он зависает на долго. Может кто-нибудь сможет его подправить или предложит свой вариант, буду очень благодарен.

К сообщению приложен файл: 0915625.xlsm (39.1 Kb) · 0212507.xlsm (26.9 Kb)

Ответить

InExSu

Дата: Воскресенье, 12.12.2021, 00:31 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

Репутация: 96 ±

Замечаний: 0% ±

Excel 2010, 365

Привет!

В начале макроса:
[vba]

Код

   Application.ScreenUpdating = False
   Dim xlCalc As Long
   xlCalc = Application.Calculation
   Application.Calculation = xlCalculationManual
' В конце:
   Application.Calculation = xlCalc
   Application.ScreenUpdating = True

[/vba]

В самом коде:
Вынесите из цикла - поставьте выше For ...
[vba]

Код

Dim Adres As String, str As Integer

[/vba]

замените Trim на Trim$

При обращении к значению ячейки явно указывайте .Value
Например, вместо:
[vba]

Код

Trim(Cells(s, 2))

[/vba]
пишите:
[vba]

Код

Trim$(Cells(s, 2).Value)

[/vba]

Желательно переписать код на использование массивов.

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

stasikkk

Дата: Воскресенье, 12.12.2021, 17:52 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

InExSu, Спасибо огромное что откликнулись, но к сожалению переписать код точно не смогу, т.к. этот код не мой, да и у самого познания в макросах весьма скромные. Может вы могли бы меня выручить, а то начало следующего года уже не за горами , а графики пока так и не готовы.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных между разными книгами (Макросы/Sub)

Страница 1 из 1
1