Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Автоматическая нумерация строк с исключением скрытых строк
 
#1
26.09.2013 17:57:22
Помогите с решением проблемы. Написан макрос, который автоматически скрывает строки по условию. НО! Скрытые строчки содержат нумерацию. Необходимо после того, как ненужные строки скрылись, пронумеровать полученную таблицу заново, но лишь видимые строки. (файл в приложении).
Изменено: cstrizh - 26.09.2013 17:59:41
 
 
 
#2
26.09.2013 18:00:28
Зачем? :)
 
 
 
#3
26.09.2013 18:02:16
Перебрать строки циклом: если видимая - присвоить номер.
 
 
 
#4
26.09.2013 18:08:22
Делается с помощью ПРОМЕЖУТОЧНЫЕ.ИТОГИ.
Я сам - дурнее всякого примера! ...
 
 
 
#5
26.09.2013 18:13:31
Юрий, Сергей - вы файл смотрели?
 
 
 
#6
26.09.2013 18:17:00
Я нет. А что?))
 
 
 
#7
26.09.2013 18:19:55
И что? В А2 формула:
Код
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(103;$B$2:$B2)
И вниз.
Я сам - дурнее всякого примера! ...
 
 
 
#8
26.09.2013 18:20:40
Мне кажется, что главный вопрос - зачем? Когда будет известно - можно решать. :)
 
 
 
#9
26.09.2013 18:23:52
А чего это тебя так интересует? Для последовательной нумерации при постановке автофильтра, например. Этот вопрос задавался не раз.
Я сам - дурнее всякого примера! ...
 
 
 
#10
26.09.2013 18:24:39
Сергей - зачем? Что станет иначе, кроме того, что там теперь будет формула?
 
 
 
#11
26.09.2013 18:24:51
Теперь глянул)) Я понял - ждём ответ. Но, возможно, так совпало)))
 
 
 
#12
26.09.2013 18:29:40
Сергей, понятно что хуже не будет. Только тяжелее :)
Ну и формула, завязанная на эти ячейки, будет давать последний видимый номер - может это нужно? Так из кода виден последний номер, там ведь нет динамики.
 
 
 
#13
26.09.2013 18:33:17
Игорь, чё пристал? Хочет человек нумерацию - пусть будет))
 
 
 
#14
26.09.2013 18:35:55
Я чет совсем не понимаю о чем вы. Игорь, изменится порядок нумерации. Он станет непрерывным и последовательным. А сейчас при скрытых строках порядок нарушается.
Я сам - дурнее всякого примера! ...
 
 
 
#15
26.09.2013 18:39:03
Цитата
Так из кода виден последний номер, там ведь нет динамики.
Это о чем вообще? Тот код, что я вижу, никакого отношения к нумерации не имеет, он скрывает те или иные строки.
Изменено: KuklP - 26.09.2013 18:39:32
Я сам - дурнее всякого примера! ...
 
 
 
#16
26.09.2013 18:40:51
Сергей, а где там в файле в макросе такой функционал?

Код
Sub macros()
    ActiveSheet.[B2:B28].Rows.EntireRow.Hidden = False    'показать все строки
    i = Range("=Лист1!B3").Value    'ячейка от которой зависит кол-во строк (указано кол-во строений)
    Cells.EntireRow.Hidden = False
    Select Case i
    Case 1
        Rows("10:28").EntireRow.Hidden = True    'скрыть для 1
    Case 2
        Rows("14:28").EntireRow.Hidden = True    'скрыть для 2
    Case 3
        Rows("18:28").EntireRow.Hidden = True    'скрыть для 3
    End Select
End Sub
 
 
 
#17
26.09.2013 18:44:25
Ну, и я об этом коде. Где там нумерация? Меняешь на листе 1 цифру в списке и разные группы строк скрываются.
Я сам - дурнее всякого примера! ...
 
 
 
#18
26.09.2013 18:45:10
Я тоже что-то запутался... Код никакой нумерации не делает. Игорь, раскрой секрет - о чём ты?
 
 
 
#19
26.09.2013 18:47:09
Фу-ух, я думал что все понимают, только я один туплю :) Юра писал:
Код
Теперь глянул)) Я понял - ждём ответ.
Я сам - дурнее всякого примера! ...
 
 
 
#20
26.09.2013 18:48:53
Серж, я вначале подумал, что нумерация осуществляется - смотрел на лист))
 
 
 
#21
26.09.2013 21:27:36
Я о том, что всегда скрывается только хвост этого столбца чисел. Целиком весь хвост.
И в коде это видно - там на листе ниже 28 строки никаких чисел нет
Может быть конечно в рабочем файле иначе, не знаю - смотрю на пример. И не понимаю - зачем " пронумеровать полученную таблицу заново", если эта полученная аккуратно и так пронумерована от 1 до начала скрытого хвоста.
 
 
 
#22
26.09.2013 21:37:09
Почему всегда хвост? Вот ведь исходный код:
Код
Case 1
     Rows("10:28").EntireRow.Hidden = True 'скрыть для 1
   Case 2
     Rows("14:17").EntireRow.Hidden = True 'скрыть для 2
   Case 3
     Rows("18:19").EntireRow.Hidden = True 'скрыть для 3
 
 
 
#23
26.09.2013 21:51:41
Игорь всем ввел в заблуждение, а сам поехал с работы домой :) Игорь, поменяй цифры на первом листе и посмсотри, какие строки скрываются, если код невнимательно читал.
Я сам - дурнее всякого примера! ...
 
 
 
#24
26.09.2013 22:29:30
Вроде понял, в чём дело: изначально у автора был код, который приводит Игорь в #16, а потом ТС изменил его и сейчас там другой набор строк: см. #22. Если по первому коду, то всё верно - всегда скрывается хвост и переделывать нумерацию не имеет смысла :-)
 
 
 
#25
26.09.2013 22:31:49
Так это чайник воду мутит... :D
Я сам - дурнее всякого примера! ...
 
 
 
#26
26.09.2013 22:51:34
Ну вот, разобрались. А ТС втихаря файл подменил и молчит как рыба об лёд  :)
Но я то уже успел его скачать :)
Изменено: Hugo - 26.09.2013 22:52:24
 
 
 
#27
26.09.2013 23:06:46
Может бан ему годика на 3?
 
 
 
#28
26.09.2013 23:09:50
Суров...
Но справедлив :)
 
 
 
#29
27.09.2013 09:00:40
Не надо бан) я файл изменил в течение нескольких секунд после публикации первого сообщения. Их было два, в первом случае не тот выслал, но сразу заметил.
 
 
 
#30
27.09.2013 10:00:41
cstrizh, вообще принято отписываться, помогло ли решение, например...
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1 2 След.
Наверх