Объект листа (Excel)

Представляет лист.

Примечания

Объект Worksheet входит в семейство Worksheets . Коллекция "Листы " содержит все объекты листа в книге.

Объект "Лист " также входит в семейство "Листы ". Коллекция "Листы " содержит все листы книги (листы диаграмм и листы).

Пример

Используйте листы (индекс), где индекс — это номер или имя индекса листа, для возврата одного объекта листа . В приведенном ниже примере первый лист скрывается в активной книге.

Worksheets(1).Visible = False

Порядковый номер листа определяет его положение на панели табуляции. Worksheets(1) является первым (самым левым) листом книги и Worksheets(Worksheets.Count) является последним. В индекс включаются все листы, даже если они скрыты.

Имя листа отображается на вкладке листа. Используйте свойство Имя , чтобы задать или вернуть имя листа. В следующем примере защищаются сценарии на листе Лист1.

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

Если лист является активным, для ссылки на него можно использовать свойство "Активный лист ". В следующем примере используется метод активации Лист1, установка альбомной ориентации страницы и печать листа.

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

События

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

  • Last updated on