Início / computer / Perguntas / 1752554
Accepted
newview
Asked: 2022-11-14 03:30:16 +0800 CST

Por que não é possível imprimir o número da linha na planilha 'DataSet'?

  • 772

Eu quero imprimir o número da linha na planilha DataSetcom vba:

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

2 respostas

  1. Best Answer

    Outra maneira de "retornar um valor" do 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

    Em seguida, use-o como em =cal(), ou seja, da mesma forma que faria com qualquer outra função no Excel.
    Observe, porém, que a pasta de trabalho que a contém deve estar aberta (se não for a mesma pasta de trabalho[1]).

    [1] Para chamá-lo de OUTRA pasta de trabalho, inclua o nome da pasta de trabalho (onde está!) na chamada, se for o caso; =WorkbookThatHasFunction!cal()no Excel, =WorkbookThatHasFunction.cal()no LibreOffice.

    • 1

  2. As informações de Debug.Printsão exibidas na janela Immediate. Se você deseja que seja exibido em sua planilha, selecione um intervalo (B20 no exemplo abaixo) e atribua seu resultado a ele.

    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

relate perguntas