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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос-сортировка столбца - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос-сортировка столбца (Макросы/Sub)
Макрос-сортировка столбца
wwizard Дата: Вторник, 10.01.2017, 13:04 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Добрый день.
Можно придумать маленьки макрос, который бы просто сортировал, всю таблицу, по примеру кнопки на панели?
Т.е. - есть огромная таблица, нужно ее постоянно сортировать по 8му столбцу и по 10му.

Т.е. сначала столбец № 8, потом столбец №10

[vba]
Код

Sub Сортировка строк по данным в столбце 8()
    Range("A3:F26").Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
[/vba]

Пробовал по этому примеру, ничего не получилось
К сообщению приложен файл: 8837982.xlsx (8.8 Kb)
 
Ответить
СообщениеДобрый день.
Можно придумать маленьки макрос, который бы просто сортировал, всю таблицу, по примеру кнопки на панели?
Т.е. - есть огромная таблица, нужно ее постоянно сортировать по 8му столбцу и по 10му.

Т.е. сначала столбец № 8, потом столбец №10

[vba]
Код

Sub Сортировка строк по данным в столбце 8()
    Range("A3:F26").Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
[/vba]

Пробовал по этому примеру, ничего не получилось
Автор - wwizard
Дата добавления - 10.01.2017 в 13:04
Pelena Дата: Вторник, 10.01.2017, 13:11 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19189
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Макрорекодер записал так в Вашем примере
[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H2:H5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("K2:K5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A1:K5")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Макрорекодер записал так в Вашем примере
[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H2:H5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("K2:K5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A1:K5")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]
Автор - Pelena
Дата добавления - 10.01.2017 в 13:11
Wasilich Дата: Среда, 11.01.2017, 10:48 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
А у меня так
[vba]
Код
Sub Кнопка1_Щелкнуть()
'
' Кнопка1_Щелкнуть Макрос
'
    Range("A2:R5").Select
    Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Key2:=Range("J2") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
End Sub
[/vba]
 
Ответить
СообщениеА у меня так
[vba]
Код
Sub Кнопка1_Щелкнуть()
'
' Кнопка1_Щелкнуть Макрос
'
    Range("A2:R5").Select
    Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Key2:=Range("J2") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 11.01.2017 в 10:48
wwizard Дата: Среда, 11.01.2017, 12:39 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Странно - у меня ни один не заработал
 
Ответить
СообщениеСтранно - у меня ни один не заработал
Автор - wwizard
Дата добавления - 11.01.2017 в 12:39
wwizard Дата: Среда, 11.01.2017, 12:50 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Вот так это выглядит до: http://prntscr.com/du6k09
Любой из этих макросов, как и мой - записаный рекордером, делает - обратное. Часть строк остается, и сортирются только значения в столбцах. А нужно, чтобы все значения переставлялись, как еслибы я делал так:http://prntscr.com/du6l3a
А сейчас я получаю, после запуска любого из этих, или свой макрос, это: http://prntscr.com/du6llj - но оно неверно.
К сообщению приложен файл: 12.xlsm (13.8 Kb)


Сообщение отредактировал wwizard - Среда, 11.01.2017, 12:50
 
Ответить
СообщениеВот так это выглядит до: http://prntscr.com/du6k09
Любой из этих макросов, как и мой - записаный рекордером, делает - обратное. Часть строк остается, и сортирются только значения в столбцах. А нужно, чтобы все значения переставлялись, как еслибы я делал так:http://prntscr.com/du6l3a
А сейчас я получаю, после запуска любого из этих, или свой макрос, это: http://prntscr.com/du6llj - но оно неверно.
Автор - wwizard
Дата добавления - 11.01.2017 в 12:50
wwizard Дата: Среда, 11.01.2017, 13:01 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Разобрался. Один вопрос, как вместо:

[vba]
Код
Range("K2:K33")
[/vba]

K33 - поставить до конца листа?
 
Ответить
СообщениеРазобрался. Один вопрос, как вместо:

[vba]
Код
Range("K2:K33")
[/vba]

K33 - поставить до конца листа?
Автор - wwizard
Дата добавления - 11.01.2017 в 13:01
китин Дата: Среда, 11.01.2017, 13:03 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7015
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Как определить последнюю ячейку на листе через VBA?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеКак определить последнюю ячейку на листе через VBA?
Автор - китин
Дата добавления - 11.01.2017 в 13:03
bmv98rus Дата: Среда, 11.01.2017, 13:31 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4110
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
wwizard,

та может надо просто столбцы указать от и до и Header = xlYes в примере то заголовак в первой строке

код от Wasilich, но не проверял именно этот
[vba]
Код
Sub Кнопка1_Щелкнуть()
'
' Кнопка1_Щелкнуть Макрос
'
    Range("A:R").Select
    Selection.Sort Key1:=Range("H:H"), Order1:=xlAscending, Key2:=Range("j;J") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
End Sub
[/vba]

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Среда, 11.01.2017, 13:35
 
Ответить
Сообщениеwwizard,

та может надо просто столбцы указать от и до и Header = xlYes в примере то заголовак в первой строке

код от Wasilich, но не проверял именно этот
[vba]
Код
Sub Кнопка1_Щелкнуть()
'
' Кнопка1_Щелкнуть Макрос
'
    Range("A:R").Select
    Selection.Sort Key1:=Range("H:H"), Order1:=xlAscending, Key2:=Range("j;J") _
        , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
End Sub
[/vba]
Автор - bmv98rus
Дата добавления - 11.01.2017 в 13:31
wwizard Дата: Среда, 11.01.2017, 13:42 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

[vba]
Код
Sub Макрос1цуцуцуцуцу()
'
' Макрос1цуцуцуцуцу Макрос

    Cells.Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H:H"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("J:J"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A1:K")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("I19").Select
End Sub
[/vba]

Не заработало
 
Ответить
Сообщение[vba]
Код
Sub Макрос1цуцуцуцуцу()
'
' Макрос1цуцуцуцуцу Макрос

    Cells.Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("H:H"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("J:J"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Range("A1:K")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("I19").Select
End Sub
[/vba]

Не заработало
Автор - wwizard
Дата добавления - 11.01.2017 в 13:42
wwizard Дата: Среда, 11.01.2017, 13:45 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

[vba]
Код
Range("A1:K" & Cells(Rows.Count, 1).End(xlUp).Row).Select
[/vba]
И если первую вставляю такую - то тоже не работает
 
Ответить
Сообщение[vba]
Код
Range("A1:K" & Cells(Rows.Count, 1).End(xlUp).Row).Select
[/vba]
И если первую вставляю такую - то тоже не работает
Автор - wwizard
Дата добавления - 11.01.2017 в 13:45
wwizard Дата: Среда, 11.01.2017, 13:53 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

В общем не получается, не понимаю.

[vba]
Код
ub æ_Ìàêðîñ_ñîðòèðîâêà()

    Cells.Select
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("H2:H")
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("K2:K")
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ëèñò1").Sort
        .SetRange Range("A1:K" & lr).Value
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]


Сообщение отредактировал wwizard - Среда, 11.01.2017, 13:53
 
Ответить
СообщениеВ общем не получается, не понимаю.

[vba]
Код
ub æ_Ìàêðîñ_ñîðòèðîâêà()

    Cells.Select
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("H2:H")
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Ëèñò1").Sort.SortFields.Add Key:=Range("K2:K")
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ëèñò1").Sort
        .SetRange Range("A1:K" & lr).Value
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]
Автор - wwizard
Дата добавления - 11.01.2017 в 13:53
wwizard Дата: Среда, 11.01.2017, 13:54 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Цитата bmv98rus, 11.01.2017 в 13:31, в сообщении № 8 ()
та может надо просто столбцы указать от и до и Header = xlYes в примере то заголовак в первой строке


Можете указать в файле пример, бо у меня не заработало - чтото догнать не могу
 
Ответить
Сообщение
Цитата bmv98rus, 11.01.2017 в 13:31, в сообщении № 8 ()
та может надо просто столбцы указать от и до и Header = xlYes в примере то заголовак в первой строке


Можете указать в файле пример, бо у меня не заработало - чтото догнать не могу
Автор - wwizard
Дата добавления - 11.01.2017 в 13:54
bmv98rus Дата: Среда, 11.01.2017, 15:06 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4110
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
wwizard,
из рекордера по быстромую
[vba]
Код
Sub Macro1()

    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("H:H"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveSheet.Sort.SortFields.Add Key:=Range("J:J"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A:K")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Среда, 11.01.2017, 15:28
 
Ответить
Сообщениеwwizard,
из рекордера по быстромую
[vba]
Код
Sub Macro1()

    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("H:H"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveSheet.Sort.SortFields.Add Key:=Range("J:J"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A:K")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
[/vba]
Автор - bmv98rus
Дата добавления - 11.01.2017 в 15:06
wwizard Дата: Среда, 11.01.2017, 17:11 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

Так в томто и дело, что по быстрому не интересно. Интересно разобратся, а спросить совета было не у кого.
 
Ответить
СообщениеТак в томто и дело, что по быстрому не интересно. Интересно разобратся, а спросить совета было не у кого.
Автор - wwizard
Дата добавления - 11.01.2017 в 17:11
wwizard Дата: Среда, 11.01.2017, 17:21 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 176
Репутация: 0 ±
Замечаний: 40% ±

К примеру:

[vba]
Код
Sub Пересчет_цены_с_курса()

    ActiveCell.FormulaR1C1 = "=RC[1]/R[-1]C"
    Range("E2").Select
    Selection.AutoFill Destination:=Range("E2:E27")
    Range("E2:E27").Select
    Columns("E:E").Select
    Selection.NumberFormat = "0.0_ ;[Red]-0.0 "
    Range("E22").Select
End Sub
[/vba]

Тут он берет по 27 строку. Вот как сделать чтобы определял количество заполненных строк например по первой колонке, и считал только при этом?
 
Ответить
СообщениеК примеру:

[vba]
Код
Sub Пересчет_цены_с_курса()

    ActiveCell.FormulaR1C1 = "=RC[1]/R[-1]C"
    Range("E2").Select
    Selection.AutoFill Destination:=Range("E2:E27")
    Range("E2:E27").Select
    Columns("E:E").Select
    Selection.NumberFormat = "0.0_ ;[Red]-0.0 "
    Range("E22").Select
End Sub
[/vba]

Тут он берет по 27 строку. Вот как сделать чтобы определял количество заполненных строк например по первой колонке, и считал только при этом?
Автор - wwizard
Дата добавления - 11.01.2017 в 17:21
bmv98rus Дата: Среда, 11.01.2017, 17:26 | Сообщение № 16
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4110
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
Направление мысли дали тут на вопрос
Цитата wwizard, 10.01.2017 в 13:04, в сообщении № 1 ()
Можно придумать маленьки макрос
ответ дали. можно.

Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеНаправление мысли дали тут на вопрос
Цитата wwizard, 10.01.2017 в 13:04, в сообщении № 1 ()
Можно придумать маленьки макрос
ответ дали. можно.
Автор - bmv98rus
Дата добавления - 11.01.2017 в 17:26
Wasilich Дата: Среда, 11.01.2017, 20:01 | Сообщение № 17
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата bmv98rus, 11.01.2017 в 17:26, в сообщении № 16 ()
как сделать чтобы определял количество заполненных строк например по первой колонке
Да уж, никто не поймет что вам надо.
Количество заполненных строк по первой колонке. (только заполненных, без учета пустых). Только не понятно зачем это для сортировки
[vba]
Код
KZS = WorksheetFunction.CountA(Columns(1))
[/vba]
Надо то, последняя заполненная строка (по первой колонке)
[vba]
Код
PZS = Range("A" & Rows.Count).End(xlUp).Row
PZS = Cells(Rows.Count, 1).End(xlUp).Row
PZS  = Columns(1).SpecialCells(xlCellTypeLastCell).Row
[/vba]А в коде так
[vba]
Код
Sub Кнопка1_Щелкнуть()
    PZS = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:R" & PZS).Sort Key1:=Range("H2"), Order1:=xlAscending, Key2:=Range("J2") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
End Sub
[/vba]
Или Вам нужна раздельная сортировка по Н и по J. Вразумите нас.


Сообщение отредактировал Wasilich - Среда, 11.01.2017, 20:05
 
Ответить
Сообщение
Цитата bmv98rus, 11.01.2017 в 17:26, в сообщении № 16 ()
как сделать чтобы определял количество заполненных строк например по первой колонке
Да уж, никто не поймет что вам надо.
Количество заполненных строк по первой колонке. (только заполненных, без учета пустых). Только не понятно зачем это для сортировки
[vba]
Код
KZS = WorksheetFunction.CountA(Columns(1))
[/vba]
Надо то, последняя заполненная строка (по первой колонке)
[vba]
Код
PZS = Range("A" & Rows.Count).End(xlUp).Row
PZS = Cells(Rows.Count, 1).End(xlUp).Row
PZS  = Columns(1).SpecialCells(xlCellTypeLastCell).Row
[/vba]А в коде так
[vba]
Код
Sub Кнопка1_Щелкнуть()
    PZS = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:R" & PZS).Sort Key1:=Range("H2"), Order1:=xlAscending, Key2:=Range("J2") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
End Sub
[/vba]
Или Вам нужна раздельная сортировка по Н и по J. Вразумите нас.
Автор - Wasilich
Дата добавления - 11.01.2017 в 20:01
DrMini Дата: Воскресенье, 02.07.2017, 13:00 | Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1656
Репутация: 210 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Цитата Wasilich, 11.01.2017 в 10:48, в сообщении № 3 ()
А у меня так

Доброго времени суток. Искал сортировку таблицы макросом и "набрёл" на эту тему. Я своим скудным умишком вроде домыслил, как применить это для себя ЛИСТ "Таблица" .Но не нравится, что после работы макроса все ячейки обработанные макросом становятся выделенными. Помогите исправить.
К сообщению приложен файл: 170702-2.xlsm (61.1 Kb)
 
Ответить
Сообщение
Цитата Wasilich, 11.01.2017 в 10:48, в сообщении № 3 ()
А у меня так

Доброго времени суток. Искал сортировку таблицы макросом и "набрёл" на эту тему. Я своим скудным умишком вроде домыслил, как применить это для себя ЛИСТ "Таблица" .Но не нравится, что после работы макроса все ячейки обработанные макросом становятся выделенными. Помогите исправить.
Автор - DrMini
Дата добавления - 02.07.2017 в 13:00
Pelena Дата: Воскресенье, 02.07.2017, 13:07 | Сообщение № 19
Группа: Админы
Ранг: Местный житель
Сообщений: 19189
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Просто добавьте в конец макроса активацию какой-нибудь ячейки, например,
[vba]
Код
Range("A1").Activate
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПросто добавьте в конец макроса активацию какой-нибудь ячейки, например,
[vba]
Код
Range("A1").Activate
[/vba]
Автор - Pelena
Дата добавления - 02.07.2017 в 13:07
RAN Дата: Воскресенье, 02.07.2017, 13:10 | Сообщение № 20
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Достаточно просто удалить слова Select и Selection.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеДостаточно просто удалить слова Select и Selection.
Автор - RAN
Дата добавления - 02.07.2017 в 13:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос-сортировка столбца (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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