主页 / computer / 问题 / 1752554
Accepted
newview
Asked: 2022-11-14 03:30:16 +0800 CST

为什么不能在工作表“数据集”中打印行号？

  • 772

我想在工作表中打印行DataSet号vba：

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

2 个回答

  1. Best Answer

    从 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 中使用任何其他函数的方式相同。
    请注意，包含它的工作簿必须是打开的（如果它不是同一个工作簿[1]）。

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

    • 1

  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
    • 0

相关问题