Сортировка с помощью VBA - Microsoft Office Excel

Lyubov1990 · 08.04.2009, 16:23

Помогите пожалуйста произвести сортировку по фамилии преподавателя с помощью VBA!

EducatedFool · 08.04.2009, 16:29

А что, макрорекордером воспользоваться сложно?

Код:

Sub Сортировка()
    ActiveSheet.UsedRange.Sort [a1], xlAscending, , , , , , xlYes
End Sub

Правда, в этом случае под сортировку попадают и строки 129:133 с итогами...

Чтобы этого избежать, используйте такой вариант:

Код:

Sub Сортировка()
    [a1:v120].Sort [a1], xlAscending, , , , , , xlYes
End Sub

Lyubov1990 · 08.04.2009, 16:36

Спасибо большое! Все получилось!

Lyubov1990 · 02.06.2009, 12:47

Добрый день! Подскажите пожалуйста как можно произвести сортировку по выбранному на форме из списка элементу?

SAS888 · 02.06.2009, 13:10

Можно все, что угодно. Только уточните, что значит

Цитата:

по выбранному на форме из списка элементу

Т.е. есть таблица. Выбираем на форме элемент. Жмем кнопку. И таблица сортируется так, что все строки, содержащие выбранный элемент перемещаются вверх, а все остальные вниз. Причем, обе части таблицы отсортированы по алфавиту. Так?

Lyubov1990 · 02.06.2009, 15:15

Имеется лист с таблицей! Названия столбцов в таблице будут находится в списке на форме! Предполагается что, пользователь должен будет выбрать из списка элемент и таблица будет отсортирована по этому столбцу!

EducatedFool · 02.06.2009, 16:14

Вот весь код:

Код:

Private Sub CommandButton1_Click()
    [a1:v120].Sort Cells(1, Me.ListBox1), xlAscending, , , , , , xlYes
End Sub

Private Sub CommandButton2_Click(): Me.Hide: End Sub

Private Sub UserForm_Initialize()
    Dim cell As Range
    For Each cell In Range(Range("a1"), Range("iv1").End(xlToLeft)).Cells
        If Trim(cell) <> "" Then
            Me.ListBox1.AddItem cell.Column
            Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = cell
        End If
    Next
End Sub

Пример во вложении:

Lyubov1990 · 02.06.2009, 16:50

Спасибочки, огромное вы мне очень помогли!

gost' · 22.11.2011, 19:46

помогите пожалуйста вот с какой проблемой
я импортировал файл в лист Excel теперь этот файл мне нужно в одном из столбцов найти все строки в которых содержится число 270 выбрать этот диапазон с прилегающими к нему столбцами и эту получившуюся небольшую таблицу поставить вместо изначальной которую я импортировал

VictorM · 22.11.2011, 19:58

Пример вашего файла.
Иначе это пустой разговор.

08.04.2009, 16:29	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	А что, макрорекордером воспользоваться сложно? Код: `Sub Сортировка() ActiveSheet.UsedRange.Sort [a1], xlAscending, , , , , , xlYes End Sub` Правда, в этом случае под сортировку попадают и строки 129:133 с итогами... Чтобы этого избежать, используйте такой вариант: Код: `Sub Сортировка() [a1:v120].Sort [a1], xlAscending, , , , , , xlYes End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 08.04.2009 в 16:32.

02.06.2009, 12:47	#4
Lyubov1990 Пользователь Регистрация: 06.04.2009 Сообщений: 34	VBA Сортировка Добрый день! Подскажите пожалуйста как можно произвести сортировку по выбранному на форме из списка элементу?

22.11.2011, 19:58	#10
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Пример вашего файла. Иначе это пустой разговор. "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как удалять ячейки с помощью VBA	Рома_Чайник	Microsoft Office Excel	4	16.02.2009 11:31
Удаление строк с помощью VBA	risen	Microsoft Office Excel	4	28.01.2009 09:28
Помогите упростить с помощью VBA	Dubineanschi	Microsoft Office Excel	3	22.10.2008 14:21
Скрыть-Отобразить с помощью VBA	ZORRO2005	Microsoft Office Excel	5	01.09.2008 09:11
Сверка данных с помощью VBA	mal001	Microsoft Office Excel	2	06.08.2008 14:39

08.04.2009, 16:36	#3
Lyubov1990 Пользователь Регистрация: 06.04.2009 Сообщений: 34	Спасибо большое! Все получилось!

02.06.2009, 15:15	#6
Lyubov1990 Пользователь Регистрация: 06.04.2009 Сообщений: 34	Имеется лист с таблицей! Названия столбцов в таблице будут находится в списке на форме! Предполагается что, пользователь должен будет выбрать из списка элемент и таблица будет отсортирована по этому столбцу!

02.06.2009, 16:50	#8
Lyubov1990 Пользователь Регистрация: 06.04.2009 Сообщений: 34	Спасибочки, огромное вы мне очень помогли!

22.11.2011, 19:46	#9
gost' Новичок Джуниор Регистрация: 22.11.2011 Сообщений: 3	помогите пожалуйста вот с какой проблемой я импортировал файл в лист Excel теперь этот файл мне нужно в одном из столбцов найти все строки в которых содержится число 270 выбрать этот диапазон с прилегающими к нему столбцами и эту получившуюся небольшую таблицу поставить вместо изначальной которую я импортировал