Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос по нумерации строк за исключением скрытых строк
 
#1
09.10.2014 14:47:56
Добрый день.
Существует файл (см.вложенный файл), в котором в столбце количество менеджер вносит необходимый объем. Далее фильтром все пустые строки скрываются. Необходимо написать макрос по нумерации только видимых строк. При этом есть особенность - некоторые строки объединены в одну ячейку для нумерации и количество объединенных ячеек различное.
Написан макрос для нумерации объединенных ячеек всех строк видимых и невидимых. Как его скорректировать только под видимые на экране строки?

Код
Sub Auto123()
Dim i As Range, LMC As String, n As Single
  For Each i In Selection
    If i.MergeCells Then
   If LMC <> i.MergeArea.Address Then
     n = n + 1: i = n
   End If
   LMC = i.MergeArea.Address
    Else
   n = n + 1: i = n
End If: Next: End Sub
 
 
 
#2
09.10.2014 15:18:16
Извольте
Код
Sub Auto123()
Dim i As Range, LMC As String, n As Single
Dim row_in_i As Range
Dim range_is_hidden As Boolean
  For Each i In Selection
  range_is_hidden = False
   For Each row_in_i In i.Rows
    range_is_hidden = row_in_i.Hidden
   Next row_in_i
    If i.MergeCells And range_is_hidden = False Then
      If LMC <> i.MergeArea.Address Then
        n = n + 1: i = n
      End If
      LMC = i.MergeArea.Address
    Else
      If range_is_hidden = False Then n = n + 1: i = n
End If: Next: End Sub
 
 
 
#3
09.10.2014 15:23:30
О! Спасибо огромное!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
 
#4
09.10.2014 15:32:55
Код
Sub Auto123()
Dim i As Range, LMC As String, n As Single
  For Each i In Selection
  If i.EntireRow.Hidden = False Then
    If i.MergeCells Then
      If LMC <> i.MergeArea.Address Then
        n = n + 1: i = n
      End If
      LMC = i.MergeArea.Address
    Else
      n = n + 1: i = n
End If: End If: Next: End Sub
 
 
 
#5
09.10.2014 15:37:26
И за этот вариант тоже огромное спасибо!!!!!
 
 
 
#6
12.02.2015 11:08:48
Подскажите, а как применить данный макрос или какой другой макрос , чтобы нумерация была без учета скрытых ячеек (их не учитывала), при этом строки ячеек не объединены.
У меня не получилось...возможно что-то неправильно ввожу))
если протягиваю вниз строку, то он все единицы показывает
Можете для начинающего пояснить, что да как?
 
 
 
#7
12.02.2015 11:10:27
Ваш пример будет?
 
 
 
#8
12.02.2015 11:19:34
Вот файл)
желтым выделены строки, которые должны нумероваться в первом столбце, а без заливки будут скрытыми.
Приложила второй файл, в том варианте, который должен быть в результате, в первом столбце должна быть нумерация именно по этим строкам

Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]
Изменено: Анастас1310 - 12.02.2015 23:43:49
 
 
 
#9
12.02.2015 11:27:10
Без макроса принимаете?
=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;$C$5:C5)
 
 
 
#10
12.02.2015 11:31:43
Принимаю, спасибо)))
Все перепробовала, а до этого не додумалась)))

Спасибо еще раз!
 
 
 
Страницы: 1
Наверх