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

Вход

Регистрация

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

 

= Мир MS Excel/Аатоматическая нумерация строк VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Аатоматическая нумерация строк VBA (Формулы/Formulas)
Аатоматическая нумерация строк VBA
Jester Дата: Воскресенье, 27.06.2021, 13:31 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте уважаемые знатоки. Помогите пожалуйста решить задачу. Описание в файле.
К сообщению приложен файл: 0347761.xlsx(34.4 Kb)
 
Ответить
СообщениеЗдравствуйте уважаемые знатоки. Помогите пожалуйста решить задачу. Описание в файле.

Автор - Jester
Дата добавления - 27.06.2021 в 13:31
Pelena Дата: Воскресенье, 27.06.2021, 16:56 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Лучше ориентироваться не на цвет, а на содержание. Заполните таблицу произвольными данными, чтобы было понятно, какие ячейки в реальном файле заполнены, а какие - нет


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Лучше ориентироваться не на цвет, а на содержание. Заполните таблицу произвольными данными, чтобы было понятно, какие ячейки в реальном файле заполнены, а какие - нет

Автор - Pelena
Дата добавления - 27.06.2021 в 16:56
Jester Дата: Понедельник, 28.06.2021, 11:12 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Лучше ориентироваться не на цвет

а где я написал про цвет? я только указал что в цветных НУМЕРАЦИЯ НЕ НУЖНА. там будут данные но без нумерации. И еще. нумерация по столбцам это константа там не надо автоматизации
К сообщению приложен файл: 8583949.xlsx(34.3 Kb)


Сообщение отредактировал Jester - Понедельник, 28.06.2021, 11:12
 
Ответить
Сообщение
Лучше ориентироваться не на цвет

а где я написал про цвет? я только указал что в цветных НУМЕРАЦИЯ НЕ НУЖНА. там будут данные но без нумерации. И еще. нумерация по столбцам это константа там не надо автоматизации

Автор - Jester
Дата добавления - 28.06.2021 в 11:12
Pelena Дата: Понедельник, 28.06.2021, 15:25 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 17793
Репутация: 3958 ±
Замечаний: ±

Excel 2016 & Mac Excel
где я написал про цвет?
Цитата
В синих строках нумерация не нужна


Как вариант
Код
=ЕСЛИ(CE15="";"";МАКС($BX$14:BX14)+1)
К сообщению приложен файл: 8625196.xlsx(35.0 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
где я написал про цвет?
Цитата
В синих строках нумерация не нужна


Как вариант
Код
=ЕСЛИ(CE15="";"";МАКС($BX$14:BX14)+1)

Автор - Pelena
Дата добавления - 28.06.2021 в 15:25
Jester Дата: Вторник, 29.06.2021, 11:52 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Это не VBA
 
Ответить
СообщениеЭто не VBA

Автор - Jester
Дата добавления - 29.06.2021 в 11:52
Jester Дата: Воскресенье, 04.07.2021, 08:30 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Если помочь невозможно то прошу администрацию удалить тему
 
Ответить
СообщениеЕсли помочь невозможно то прошу администрацию удалить тему

Автор - Jester
Дата добавления - 04.07.2021 в 08:30
R_Dmitry Дата: Воскресенье, 04.07.2021, 16:46 | Сообщение № 7
Группа: Друзья
Ранг: Новичок
Сообщений: 34
Репутация: 23 ±
Замечаний: 0% ±

2010
код будет таким, можно его повесить на каждый чих
но лучше по кнопке:
[vba]
Код
Sub NumberRows()
On Error Resume Next
Application.EnableEvents = False
For i = 14 To 33
Set x = Range("BX" & i)
If x.Offset(, 1) = "ВСЕГО:" Then Exit Sub
If x.Interior.Pattern + x.Interior.TintAndShade _
    + x.Interior.PatternTintAndShade = xlNone Then
    ii = ii + 1
    If x.MergeCells Then
        lr = UBound(x.MergeArea.Value2)
        If lr > 1 Then
        x.Value = ii
        i = i + lr - 1
        Else
        x.Value = ii
        End If
    End If

End If
Next
Application.EnableEvents = True
End Sub
[/vba]


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
Сообщениекод будет таким, можно его повесить на каждый чих
но лучше по кнопке:
[vba]
Код
Sub NumberRows()
On Error Resume Next
Application.EnableEvents = False
For i = 14 To 33
Set x = Range("BX" & i)
If x.Offset(, 1) = "ВСЕГО:" Then Exit Sub
If x.Interior.Pattern + x.Interior.TintAndShade _
    + x.Interior.PatternTintAndShade = xlNone Then
    ii = ii + 1
    If x.MergeCells Then
        lr = UBound(x.MergeArea.Value2)
        If lr > 1 Then
        x.Value = ii
        i = i + lr - 1
        Else
        x.Value = ii
        End If
    End If

End If
Next
Application.EnableEvents = True
End Sub
[/vba]

Автор - R_Dmitry
Дата добавления - 04.07.2021 в 16:46
Jester Дата: Понедельник, 05.07.2021, 09:59 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
но лучше по кнопке:


огромное спасибо. работает.
 
Ответить
Сообщение
но лучше по кнопке:


огромное спасибо. работает.

Автор - Jester
Дата добавления - 05.07.2021 в 09:59
Jester Дата: Понедельник, 05.07.2021, 19:19 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 82
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
For i = 14 To 33


а если больше строк то ниже 33 строки уже не работает


Сообщение отредактировал Jester - Понедельник, 05.07.2021, 19:20
 
Ответить
Сообщение
For i = 14 To 33


а если больше строк то ниже 33 строки уже не работает

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

2010
Так у вас было написано до 33 строки. :)
[vba]
Код
For i = 14 To  Cells(Rows.Count, "BX").End(xlUp).Row
[/vba]


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеТак у вас было написано до 33 строки. :)
[vba]
Код
For i = 14 To  Cells(Rows.Count, "BX").End(xlUp).Row
[/vba]

Автор - R_Dmitry
Дата добавления - 05.07.2021 в 21:30
Serge_007 Дата: Вторник, 06.07.2021, 09:17 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 14333
Репутация: 2368 ±
Замечаний: ±

Excel 2010
прошу администрацию удалить тему
Темы форума не подлежат удалению


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
прошу администрацию удалить тему
Темы форума не подлежат удалению

Автор - Serge_007
Дата добавления - 06.07.2021 в 09:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Аатоматическая нумерация строк VBA (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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