MsgBox в VBA - VBA (48697)
Формулировка задачи:
Здравствуйте! Есть код который суммирует весь столбец и выводит диалоговое сообщение:
И есть код который считывает количество строк в столбце и выводит диалоговое сообщение:
Помогите сделать так что бы одной кнопкой я делал эти два действия и выводилось одно диалоговое окно, где мне сообщалось о кол-ве слолбцов и их сумме.
Решение задачи: «MsgBox в VBA»
textual
Листинг программы
Private Sub CommandButton5_Click() Dim s As Long Dim LastRow As Long Dim iLastRow As Long Dim msg as string s = Cells(Rows.Count, 5).End(xlUp).Row Cells(s + 1, 5) = Application.WorksheetFunction.Sum(Range(Cells(2, 5), Cells(s, 5))) LastRow = Cells(Rows.Count, 5).End(xlUp).Row msg= "Сумма по всем строкам: " & Cells(LastRow, 5)'исправленно здесь iLastRow = Cells(Rows.Count, 1).End(xlUp).Row - 1 msg=msg & vbcrlf & "Кол-во записей в столбце: " & iLastRow MsgBox msg, , "" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д