Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2017, 13:29   #1
shchelelv
Новичок
Джуниор
 
Регистрация: 07.12.2017
Сообщений: 2
Смущение Метод Sort

Нужно выполнить сортировку в форме
Пишу для нее такой код не работает
Исправьте, пожалуйста, ошибку


Код:
Private Sub CommandButton1_Click() ′конец работы
End
End Sub
--------------------------------------------------------------------
Private Sub ListBox1_Click() ′выбор ключа сортировки в ListBox1
Dim sh As Range, LastRow& ′символ & обозначает строковый тип
Dim nomCol As Integer
nomCol = ListBox1.ListIndex + 1 'определение номера колонки–ключа сортировки
'определяем номер последней заполненной строки
LastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Set sh = _
Range("A1:F" & LastRow) 'устанавливаем диапазон сортировки
'используем метод Sort и указываем ключ сортивки
sh.Sort Key1:=Range(Cells(2, nomCol), Cells(2, nomCol)), _
Order1:=xlAscending, _ ′по возрастанию
Header:=xlYes, _ ′есть заголовок
OrderCustom:=1, _ 'указывает порядковый номер списка
MatchCase:=False, _ ‘не учитывает регистры букв при сортировке
Orientation:=xlTopToBottom, _ ′сортировка по строкам
DataOption1:=xlSortNormal ′числовые и текстовые поля сортируются по раздельности
End Sub
-----------------------------------------------------------------------------
Private Sub UserForm_Activate() ′заполнение ListBox1 при активации формы
ListBox1.AddItem ("фамилии")
ListBox1.AddItem ("oценка 1")
ListBox1.AddItem ("oценка 2")
ListBox1.AddItem ("oценка 3")
ListBox1.AddItem ("oценка 4")
ListBox1.AddItem ("oценка 5")
ListBox1.ListIndex = 0
End Sub
-----------------------
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор
Изображения
Тип файла: png сорт.png (47.1 Кб, 53 просмотров)

Последний раз редактировалось Serge_Bliznykov; 07.12.2017 в 14:03.
shchelelv вне форума Ответить с цитированием
Старый 07.12.2017, 14:07   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от shchelelv Посмотреть сообщение
LastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Set sh = _
Range("A1:F" & LastRow) 'устанавливаем диапазон сортировки
имхо, это нужно записать в отдельных строчках
Код:
LastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 
Set sh = Range("A1:F" & LastRow) 'устанавливаем диапазон сортировки
а во-вторых, я бы указывал в Range принудительно лист (ну, типа ActiveSheet.Range .....

Вы бы лучше файлик с вашей формой запаковали в архив и выложили на форум.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.12.2017, 15:07   #3
shchelelv
Новичок
Джуниор
 
Регистрация: 07.12.2017
Сообщений: 2
По умолчанию

Большое спасибо, долго бил голову, а оказалось все просто!!
shchelelv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы с sort() (C++) HEDO4EJIOBEK Помощь студентам 1 29.10.2013 17:07
stl sort Pein95 Общие вопросы C/C++ 4 22.06.2013 12:59
Метод Sort Vasya25 Microsoft Office Excel 4 21.05.2012 23:19
Не работает метод SORT leonard Microsoft Office Excel 0 17.05.2011 13:18
TList->Sort ongleb Общие вопросы C/C++ 0 12.03.2010 14:58