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

Вход

Регистрация

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

 

= Мир MS Excel/Нумерация строк с учетом скрытых строк - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нумерация строк с учетом скрытых строк (Макросы Sub)
Нумерация строк с учетом скрытых строк
Diana987 Дата: Среда, 30.10.2013, 15:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!

Прошу помочь.

Есть макрос, который данные с одного листа выгружает на другой лист в определенном формате.
Необходимо пронумеровать строки с учетом скрытых строк.
Составляла много различных вариантов кодов, последний:
[vba]
Код
ki = 1
For i = 2 To j - 1
If r.Rows.Hidden = True Then sr.Cells(i) = k
k = k + 1
next
[/vba]

В Интернете ничего нет по этому. Файл Эксель в архиве.
[admin]
Оформляйте коды тегами![/admin]
К сообщению приложен файл: ghbvth.zip (36.1 Kb)
 
Ответить
СообщениеДобрый день!

Прошу помочь.

Есть макрос, который данные с одного листа выгружает на другой лист в определенном формате.
Необходимо пронумеровать строки с учетом скрытых строк.
Составляла много различных вариантов кодов, последний:
[vba]
Код
ki = 1
For i = 2 To j - 1
If r.Rows.Hidden = True Then sr.Cells(i) = k
k = k + 1
next
[/vba]

В Интернете ничего нет по этому. Файл Эксель в архиве.
[admin]
Оформляйте коды тегами![/admin]
Автор - Diana987
Дата добавления - 30.10.2013 в 15:25
SkyPro Дата: Среда, 30.10.2013, 15:34 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub numer()
Dim i&
For i = 1 To [b65535].End(xlUp).Row ' Тут можно заменить на кол-во строк на листе _
                    или на UsedRange.Rows.Count
     Cells(i, 1).Value = i
Next
End Sub
[/vba]

skypro1111@gmail.com
 
Ответить
Сообщение[vba]
Код
Sub numer()
Dim i&
For i = 1 To [b65535].End(xlUp).Row ' Тут можно заменить на кол-во строк на листе _
                    или на UsedRange.Rows.Count
     Cells(i, 1).Value = i
Next
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 30.10.2013 в 15:34
Diana987 Дата: Четверг, 31.10.2013, 07:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата SkyPro, 30.10.2013 в 15:34, в сообщении № 2

Sub numer()
Dim i&
For i = 1 To [b65535].End(xlUp).Row ' Тут можно заменить на кол-во строк на листе _
или на UsedRange.Rows.Count
Cells(i, 1).Value = i
Next
End Sub


Спасибо! Нашла другой выход - при пересортировке не учитывать столбец с нумерацией.
 
Ответить
Сообщение
Цитата SkyPro, 30.10.2013 в 15:34, в сообщении № 2

Sub numer()
Dim i&
For i = 1 To [b65535].End(xlUp).Row ' Тут можно заменить на кол-во строк на листе _
или на UsedRange.Rows.Count
Cells(i, 1).Value = i
Next
End Sub


Спасибо! Нашла другой выход - при пересортировке не учитывать столбец с нумерацией.
Автор - Diana987
Дата добавления - 31.10.2013 в 07:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нумерация строк с учетом скрытых строк (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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