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

Вход

Регистрация

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

 

= Мир MS Excel/Нумерация объединенных ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нумерация объединенных ячеек (Макросы/Sub)
Нумерация объединенных ячеек
Olena Дата: Понедельник, 28.11.2022, 16:06 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 1 ±
Замечаний: 20% ±

Всем доброго времени.
Подскажите правильно ли я делаю запись значений в объединенные ячейки с помощью USERFORM. И подскажите пожалуйста, как реализовать нумерацию объединенных ячеек.
Благодарю
К сообщению приложен файл: 8753245.xls (43.5 Kb)
 
Ответить
СообщениеВсем доброго времени.
Подскажите правильно ли я делаю запись значений в объединенные ячейки с помощью USERFORM. И подскажите пожалуйста, как реализовать нумерацию объединенных ячеек.
Благодарю
Автор - Olena
Дата добавления - 28.11.2022 в 16:06
gling Дата: Понедельник, 28.11.2022, 23:50 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2563
Репутация: 706 ±
Замечаний: 0% ±

2010
Цитата Olena, 28.11.2022 в 16:06, в сообщении № 1 ()
реализовать нумерацию объединенных ячеек
попробуйте так [vba]
Код
Cells(LRow, 3) = Application.Max(Range("c2:c" & LRow - 1)) + 1
[/vba]По поводу правильно или нет, если результат вас удовлетворяет, то наверно правильно.

ЯД-41001506838083
 
Ответить
Сообщение
Цитата Olena, 28.11.2022 в 16:06, в сообщении № 1 ()
реализовать нумерацию объединенных ячеек
попробуйте так [vba]
Код
Cells(LRow, 3) = Application.Max(Range("c2:c" & LRow - 1)) + 1
[/vba]По поводу правильно или нет, если результат вас удовлетворяет, то наверно правильно.
Автор - gling
Дата добавления - 28.11.2022 в 23:50
Olena Дата: Вторник, 29.11.2022, 09:29 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 1 ±
Замечаний: 20% ±

Цитата gling, 28.11.2022 в 23:50, в сообщении № 2 ()
попробуйте так

Огромное спасибо, работает замечательно. Вы не могли бы объяснить как это работает, что бы я потом вопросы больше не задавала)
 
Ответить
Сообщение
Цитата gling, 28.11.2022 в 23:50, в сообщении № 2 ()
попробуйте так

Огромное спасибо, работает замечательно. Вы не могли бы объяснить как это работает, что бы я потом вопросы больше не задавала)
Автор - Olena
Дата добавления - 29.11.2022 в 09:29
gling Дата: Вторник, 29.11.2022, 18:27 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2563
Репутация: 706 ±
Замечаний: 0% ±

2010
Цитата Olena, 29.11.2022 в 09:29, в сообщении № 3 ()
не могли бы объяснить

Цитата Olena, 29.11.2022 в 09:29, в сообщении № 3 ()
Cells(LRow, 3)
Значение в ячейке в 3 столбце, строке LRow -(последняя на момент работы макроса),
Цитата
=Application.Max(Range("c2:c" & LRow - 1)) + 1
= равно максимальному значению диапазона С2:С LRow, т.е. до последней ячейки и +1. По другому объяснить не могу.

ЯД-41001506838083

Сообщение отредактировал gling - Вторник, 29.11.2022, 18:29
 
Ответить
Сообщение
Цитата Olena, 29.11.2022 в 09:29, в сообщении № 3 ()
не могли бы объяснить

Цитата Olena, 29.11.2022 в 09:29, в сообщении № 3 ()
Cells(LRow, 3)
Значение в ячейке в 3 столбце, строке LRow -(последняя на момент работы макроса),
Цитата
=Application.Max(Range("c2:c" & LRow - 1)) + 1
= равно максимальному значению диапазона С2:С LRow, т.е. до последней ячейки и +1. По другому объяснить не могу.
Автор - gling
Дата добавления - 29.11.2022 в 18:27
Olena Дата: Среда, 30.11.2022, 15:09 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 1 ±
Замечаний: 20% ±

Цитата gling, 29.11.2022 в 18:27, в сообщении № 4 ()
По другому объяснить не могу.

Благодарю)
 
Ответить
Сообщение
Цитата gling, 29.11.2022 в 18:27, в сообщении № 4 ()
По другому объяснить не могу.

Благодарю)
Автор - Olena
Дата добавления - 30.11.2022 в 15:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нумерация объединенных ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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