Vba подсчитывает строки и возвращает количество строк в поле сообщения

Question

Я использую excel. У меня есть кнопка поиска и позволяет предположить, что я искал и получил 3 найденных записи.

Что я хочу знать: как отобразить количество записей, найденных в окне сообщения?

Answer 1

Это должно работать?

Sub Msg_exe() 
result = MsgBox("Found values:", yourValue) 
End Sub 

вам просто нужно передать переменную в функцию текстового поля :)

Для подсчета строк, есть несколько способов, как вы можете это сделать:

Sub FindingLastRow() 

Dim sht As Worksheet 
Dim LastRow As Long 

Set sht = ThisWorkbook.Worksheets(Sheet1.Name) 

'Ctrl + Shift + End 
    LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 

'Using UsedRange 
    LastRow = sht.UsedRange.Rows.Count 

'Using Table Range 
    LastRow = sht.ListObjects("Table1").Range.Rows.Count 

'Using Named Range 
    LastRow = sht.Range("MyNamedRange").Rows.Count 

'Ctrl + Shift + Down (Range should be first cell in data set) 
    LastRow = sht.Range("A1").CurrentRegion.Rows.Count 

End Sub