Добрый день. Меня заинтересовал ваш ответ "<span style="color: #e56717; font-weight: bold;">Sub</span> Группировка92_InEx..." на вопрос http://www.liveexpert.org/topic/view/2599538-kak-sdelat-gruppirovku-dannih-v-excel-s-shagom. Можно с вами обсудить этот ответ?
Sub Группировка92_InExSu() Application.ScreenUpdating = 0 Dim shW As Worksheet: Set shW = ActiveSheet Dim Строка Const ШагГруппы = 92 With shW .Cells.ClearOutline For Строка = ШагГруппы To .Cells.CurrentRegion.Rows.Count Step ШагГруппы .Rows(Строка — ШагГруппы + 1 & ":" & Строка — 1).Group Next .Outline.ShowLevels RowLevels:=1 End With Application.ScreenUpdating = 1 MsgBox «Макрос InExSu завершил работу», vbOKOnly, «Выход»End Sub
Добрый день. Меня заинтересовал ваш ответ "Sub Группировка92_InExSu() Application.ScreenUpdating = 0 Dim shW As Worksheet: Set shW = ActiveSh..." на вопрос http://www.liveexpert.org/topic/view/2599538-kak-sdelat-gruppirovku-dannih-v-excel-s-shagom. Можно с вами обсудить этот ответ?