Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сортировка в VBA. Вопрос
 
#1
18.08.2010 08:27:11
При сортировке в VBA нужного диапазона приходится отделять его от заголовков пустой строкой. Возникает проблема со сводными. Как по уму это делается?
 
 
 
#2
18.08.2010 09:06:13
{quote}{login=Пользователь111}{date=18.08.2010 08:27}{thema=Сортировка  в VBA. Вопрос}{post}При сортировке в VBA нужного диапазона приходится отделять его от заголовков пустой строкой. Возникает проблема со сводными. Как по уму это делается?{/post}{/quote}  
 
А какой код для сортировки вы используете?
 
 
 
#3
18.08.2010 09:11:13
К примеру Range("A3").CurrentRegion.Sort Key1:=Range("A3"), Key2:=Range("C3"), Key3:=Range("E3")  
 
A2 пустая
 
 
 
#4
18.08.2010 09:13:57
Павлов пришел :)  
Николай, здравствуйте! Почему так редко с нами?
 
 
 
#5
18.08.2010 11:28:15
Наверное,сортировка выделения диапазона без заголовков единственный вариант
 
 
 
#6
18.08.2010 12:21:28
Заело..Не могу придумать код выделения Current региона без верней строки
 
 
 
#7
18.08.2010 16:35:59
Какая разница, диапазон для сортировки включает в себя строку заголовка, или нет?  
 
В параметрах вызова метода SORT можно указать, есть ли у сортируемого диапазона заголовок:  
 
параметр: Header      
Specifies whether or not the first row contains headers. Cannot be used when sorting PivotTable reports  
 
значение - одно из трёх:    
xlGuess. Let Microsoft Excel determine whether there’s a header, and to determine where it is, if there is one.    
xlNo (default). (The entire range should be sorted).    
xlYes. (The entire range should not be sorted).
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#8
19.08.2010 06:34:05
Из-за незнания этого метода пришлось по-домашнему  
Range("A1").Activate  
Set CurrentReg = ActiveCell.CurrentRegion  
R = CurrentReg.Rows.Count  
C = CurrentReg.Columns.Count  
Set CurrentReg_1 = Range(ActiveCell.Offset(1, 0), Cells(R, C))  
CurrentReg_1.Sort Key1:=Range("A2") ' и т.д  
 
Смешно, конечно!
 
 
 
#9
19.08.2010 07:12:09
Что смешного? Вы и сами могли бы нажатьF1 на слове Sort, как за Вас это любезно сделал EducatedFool. Да и приведенный Вами код, это танцы с бубнами. Лучше так:  
Set tbl = [A1].CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Sort... и т.д.
Я сам - дурнее всякого примера! ...
 
 
 
#10
19.08.2010 09:18:30
Век живи,век учись-дураком помрешь  
Не всем же KukIp быть
 
 
 
Страницы: 1
Читают тему
Наверх