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

Вход

Регистрация

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

 

= Мир MS Excel/макрос авт. группировки в зависимости от знач в ячейке - Мир MS Excel

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

Excel 2019
в недавней теме написали макрос по автоматической группировке строк
требуется переписать его...

1. Нужно чтобы все строки группировались по одинаковым отметкам в столбце А (в реальной таблице отметка будет в другом столбце-не первом.
2. добавил строчку (скопировал старую или ввел новую, поставил отметку в столбце А - допустим "3" и все строки добавилась в группировку "3"
3. поменял отметку допустим с "3" на "5" и строка добавилась в группировку "5"…
4. после нажатия кнопки макроса все строки перегруппировались
помогите пожалуйста.


Сообщение отредактировал Extybr - Среда, 01.07.2020, 18:32
 
Ответить
Сообщениев недавней теме написали макрос по автоматической группировке строк
требуется переписать его...

1. Нужно чтобы все строки группировались по одинаковым отметкам в столбце А (в реальной таблице отметка будет в другом столбце-не первом.
2. добавил строчку (скопировал старую или ввел новую, поставил отметку в столбце А - допустим "3" и все строки добавилась в группировку "3"
3. поменял отметку допустим с "3" на "5" и строка добавилась в группировку "5"…
4. после нажатия кнопки макроса все строки перегруппировались
помогите пожалуйста.

Автор - Extybr
Дата добавления - 01.07.2020 в 18:31
Extybr Дата: Среда, 01.07.2020, 18:31 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Sub GroupRow()
Dim i As Long, TotalRow As Long, CurNumber As Long, CurNumberRow As Long, NextNumber As Long, NextNumberRow As Long
On Error Resume Next
CurNumber = 1
CurNumberRow = 6
TotalRow = Application.WorksheetFunction.Match("Общий итог", Sheet1.Range("B:B"), 0)
Sheet1.Rows("6:" & CStr(TotalRow)).Select
For i = 1 To 9
  Selection.Rows.Ungroup
Next i
Err.Number = 0
Do
  NextNumber = CurNumber + 1
  NextNumberRow = Application.WorksheetFunction.Match(NextNumber, Sheet1.Range("A:A"), 0)
  If Err.Number <> 0 Then NextNumberRow = TotalRow
  Sheet1.Rows(CurNumberRow + 1 & ":" & NextNumberRow - 1).Select
  Selection.Rows.Group
  CurNumber = NextNumber
  CurNumberRow = NextNumberRow
  If CurNumberRow = TotalRow Then Exit Do
Loop
MsgBox "Rows regrouping process is complete", vbInformation, "Rows have been regrouped successfully"
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub GroupRow()
Dim i As Long, TotalRow As Long, CurNumber As Long, CurNumberRow As Long, NextNumber As Long, NextNumberRow As Long
On Error Resume Next
CurNumber = 1
CurNumberRow = 6
TotalRow = Application.WorksheetFunction.Match("Общий итог", Sheet1.Range("B:B"), 0)
Sheet1.Rows("6:" & CStr(TotalRow)).Select
For i = 1 To 9
  Selection.Rows.Ungroup
Next i
Err.Number = 0
Do
  NextNumber = CurNumber + 1
  NextNumberRow = Application.WorksheetFunction.Match(NextNumber, Sheet1.Range("A:A"), 0)
  If Err.Number <> 0 Then NextNumberRow = TotalRow
  Sheet1.Rows(CurNumberRow + 1 & ":" & NextNumberRow - 1).Select
  Selection.Rows.Group
  CurNumber = NextNumber
  CurNumberRow = NextNumberRow
  If CurNumberRow = TotalRow Then Exit Do
Loop
MsgBox "Rows regrouping process is complete", vbInformation, "Rows have been regrouped successfully"
End Sub
[/vba]

Автор - Extybr
Дата добавления - 01.07.2020 в 18:31
Pelena Дата: Среда, 01.07.2020, 18:49 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16213
Репутация: 3516 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Файл с примером покажете?


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

Автор - Pelena
Дата добавления - 01.07.2020 в 18:49
Extybr Дата: Среда, 01.07.2020, 19:23 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
извиняюсь....не прикрепилось
К сообщению приложен файл: 3599466-2-.xlsm(25.2 Kb)
 
Ответить
Сообщениеизвиняюсь....не прикрепилось

Автор - Extybr
Дата добавления - 01.07.2020 в 19:23
Extybr Дата: Среда, 01.07.2020, 21:34 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
может неправильно выразился....все перегруппировки происходят после нажатия кнопки.запуска макроса...не а реальном времени
 
Ответить
Сообщениеможет неправильно выразился....все перегруппировки происходят после нажатия кнопки.запуска макроса...не а реальном времени

Автор - Extybr
Дата добавления - 01.07.2020 в 21:34
Pelena Дата: Среда, 01.07.2020, 22:17 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16213
Репутация: 3516 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Как-то так придумалось
К сообщению приложен файл: 3599466-3.xlsm(26.4 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеКак-то так придумалось

Автор - Pelena
Дата добавления - 01.07.2020 в 22:17
Extybr Дата: Среда, 01.07.2020, 22:24 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, шикарно! спасибо, все работает!
 
Ответить
СообщениеPelena, шикарно! спасибо, все работает!

Автор - Extybr
Дата добавления - 01.07.2020 в 22:24
Extybr Дата: Среда, 01.07.2020, 23:06 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Елена а как сделать чтоб в столбце где отметки не т- пусто эти строки не группировались?


Сообщение отредактировал Extybr - Среда, 01.07.2020, 23:48
 
Ответить
СообщениеЕлена а как сделать чтоб в столбце где отметки не т- пусто эти строки не группировались?

Автор - Extybr
Дата добавления - 01.07.2020 в 23:06
Pelena Дата: Четверг, 02.07.2020, 22:22 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16213
Репутация: 3516 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так проверьте
К сообщению приложен файл: 9147736.xlsm(26.6 Kb)


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

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

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