Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск последней строки выделенного диапазона., VBA.
 
#1
02.04.2015 12:47:33
Здравствуйте.
Ищу  последнюю строку выделенного диапазона.
Получилось таким методом  - Selection.Row + Selection.Rows.count - первая строка выделенного диапазона+количество.
Как можно сразу определить последнюю строку?

Цель - очистить после вставки то, что было вставлено раньше и имело диапазон больший, чем текущая вставка.
Range(Cells(Selection.Row + Selection.Rows.count, 1), Cells(Selection.Row + Selection.Rows.count + 100, 16)).Clear

Спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#2
02.04.2015 12:54:43
Код
With Selection
    r = .Item(.Count).Row
End With
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
02.04.2015 13:11:52
Спасибо, Sanja.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#4
02.04.2015 13:17:47
а сначала очистить Selection, а потом уж вставлять - не вариант?
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#5
03.04.2015 07:53:16
Цитата
r = .Item(.Count)
А как можно увидеть словарь Item?
В окне Locals я не вижу его.. Вообще, в VBA есть аналогия просмотра массивов, как в функциях Excel - F9? Для правильного изучения и понимания VBA это очень даже необходимо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#6
03.04.2015 11:27:49
Цитата
в VBA есть аналогия просмотра массивов, как в функциях Excel - F9?
View-LocalsWindow
При остановке кода, при ошибке или пошаговом прогоне (т.е. когда процедура не завершена) в окне можно видеть и изменять значения переменных, массивов.
 
 
 
#7
03.04.2015 11:39:02
Код
selection.offset(selection.rows.count).resize(100).clear
Живи и дай жить..
 
 
 
#8
03.04.2015 12:27:19
Не получается, а мне это нужно понять. Можно подробнее..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#9
03.04.2015 12:29:06
Ещё вариант. Слэн, спасибо.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#10
03.04.2015 12:42:44
Циклом занести .Item в обычный массив. Значения можно посмотреть в окне Watches
Код
Option Base 1
Sub bb()
Dim arrItem()
With Selection
ReDim arrItem(.Count)
For I = 1 To .Count
    arrItem(I) = .Item(I)
Next
End With
Stop
End Sub
Изменено: Sanja - 03.04.2015 12:43:26
Согласие есть продукт при полном непротивлении сторон
 
 
 
#11
03.04.2015 12:48:43
Цитата
Владимир написал:  как можно увидеть словарь Item?
это не словарь, это объект-диапазон..
Посмотреть его в Locals можно если сделать
Код
set r = selection
и смотреть это r
 
 
 
#12
03.04.2015 12:58:00
Цитата
Не получается, а мне это нужно понять
Меню View, вызвать окно LocalsWindow. В нем при выполнении кода отображаются все переменные и массивы, их состояния.
 
 
 
#13
03.04.2015 22:14:04
Цитата
vikttur написал:  В нем при выполнении кода отображаются все переменные и массивы
Не все. Да, я зануда ))
 
 
 
#14
03.04.2015 22:20:01
Простите, пацаны, но у меня ничего не получилось. Ещё раз  - в мире формулистов  - F9 . Неужели у вас(макросописцев) нет такой клавиши? Обязательно писать целый цикл, дабы понять ..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#15
03.04.2015 22:21:56
Цитата
Владимир написал: в мире формулистов  - F9 . Неужели у вас(макросописцев) нет такой клавиши?
У нас там F8, если я правильно понял вопрос ) ПОШАГОВЫЙ прогон.
 
 
 
Страницы: 1
Наверх