Объект Worksheet (Excel)
Представляет лист.
Объект Worksheet является членом коллекции Worksheets . Коллекция Worksheets содержит все объекты Worksheet в книге.
Объект Worksheet также является членом коллекции Sheets . Коллекция Листов содержит все листы книги (как листы диаграмм, так и листы).
Используйте worksheets (index), где index — это номер или имя индекса листа, чтобы вернуть один объект Worksheet . В следующем примере лист скрыт в активной книге.
Worksheets(1).Visible = False
Номер индекса листа обозначает положение листа на панели вкладок книги. Worksheets(1)
— это первый (самый левый) лист в книге, а Worksheets(Worksheets.Count)
— последний. Все листы включаются в число индексов, даже если они скрыты.
Имя листа отображается на вкладке листа. Используйте свойство Name , чтобы задать или вернуть имя листа. В следующем примере выполняется защита сценариев на Листе 1.
Dim strPassword As String
strPassword = InputBox ("Enter the password for the worksheet")
Worksheets("Sheet1").Protect password:=strPassword, scenarios:=True
Если лист является активным листом, можно использовать свойство ActiveSheet , чтобы ссылаться на него. В следующем примере используется метод Activate для активации Sheet1, задает ориентацию страницы в альбомный режим, а затем выводит лист.
Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
В этом примере событие BeforeDoubleClick используется для открытия указанного набора файлов в Блокноте. Чтобы использовать этот пример, лист должен содержать следующие данные:
- Ячейка A1 должна содержать имена файлов для открытия, разделенные запятой и пробелом.
- Ячейка D1 должна содержать путь к расположению файлов Блокнота.
- Ячейка D2 должна содержать путь к расположению программы Блокнота.
- Ячейка D3 должна содержать расширение файла без точки для файлов Блокнота (txt).
При двойном щелчке ячейки A1 файлы, указанные в ячейке A1, открываются в Блокноте.
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
- Change
- 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
- Scenarios
- Select
- SetBackgroundPicture
- ShowAllData
- ShowDataForm
- Unprotect
- XmlDataQuery
- XmlMapQuery
- Application
- AutoFilter
- AutoFilterMode
- Cells
- CircularReference
- CodeName
- Columns
- Примечания
- CommentsThreaded
- ConsolidationFunction
- ConsolidationOptions
- ConsolidationSources
- Creator
- CustomProperties
- DisplayPageBreaks
- DisplayRightToLeft
- EnableAutoFilter
- EnableCalculation
- EnableFormatConditionsCalculation
- EnableOutlining
- EnablePivotTable
- EnableSelection
- FilterMode
- HPageBreaks
- Hyperlinks
- Index
- ListObjects
- MailEnvelope
- Name
- Names
- Next
- Outline
- PageSetup
- Parent
- Previous
- PrintedCommentPages
- ProtectContents
- ProtectDrawingObjects
- Protection
- ProtectionMode
- ProtectScenarios
- QueryTables
- Range
- Rows
- ScrollArea
- Shapes
- Sort
- StandardHeight
- StandardWidth
- Tab
- TransitionExpEval
- TransitionFormEntry
- Type
- UsedRange
- Visible
- VPageBreaks
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.