Objeto Worksheet (Excel)
Representa uma planilha.
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).
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
- Activate
- BeforeDelete
- BeforeDoubleClick
- BeforeRightClick
- Calculate
- Alteração
- Deactivate
- FollowHyperlink
- LensGalleryRenderComplete
- PivotTableAfterValueChange
- PivotTableBeforeAllocateChanges
- PivotTableBeforeCommitChanges
- PivotTableBeforeDiscardChanges
- PivotTableChangeSync
- PivotTableUpdate
- SelectionChange
- TableUpdate
- Activate
- Calculate
- ChartObjects
- CheckSpelling
- CircleInvalid
- ClearArrows
- ClearCircles
- Copy
- Delete
- Evaluate
- ExportAsFixedFormat
- Move
- OLEObjects
- Paste
- PasteSpecial
- PivotTables
- PivotTableWizard
- PrintOut
- PrintPreview
- Protect
- ResetAllPageBreaks
- SaveAs
- Cenários
- Select
- SetBackgroundPicture
- ShowAllData
- ShowDataForm
- Unprotect
- XmlDataQuery
- XmlMapQuery
- Application
- AutoFilter
- AutoFilterMode
- Cells
- CircularReference
- CodeName
- Columns
- Comments
- CommentsThreaded
- ConsolidationFunction
- ConsolidationOptions
- ConsolidationSources
- Creator
- CustomProperties
- DisplayPageBreaks
- DisplayRightToLeft
- EnableAutoFilter
- EnableCalculation
- EnableFormatConditionsCalculation
- EnableOutlining
- EnablePivotTable
- EnableSelection
- FilterMode
- HPageBreaks
- Hyperlinks
- Index
- ListObjects
- MailEnvelope
- Nome
- Names
- Next
- Outline
- PageSetup
- Responsável
- Previous
- PrintedCommentPages
- ProtectContents
- ProtectDrawingObjects
- Protection
- ProtectionMode
- ProtectScenarios
- QueryTables
- Range
- Rows
- ScrollArea
- Shapes
- Sort
- StandardHeight
- StandardWidth
- Tab
- TransitionExpEval
- TransitionFormEntry
- Type
- UsedRange
- Visible
- VPageBreaks
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.