☰

为什么无法打印工作表“DataSet”中的行号？

tag-icon • tag-icon vba
为什么无法打印工作表“DataSet”中的行号？

DataSet我想使用以下命令打印工作表中的行号vba：

Sub cal()
    Dim x As Integer
    Worksheets("DataSet").Activate
    x = ActiveSheet.Range("A65535").End(xlUp).Row
    Debug.Print x
End Sub

答案1

从 VBA“返回值”的另一种方法：

function cal()
    Dim x As Integer
    Worksheets("Dataset").Activate
    x = ActiveSheet.Range("A65535").End(xlUp).Row  
    cal = x   ' the value to return from this function.
End function

然后像在 中一样使用它=cal()，即与 Excel 中的任何其他函数一样使用。
但请注意，包含它的工作簿必须处于打开状态（如果它不是同一个 Workbook[1] ）。

[1] 要从另一个工作簿调用它，请在调用中包含工作簿名称（它在哪里！）；=WorkbookThatHasFunction!cal()在 Excel 中，=WorkbookThatHasFunction.cal()在 LibreOffice 中。

答案2

来自的信息Debug.Print显示在“立即”窗口中。如果您希望它显示在工作表上，您需要选择一个范围（下面示例中为 B20）并将结果分配给它。

Sub cal()
    Dim x As Integer
    Worksheets("Dataset").Activate
    x = ActiveSheet.Range("A65535").End(xlUp).Row  
    ActiveSheet.Range("B20").Value = x   'Change this range to the appropriate cell where the result should be displayed.
    
End Sub

相关内容