Sheets vba excel: Объект Sheets (Excel) | Microsoft Docs

Объект Sheets (Excel) | Microsoft Docs

• 
  04/02/2019
• Чтение занимает 2 мин

В этой статье

Коллекция всех листов в указанной или активной книге.A collection of all the sheets in the specified or active workbook.

ПримечанияRemarks

Коллекция Sheets может содержать диаграмму или объекты листа .The Sheets collection can contain Chart or Worksheet objects.

Коллекция Sheets полезна, если требуется возвратить листы любого типа.The Sheets collection is useful when you want to return sheets of any type. Если требуется работать с листами только одного типа, ознакомьтесь с разделом объект для этого типа листа.If you need to work with sheets of only one type, see the object topic for that sheet type.

ПримерExample

Используйте свойство Sheets объекта Workbook , чтобы вернуть коллекцию Sheets .Use the Sheets property of the Workbook object to return the Sheets collection. В приведенном ниже примере выполняется печать всех листов в активной книге.The following example prints all sheets in the active workbook.

Sheets.PrintOut

Используйте метод Add , чтобы создать новый лист и добавить его в коллекцию.Use the Add method to create a new sheet and add it to the collection. В приведенном ниже примере показано, как добавить в активную книгу два листа с диаграммами, разместив их после листа 2 в книге.The following example adds two chart sheets to the active workbook, placing them after sheet two in the workbook.

Sheets.Add type:=xlChart, count:=2, after:=Sheets(2)

Используйте Sheets (index), где index — это имя листа или номер индекса, чтобы вернуть один объект диаграммы или листа .Use Sheets (index), where index is the sheet name or index number, to return a single Chart or Worksheet object. В приведенном ниже примере активируется лист с именем Лист1.The following example activates the sheet named Sheet1.

Sheets("Sheet1").Activate

Используйте листы (Array), чтобы указать несколько листов.Use Sheets (array) to specify more than one sheet. В приведенном ниже примере листы с именами Sheet4 и Sheet5 перемещаются в начало книги.The following example moves the sheets named Sheet4 and Sheet5 to the beginning of the workbook.

Sheets(Array("Sheet4", "Sheet5")).Move before:=Sheets(1)

MethodsMethods

СвойстваProperties

См. такжеSee also

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

VBA Excel. Рабочий лист (создание, копирование, удаление)

Создание, копирование, перемещение и удаление рабочих листов Excel с помощью кода VBA. Методы Sheets.Add, Worksheet.Copy, Worksheet.Move и Worksheet.Delete.

Создание новых листов

Создание новых рабочих листов осуществляется с помощью метода Sheets.Add.

Синтаксис метода Sheets.Add

expression.Add [Before, After, Count, Type]

где expression – переменная, представляющая собой объект Sheet.

Компоненты метода Sheets.Add

• Before* – необязательный параметр типа данных Variant, указывающий на лист, перед которым будет добавлен новый.
• After* – необязательный параметр типа данных Variant, указывающий на лист, после которого будет добавлен новый.
• Count – необязательный параметр типа данных Variant, указывающий, сколько листов будет добавлено (по умолчанию – 1).
• Type – необязательный параметр типа данных Variant, указывающий тип листа: xlWorksheet** (рабочий лист) или xlChart (диаграмма), по умолчанию – xlWorksheet.

*Если Before и After не указаны, новый лист, по умолчанию, будет добавлен перед активным листом.

**Для создания рабочего листа (xlWorksheet) можно использовать метод Worksheets.Add, который для создания диаграмм уже не подойдет.

Примеры создания листов

• Лист1 в After:=Лист1 – это уникальное имя листа, указанное в проводнике редактора VBA без скобок.
• Лист1 в After:=Worksheets(«Лист1») – это имя на ярлыке листа, указанное в проводнике редактора VBA в скобках.

Создаваемый лист можно присвоить объектной переменной:

Если создаваемый лист присваивается объектной переменной, он будет помещен перед активным листом. Указать дополнительные параметры невозможно.

Копирование листов

Копирование рабочих листов осуществляется с помощью метода Worksheet.Copy.

Синтаксис метода Worksheet.Copy

expression.Copy [Before, After]

где expression – переменная, представляющая собой объект Worksheet.

Компоненты метода Worksheet.Copy

• Before* – необязательный параметр типа данных Variant, указывающий на лист, перед которым будет добавлена копия.
• After* – необязательный параметр типа данных Variant, указывающий на лист, после которого будет добавлена копия.

*Если Before и After не указаны, Excel создаст новую книгу и поместит копию листа в нее. Если скопированный лист содержит код в проекте VBA (в модуле листа), он тоже будет перенесен в новую книгу.

Примеры копирования листов

Если рабочие книги указаны как элементы коллекции Workbooks, в том числе ActiveWorkbook и ThisWorkbook, листы нужно указывать как элементы коллекции Worksheets, использование уникальных имен вызовет ошибку.

Перемещение листов

Перемещение рабочих листов осуществляется с помощью метода Worksheet.Move.

Синтаксис метода Worksheet.Move

expression.Move [Before, After]

где expression – переменная, представляющая собой объект Worksheet.

Компоненты метода Worksheet.Move

• Before* – необязательный параметр типа данных Variant, указывающий на лист, перед которым будет размещен перемещаемый лист.
• After* – необязательный параметр типа данных Variant, указывающий на лист, после которого будет размещен перемещаемый лист.

*Если Before и After не указаны, Excel создаст новую книгу и переместит лист в нее.

Примеры перемещения листов

Если рабочие книги указаны как элементы коллекции Workbooks, в том числе ActiveWorkbook и ThisWorkbook, листы нужно указывать как элементы коллекции Worksheets, использование уникальных имен вызовет ошибку.

Удаление листов

Удаление рабочих листов осуществляется с помощью метода Worksheet.Delete

Синтаксис метода Worksheet.Delete

expression.Delete

где expression – переменная, представляющая собой объект Worksheet.

Примеры удаления листов

Если рабочие книги указаны как элементы коллекции Workbooks, в том числе ActiveWorkbook и ThisWorkbook, листы нужно указывать как элементы коллекции Worksheets, использование уникальных имен вызовет ошибку.

Как обратиться к рабочему листу, переименовать, скрыть или отобразить его с помощью кода VBA Excel, смотрите в этой статье.

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

• 
  05/15/2019
• Чтение занимает 2 мин

В этой статье

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

ПримечанияRemarks

Объект листа является элементом коллекции листы .The Worksheet object is a member of the Worksheets collection. Коллекция листы содержит все объекты листа в книге.The Worksheets collection contains all the Worksheet objects in a workbook.

Объект листа также является членом коллекции Sheets .The Worksheet object is also a member of the Sheets collection. Коллекция Sheets содержит все листы в книге (листы и листы диаграммы).The Sheets collection contains all the sheets in the workbook (both chart sheets and worksheets).

ПримерExample

Используйте листы (индекс), где индекс — это номер или имя индекса листа, чтобы вернуть один объект листа .Use Worksheets (index), where index is the worksheet index number or name, to return a single Worksheet object. В приведенном ниже примере показано, как скрыть лист один в активной книге.The following example hides worksheet one in the active workbook.

Worksheets(1).Visible = False

Номер индекса листа указывает положение листа на панели вкладок книги.The worksheet index number denotes the position of the worksheet on the workbook’s tab bar. Worksheets(1)— Это первый (крайний левый) лист в книге, Worksheets(Worksheets.Count) который является последним.Worksheets(1) is the first (leftmost) worksheet in the workbook, and Worksheets(Worksheets.Count) is the last one. Все листы включены в число индексов, даже если они скрыты.All worksheets are included in the index count, even if they are hidden.

Имя листа отображается на вкладке листа.The worksheet name is shown on the tab for the worksheet. Используйте свойство Name , чтобы задать или вернуть имя листа.Use the Name property to set or return the worksheet name. В приведенном ниже примере показано, как защитить сценарии на листе Sheet1.The following example protects the scenarios on Sheet1.

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

Когда лист является активным листом, можно использовать свойство активешит , чтобы ссылаться на него.When a worksheet is the active sheet, you can use the ActiveSheet property to refer to it. В следующем примере используется метод Activate для активации Лист1, устанавливается альбомная ориентация страницы, а затем лист печатается.The following example uses the Activate method to activate Sheet1, sets the page orientation to landscape mode, and then prints the worksheet.

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

В этом примере показано использование события бефоредаублекликк для открытия указанного набора файлов в блокноте.This example uses the BeforeDoubleClick event to open a specified set of files in Notepad. Чтобы использовать этот пример, лист должен содержать следующие данные:To use this example, your worksheet must contain the following data:

• Ячейка a1 должна содержать имена файлов, которые должны быть открыты, отделенных запятой и пробелом.Cell A1 must contain the names of the files to open, each separated by a comma and a space.
• Ячейка D1 должна содержать путь к расположению файлов блокнота.Cell D1 must contain the path to where the Notepad files are located.
• Ячейка D2 должна содержать путь к расположению программы блокнота.Cell D2 must contain the path to where the Notepad program is located.
• Ячейка D3 должна содержать расширение файла (без точки) для файлов «Блокнота» (txt).Cell D3 must contain the file extension, without the period, for the Notepad files (txt).

При двойном щелчке ячейки a1 файлы, указанные в ячейке a1, открываются в блокноте.When you double-click cell A1, the files specified in cell A1 are opened in Notepad.

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

СобытияEvents

МетодыMethods

СвойстваProperties

См. такжеSee also

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Объекты Excel — Microsoft Excel для начинающих

Термин Объекты Excel (понимаемый в широком смысле, как объектная модель Excel) включает в себя элементы, из которых состоит любая рабочая книга Excel. Это, например, рабочие листы (Worksheets), строки (Rows), столбцы (Columns), диапазоны ячеек (Ranges) и сама рабочая книга Excel (Workbook) в том числе. Каждый объект Excel имеет набор свойств, которые являются его неотъемлемой частью.

Например, объект Worksheet (рабочий лист) имеет свойства Name (имя), Protection (защита), Visible (видимость), Scroll Area (область прокрутки) и так далее. Таким образом, если в процессе выполнения макроса требуется скрыть рабочий лист, то достаточно изменить свойство Visible этого листа.

В Excel VBA существует особый тип объектов – коллекция. Как можно догадаться из названия, коллекция ссылается на группу (или коллекцию) объектов Excel. Например, коллекция Rows – это объект, содержащий все строки рабочего листа.

Доступ ко всем основным объектам Excel может быть осуществлён (прямо или косвенно) через объект Workbooks, который является коллекцией всех открытых в данный момент рабочих книг. Каждая рабочая книга содержит объект Sheets – коллекция, которая включает в себя все рабочие листы и листы с диаграммами рабочей книги. Каждый объект Worksheet состоит из коллекции Rows – в неё входят все строки рабочего листа, и коллекции Columns – все столбцы рабочего листа, и так далее.

В следующей таблице перечислены некоторые наиболее часто используемые объекты Excel. Полный перечень объектов Excel VBA можно найти на сайте Microsoft Office Developer (на английском).

Приведённая выше таблица показывает, как выполняется доступ к объектам Excel через родительские объекты. Например, ссылку на диапазон ячеек можно записать вот так:

Workbooks("Книга1").Worksheets("Лист1").Range("A1:B10")

Присваивание объекта переменной

В Excel VBA объект может быть присвоен переменной при помощи ключевого слова Set:

Dim DataWb As Workbook
Set DataWb = Workbooks("Книга1.xlsx")

Активный объект

В любой момент времени в Excel есть активный объект Workbook – это рабочая книга, открытая в этот момент. Точно так же существует активный объект Worksheet, активный объект Range и так далее.

Сослаться на активный объект Workbook или Sheet в коде VBA можно как на ActiveWorkbook или ActiveSheet, а на активный объект Range – как на Selection.

Если в коде VBA записана ссылка на рабочий лист, без указания к какой именно рабочей книге он относится, то Excel по умолчанию обращается к активной рабочей книге. Точно так же, если сослаться на диапазон, не указывая определённую рабочую книгу или лист, то Excel по умолчанию обратится к активному рабочему листу в активной рабочей книге.

Таким образом, чтобы сослаться на диапазон A1:B10 на активном рабочем листе активной книги, можно записать просто:

Смена активного объекта

Если в процессе выполнения программы требуется сделать активной другую рабочую книгу, другой рабочий лист, диапазон и так далее, то для этого нужно использовать методы Activate или Select вот таким образом:

Sub ActivateAndSelect()

   Workbooks("Книга2").Activate
   Worksheets("Лист2").Select
   Worksheets("Лист2").Range("A1:B10").Select
   Worksheets("Лист2").Range("A5").Activate

End Sub

Методы объектов, в том числе использованные только что методы Activate или Select, далее будут рассмотрены более подробно.

Свойства объектов

Каждый объект VBA имеет заданные для него свойства. Например, объект Workbook имеет свойства Name (имя), RevisionNumber (количество сохранений), Sheets (листы) и множество других. Чтобы получить доступ к свойствам объекта, нужно записать имя объекта, затем точку и далее имя свойства. Например, имя активной рабочей книги может быть доступно вот так: ActiveWorkbook.Name. Таким образом, чтобы присвоить переменной wbName имя активной рабочей книги, можно использовать вот такой код:

Dim wbName As String
wbName = ActiveWorkbook.Name

Ранее мы показали, как объект Workbook может быть использован для доступа к объекту Worksheet при помощи такой команды:

Workbooks("Книга1").Worksheets("Лист1")

Это возможно потому, что коллекция Worksheets является свойством объекта Workbook.

Некоторые свойства объекта доступны только для чтения, то есть их значения пользователь изменять не может. В то же время существуют свойства, которым можно присваивать различные значения. Например, чтобы изменить название активного листа на “Мой рабочий лист“, достаточно присвоить это имя свойству Name активного листа, вот так:

ActiveSheet.Name = "Мой рабочий лист"

Методы объектов

Объекты VBA имеют методы для выполнения определённых действий. Методы объекта – это процедуры, привязанные к объектам определённого типа. Например, объект Workbook имеет методы Activate, Close, Save и ещё множество других.

Для того, чтобы вызвать метод объекта, нужно записать имя объекта, точку и имя метода. Например, чтобы сохранить активную рабочую книгу, можно использовать вот такую строку кода:

Как и другие процедуры, методы могут иметь аргументы, которые передаются методу при его вызове. Например, метод Close объекта Workbook имеет три необязательных аргумента, которые определяют, должна ли быть сохранена рабочая книга перед закрытием и тому подобное.

Чтобы передать методу аргументы, необходимо записать после вызова метода значения этих аргументов через запятую. Например, если нужно сохранить активную рабочую книгу как файл .csv с именем “Книга2”, то нужно вызвать метод SaveAs объекта Workbook и передать аргументу Filename значение Книга2, а аргументу FileFormat – значение xlCSV:

ActiveWorkbook.SaveAs "Книга2", xlCSV

Чтобы сделать код более читаемым, при вызове метода можно использовать именованные аргументы. В этом случае сначала записывают имя аргумента, затем оператор присваивания “:=” и после него указывают значение. Таким образом, приведённый выше пример вызова метода SaveAs объекта Workbook можно записать по-другому:

ActiveWorkbook.SaveAs Filename:="Книга2", [FileFormat]:=xlCSV

В окне Object Browser редактора Visual Basic показан список всех доступных объектов, их свойств и методов. Чтобы открыть этот список, запустите редактор Visual Basic и нажмите F2.

Рассмотрим несколько примеров

Пример 1

Этот отрывок кода VBA может служить иллюстрацией использования цикла For Each. В данном случае мы обратимся к нему, чтобы продемонстрировать ссылки на объект Worksheets (который по умолчанию берётся из активной рабочей книги) и ссылки на каждый объект Worksheet отдельно. Обратите внимание, что для вывода на экран имени каждого рабочего листа использовано свойство Name объекта Worksheet.

'Пролистываем поочерёдно все рабочие листы активной рабочей книги
'и выводим окно сообщения с именем каждого рабочего листа

Dim wSheet As Worksheet

For Each wSheet in Worksheets
   MsgBox "Найден рабочий лист: " & wSheet.Name
Next wSheet

Пример 2

В этом примере кода VBA показано, как можно получать доступ к рабочим листам и диапазонам ячеек из других рабочих книг. Кроме этого, Вы убедитесь, что если не указана ссылка на какой-то определённый объект, то по умолчанию используются активные объекты Excel. Данный пример демонстрирует использование ключевого слова Set для присваивания объекта переменной.

В коде, приведённом ниже, для объекта Range вызывается метод PasteSpecial. Этот метод передаёт аргументу Paste значение xlPasteValues.

'Копируем диапазон ячеек из листа "Лист1" другой рабочей книги (с именем Data.xlsx)
'и вставляем только значения на лист "Результаты" текущей рабочей книги (с именем CurrWb.xlsm)

Dim dataWb As Workbook

Set dataWb = Workbooks.Open("C:\Data")

'Обратите внимание, что DataWb – это активная рабочая книга.
'Следовательно, следующее действие выполняется с объектом Sheets в DataWb.

Sheets("Лист1").Range("A1:B10").Copy

'Вставляем значения, скопированные из диапазона ячеек, на рабочий лист "Результаты"
'текущей рабочей книги. Обратите внимание, что рабочая книга CurrWb.xlsm не является
'активной, поэтому должна быть указана в ссылке.

Workbooks("CurrWb").Sheets("Результаты").Range("A1").PasteSpecial Paste:=xlPasteValues

Пример 3

Следующий отрывок кода VBA показывает пример объекта (коллекции) Columns и демонстрирует, как доступ к нему осуществляется из объекта Worksheet. Кроме этого, Вы увидите, что, ссылаясь на ячейку или диапазон ячеек на активном рабочем листе, можно не указывать этот лист в ссылке. Вновь встречаем ключевое слово Set, при помощи которого объект Range присваивается переменной Col.

Данный код VBA показывает также пример доступа к свойству Value объекта Range и изменение его значения.

'С помощью цикла просматриваем значения в столбце A на листе "Лист2",
'выполняем с каждым из них арифметические операции и записываем результат
'в столбец A активного рабочего листа (Лист1)

Dim i As Integer
Dim Col As Range
Dim dVal As Double

'Присваиваем переменной Col столбец A рабочего листа "Лист2"

Set Col = Sheets("Лист2").Columns("A")
i = 1

'Просматриваем последовательно все ячейки столбца Col до тех пор
'пока не встретится пустая ячейка

Do Until IsEmpty(Col.Cells(i))

   'Выполняем арифметические операции со значением текущей ячейки

   dVal = Col.Cells(i).Value * 3 - 1

   'Следующая команда записывает результат в столбец A
   'активного листа. Нет необходимости указывать в ссылке имя листа,
   'так как это активный лист рабочей книги.

   Cells(i, 1).Value = dVal
   i = i + 1

Loop

Оцените качество статьи. Нам важно ваше мнение:

Sheet happens — Макросы и программы VBA — Excel — Каталог статей

Поговорим про то, как в VBA обращаться к листам книги Excel.

Вариант 1

У глобального объекта Excel Application есть 2 коллекции листов: Sheets и Worksheets. Отличаются они тем, что вторая коллекция не включает в себя специальные листы макросов, которые поддерживала Excel 4.0 (на минуточку — 1992 год) во времена, когда VBA ещё не было в природе (появился в Excel 5.0). Тяжело найти эстетов, которые всё ещё пользуются такими листами с макросами, поэтому можно считать, что эти коллекции идентичны. Лично я использую коллекцию Sheets просто потому, что 5 букв лучше, чем 9.

    Sheets(1).Cells(1,1)

Sheets(1) — это не первый лист, созданный в книге, а лист, который на панели ярлыков листов занимает КРАЙНЕЕ ЛЕВОЕ положение. То есть Sheets(2) будет указывать на второй слева лист на панели ярлыков. Если вам нужен конкретный лист, то ТАК ссылаться на него, как вы понимаете, плохая идея, ибо пользователь, изменив порядок следования листов, нарушит работоспособность вашей программы.

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

Вариант 2

    Sheets(«First»).Cells(1,1)

Пожалуй, такое обращение к листу наиболее популярно в народе. В скобках и кавычках мы видим пользовательское имя листа. Плохо только то, что имя листа, что называется «hard coded» (жёстко запрограммировано), что является моветоном в программировании. Ибо, если у вас в модуле конструкция Sheets(«First») встречается 100 раз, то при смене имени листа придётся делать поиск с заменой 100 констант в коде. Поэтому обычно делают иначе…

Вариант 3

Гораздо разумней добавить ещё один уровень абстракции и объявить константу, ссылающуюся на имя листа.

    Public Const wsFirst = «First»

    Sheets(wsFirst).Cells(1,1)

В случае смены имени вам придётся исправить ТОЛЬКО эту константу в начале модуля. Однако, если программа написана и сдана пользователю, а тот в один прекрасный момент берёт и переименовывает лист, то наш код тут же перестаёт работать, что, согласитесь, не слишком хорошо…

Вариант 4

У листа есть свойство Name, которое мы видим на ярлыке листа и которое можем менять (если не включена защита структуры книги, но сейчас не об этом), но ещё есть свойство CodeName, которое присваивается листу в момент создания, и которое пользователь сменить не может. В русской редакции офиса эти CodeName-ы формируются по принципу: Лист1, Лист2, Лист3 и т.д. В англоязычной версии это: Sheet1, Sheet2, Sheet3, etc.

Если вы удалите лист, то его CodeName повторно не будет использовано. Так вот — VBA разпознаёт имена совпадающие с CodeName листа, как объекты типа Worksheet.

    Лист1.Cells(1,1) или [Лист1].Cells(1,1)

Это отличная защита от того, что пользователь перенесёт или переименует лист. Но подобные имена ни о чём не говорят нам в процессе программирования в плане того, что располагается на листе, поэтому вы будете частенько ошибаться, путая листы. А те, кто будут потом разбираться в вашем коде, тоже спасибо вам не скажут. Поэтому я предлагаю следующую модификацию этого способа:

Вариант 5

    Public wsData As Worksheet

    Set wsData = Лист1

    wsData.Cells(1,1)

Строку 1 размещаем в объявлениях модуля. Строку 2 размещаем в обработчике события Workbook_Open. И после этого в любом месте книги мы можем использовать объявленные переменные (wsData, строка 3). На мой взгляд, это самый удобный и продвинутый вариант из рассмотренных.

Вариант 6

Не забываем про свойство ActiveSheet объекта Application, указывающее на активный лист книги. Если вы работаете с текущим листом, то использовать его, я считаю, оптимально.

    ActiveSheet.Cells(1,1)

Вариант 7

Ну и последнее, если вам передан в подпрограмму объект типа Range, то не забываем, что ссылку на лист возвращает его свойство Worksheet.

Это всё, что я имел сказать по поводу ссылок на листы в Excel VBA 🙂

Метод Sheets. Copy (Excel) | Microsoft Docs

• 
  05/15/2019
• Чтение занимает 2 мин

В этой статье

Копирует лист в другое расположение в книге.Copies the sheet to another location in the workbook.

СинтаксисSyntax

Expression. Copy (до, после)expression.Copy (Before, After)

выражение: переменная, представляющая объект Sheets.expression A variable that represents a Sheets object.

ПараметрыParameters

ПримечанияRemarks

Если вы не укажете до или после, Microsoft Excel создаст новую книгу, содержащую скопированный лист.If you don’t specify either Before or After, Microsoft Excel creates a new workbook that contains the copied sheet.

ПримерExample

В этом примере копируется Лист1, после чего помещается копия после Sheet3.This example copies Sheet1, placing the copy after Sheet3.

Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Свойства и методы Worksheet. Примеры кода

Автор Дмитрий Якушев На чтение 16 мин. Просмотров 2.5k.

Malcolm Gladwell

Мечтатель начинает с чистого листа бумаги и переосмысливает мир

Эта статья содержит полное руководство по использованию Excel
VBA Worksheet в Excel VBA. Если вы хотите узнать, как что-то сделать быстро, ознакомьтесь с кратким руководством к рабочему листу VBA ниже.

Если вы новичок в VBA, то эта статья — отличное место для начала. Мне нравится разбивать вещи на простые термины и объяснять их на простом языке.

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

Краткое руководство к рабочему листу VBA

В следующей таблице приведен краткий обзор различных методов
Worksheet .

Примечание. Я использую Worksheet в таблице ниже, не указывая рабочую книгу, т.е. Worksheets, а не ThisWorkbook.Worksheets, wk.Worksheets и т.д. Это сделано для того, чтобы примеры были понятными и удобными для чтения. Вы должны всегда указывать рабочую книгу при использовании Worksheets . В противном случае активная рабочая книга будет использоваться по умолчанию.

Вступление

Три наиболее важных элемента VBA — это Рабочая книга, Рабочий лист и Ячейки. Из всего кода, который вы пишете, 90% будут включать один или все из них.

Наиболее распространенное использование Worksheet в VBA для доступа к его ячейкам. Вы можете использовать его для защиты, скрытия, добавления, перемещения или копирования листа.

Тем не менее, вы будете в основном использовать его для выполнения некоторых действий с одной или несколькими ячейками на листе.

Использование Worksheets более простое, чем использование рабочих книг. С книгами вам может потребоваться открыть их, найти, в какой папке они находятся, проверить, используются ли они, и так далее. С рабочим листом он либо существует в рабочей книге, либо его нет.

Доступ к рабочему листу

В VBA каждая рабочая книга имеет коллекцию рабочих листов. В этой коллекции есть запись для каждого рабочего листа. Эта коллекция называется просто Worksheets и используется очень похоже на коллекцию Workbooks. Чтобы получить доступ к рабочему листу, достаточно указать имя.

Приведенный ниже код записывает «Привет Мир» в ячейках A1 на листах: Лист1, Лист2 и Лист3 текущей рабочей книги.

Sub ZapisVYacheiku1()

    ' Запись в ячейку А1 в листе 1, листе 2 и листе 3
    ThisWorkbook.Worksheets("Лист1").Range("A1") = "Привет Мир"
    ThisWorkbook.Worksheets("Лист2").Range("A1") = "Привет Мир"
    ThisWorkbook.Worksheets("Лист3").Range("A1") = "Привет Мир"

End Sub

Коллекция Worksheets всегда принадлежит книге. Если мы не
указываем рабочую книгу, то активная рабочая книга используется по умолчанию.

Sub ZapisVYacheiku1()

    ' Worksheets относятся к рабочим листам в активной рабочей книге.
    Worksheets("Лист1").Range("A1") = "Привет Мир"
    Worksheets("Лист2").Range("A1") = "Привет Мир"
    Worksheets("Лист3").Range("A1") = "Привет Мир"

End Sub

Скрыть рабочий лист

В следующих примерах показано, как скрыть и показать лист.

ThisWorkbook.Worksheets("Лист1").Visible = xlSheetHidden

ThisWorkbook.Worksheets("Лист1").Visible = xlSheetVisible

Если вы хотите запретить пользователю доступ к рабочему
листу, вы можете сделать его «очень скрытым». Это означает, что это может быть
сделано видимым только кодом.

' Скрыть от доступа пользователя
ThisWorkbook.Worksheets("Лист1").Visible = xlVeryHidden

' Это единственный способ сделать лист xlVeryHidden видимым
ThisWorkbook.Worksheets("Лист1").Visible = xlSheetVisible

Защитить рабочий лист

Другой пример использования Worksheet — когда вы хотите защитить его.

ThisWorkbook.Worksheets("Лист1").Protect Password:="Мойпароль"

ThisWorkbook.Worksheets("Лист1").Unprotect Password:="Мойпароль"

Индекс вне диапазона

При использовании Worksheets вы можете получить сообщение об
ошибке:

Run-time Error 9 Subscript out of Range

Это означает, что вы пытались получить доступ к рабочему листу, который не существует. Это может произойти по следующим причинам:

1. Имя Worksheet , присвоенное рабочим листам, написано неправильно.
2. Название листа изменилось.
3. Рабочий лист был удален.
4. Индекс был большим, например Вы использовали рабочие листы (5), но есть только четыре рабочих листа
5. Используется неправильная рабочая книга, например Workbooks(«book1.xlsx»).Worksheets(«Лист1») вместо
   Workbooks(«book3.xlsx»).Worksheets («Лист1»).

Если у вас остались проблемы, используйте один из циклов из раздела «Циклы по рабочим листам», чтобы напечатать имена всех рабочих листов коллекции.

Использование индекса для доступа к рабочему листу

До сих пор мы использовали имя листа для доступа к листу.
Указатель относится к положению вкладки листа в рабочей книге. Поскольку
положение может быть легко изменено пользователем, не рекомендуется
использовать это.

 В следующем коде показаны примеры использования индекса.

' Использование этого кода является плохой идеей, так как
' позиции листа все время меняются
Sub IspIndList()

    With ThisWorkbook
        ' Самый левый лист
        Debug.Print .Worksheets(1).Name
        ' Третий лист слева
        Debug.Print .Worksheets(3).Name
        ' Самый правый лист
        Debug.Print .Worksheets(.Worksheets.Count).Name
    End With

End Sub

В приведенном выше примере я использовал Debug.Print для печати в Immediate Window. Для просмотра этого окна выберите «Вид» -> «Immediate Window » (Ctrl + G).

Использование кодового имени рабочего листа

Лучший способ получить доступ к рабочему листу —
использовать кодовое имя. Каждый лист имеет имя листа и кодовое имя. Имя листа
— это имя, которое отображается на вкладке листа в Excel.

Изменение имени листа не приводит к изменению кодового имени, что означает, что ссылка на лист по кодовому имени — отличная идея.

Если вы посмотрите в окне свойств VBE, вы увидите оба имени.
На рисунке вы можете видеть, что кодовое имя — это имя вне скобок, а имя листа
— в скобках.

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

Если ваш код ссылается на кодовое имя, то пользователь может
изменить имя листа, и это не повлияет на ваш код. В приведенном ниже примере мы
ссылаемся на рабочий лист напрямую, используя кодовое имя.

Sub IspKodImya2()

    ' Используя кодовое имя листа
    Debug.Print CodeName.Name
    CodeName.Range("A1") = 45
    CodeName.Visible = True

End Sub

Это делает код легким для чтения и безопасным от изменения
пользователем имени листа.

Кодовое имя в других книгах

Есть один недостаток использования кодового имени. Он относится только к рабочим листам в рабочей книге, которая содержит код, т.е. ThisWorkbook.

Однако мы можем использовать простую функцию, чтобы найти
кодовое имя листа в другой книге.

Sub ИспЛист()

    Dim sh As Worksheet
    ' Получить рабочий лист под кодовым именем
    Set sh = SheetFromCodeName("CodeName", ThisWorkbook)
    ' Используйте рабочий лист
    Debug.Print sh.Name

End Sub

' Эта функция получает объект листа из кодового имени
Public Function SheetFromCodeName(Name As String, bk As Workbook) As Worksheet

    Dim sh As Worksheet
    For Each sh In bk.Worksheets
        If sh.CodeName = Name Then
           Set SheetFromCodeName = sh
           Exit For
        End If
    Next sh

End Function

Использование приведенного выше кода означает, что если
пользователь изменит имя рабочего листа, то на ваш код это не повлияет.

Существует другой способ получения имени листа внешней
рабочей книги с использованием кодового имени. Вы можете использовать элемент
VBProject этой Рабочей книги.

Вы можете увидеть, как это сделать, в примере ниже. Я включил это, как дополнительную информацию, я бы рекомендовал использовать метод из предыдущего примера, а не этот.

Public Function SheetFromCodeName2(codeName As String _
                             , bk As Workbook) As Worksheet

    ' Получить имя листа из CodeName, используя VBProject
    Dim sheetName As String
    sheetName = bk.VBProject.VBComponents(codeName).Properties("Name")

    ' Используйте имя листа, чтобы получить объект листа
    Set SheetFromCodeName2 = bk.Worksheets(sheetName)

End Function

Резюме кодового имени

Ниже приведено краткое описание использования кодового имени:

1. Кодовое имя рабочего листа может быть
   использовано непосредственно в коде, например. Sheet1.Range
2. Кодовое имя будет по-прежнему работать, если имя
   рабочего листа будет изменено.
3. Кодовое имя может использоваться только для
   листов в той же книге, что и код.
4. Везде, где вы видите ThisWorkbook.Worksheets
   («имя листа»), вы можете заменить его кодовым именем рабочего листа.
5. Вы можете использовать функцию SheetFromCodeName
   сверху, чтобы получить кодовое имя рабочих листов в других рабочих книгах.

 Активный лист

Объект ActiveSheet ссылается на рабочий лист, который в данный момент активен. Вы должны использовать ActiveSheet только в том случае, если у вас есть особая необходимость ссылаться на активный лист.

В противном случае вы должны указать рабочий лист, который
вы используете.

Если вы используете метод листа, такой как Range, и не
упоминаете лист, он по умолчанию будет использовать активный лист.

' Написать в ячейку A1 в активном листе
ActiveSheet.Range("A1") = 99

' Активный лист используется по умолчанию, если лист не используется
Range("A1") = 99

Объявление объекта листа

Объявление объекта листа полезно для того, чтобы сделать ваш
код более понятным и легким для чтения.

В следующем примере показан код для обновления диапазонов
ячеек. Первый Sub не объявляет объект листа. Вторая подпрограмма объявляет
объект листа, и поэтому код намного понятнее.

Sub NeObyavObektList()

    Debug.Print ThisWorkbook.Worksheets("Лист1").Name
    ThisWorkbook.Worksheets("Лист1").Range("A1") = 6
    ThisWorkbook.Worksheets("Лист1").Range("B2:B9").Font.Italic = True
    ThisWorkbook.Worksheets("Лист1").Range("B2:B9").Interior.Color = rgbRed

End Sub

Sub ObyavObektList()

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Лист1")

    sht.Range("A1") = 6
    sht.Range("B2:B9").Font.Italic = True
    sht.Range("B2:B9").Interior.Color = rgbRed

End Sub

Вы также можете использовать ключевое слово With с объектом
листа, как показано в следующем примере.

Sub ObyavObektListWith()

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Лист1")

    With sht
        .Range("A1") = 6
        .Range("B2:B9").Font.Italic = True
        .Range("B2:B9").Interior.Color = rgbRed
    End With

End Sub

Доступ к рабочему листу в двух словах

Из-за множества различных способов доступа к рабочему листу вы можете быть сбитыми с толку. Так что в этом разделе я собираюсь разбить его на простые термины.

1. Если вы хотите использовать тот лист, который активен в данный момент, используйте ActiveSheet.

ActiveSheet.Range("A1") = 55

2. Если лист находится в той же книге, что и код, используйте кодовое имя.

Sheet1.Range("A1") = 55

3. Если рабочая таблица находится в другой рабочей книге, сначала получите рабочую книгу, а затем получите рабочую таблицу.

' Получить рабочую книгу
Dim wk As Workbook
Set wk = Workbooks.Open("C:\Документы\Счета.xlsx", ReadOnly:=True)
' Затем получите лист
Dim sh As Worksheet
Set sh = wk.Worksheets("Лист1")

Если вы хотите защитить пользователя от изменения имени листа, используйте функцию SheetFromCodeName из раздела «Имя кода».

' Получить рабочую книгу
Dim wk As Workbook
Set wk = Workbooks.Open("C:\Документы\Счета.xlsx", ReadOnly:=True)

' Затем получите лист
Dim sh As Worksheet
Set sh = SheetFromCodeName("sheetcodename",wk)

Добавить рабочий лист

Примеры в этом разделе показывают, как добавить новую
рабочую таблицу в рабочую книгу. Если вы не предоставите никаких аргументов для
функции Add, то новый
рабочий лист будет помещен перед активным рабочим листом.

Когда вы добавляете рабочий лист, он создается с именем по умолчанию, например «Лист4». Если вы хотите изменить имя, вы можете легко сделать это, используя свойство Name.

В следующем примере добавляется новый рабочий лист и изменяется имя на «Счета». Если лист с именем «Счета» уже существует, вы получите сообщение об ошибке.

Sub DobavitList()

    Dim sht As Worksheet

    ' Добавляет новый лист перед активным листом
    Set sht = ThisWorkbook.Worksheets.Add
    ' Установите название листа
    sht.Name = "Счета"

    ' Добавляет 3 новых листа перед активным листом
    ThisWorkbook.Worksheets.Add Count:=3

End Sub

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

Для этого вам нужно указать, какой лист новый лист должен
быть вставлен до или после. Следующий код показывает вам, как это сделать.

Sub DobavitListPervPosl()

    Dim shtNew As Worksheet
    Dim shtFirst As Worksheet, shtLast As Worksheet

    With ThisWorkbook

        Set shtFirst = .Worksheets(1)
        Set shtLast = .Worksheets(.Worksheets.Count)

        ' Добавляет новый лист на первую позицию в книге
        Set shtNew = Worksheets.Add(Before:=shtFirst)
        shtNew.Name = "FirstSheet"

        ' Добавляет новый лист к последней позиции в книге
        Set shtNew = Worksheets.Add(After:=shtLast)
        shtNew.Name = "LastSheet"

    End With

End Sub

Удалить рабочий лист

Чтобы удалить лист, просто вызовите Delete.

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Лист12")
sh.Delete

Excel отобразит предупреждающее сообщение при удалении листа. Если вы хотите скрыть это сообщение, вы можете использовать код ниже:

Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True

Есть два аспекта, которые нужно учитывать при удалении таблиц.

Если вы попытаетесь получить доступ к рабочему листу после
его удаления, вы получите ошибку «Subscript out of Range», которую мы видели в
разделе «Доступ к рабочему листу».

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Лист2")
sh.Delete

' Эта строка выдаст «Subscript out of Range», так как «Лист2» не существует
Set sh = ThisWorkbook.Worksheets("Лист2")

Вторая проблема — когда вы назначаете переменную листа. Если вы попытаетесь использовать эту переменную после удаления листа, вы получите ошибку автоматизации, подобную этой:

Run-Time error -21147221080 (800401a8′) Automation Error

Если вы используете кодовое имя рабочего листа, а не
переменную, это приведет к сбою Excel,
а не к ошибке автоматизации.

В следующем примере показано, как происходят ошибки автоматизации.

sh.Delete

' Эта строка выдаст ошибку автоматизации
Debug.Assert sh.Name

Если вы назначите переменную Worksheet действительному рабочему листу, он будет работать нормально.

sh.Delete

' Назначить sh на другой лист
Set sh = Worksheets("Лист3")

' Эта строка будет работать нормально
Debug.Assert sh.Name

Цикл по рабочим листам

Элемент «Worksheets» — это набор рабочих листов, принадлежащих рабочей книге. Вы можете просмотреть каждый лист в коллекции рабочих листов, используя циклы «For Each» или «For».

В следующем примере используется цикл For Each.

Sub CiklForEach()

    ' Записывает «Привет Мир» в ячейку A1 для каждого листа
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
         sht.Range("A1") = "Привет Мир"
    Next sht 

End Sub

В следующем примере используется стандартный цикл For.

Sub CiklFor()
    
    ' Записывает «Привет Мир» в ячейку A1 для каждого листа
    Dim i As Long
    For i = 1 To ThisWorkbook.Worksheets.Count
         ThisWorkbook.Worksheets(i).Range("A1") = "Привет Мир"
    Next sht

End Sub

Вы видели, как получить доступ ко всем открытым рабочим книгам и как получить доступ ко всем рабочим листам в ThisWorkbook. Давайте сделаем еще один шаг вперед — узнаем, как получить доступ ко всем рабочим листам во всех открытых рабочих книгах.

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

Sub NazvVsehStr()

    ' Печатает рабочую книгу и названия листов для
    ' всех листов в открытых рабочих книгах
    Dim wrk As Workbook
    Dim sht As Worksheet
    For Each wrk In Workbooks
        For Each sht In wrk.Worksheets
            Debug.Print wrk.Name + ":" + sht.Name
        Next sht
    Next wrk

End Sub

Использование коллекции листов

Рабочая книга имеет еще одну коллекцию, похожую на Worksheets под названием Sheets. Это иногда путает пользователей. Чтобы понять, в первую очередь, вам нужно знать о типе листа, который является диаграммой.

В Excel есть возможность создать лист, который является диаграммой. Для этого нужно:

1. Создать диаграмму на любом листе.
2. Щелкнуть правой кнопкой мыши на графике и выбрать «Переместить».
3. Выбрать первый вариант «Новый лист» и нажмите «ОК».

Теперь у вас есть рабочая книга, в которой есть типовые листы и лист-диаграмма.

• Коллекция «Worksheets » относится ко всем рабочим листам в рабочей книге. Не включает в себя листы типа диаграммы.
• Коллекция Sheets относится ко всем листам, принадлежащим книге, включая листы типовой диаграммы.

Ниже приведены два примера кода. Первый проходит через все
листы в рабочей книге и печатает название листа и тип листа. Второй пример
делает то же самое с коллекцией Worksheets.

Чтобы опробовать эти примеры, вы должны сначала добавить лист-диаграмму в свою книгу, чтобы увидеть разницу.

Sub KollSheets()

    Dim sht As Variant
    ' Показать название и тип каждого листа
    For Each sht In ThisWorkbook.Sheets
        Debug.Print sht.Name & " is type " & TypeName(sht)
    Next sht

End Sub

Sub KollWorkSheets()

    Dim sht As Variant
    ' Показать название и тип каждого листа
    For Each sht In ThisWorkbook.Worksheets
        Debug.Print sht.Name & " is type " & TypeName(sht)
    Next sht

End Sub

Если у вас нет листов диаграмм, то использование коллекции Sheets — то же самое, что использование коллекции WorkSheets.

Заключение

На этом мы завершаем статью о Worksheet VBA. Я надеюсь, что было полезным.

Три наиболее важных элемента Excel VBA — это рабочие книги, рабочие таблицы, диапазоны и ячейки.

Эти элементы будут использоваться практически во всем, что вы делаете. Понимание их сделает вашу жизнь намного проще и сделает изучение VBA увлекательнее.

Объект

листов (Excel) | Документы Microsoft

• 02.04.2019
• 2 минуты на чтение

В этой статье

Коллекция всех листов в указанной или активной книге.

Замечания

Коллекция Sheets может содержать объекты Chart или Worksheet .

Коллекция листов полезна, когда вы хотите вернуть листы любого типа. Если вам нужно работать с листами только одного типа, см. Тему объекта для этого типа листов.

Пример

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

  листов.
  

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

  Листы.Добавить тип: = xlChart, количество: = 2, после: = Листы (2)
  

Используйте Sheets ( index ), где index — это имя листа или номер индекса, чтобы вернуть один объект Chart или Worksheet . В следующем примере активируется лист с именем Sheet1.

  листов ("Лист1"). Активировать
  

Используйте листов ( массив ), чтобы указать более одного листа.В следующем примере листы с именами Sheet4 и Sheet5 перемещаются в начало книги.

  листов (массив ("Sheet4", "Sheet5")). Переместить до: = Sheets (1)
  

Методы

Недвижимость

См. Также

Поддержка и отзывы

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

.

Объект рабочего листа (Excel) | Документы Microsoft

• 15.05.2019
• 3 минуты на чтение

В этой статье

Представляет рабочий лист.

Замечания

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

Объект Worksheet также является членом коллекции Sheets . Коллекция Sheets содержит все листы в книге (как листы диаграмм, так и рабочие листы).

Пример

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

  Рабочие листы (1).Visible = False
  

Номер индекса рабочего листа обозначает положение рабочего листа на панели вкладок книги. Рабочие листы (1) — это первый (крайний левый) рабочий лист в книге, а Рабочих листов (Worksheets.Count) — последний. Все листы включаются в счетчик индекса, даже если они скрыты.

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

 
Dim strPassword как строка
strPassword = InputBox («Введите пароль для рабочего листа»)
Рабочие листы ("Sheet1"). Защитить пароль: = strPassword, сценарии: = True
  

Когда рабочий лист является активным, вы можете использовать свойство ActiveSheet для ссылки на него. В следующем примере используется метод Activate для активации Sheet1, установка ориентации страницы в альбомный режим, а затем распечатка рабочего листа.

  Рабочие листы ("Sheet1").Активировать
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
  

В этом примере используется событие BeforeDoubleClick для открытия указанного набора файлов в Блокноте. Чтобы использовать этот пример, ваш рабочий лист должен содержать следующие данные:

• Ячейка A1 должна содержать имена открываемых файлов, разделенные запятой и пробелом.
• Ячейка D1 должна содержать путь к расположению файлов Блокнота.
• Ячейка D2 должна содержать путь к программе «Блокнот».
• Ячейка D3 должна содержать расширение файла без точки для файлов Блокнота (txt).

Если дважды щелкнуть ячейку A1, файлы, указанные в ячейке A1, открываются в Блокноте.

  Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Отменить как логическое)
   'Определите свои переменные.
   Развернуть sFile как строку, sPath как строку, sTxt как строку, sExe как строку, sSfx как строку
   
   'Если вы дважды не щелкнули по A1, выйдите из функции.
   Если Target.Адрес <> "$ A $ 1", затем выйдите из подписки
   
   'Если вы дважды щелкнули по A1, переопределите поведение двойного щелчка по умолчанию с помощью этой функции.
   Отмена = True
   
   'Задайте путь к файлам, путь к Блокноте, расширение файлов и имена файлов,
   'на основе информации на листе.
   sPath = Range ("D1"). Значение
   sExe = Диапазон ("D2"). Значение
   sSfx = Диапазон ("D3"). Значение
   sFile = Диапазон ("A1"). Значение
   
   'Удалите пробелы между именами файлов.
   sFile = WorksheetFunction.Заменить (sFile, "", "")
   
   'Просмотрите каждый файл в списке (разделенный запятыми) и
   'создать путь, вызвать исполняемый файл и перейти к следующей запятой.
   Сделать пока InStr (sFile, ",")
      sTxt = sPath & "\" & Left (sFile, InStr (sFile, ",") - 1) & "." & sSfx
      Если Dir (sTxt) <> "" Тогда Shell sExe & "" & sTxt, vbNormalFocus
      sFile = Right (sFile, Len (sFile) - InStr (sFile, ","))
   Петля
   
   'Завершите последнее имя файла в списке
   sTxt = sPath & "\" & sFile & "."& sSfx
   Если Dir (sTxt) <> "" Тогда Shell sExe & "" & sTxt, vbNormalNoFocus
Конец подписки
  

События

Методы

Недвижимость

См. Также

Поддержка и отзывы

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

.

Листы переключения в Excel VBA

Переполнение стека

1. Около

2. Продукты

3. Для команд

1. Переполнение стека
   Общественные вопросы и ответы

2. Переполнение стека для команд
   Где разработчики и технологи делятся частными знаниями с коллегами

3. Вакансии
   Программирование и связанные с ним технические возможности карьерного роста

4. Талант
   Нанимайте технических специалистов и создавайте свой бренд работодателя

5. Реклама
   Обратитесь к разработчикам и технологам со всего мира

6. О компании

Загрузка…

.Учебное пособие по

Excel Worksheets: VBA Activesheet и Worksheets

Сегодня мы узнаем о таблицах VBA. Мы рассмотрим все неприятности, например, VBA Activesheet и его сравнение с обычными рабочими листами , как Select Worksheets , как Activate Worksheets , Selecting vs Activating Worksheets … и все остальное, что вам нужно знать о рабочем листе VBA в целом.

ThisWorkbook против ActiveWorkbook

Некоторые рабочие листы Excel Начнем с основ.Прежде чем мы начнем, я хочу подчеркнуть и напомнить разницу между ActiveWorkbooks и ThisWorksbooks. Вкратце:

• ThisWorkbook — относится к книге, в которой запущен макрос VBA
• ActiveWorkbook — относится к рабочей книге, которая находится в самом верхнем окне Excel

Очень важно понимать эту разницу, и я рекомендую вам сначала прочитать мой пост по этой теме.

Иерархия объектов Excel VBA

Во-вторых, имеет смысл напомнить иерархию объектов Excel.

Наверху, по адресу , корень , у нас , наше приложение Excel . Приложение Excel представляет собой весь процесс Excel. Далее по дереву у нас есть наших Рабочих книг . Каждое приложение содержит коллекцию книг. Заглянув в одну рабочую книгу, мы заметим, что она содержит коллекций рабочих листов . С другой стороны, листы могут определять диапазоны (не то же самое, что отдельные ячейки). Используя диапазон, мы можем получить доступ к его значениям ячеек или формулам .

Доступ к рабочим листам VBA

Теперь, когда это у нас есть, давайте рассмотрим различные способы доступа к рабочим листам в VBA:

Рабочие листы ActiveWorkbook VBA

Сборники листов и листов

листов в ActiveWorkbook :

Dim ws как рабочий лист, wsCollection как листы
Set wsCollection = Sheets 'Получить всю коллекцию рабочих листов
Set ws = Sheets (1) 'Получить первый рабочий лист в ActiveWorkbook
Set ws = Sheets ("Sheet1") 'Получить рабочий лист с именем "Sheet1" в ActiveWorkbook
 

Точно так же мы можем использовать рабочих листов вместо листов.

Dim ws как рабочий лист, wsCollection как листы
Set wsCollection = Worksheets 'Получить всю коллекцию рабочих листов
Set ws = Worksheets (1) 'Получить первый рабочий лист в ActiveWorkbook
Set ws = Worksheets ("Sheet1") 'Получить рабочий лист с именем "Sheet1" в ActiveWorkbook
 

Рабочие листы ThisWorkbook, VBA

Сборники листов и листов

листов в ThisWorkbook :

Dim ws как рабочий лист, wsCollection как листы
Set wsCollection = Sheets 'Получить всю коллекцию рабочих листов
Установите ws = ThisWorkbook.Таблицы (1) 'Получите первый рабочий лист в ThisWorkbook
Set ws = ThisWorkbook.Sheets ("Sheet1") 'Получить рабочий лист с именем "Sheet1" в ThisWorkbook
 

Точно так же мы можем использовать рабочих листов вместо листов.

Dim ws как рабочий лист, wsCollection как листы
Set wsCollection = Worksheets 'Получить всю коллекцию рабочих листов
Set ws = ThisWorkbook.Worksheets (1) 'Получить первый рабочий лист в ActiveWorkbook
Set ws = ThisWorkbook.Worksheets ("Sheet1") 'Получить рабочий лист с именем "Sheet1" в ThisWorkbook
 

Имя рабочего листа VBA и имя Excel

caption id = ”attachment_11373 ″ align =” alignright ”width =” 213 ″] Имя рабочего листа VBA и имя Excel [/ caption] Говоря о рабочих листах в ThisWorkbook , имя VBA рабочего листа не совпадает с Имя Excel рабочего листа.Давайте разбираться в этом по-другому. Справа у нас есть экран из примера Workbook. Строка VBAName — это имя VBA нашего рабочего листа , с другой стороны, строка Excel Name — это наше имя Excel. Вы можете использовать оба имени для обозначения одного и того же рабочего листа, но по-разному.

Использование имени VBA для рабочего листа

Рабочий лист VBA Name Мы можем ссылаться на рабочий лист VBA напрямую по его имени VBA — просто набрав его. Это очень удобно и полезно . Это связано с тем, что имя VBA не может быть изменено пользователем по ошибке с уровня Excel (не VBE). Следовательно, какое бы имя пользователь ни давал на уровне рабочей книги вашему рабочему листу, его имя VBA остается прежним.

Использование имени листа в Excel

Использование таблицы Excel из VBA не рекомендуется. . Ниже я имею в виду лист, который я назвал Excel Name в моем примере выше.

Dim ws как рабочий лист

Set ws = Worksheets ("Имя Excel") 'Получить рабочий лист с именем "Sheet1" в ActiveWorkbook
 

Вы не замечаете, что по сравнению с получением рабочего листа по его имени VBA, при использовании объекта Worksheets или Sheets по умолчанию вы попадаете с указанным рабочим листом, но из ActiveWorkbook. Обычно это не имеет большого значения. Но я подчеркиваю, что это просто еще одно место, где можно совершить распространенную ошибку. См. Обе версии ниже :

Dim ws как рабочий лист

'--- Лист по имени Excel в ActiveWorkbook ---
Set ws = Worksheets ("Имя Excel") 'Получить рабочий лист с именем "Sheet1" в ActiveWorkbook
Установите ws = ActiveWorkbook.Рабочие листы («Имя Excel») 'Получить рабочий лист с именем «Лист1» в ActiveWorkbook

'--- Лист по имени Excel в ThisWorkbook ---
Set ws = ThisWorkbook.Worksheets ("Имя Excel") 'Получить рабочий лист с именем "Sheet1" в ActiveWorkbook
 

Таблица ActiveSheet VBA

Как и в случае с Active и ThisWorkbook, вам нужно сначала понять разницу между выбором рабочего листа и его активацией .

Выбранный и активированный рабочий лист , различия:

• Выбранный рабочий лист — один или несколько рабочих листов, выбранных в окне Excel.Каждая рабочая тетрадь имеет свой собственный набор избранных заданий
• ActiveWorksheet — текущий рабочий лист, который вы просматриваете и с которым работаете. Единственный самый верхний рабочий лист во всех рабочих книгах приложений

Из приведенного выше определения вы видите, что может быть более одного выбранного рабочего листа и только один активный лист. На самом деле это совершенно разные вещи. Давайте рассмотрим это на нескольких примерах:

Пример 1: Описание ActiveSheet

Допустим, у нас открыто 2 Рабочие книги.Один — Book1.xlsm, а другой — Book2.xlsm.

Позволяет открыть VBE в Book1.xlsm . Мы добавим следующий фрагмент кода:

Sub TestActiveSheet ()
 MsgBox ActiveSheet.Name
Конец подписки
 

Теперь активируем Book2.xlsm . Переименуйте любой рабочий лист, например к MyActiveWorksheet . Затем перейдите на ленту Developer , выберите Macros и запустите Books1.xlsm! TestActiveSheet . Что случилось? У вас наверняка получилось что-то вроде этого:

Хотя вы запускали макрос из Book1.xlsm, VBA всегда рассматривает самый верхний рабочий лист как ActiveSheet.

Пример 2: Объяснение выбранных и ActiveSheet

Рассмотрим тот же пример. Откройте Book1.xlsm и добавьте следующий код в VBE:

Sub SelectedVSActive ()
  Dim res как строка, ws как рабочий лист
  res = "Выбранные листы:" & vbNewLine
  Для каждого ws в ActiveWindow.SelectedSheets
    res = res & ws.Name & vbNewLine
  Следующий ws
  MsgBox res & vbNewLine & "ActiveSheet:" & vbNewLine & ActiveSheet.имя
Конец подписки
 

Теперь сделайте следующее:

• Активировать книгу Book2.xlsm
• Выберите количество рабочих листов (не менее 2)
• Запустить Book1.xlsm! SelectedVSActive макрос

Что происходит? У вас должно получиться что-то вроде этого:

Вы видите это:

• Активным листом считается только самый верхний рабочий лист
• ActiveSheet ВСЕГДА рассматривается как выбранный рабочий лист в ActiveWindow (эта последняя часть важна)

Что произойдет, если вы измените ActiveWindow на e.г. Окна (2) ? Вы увидите другой набор избранных рабочих листов. Почему? Потому что во всех книгах есть избранные рабочие листы. Надеюсь, вы заметите разницу.

Активация рабочих листов VBA

Активировать рабочий лист в VBA очень просто. Вы делаете это с помощью свойства «Активировать» рабочего листа. Как активировать любой рабочий лист с помощью VBA?

Dim ws как рабочий лист
'... Установить ws на какой-нибудь рабочий лист
ws.Activate
 

Активировать примеры рабочего листа

Несколько примеров ниже:

Листы (1).Activate 'Активировать первый рабочий лист в ActiveWorkbook
Sheet1.Activate 'Активировать Sheet1 в ThisWorkbook
Рабочие листы ("MyNamedWorksheet"). Активировать 'Активировать Excel с именем Рабочий лист в ActiveWorkbook
 

Выбор листов VBA

Выбор рабочих листов немного сложнее, так как мы можем выбрать один или несколько рабочих листов.

Выбор одного рабочего листа VBA

Выбрать один лист VBA просто. Просто используйте Выбрать свойство рабочего листа.

Dim ws как рабочий лист
'... Установить ws на какой-нибудь рабочий лист
ws.Select
 

Выбор одного примера рабочего листа

Несколько примеров ниже:

Таблицы (1) .Выберите 'Выбрать первый рабочий лист в ActiveWorkbook
Sheet1. Выберите 'Select Sheet1 в ThisWorkbook
Рабочие листы ("MyNamedWorksheet"). Выберите "Выберите Excel с именем Рабочий лист в ActiveWorkbook.
 

Выбор нескольких листов VBA

Выбор более 1 рабочего листа немного сложнее, поскольку нам нужно использовать функцию массива VBA :

Листы (Массив (1, 2)).Выберите 'Выбрать первый и второй лист в ActiveWorkbook.
Листы (Array ("Named1", "Named2")). Выберите "Выберите 2 именованных листа в ActiveWorkbook
 

Это не самый элегантный способ сделать это. К счастью, у функции Select есть аргумент с именем Replace . Установка значения false будет означать, что ранее выбранный объект не должен быть отменен. Таким образом, мы можем расширить наш выбор следующим образом:

Листы (1) .Выбрать
Таблицы вызовов (2) .Выбрать (Ложь)
Таблицы вызовов (3).Выбрать (Ложь)
 

Это выберет первые три рабочих листа в нашей ActiveWorkbook.

Удаление листов VBA

Чтобы удалить рабочий лист VBA, нам необходимо отключить приложение . DisplayAlerts

Application.DisplayAlerts = False
Листы (1) .Удалить
Application.DisplayAlerts = True
 

Вы можете удалить несколько листов аналогично тому, как вы можете сделать несколько листов. Выберите:

Заявка.DisplayAlerts = False
Листы (Массив (1, 2)). Удалить
Application.DisplayAlerts = True
 

Копирование листов VBA

Вы можете копировать рабочие листы из рабочей книги или из других открытых рабочих книг.

'Скопируйте Sheet1 и вставьте перед Sheet2
Рабочие листы ("Лист1"). Копировать перед: = Листы ("Лист2")

'Скопируйте Sheet1 и вставьте перед Sheet2 в Workbook Book1.xlsm
Рабочие листы ("Sheet1"). Копировать перед: = Workbooks ("Book1.xlsm"). Sheets ("Sheet2")
 

Перемещение листов VBA

Вы можете перемещать листы внутри книги или из других открытых книг.

'Переместить Sheet1 и вставить перед Sheet2
Листы ("Лист1"). Переместить до: = Листы ("Лист2")

'Переместить Sheet1 и вставить перед Sheet2 в Workbook Book1.xlsm
Рабочие листы ("Sheet1"). Переместить до: = Workbooks ("Book1.xlsm"). Sheets ("Sheet2")
 

Другие свойства листов VBA

Ниже приведены другие свойства рабочего листа VBA, о которых стоит упомянуть:

Dim ws как рабочий лист
'...Установить ws
ws.Calculate
 

Dim ws как рабочий лист
'... Установить ws
Debug.Print ws.Name 'Печать имени листа Excel
ws.Name = "New name" 'Установить новое имя для рабочего листа
 

Dim ws как рабочий лист
'...Установить ws
ws.Visible = xlSheetHidden 'Сделать рабочий лист ws скрытым
 

.