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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5