Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сортировка до пустой строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка до пустой строки (Макросы/Sub)
Сортировка до пустой строки
Сергей13 Дата: Воскресенье, 15.09.2019, 12:36 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 254
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Ребята помогите изменить диапазон сортировки таким образом, дабы сортировка осуществлялась не фиксировано как показано в коде, а c g9 до ad-пустой строки, или до ad-пустой ячейки.
[vba]
Код
Sub SortNak()
    [g9:ad14].sort [g9], xlAscending, , , , , , xlYes
End Sub
[/vba]


Сообщение отредактировал Сергей13 - Воскресенье, 15.09.2019, 13:43
 
Ответить
СообщениеЗдравствуйте!
Ребята помогите изменить диапазон сортировки таким образом, дабы сортировка осуществлялась не фиксировано как показано в коде, а c g9 до ad-пустой строки, или до ad-пустой ячейки.
[vba]
Код
Sub SortNak()
    [g9:ad14].sort [g9], xlAscending, , , , , , xlYes
End Sub
[/vba]

Автор - Сергей13
Дата добавления - 15.09.2019 в 12:36
RAN Дата: Воскресенье, 15.09.2019, 15:18 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5151
Репутация: 1027 ±
Замечаний: 0% ±

2010
[vba]
Код
[g9].CurrentRegion.sort [g9], xlAscending, , , , , , xlYes
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
[g9].CurrentRegion.sort [g9], xlAscending, , , , , , xlYes
[/vba]

Автор - RAN
Дата добавления - 15.09.2019 в 15:18
Сергей13 Дата: Воскресенье, 15.09.2019, 15:56 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 254
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, тут необходимо чтобы сортировка осуществлялась по строкам в диапазоне столбцов g9:ad9 до пустой строки или до пустой ячейки по столбцу ad9.
 
Ответить
СообщениеRAN, тут необходимо чтобы сортировка осуществлялась по строкам в диапазоне столбцов g9:ad9 до пустой строки или до пустой ячейки по столбцу ad9.

Автор - Сергей13
Дата добавления - 15.09.2019 в 15:56
RAN Дата: Воскресенье, 15.09.2019, 16:42 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5151
Репутация: 1027 ±
Замечаний: 0% ±

2010
Кому действительно нужно, тот показывает, что ему нужно.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКому действительно нужно, тот показывает, что ему нужно.

Автор - RAN
Дата добавления - 15.09.2019 в 16:42
Сергей13 Дата: Воскресенье, 15.09.2019, 19:05 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 254
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
RAN, подготовил тестовый пример под фиксированный диапазон.
К сообщению приложен файл: 8853811.xlsm(20.7 Kb)


Сообщение отредактировал Сергей13 - Воскресенье, 15.09.2019, 19:07
 
Ответить
СообщениеRAN, подготовил тестовый пример под фиксированный диапазон.

Автор - Сергей13
Дата добавления - 15.09.2019 в 19:05
krosav4ig Дата: Воскресенье, 15.09.2019, 20:47 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2182
Репутация: 913 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
[vba]
Код
Sub SortNak()
    Dim r As Range: Set r = [g9]
    With r.CurrentRegion
        With Intersect(.Offset(r.Row - .Row, r.Column - .Column), .Cells)
            .Sort r, xlAscending, , , , , , xlYes
        End With
    End With
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте
[vba]
Код
Sub SortNak()
    Dim r As Range: Set r = [g9]
    With r.CurrentRegion
        With Intersect(.Offset(r.Row - .Row, r.Column - .Column), .Cells)
            .Sort r, xlAscending, , , , , , xlYes
        End With
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 15.09.2019 в 20:47
Pelena Дата: Воскресенье, 15.09.2019, 20:53 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 14579
Репутация: 3192 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Можно ещё так попробовать
[vba]
Код
Sub SortNak()
    Range(Cells(10, "g"), Cells(10, "ad").End(xlDown)).Sort [g9], xlAscending, , , , , , xlNo
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожно ещё так попробовать
[vba]
Код
Sub SortNak()
    Range(Cells(10, "g"), Cells(10, "ad").End(xlDown)).Sort [g9], xlAscending, , , , , , xlNo
End Sub
[/vba]

Автор - Pelena
Дата добавления - 15.09.2019 в 20:53
Сергей13 Дата: Воскресенье, 15.09.2019, 21:43 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 254
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Оба кода функционируют, в первом случае неясно как на основании одного данного происходит нужная сортировка…
Ребята, а можно подкорректировать так, чтобы сортировка со столбца G влияла на строки впереди стоящих столбцов, по сути диапазон сортировки d:ad а сортируется с g.
 
Ответить
СообщениеОба кода функционируют, в первом случае неясно как на основании одного данного происходит нужная сортировка…
Ребята, а можно подкорректировать так, чтобы сортировка со столбца G влияла на строки впереди стоящих столбцов, по сути диапазон сортировки d:ad а сортируется с g.

Автор - Сергей13
Дата добавления - 15.09.2019 в 21:43
Pelena Дата: Воскресенье, 15.09.2019, 21:45 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 14579
Репутация: 3192 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
В моем коде поменяйте "g" на "d"


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВ моем коде поменяйте "g" на "d"

Автор - Pelena
Дата добавления - 15.09.2019 в 21:45
Сергей13 Дата: Воскресенье, 15.09.2019, 23:21 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 254
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо всем. Завтра по комбинирую.
 
Ответить
СообщениеСпасибо всем. Завтра по комбинирую.

Автор - Сергей13
Дата добавления - 15.09.2019 в 23:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка до пустой строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!