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

Вход

Регистрация

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

 

= Мир MS Excel/Значение из ячейки в MsgBox по последней заполненной строке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Значение из ячейки в MsgBox по последней заполненной строке (Макросы/Sub)
Значение из ячейки в MsgBox по последней заполненной строке
Литр Дата: Пятница, 05.12.2025, 18:59 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2013
Доброго дня, премодератор.
прошу разместить новую тему.
Название: Значение из ячейки в MsgBox по последней заполненной строке

Доброго дня, комрады!

Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999)
В приложенном примере в бокс должно попасть значение "25-007"

VBA знаю на уровне копипастера ))
[vba]
Код

Sub КнопкаОкончание()

'Шаг 1: Объявляем переменные
Dim LastRow As Long
'Шаг 2: Захват последнего использованного номера строки
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
'Шаг 3: Выбираем следующую строку вниз
Cells(LastRow, 1).Offset(0, 0).Select
'Создаем месадж бокс
MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & " " & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation
'Шаг 4: Захват последнего использованного номера строки
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
'Шаг 5: Выбираем следующую строку вниз
Cells(LastRow, 2).Offset(1, 0).Select
End Sub
[/vba]
К сообщению приложен файл: 6031936.jpg (28.6 Kb)


Сообщение отредактировал Литр - Суббота, 06.12.2025, 14:14
 
Ответить
СообщениеДоброго дня, премодератор.
прошу разместить новую тему.
Название: Значение из ячейки в MsgBox по последней заполненной строке

Доброго дня, комрады!

Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999)
В приложенном примере в бокс должно попасть значение "25-007"

VBA знаю на уровне копипастера ))
[vba]
Код

Sub КнопкаОкончание()

'Шаг 1: Объявляем переменные
Dim LastRow As Long
'Шаг 2: Захват последнего использованного номера строки
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
'Шаг 3: Выбираем следующую строку вниз
Cells(LastRow, 1).Offset(0, 0).Select
'Создаем месадж бокс
MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & " " & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation
'Шаг 4: Захват последнего использованного номера строки
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
'Шаг 5: Выбираем следующую строку вниз
Cells(LastRow, 2).Offset(1, 0).Select
End Sub
[/vba]
Автор - Литр
Дата добавления - 05.12.2025 в 18:59
Kuzmich Дата: Пятница, 05.12.2025, 20:23 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 717
Репутация: 159 ±
Замечаний: 0% ±

Excel 2003
Цитата
Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999)

[vba]
Код
Sub iMsgBox()
Dim iLastRow As Long
  iLastRow = Range("B:P").Find("*", Range("B1"), xlValues, xlWhole, xlByRows, xlPrevious).Row
  MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & Cells(iLastRow, "A") & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
Как заставить код искать последнюю заполненную ячейку не по столбцу "В" , а по массиву таблицы. Например (B2:P999)

[vba]
Код
Sub iMsgBox()
Dim iLastRow As Long
  iLastRow = Range("B:P").Find("*", Range("B1"), xlValues, xlWhole, xlByRows, xlPrevious).Row
  MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & Cells(iLastRow, "A") & vbLf & "СКОРО БУДЕТ ОТОБРАЖАТЬСЯ НОМЕР НОВОЙ ЗАЯВКИ", vbInformation
End Sub
[/vba]
Автор - Kuzmich
Дата добавления - 05.12.2025 в 20:23
Литр Дата: Суббота, 06.12.2025, 14:57 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2013
Kuzmich, hands

Спасибо, отлично работает!
 
Ответить
СообщениеKuzmich, hands

Спасибо, отлично работает!
Автор - Литр
Дата добавления - 06.12.2025 в 14:57
Литр Дата: Среда, 22.04.2026, 17:44 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

2013
[vba]
Код
Sub Кнопка2()
ActiveWorkbook.Save
Dim LastRow As Long
iLastRow = Range("B:D").Find("*", Range("B1"), xlValues, xlWhole, xlByRows, xlPrevious).Row
MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & vbLf & "НОМЕР НОВОЙ ЗАЯВКИ:   " & Cells(iLastRow, "A"), vbInformation
Cells(iLastRow, 2).Offset(1, 0).Select
End Sub
[/vba]

Kuzmich, малость подправил твой код и вот что еще нужно:
как изменить его, чтобы после выполнения в первой колонке то есть в "А" той строки на которую встала активная ячейка, значение увеличилось на +1 от значения в "А" строки выше.
То есть например: после выполнения макроса выделена ячейка В647, значит нужно что бы в А647 было А646+1
 
Ответить
Сообщение[vba]
Код
Sub Кнопка2()
ActiveWorkbook.Save
Dim LastRow As Long
iLastRow = Range("B:D").Find("*", Range("B1"), xlValues, xlWhole, xlByRows, xlPrevious).Row
MsgBox "ЗАПИСЬ В ЖУРНАЛЕ УСПЕШНО СОЗДАНА" & vbLf & vbLf & "НОМЕР НОВОЙ ЗАЯВКИ:   " & Cells(iLastRow, "A"), vbInformation
Cells(iLastRow, 2).Offset(1, 0).Select
End Sub
[/vba]

Kuzmich, малость подправил твой код и вот что еще нужно:
как изменить его, чтобы после выполнения в первой колонке то есть в "А" той строки на которую встала активная ячейка, значение увеличилось на +1 от значения в "А" строки выше.
То есть например: после выполнения макроса выделена ячейка В647, значит нужно что бы в А647 было А646+1
Автор - Литр
Дата добавления - 22.04.2026 в 17:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Значение из ячейки в MsgBox по последней заполненной строке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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