Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Эквивалент ctrl+a и ctrl+v на VBA
 
#1
18.05.2012 13:32:16
Макрорекодер выдает координаты, а у меня таблица генерируется и диапазон каждый раз разный.
 
 
 
#2
18.05.2012 13:36:32
{quote}{login=Kuzco}{date=18.05.2012 01:32}{thema=Эквивалент ctrl+a и ctrl+v на VBA}{post}Макрорекодер выдает координаты, а у меня таблица генерируется и диапазон каждый раз разный.{/post}{/quote}  
"ctrl+a" это выделить всё, что у вас "всё"?!. И вообще, можно простым русским языком, с чувством , с толком, расстановкой, чтобы было понятно и... бабушке Арине. Приступаем?.. ;) -18569-
 
 
 
#3
18.05.2012 13:40:13
Прямой эквивалент - это  
 
Application.SendKeys "^a^v"  
 
В остальном присоединяюсь к Z.
 
 
 
#4
18.05.2012 14:06:13
Всё- это большая таблица. около 500000 строк и 5 столбцов.    
Сендкей пробовал. Так как после сендкея есть еще события, то сендкей срабатывает до того, как эксель отработает предыдущие.
 
 
 
#5
18.05.2012 14:08:23
Может быть так подойдёт:  
 
ActiveSheet.UsedRange.Find("что-то_приметное_существующее").CurrentRegion.Select  
 
 
Насчёт ctrl+v непонятно.
 
 
 
#6
18.05.2012 14:27:35
Мне нужно книгу с таблицей открыть,  выделить, скопировать и вставить в ячейку a2 другой книги.  
 
Если в один макрос впихнуть "открыть,  выделить, скопировать", а в другой "вставить в ячейку a2 другой книги". то сендкеи срабатывают.  
А если все в теле одного макроса, то до того, как книга откроется, уже срабатываю в ячейке а2 сендкеи.  
 
Я пробовал выделить всю область с помощью  Range(Selection, Selection.End(xlDown)).Select, но встречаются пустые ячейки и он на этом спотыкается
 
 
 
#7
18.05.2012 14:38:12
ActiveSheet.UsedRange.Copy Workbooks("Другая").Sheets("Нужный").Range("A2")
 
 
 
#8
18.05.2012 14:54:43
Проблема не скопировать, проблема выделить.  
 
 
А в VBA есть таймер. Может просто указать задержку секунд  в 5, тогда сендкей сработает
 
 
 
#9
18.05.2012 15:10:59
Бестолковая какая-no переписка.  
ActiveSheet.Cells.Select  
ActiveSheet.UsedRange.Select  
Что из этого "выделить все"?  
Или "все" - эот что-то другое?  
И зачем вообще выделять?
 
 
 
#10
18.05.2012 15:14:41
Мне не нужно выделить все ячейки, а только таблицу, когда щелкаешь внутри таблицы и жмешь ctrl+a - она выделяется.  
Вот этот самый ctrl+a я и пытаюсь описать макросом, но без sendkey
 
 
 
#11
18.05.2012 15:18:45
ActiveSheet.UsedRange.Select выделяет, но там есть еще ненужный хвост. Его генерирует программа при импорте.    
 
Можно ли добавить скрипт, который удаляет последние 5 строк?
 
 
 
#12
18.05.2012 15:23:51
{quote}{login=}{date=18.05.2012 03:18}{thema=}{post}... Можно ли добавить скрипт, который удаляет последние 5 строк?{/post}{/quote}  
Можно, добавляйте...
 
 
 
#13
18.05.2012 15:26:31
Я знаю только как удалить последнюю строку, а вот как последние 5, не знаю
 
 
 
#14
18.05.2012 16:07:40
@#$%#$%!  
Пример таблицы где?  
Зачем вообще выделять?  
Мой вариант пробовали?
 
 
 
#15
18.05.2012 18:46:17
{quote}{login=}{date=18.05.2012 03:26}{thema=}{post}Я знаю только как удалить последнюю строку, а вот как последние 5, не знаю{/post}{/quote}Если умеете последнюю - добавьте к ней ещё четыре.  
Вы изначально упёрлись в проблему с выделением, а ведь для копирования совсем необязательно выделять. И можно сразу копировать за вычетом пяти строк, чтобы потом их не удалять.
 
 
 
#16
18.05.2012 21:34:20
Если Вам не подходят вышеуказанные советы и макросы специалистов VBA, тогда вот Вам макрос с Вашим любимым SendKeys:  
 
Sub SendK()  
Dim rR As Range  
Dim wb As String: wb = ThisWorkbook.Path & "/ONE.xls"  
   For Each rR In ActiveSheet.UsedRange  
       If rR.Value <> "" Then rR.Activate  
   Next  
   With Application  
       .SendKeys "^a^c"  
       DoEvents  
       Workbooks.Open Filename:=wb  
       .SendKeys "^v"  
       DoEvents  
       .CutCopyMode = False  
   End With  
End Sub
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
Страницы: 1
Читают тему
Наверх