Vba 计数行数和 return 行数到消息框

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

Vba 计数行数和 return 行数到消息框

Vba count rows and return number of rows to a message box

excel

vba