Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование данных между разными книгами - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир 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)
 
Ответить
СообщениеДобрый день. Возникла заминка с копированием данных между разными книгами. Суть такая: есть книга "Ведомость донор" в которую могут вносить данные разные люди и есть файл "График вставка" в котором работаю я, формируя графики для работы. Нужно из ведомости периодически переносить данные в график. Домов в ведомости может быть тысяча и хотелось бы делать это по нажатию на кнопку. В приложенных файлах есть макрос, но при большом количестве домов он зависает на долго. Может кто-нибудь сможет его подправить или предложит свой вариант, буду очень благодарен.

Автор - stasikkk
Дата добавления - 28.11.2021 в 13:02
InExSu Дата: Воскресенье, 12.12.2021, 00:31 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 638
Репутация: 95 ±
Замечаний: 0% ±

Excel 2010
Привет!

В начале макроса:
[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]

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


Переношу VBA на Google Apps Script, адаптирую VBA к Mac
 
Ответить
СообщениеПривет!

В начале макроса:
[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]

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

Автор - InExSu
Дата добавления - 12.12.2021 в 00:31
stasikkk Дата: Воскресенье, 12.12.2021, 17:52 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - stasikkk
Дата добавления - 12.12.2021 в 17:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование данных между разными книгами (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!