|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.04.2009, 02:18 | #1 |
Регистрация: 13.04.2009
Сообщений: 3
|
Как оптимизировать плиззз
Функция Select его заменители - как сделать что бы не блымали окна при выполнгении макроса когда он обращается к другим книгам
ли как исправить код - Sheets("input Draft").Select Range("H1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C1").Select Selection.copy Windows("TABLE1.xls").ActiveSheet.R ange("C4").Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C4").copy Windows("TABLE1.xls").ActiveSheet.R ange("C5").Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C7").copy Windows("TABLE1.xls").ActiveSheet.R ange("C6").Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C10").copy Windows("TABLE1.xls").ActiveSheet.R ange("C7").Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C13").copy Windows("TABLE1.xls").ActiveSheet.R ange("C8").Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C16").copy Windows("TABLE1.xls").ActiveSheet.R ange("C9").Past eSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C19").copy Windows("TABLE1.xls").ActiveSheet.R ange("C10").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C22").copy Windows("TABLE1.xls").ActiveSheet.R ange("C11").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C25").copy Windows("TABLE1.xls").ActiveSheet.R ange("C12").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C28").copy Windows("TABLE1.xls").ActiveSheet.R ange("C13").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C31").copy Windows("TABLE1.xls").ActiveSheet.R ange("C14").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C34").copy Windows("TABLE1.xls").ActiveSheet.R ange("C15").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C37").copy Windows("TABLE1.xls").ActiveSheet.R ange("C16").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C40").copy Windows("TABLE1.xls").ActiveSheet.R ange("C17").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C43").copy Windows("TABLE1.xls").ActiveSheet.R ange("C18").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C46").copy Windows("TABLE1.xls").ActiveSheet.R ange("C19").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C49").copy Windows("TABLE1.xls").ActiveSheet.R ange("C20").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Hourly_Rate_Sheet.xls").Ac tiveSheet.Range ("C52").copy Windows("TABLE1.xls").ActiveSheet.R ange("C21").Pas teSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Раздел: Microsoft Office Excel Создать новую тему |
13.04.2009, 05:37 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Попробуйте так:
Код:
Оба файла на момент запуска макроса должны быть открыты. |
13.04.2009, 06:05 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Ваш код начинается с того, что в ячейку "H1" листа "input Draft" вставляется какое-то уже ранее скопированное значение неизвестной ячейки. Это не понятно (поэтому, данная строка в коде закомментирована). Что касается остального кода, то хорошо бы знать имена листов. Так, пусть, например, лист в книге "TABLE1.xls", в который нужно вставить данные, называется "DestSheet", а лист в книге "Hourly_Rate_Sheet.xls", откуба берутся денные, имеет имя "SourSheet" (в коде макроса поменяйте эти имена на действительные). Тогда макрос будет достаточно простой:
Код:
Чем шире угол зрения, тем он тупее.
|
13.04.2009, 06:27 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Можно еще чуть проще:
Код:
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Оптимизировать код. | Манжосов Денис :) | Общие вопросы Delphi | 1 | 20.10.2008 19:06 |
Кто поможет оптимизировать прогу, а то я уже оптимизировал как мог :) | Droid | Помощь студентам | 7 | 12.05.2008 20:56 |
Как оптимизировать запрос MySQL с выборкой из двух таблиц. | Johnatan | SQL, базы данных | 6 | 13.04.2008 03:10 |
Оптимизировать код | NeiL | Помощь студентам | 2 | 21.02.2008 08:57 |
как может оптимизировать в фунцию? | w1ze | Помощь студентам | 2 | 07.01.2008 23:19 |