Compartilhar via

Objeto Worksheet (Excel)

Representa uma planilha.

Comentários

O objeto Folha de Cálculo é membro da coleção Folhas de Cálculo . A coleção de Planilhas contém todos os objetos Planilha em uma pasta de trabalho.

O objeto Folha de Cálculo também é membro da coleção Folhas . O conjunto planilhas contém todas as planilhas na pasta de trabalho (ambas planilhas de gráfico e planilhas).

Exemplo

Utilize Folhas de Cálculo (índice), em que o índice é o número ou nome do índice da folha de cálculo, para devolver um único objeto de Folha de Cálculo . O exemplo a seguir oculta uma planilha na pasta de trabalho ativa.

Worksheets(1).Visible = False

O número de índice planilha indica a posição de uma planilha na barra de guias da pasta de trabalho. Worksheets(1) é a primeira planilha (à esquerda) na pasta de trabalho, e Worksheets(Worksheets.Count) é a última. Todas as folhas de cálculo estão incluídas na contagem de índices, mesmo que estejam ocultas.

O nome da planilha é exibido na guia da planilha. Utilize a propriedade Nome para definir ou devolver o nome da folha de cálculo. O exemplo a seguir protege os cenários de Planilha1.

 
Dim strPassword As String 
strPassword = InputBox ("Enter the password for the worksheet") 
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True

Quando uma folha de cálculo é a folha ativa, pode utilizar a propriedade ActiveSheet para fazer referência à mesma. O exemplo seguinte utiliza o método Ativar para ativar a Folha1, define a orientação da página para o modo horizontal e, em seguida, imprime a folha de cálculo.

Worksheets("Sheet1").Activate 
ActiveSheet.PageSetup.Orientation = xlLandscape 
ActiveSheet.PrintOut

Este exemplo utiliza o evento BeforeDoubleClick para abrir um conjunto especificado de ficheiros no Bloco de Notas. Para utilizar este exemplo, a sua folha de cálculo tem de conter os seguintes dados:

  • A célula A1 deve conter os nomes de arquivos a serem abertos, cada um separado por uma vírgula e um espaço.
  • A célula D1 deve conter o caminho onde estão localizados os arquivos do Bloco de Notas.
  • A célula D2 deve conter o caminho onde o programa Bloco de Notas está localizado.
  • A célula D3 deve conter a extensão de arquivo, sem o ponto, para os arquivos do Bloco de Notas (txt).

Quando você clicar duas vezes na célula A1, os arquivos especificados na célula A1 serão abertos no Bloco de Notas.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   'Define your variables.
   Dim sFile As String, sPath As String, sTxt As String, sExe As String, sSfx As String
   
   'If you did not double-click on A1, then exit the function.
   If Target.Address <> "$A$1" Then Exit Sub
   
   'If you did double-click on A1, then override the default double-click behavior with this function.
   Cancel = True
   
   'Set the path to the files, the path to Notepad, the file extension of the files, and the names of the files,
   'based on the information on the worksheet.
   sPath = Range("D1").Value
   sExe = Range("D2").Value
   sSfx = Range("D3").Value
   sFile = Range("A1").Value
   
   'Remove the spaces between the file names.
   sFile = WorksheetFunction.Substitute(sFile, " ", "")
   
   'Go through each file in the list (separated by commas) and
   'create the path, call the executable, and move on to the next comma.
   Do While InStr(sFile, ",")
      sTxt = sPath & "\" & Left(sFile, InStr(sFile, ",") - 1) & "." & sSfx
      If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalFocus
      sFile = Right(sFile, Len(sFile) - InStr(sFile, ","))
   Loop
   
   'Finish off the last file name in the list
   sTxt = sPath & "\" & sFile & "." & sSfx
   If Dir(sTxt) <> "" Then Shell sExe & " " & sTxt, vbNormalNoFocus
End Sub

Eventos

Métodos

Propriedades

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on