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

Вход

Регистрация

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

 

= Мир MS Excel/сортировка по возрастанию или убыванию - Мир MS Excel

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

Excel 2013
Здравствуйте! Помогите настроить макрос, что бы при "вставании" на столбец I6,J6 или K6 нажатием "стрелок" происходила сортировка по ранжиру всей строки, не захватывая столбец А (там порядковый номер и он не должен меняться). Не пойму где ошибка, раньше все работало. Спасибо.
Вроде разобрался, без моих заполненных значений строк B6 - H6 не будет работать макрос
К сообщению приложен файл: 0541407.xlsm(85.6 Kb)


Сообщение отредактировал maslenkin - Среда, 29.05.2019, 12:00
 
Ответить
СообщениеЗдравствуйте! Помогите настроить макрос, что бы при "вставании" на столбец I6,J6 или K6 нажатием "стрелок" происходила сортировка по ранжиру всей строки, не захватывая столбец А (там порядковый номер и он не должен меняться). Не пойму где ошибка, раньше все работало. Спасибо.
Вроде разобрался, без моих заполненных значений строк B6 - H6 не будет работать макрос

Автор - maslenkin
Дата добавления - 29.05.2019 в 11:31
_Boroda_ Дата: Среда, 29.05.2019, 12:24 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15577
Репутация: 6079 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Заполните столбец В
Или в макросах перепишите строку
[vba]
Код
ps = Range("B" & Rows.Count).End(xlUp).row
[/vba]на столбец I,J или K вместо В, как у Вас сейчас
К сообщению приложен файл: 0541407_1.xlsm(79.1 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЗаполните столбец В
Или в макросах перепишите строку
[vba]
Код
ps = Range("B" & Rows.Count).End(xlUp).row
[/vba]на столбец I,J или K вместо В, как у Вас сейчас

Автор - _Boroda_
Дата добавления - 29.05.2019 в 12:24
maslenkin Дата: Вторник, 06.08.2019, 19:15 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
почему как только выставил запрет на изменение формул столбца J (там только через защиту листа, хочю обезопасить себя от случайного изменения формул, данных), то сразу перестал работать макрос сортировки?
К сообщению приложен файл: 9237946.xlsm(80.5 Kb)
 
Ответить
Сообщениепочему как только выставил запрет на изменение формул столбца J (там только через защиту листа, хочю обезопасить себя от случайного изменения формул, данных), то сразу перестал работать макрос сортировки?

Автор - maslenkin
Дата добавления - 06.08.2019 в 19:15
китин Дата: Среда, 07.08.2019, 07:53 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 5929
Репутация: 921 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
ну дык сначала надо снять защиту.
[vba]
Код
ActiveSheet.Unprotect Password:="ваш пароль"
[/vba]
затем ее поставить
[vba]
Код
ActiveSheet.Protect Password:="ваш пароль"
[/vba]


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениену дык сначала надо снять защиту.
[vba]
Код
ActiveSheet.Unprotect Password:="ваш пароль"
[/vba]
затем ее поставить
[vba]
Код
ActiveSheet.Protect Password:="ваш пароль"
[/vba]

Автор - китин
Дата добавления - 07.08.2019 в 07:53
RAN Дата: Среда, 07.08.2019, 08:24 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5179
Репутация: 1043 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеУстанвливать защиту макросом
КАК ЗАЩИТИТЬ ЛИСТ ОТ ПОЛЬЗОВАТЕЛЯ, НО НЕ ОТ МАКРОСА?

Автор - RAN
Дата добавления - 07.08.2019 в 08:24
maslenkin Дата: Среда, 07.08.2019, 10:31 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
ну дык сначала надо снять защиту.

если я правильно понял, то сделал вот так
[vba]
Код
Sub Сортировка_по_видам_возрастание()
    ActiveSheet.Unprotect Password:="1"
    Dim kl&, ps&
    kl = Selection.Column
    ps = Range("B" & Rows.Count).End(xlUp).row
    Range("B6:AD" & ps).Sort Key1:=Cells(6, kl), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Rows("2:1000").RowHeight = 20
ActiveSheet.Protect Password:="1"
End Sub
[/vba]
Данный код нужно дописать перед каждым исполняемым макросом ?
 
Ответить
Сообщение
ну дык сначала надо снять защиту.

если я правильно понял, то сделал вот так
[vba]
Код
Sub Сортировка_по_видам_возрастание()
    ActiveSheet.Unprotect Password:="1"
    Dim kl&, ps&
    kl = Selection.Column
    ps = Range("B" & Rows.Count).End(xlUp).row
    Range("B6:AD" & ps).Sort Key1:=Cells(6, kl), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Rows("2:1000").RowHeight = 20
ActiveSheet.Protect Password:="1"
End Sub
[/vba]
Данный код нужно дописать перед каждым исполняемым макросом ?

Автор - maslenkin
Дата добавления - 07.08.2019 в 10:31
китин Дата: Среда, 07.08.2019, 10:41 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 5929
Репутация: 921 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
в каждом макросе, который работает на защищенном листе


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениев каждом макросе, который работает на защищенном листе

Автор - китин
Дата добавления - 07.08.2019 в 10:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сортировка по возрастанию или убыванию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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