Partilhar via

Objeto Worksheet (Excel)

  • Artigo

Representa uma planilha.

Comentários

O objeto Planilha é um membro da coleção Planilhas . A coleção de Planilhas contém todos os objetos Planilha em uma pasta de trabalho.

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

Exemplo

Use Planilhas (índice), em que o índice é o número ou o nome do índice da planilha, para retornar um único objeto worksheet . 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 planilhas são incluídas na contagem de índices, mesmo que estejam ocultas.

O nome da planilha é exibido na guia da planilha. Use a propriedade Name para definir ou retornar o nome da planilha. 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 planilha é a planilha ativa, você pode usar a propriedade ActiveSheet para se referir a ela. O exemplo a seguir usa o método Ativar para ativar o Sheet1, define a orientação da página como modo de paisagem e, em seguida, imprime a planilha.

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

Este exemplo usa o evento BeforeDoubleClick para abrir um conjunto especificado de arquivos no Bloco de Notas. Para usar este exemplo, sua planilha deve 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.