Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
UsedRange без шапки таблицы
 
#1
07.06.2011 15:05:07
Приветствую.  
Такая запись задает диапазон, равный шапке таблицы.  
Set ra = Intersect(ActiveSheet.UsedRange, Rows("1:6"))  
А как задать диапазон, равный ActiveSheet.UsedRange, но без строк 1-6?  
Все мои попытки выдают ошибку..(
 
 
 
#2
07.06.2011 15:10:18
Почитайте справку по resize. Там как раз без первой строки:-)
Я сам - дурнее всякого примера! ...
 
 
 
#3
07.06.2011 15:14:15
Может так:  
With ActiveSheet.UsedRange  
   .Resize(.Rows.Count - 6).Offset(6).Select  
End With
 
 
 
#4
07.06.2011 15:30:34
Про Resize не подумал.  
сделал так  
    Set ra = Intersect(ActiveSheet.UsedRange, Rows("7:" & ActiveSheet.UsedRange.Rows.Count))  
 
Но подумал, а без .Rows.Count обойтись никак?-)
 
 
 
#5
07.06.2011 15:32:52
Можно. Если Вам заранее известно к-во строк в юзедренж.
Я сам - дурнее всякого примера! ...
 
 
 
#6
07.06.2011 15:39:48
А если UsedRange не с первой строки?  
Тогда    
Set ra = Intersect(ActiveSheet.UsedRange, Rows("7:" & ActiveSheet.UsedRange.Rows.Count))  
не годится.
 
 
 
#7
07.06.2011 16:00:50
With ActiveSheet  
  Set ra = .Range(.UsedRange.Cells(7,1),.UsedRange.Cells(.UsedRange.Rows.Count,.UsedRange.Columns.Count)  
End With
 
 
 
#8
07.06.2011 16:12:38
{quote}{login=The_Prist}{date=07.06.2011 04:05}{thema=Re: }{post}Хотя так и не понял что зачем...{/post}{/quote}  
Следующая строка  
    Set ra = Intersect(ra, Selection.EntireRow)  
И сюда не желательно случайное попадание шапки таблицы.  
Всем спасибо, вопрос снят.
 
 
 
#9
07.06.2011 16:16:11
{quote}{login=RAN}{date=07.06.2011 03:05}{thema=UsedRange без шапки таблицы}{post}Приветствую.  
Такая запись задает диапазон, равный шапке таблицы.  
Set ra = Intersect(ActiveSheet.UsedRange, Rows("1:6"))  
А как задать диапазон, равный ActiveSheet.UsedRange, но без строк 1-6?  
Все мои попытки выдают ошибку..({/post}{/quote}  
 
думаю, так:  
Set ra = Intersect(ActiveSheet.UsedRange.Offset(6, 0))
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#10
07.06.2011 16:24:38
Добавлю к "шапошнуму разбору"  
 
   With ActiveSheet.UsedRange  
       Set Ra = Range(.Rows(7), .Rows(.Rows.Count))  
   End With
 
 
 
Страницы: 1
Читают тему
Наверх