Содержание
- ActiveSheet
- Выбранные листы против ActiveSheet
- Выберите рабочий лист
- Дополнительные примеры активации / выбора листов
В этой статье будет обсуждаться объект ActiveSheet в VBA. Также будет обсуждаться, как активировать, выбирать и переходить к рабочим листам (и многое другое). Прочтите наше полное руководство по рабочим листам VBA для получения дополнительной информации о работе с рабочими листами в VBA.
В VBA ActiveSheet относится к текущему активному рабочему листу. Одновременно может быть активен только один лист.
Активировать рабочий лист (настройка ActiveSheet)
Чтобы установить ActiveSheet, используйте Worksheet.Activate:
| 1 | Рабочие листы («Ввод»). Активировать |
Команда «Активировать лист» фактически «перейдет» к листу, изменив видимый лист.
В приведенном выше примере используется имя листа (вкладка). Вместо этого вы можете использовать кодовое имя VBA для рабочего листа:
Имя ActiveSheet
Чтобы получить имя ActiveSheet:
| 1 | msgbox ActiveSheet.name |
Выбранные листы против ActiveSheet
В любой момент времени ActiveSheet может быть только один лист. Однако можно выбрать сразу несколько листов.
Когда выбрано несколько листов, активным считается только самый верхний лист (ActiveSheet).
Выберите рабочий лист
Если вы хотите выбрать лист вместо его активации. Вместо этого используйте .Select.
Выбрать лист по имени вкладки
Это выбирает рабочий лист на основе его имени вкладки листа
| 1 | Таблицы («Ввод»). Выбрать |
Выбрать лист по порядковому номеру
Это выбирает рабочий лист на основе его положения относительно других вкладок.
| 1 | Рабочие листы (1) .Выбрать |
Выберите рабочий лист с кодовым именем VBA
Выбор листов по имени кода может предотвратить ошибки, вызванные изменением имени листа.
Выбрать текущий лист
Чтобы выбрать текущий рабочий лист, используйте объект ActiveSheet:
Дополнительные примеры активации / выбора листов
Установите ActiveSheet на переменную
Это назначит ActiveSheet переменной объекта рабочего листа.
| 123 | Dim ws как рабочий листУстановить ws = ActiveSheet |
Изменить имя ActiveSheet
Это изменит имя ActiveSheet.
| 1 | ActiveSheet.Name = «NewName» |
С ActiveSheet
Использование оператора With позволяет оптимизировать код при работе с объектами (такими как листы или ActiveSheet).
| 12345 | С ActiveSheet.Name = «StartFresh».Cells.Clear.Range («A1»). Value = .NameКонец с |
Обратите внимание, что вам не нужно повторять ActiveSheet перед каждой строкой кода. Это может значительно сэкономить время при работе с длинным списком команд.
Перебирать выбранные листы
Следующий макрос будет проходить по всем выбранным листам, отображая их имена.
| 12345678 | Sub GetSelectedSheetsName ()Dim ws как рабочий листДля каждого ws в ActiveWindow.SelectedSheetsMsgBox ws.NameСледующий wsКонец подписки |
Перейти к следующему листу
Этот код перейдет на следующий лист. Если ActiveSheet является последним листом, он перейдет к первому листу в рабочей книге.
| 12345 | Если ActiveSheet.Index = Worksheets.Count, тоРабочие листы (1) .АктивироватьЕщеActiveSheet.Next.ActivateКонец, если |
Вы поможете развитию сайта, поделившись страницей с друзьями
Return to VBA Code Examples
In this Article
- ActiveSheet
- Activate Worksheet (Setting the ActiveSheet)
- ActiveSheet Name
- Selected Sheets vs ActiveSheet
- Select Worksheet
- Select Worksheet by Tab Name
- Select Worksheet by Index Number
- Select Worksheet With VBA Code Name
- Select Current Worksheet
- More Activate / Select Sheet Examples
- Set ActiveSheet to Variable
- Change ActiveSheet Name
- With ActiveSheet
- Loop Through Selected Sheets
- GoTo Next Sheet
- VBA Coding Made Easy
This article will discuss the ActiveSheet object in VBA. It will also discuss how to activate, select, and go to Worksheets (& much more). Read our full VBA Worksheets Guide for more information about working with worksheets in VBA.
ActiveSheet
In VBA, ActiveSheet refers to the currently active Worksheet. Only one Sheet may be active at a time.
Activate Worksheet (Setting the ActiveSheet)
To set the ActiveSheet use Worksheet.Activate:
Worksheets("Input").ActivateThe Activate Sheet command will actually “go to” the sheet, changing the visible Sheet.
The above example uses the Sheet (Tab) name. Instead you can use the VBA code name for the worksheet:
Sheet1.Activate
ActiveSheet Name
To get the ActiveSheet Name:
msgbox ActiveSheet.nameSelected Sheets vs ActiveSheet
At any point in time, only one Sheet can be the ActiveSheet. However, multiple Worksheets can be selected at once.
When multiple Worksheets are selected only the “top-most” Worksheet is considered active (the ActiveSheet).
Select Worksheet
If you would like to select a worksheet instead of activating it. Use .Select instead.
Select Worksheet by Tab Name
This selects a Worksheet based on it’s Sheet Tab Name
Sheets("Input").Select
Select Worksheet by Index Number
This selects a Worksheet based on it’s position relative to other tabs
Worksheets(1).Select
Select Worksheet With VBA Code Name
Sheet1.SelectSelecting worksheets by code name can prevent errors caused by worksheet name changes.
Select Current Worksheet
To select the current Worksheet, use the ActiveSheet object:
ActiveSheet.SelectMore Activate / Select Sheet Examples
VBA Programming | Code Generator does work for you!
Set ActiveSheet to Variable
This will assign the ActiveSheet to a Worksheet Object Variable.
Dim ws As Worksheet
Set ws = ActiveSheetChange ActiveSheet Name
This will change the ActiveSheet Name.
ActiveSheet.Name = "NewName"With ActiveSheet
Using the With Statement allows you to streamline your code when working with objects (such as Sheets or ActiveSheet).
With ActiveSheet
.Name = "StartFresh"
.Cells.Clear
.Range("A1").Value = .Name
End WithNotice how you don’t need to repeat “ActiveSheet” before each line of code. This can be a huge time saver when working with a long list of commands.
Loop Through Selected Sheets
The following macro will Loop through all selected sheets, displaying their names.
Sub GetSelectedSheetsName()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
MsgBox ws.Name
Next ws
End SubGoTo Next Sheet
This code will go to the next Sheet. If the ActiveSheet is the last Sheet, then it will go to the first Sheet in the Workbook.
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Activate
Else
ActiveSheet.Next.Activate
End IfVBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro – A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!
Learn More!
<<Return to VBA Examples
While working in VBA we sometimes refer to another sheet or use another sheet’s properties, suppose we are in sheet 1 working but we want a value from cell A2 in sheet 2, if we refer to sheet 2’s value without activating the sheet first then we will not be able to access the value so to activate a sheet in VBA we use worksheet property as Worksheets(“Sheet2”).Activate.
In Excel, we always work with worksheets. Worksheets have their name to identify better. In regular spreadsheet workings, we directly navigate through shortcut keysAn Excel shortcut is a technique of performing a manual task in a quicker way.read more, or select the sheet by clicking on them. However, in VBA, it is not that easy. First, we need to specify the sheet name we are referring to. Then, we can use the “Select” method to select the sheet.
Table of contents
- Excel VBA Activate Sheet
- What is VBA Activate Method?
- Example #1 – Activate Sheet by its Index Number
- Example #2 – Activate Sheet by its Name
- Example #3 – Activate Sheet from Another Workbook
- Activate Sheet vs. Select Sheet Method
- #1 – Activate Method
- #2 – Select Method
- Recommended Articles
- What is VBA Activate Method?
You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Activate Sheet (wallstreetmojo.com)
What is VBA Activate Method?
As the name says, it activates the specified worksheet. To activate the sheet, we need to mention the exact worksheet name using the worksheets object. For example, if you want to activate a ” Sales sheet,” you can use the code below.
Worksheets(“Sales”).Activate
Syntax
So, the syntax of the Activate method is as follows:
Worksheet (“Name of the Sheet”).Activate
Here, a worksheet is the object, and activates are the method.
You can download this VBA Activate Sheet Excel Template here – VBA Activate Sheet Excel Template
Example #1 – Activate Sheet by its Index Number
In Excel, we work with multiple sets of worksheets. Often, we need to move from one sheet to another to get the job done. In VBA, we can use the Activate method to activate the particular Excel sheet.
For example, we have created three sheets: “Sales 2015”, “Sales 2016”, and “Sales 2017.”
We can activate the sheets in two ways. One is by using sheet index numbers, and another is by using the sheet name.
If we want to select the second sheet, we will use the worksheet object and mention the sheet index number as 2.
Code:
Sub Activate_Example1() Worksheets(2).Activate End Sub
When you run the code using the F5 key or manually, this will activate the second sheet, “Sales 2016”.
If we want to activate the third sheet, we will use 3 as the sheet index number.
Code:
Sub Activate_Example1() Worksheets(3).Activate End Sub
It will activate the third sheet, “Sales 2017.”
Now, we will interchange the second and third sheets.
Technically, “Sales 2017” is our third sheet, and “Sales 2016 is our second sheet. So, now we will use the sheet index number as 3 and see what happens.
Code:
Sub Activate_Example1() Worksheets(3).Activate End Sub
In our view, it has to select the “Sales 2017” sheet, but it will select the “Sales 2016” sheet because in the order, “Sales 2016” is the third sheet.
So, activating the sheet by its name is always a safe option.
Example #2 – Activate Sheet by its Name
Now, we will see how to activate sheets by their name. In the place of a sheet index number, we need to mention the sheet name in double quotes.
Code:
Sub Activate_Example2() Worksheets("Sales 2016").Activate End Sub
When we run the code manually or using shortcut key F5, this would activate the sheet “Sales 2016” irrespective of the position in the workbook.
Not only the worksheets object, but we can also use the “Sheets” object to activate the sheet.
Below is the code.
Code:
Sub Activate_Example2() Sheets("Sales 2016").Activate End Sub
Worksheets can access only worksheets object and cannot access “Chart” sheets. However, if we use the Sheets object, we can access all the sheets in the workbook.
Example #3 – Activate Sheet from Another Workbook
Like how we need to mention the sheet name to activate the particular sheet, activating the sheet from another workbook also requires the “Workbook” name.
Code:
Sub Activate_Example3() Workbooks("Sales File.xlsx").Sheets("Sales 2016").Activate End Sub
It will activate the “Sales 2016” sheet from the workbook “Sales File.xlsx.”
Activate Sheet vs. Select Sheet Method
We can use methods to perform the same action, i.e., Activate and Select. However, there is a slight difference between these two methods.
#1 – Activate Method
By using the Activate method, we can only activate the specified worksheet.
For example, look at the below code.
Code:
Sub Activate_Example() Worksheets("Sales 2016").Activate End Sub
As we know, this code will select the worksheet “Sales 2016”.
#2 – Select Method
By using the Select method, we can perform other tasks as well.
Now, look at the below code.
Code:
This code not only activates the sheet “Sales 2016” but also selects the range of cells from A1 to A10.
Recommended Articles
This article has been a guide to VBA Activate Sheet. Here, we learn how to use the activate method in VBA to activate a particular Excel sheet, along with practical examples and downloadable templates. Below you can find some useful Excel VBA articles: –
- VBA TimeValue
- VBA DatePart Examples
- Option Explicit in VBA
- VBA Remove Duplicates
- VBA StatusBar
VBA Activate Worksheet in Excel
VBA Activate Worksheet method is used to makes the current sheet as active sheet. Here we are the examples using Activate method of worksheet object in VBA. It is very frequently used method while writing VBA macros. We also see the VBA ActiveSheet object with examples.
- Why we need to Activate a Worksheet?
- VBA Activate Worksheet – Syntax
- VBA Activate Worksheet Method: Example 1
- VBA Activate Worksheet Method: Example 2
- VBA ActiveSheet Object
- Set ActiveSheet in Excel VBA
- VBA Activate Worksheet Method- Best Approach
- VBA Activate Worksheet Method- Instructions
When we need to use Activate Worksheet method in VBA?
We use Activate worksheet method to activate current sheet as active sheet. When we are working with multiple sheets in a workbook, if we want to move or go to another sheet in the same workbook or another workbook we use activate worksheet method.
VBA Activate Worksheet Method- Syntax
Here is the example syntax to activate Worksheet using VBA. You can use either a Worksheet name or Worksheet number. Always best practice is to use sheet name.
Worksheets(“Your Worksheet Name”).Activate
‘Or
Worksheets(“Worksheet Number”).Activate
Where Activate is the method of Workbook object is used to makes current sheet as active sheet.
VBA Activate Worksheet – with Name: Example 1
Please see the below VBA codes to activate Worksheet. In this example we are activating a Worksheet named “Project1”.
Sub Activate_Sheet()
Worksheets("Project1").Activate
'Or
Sheets("Project1").Activate
End Sub
VBA Activate Worksheet Method– with Number: Example 2
Please see the below VBA code or macro procedure to activate Worksheet. In this example we are activating first Worksheet in the active workbook.
Sub Activate_Sheet_BasedOnIndex()
Worksheets(1).Activate
'Or
Sheets(1).Activate
End Sub
VBA ActiveSheet Object
We can refer the currently activated worksheet using Excel VBA ActiveSheet object. ActiveSheet VBA object is very usefull while automating tasks and working on currently active sheet in the active workbook window. If you ignore the ActiveSheet object while refering any other object like range or chart, VBA will treat the ActiveSheet as the current sheet by default. For example: Following are the two macro statements both will refer the active sheet.
ActiveSheet.Range("A1")="Some Value"
Range("A1")="Some Value"
both the above statements print some value at Range A1 of Activesheet.
Set ActiveSheet in Excel VBA
It is very convinient refer the Active Sheet in Excel VBA by setting into a Variable. We can assign and set ActiveSheet to an object and refer at any place of the procedure. Here is the syntax to Set ActiveSheet in VBA.
Sub sbSetAcitveSheetVBA()
Dim ws As Worksheet
Set ws = ActiveSheet
ws.Range("A1") = "Some Value"
End Sub
This code will print the some value at Range A1 of Activesheet.
VBA Activate Worksheet Method- Best Approach
Note: Always better to use the Worksheet name, instead of Worksheet number. The best is to assign the Worksheet to an object and then do whatever task you want to do with that particular Worksheet object.
When working with multiple Worksheets, you should refer the Worksheet with exact Worksheet name to correctly update your data into target Worksheet. Create Worksheet object and refer the Worksheet with the object whenever you require.
Let us see another example to understand the accessing the Worksheets using objects. You do not need to activate Worksheet to deal with any Worksheet.
Sub sb_Activate_Workbook_Object()
'Declare the objects here
Dim wsMain As Worksheet, ws_A As Worksheet
'Set the worksheet to Object
Set wsMain = ThisWorkbook
Set ws_A = Worksheets("Test")
'Now deal with your worksheets
ws_A.Range("A1") = wsMain.Sheet1.Range("A1")
End Sub
VBA Activate Worksheet Method- Instructions
Please follow the below step by step instructions to execute the above mentioned VBA macros or codes:
- Open an Excel Worksheet
- Press Alt+F11 :This will Open the VBA Editor. Otherwise, you can open it from the Developer Tab
- Insert a Module from Insert Menu
- Copy the above code for activating worksheet and Paste in the code window(VBA Editor)
- Save the file as macro enabled Worksheet
- Press ‘F5’ to run it or Keep Pressing ‘F8’ to debug the code line by line and check how the sheet is activating.
Related Resource
You have seen how to activate worksheets using Excel VBA and referring the AciveSheet. Following are the example macros to Activate Excel Workbook and Range.
- VBA to Activate Range
- VBA to Activate Workbook
A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.
Save Up to 85% LIMITED TIME OFFER
All-in-One Pack
120+ Project Management Templates
Essential Pack
50+ Project Management Templates
Excel Pack
50+ Excel PM Templates
PowerPoint Pack
50+ Excel PM Templates
MS Word Pack
25+ Word PM Templates
Ultimate Project Management Template
Ultimate Resource Management Template
Project Portfolio Management Templates
-
-
- In this topic:
-
- When we need to use Activate Worksheet method in VBA?
- VBA Activate Worksheet Method- Syntax
- VBA Activate Worksheet – with Name: Example 1
- VBA Activate Worksheet Method– with Number: Example 2
- VBA ActiveSheet Object
- Set ActiveSheet in Excel VBA
- VBA Activate Worksheet Method- Best Approach
- VBA Activate Worksheet Method- Instructions
VBA Reference
Effortlessly
Manage Your Projects
120+ Project Management Templates
Seamlessly manage your projects with our powerful & multi-purpose templates for project management.
120+ PM Templates Includes:
One Comment
-
jojo
February 14, 2019 at 7:15 PM — ReplyHello, in your last example you declare wsMain as WorkSheet and go on to set it as a Workbook and treat it as a Workbook, it this possible to do?
Thanks for your very helpful work.
Effectively Manage Your
Projects and Resources
ANALYSISTABS.COM provides free and premium project management tools, templates and dashboards for effectively managing the projects and analyzing the data.
We’re a crew of professionals expertise in Excel VBA, Business Analysis, Project Management. We’re Sharing our map to Project success with innovative tools, templates, tutorials and tips.
Project Management
Excel VBA
Download Free Excel 2007, 2010, 2013 Add-in for Creating Innovative Dashboards, Tools for Data Mining, Analysis, Visualization. Learn VBA for MS Excel, Word, PowerPoint, Access, Outlook to develop applications for retail, insurance, banking, finance, telecom, healthcare domains.
Page load link
3 Realtime VBA Projects
with Source Code!
Go to Top
Make a particular worksheet visible using a macro in Excel.
This is called activating a worksheet and is rather easy to do.
Sections:
Activate Worksheet by Name
Activate Worksheet by Index Number
Notes
Activate Worksheet by Name
Let’s navigate to, activate, the worksheet called «Sheet2».
Worksheets("Sheet2").Activate
Worksheets(«Shee2») is how we reference the sheet to which we want to navigate.
Sheet2 is the name of the sheet to which we want to navigate. Make sure to surround it with double quotation marks.
Activate is what actually takes the user to that worksheet.
Putting it all together, we get: Worksheets(«Sheet2»).Activate
It’s as simple as that.
Activate Worksheet by Index Number
This time, let’s navigate to the second worksheet using its index number.
All we do is to replace «Sheet2» from the last example with 2.
Worksheets(2).Activate
2 is the index number of the desired worksheet and Activate is what takes us to the desired worksheet.
This example can be confusing if you are not used to using index numbers, but index numbers are really helpful when you have to do something like loop through all of the worksheets in the workbook.
Notes
Basically, just reference the desired worksheet, however you want, and then type .Activate after it.
You should not use the Activate feature to navigate to a worksheet so that you can get data from it or put data into it. This is very bad Macro/VBA design and it will make your life hell later on. To get data from separate worksheets, read this tutorial: Select Data from Separate Worksheets with Macros VBA in Excel.
This feature should be used when you want the user to end up on a specific worksheet.
Make sure to download the sample file attached to this tutorial so that you can see this macro in Excel and work with it.
Similar Content on TeachExcel
Copy and Paste Data using Macro VBA in Excel
Tutorial: How to copy and paste data using a Macro in Excel. I’ll show you multiple ways to do this,…
Select Data from Separate Worksheets with Macros VBA in Excel
Tutorial: Select data from other worksheets with Macros and VBA without navigating to those workshee…
Get the Last Row using VBA in Excel
Tutorial:
(file used in the video above)
How to find the last row of data using a Macro/VBA in Exce…
Login to a Website using a Macro
: Connect and login to a website using a macro in Excel.
This allows you to open a website a…
Get the Name of a Worksheet in Macros VBA in Excel
Tutorial: How to get the name of a worksheet in Excel using VBA and Macros and also how to store tha…
Guide to Creating Charts with a Macro in Excel
Tutorial: How to add, edit, and position charts in Excel using VBA.
This tutorial covers what to do …
Subscribe for Weekly Tutorials
BONUS: subscribe now to download our Top Tutorials Ebook!
На чтение 16 мин. Просмотров 14.8k.
Malcolm Gladwell
Мечтатель начинает с чистого листа бумаги и переосмысливает мир
Эта статья содержит полное руководство по использованию Excel
VBA Worksheet в Excel VBA. Если вы хотите узнать, как что-то сделать быстро, ознакомьтесь с кратким руководством к рабочему листу VBA ниже.
Если вы новичок в VBA, то эта статья — отличное место для начала. Мне нравится разбивать вещи на простые термины и объяснять их на простом языке.
Вы можете прочитать статью от начала до конца, так как она написана в логическом порядке. Или, если предпочитаете, вы можете использовать оглавление ниже и перейти непосредственно к теме по вашему выбору.
Содержание
- Краткое руководство к рабочему листу VBA
- Вступление
- Доступ к рабочему листу
- Использование индекса для доступа к рабочему листу
- Использование кодового имени рабочего листа
- Активный лист
- Объявление объекта листа
- Доступ к рабочему листу в двух словах
- Добавить рабочий лист
- Удалить рабочий лист
- Цикл по рабочим листам
- Использование коллекции листов
- Заключение
Краткое руководство к рабочему листу VBA
В следующей таблице приведен краткий обзор различных методов
Worksheet .
Примечание. Я использую Worksheet в таблице ниже, не указывая рабочую книгу, т.е. Worksheets, а не ThisWorkbook.Worksheets, wk.Worksheets и т.д. Это сделано для того, чтобы примеры были понятными и удобными для чтения. Вы должны всегда указывать рабочую книгу при использовании Worksheets . В противном случае активная рабочая книга будет использоваться по умолчанию.
| Задача | Исполнение |
| Доступ к рабочему листу по имени |
Worksheets(«Лист1») |
| Доступ к рабочему листу по позиции слева |
Worksheets(2) Worksheets(4) |
| Получите доступ к самому левому рабочему листу |
Worksheets(1) |
| Получите доступ к самому правому листу |
Worksheets(Worksheets.Count) |
| Доступ с использованием кодового имени листа (только текущая книга) |
Смотри раздел статьи Использование кодового имени |
| Доступ по кодовому имени рабочего листа (другая рабочая книга) |
Смотри раздел статьи Использование кодового имени |
| Доступ к активному листу | ActiveSheet |
| Объявить переменную листа | Dim sh As Worksheet |
| Назначить переменную листа | Set sh = Worksheets(«Лист1») |
| Добавить лист | Worksheets.Add |
| Добавить рабочий лист и назначить переменную |
Worksheets.Add Before:= Worksheets(1) |
| Добавить лист в первую позицию (слева) |
Set sh =Worksheets.Add |
| Добавить лист в последнюю позицию (справа) |
Worksheets.Add after:=Worksheets(Worksheets.Count) |
| Добавить несколько листов | Worksheets.Add Count:=3 |
| Активировать рабочий лист | sh.Activate |
| Копировать лист | sh.Copy |
| Копировать после листа | sh1.Copy After:=Sh2 |
| Скопировать перед листом | sh1.Copy Before:=Sh2 |
| Удалить рабочий лист | sh.Delete |
| Удалить рабочий лист без предупреждения |
Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True |
| Изменить имя листа | sh.Name = «Data» |
| Показать/скрыть лист | sh.Visible = xlSheetHidden sh.Visible = xlSheetVisible sh.Name = «Data» |
| Перебрать все листы (For) | Dim i As Long For i = 1 To Worksheets.Count Debug.Print Worksheets(i).Name Next i |
| Перебрать все листы (For Each) | Dim sh As Worksheet For Each sh In Worksheets Debug.Print sh.Name Next |
Вступление
Три наиболее важных элемента 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
Это означает, что вы пытались получить доступ к рабочему листу, который не существует. Это может произойти по следующим причинам:
- Имя Worksheet , присвоенное рабочим листам, написано неправильно.
- Название листа изменилось.
- Рабочий лист был удален.
- Индекс был большим, например Вы использовали рабочие листы (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
Резюме кодового имени
Ниже приведено краткое описание использования кодового имени:
- Кодовое имя рабочего листа может быть
использовано непосредственно в коде, например. Sheet1.Range - Кодовое имя будет по-прежнему работать, если имя
рабочего листа будет изменено. - Кодовое имя может использоваться только для
листов в той же книге, что и код. - Везде, где вы видите ThisWorkbook.Worksheets
(«имя листа»), вы можете заменить его кодовым именем рабочего листа. - Вы можете использовать функцию 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
Доступ к рабочему листу в двух словах
Из-за множества различных способов доступа к рабочему листу вы можете быть сбитыми с толку. Так что в этом разделе я собираюсь разбить его на простые термины.
- Если вы хотите использовать тот лист, который активен в данный момент, используйте ActiveSheet.
ActiveSheet.Range("A1") = 55
2. Если лист находится в той же книге, что и код, используйте кодовое имя.
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 есть возможность создать лист, который является диаграммой. Для этого нужно:
- Создать диаграмму на любом листе.
- Щелкнуть правой кнопкой мыши на графике и выбрать «Переместить».
- Выбрать первый вариант «Новый лист» и нажмите «ОК».
Теперь у вас есть рабочая книга, в которой есть типовые листы и лист-диаграмма.
- Коллекция «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 увлекательнее.
|
Анна Важенина  Пользователь Сообщений: 25 |
#1 22.11.2018 16:38:19 Добрый вечер форумчане! Помогите люди добрые! Макрос я слепила из разных советов профессионалов + моих мучений ,чтобы работало в моем случае…
Прикрепленные файлы
Изменено: Анна Важенина — 22.11.2018 17:42:47 |
||
|
alexleoix  Пользователь Сообщений: 434 |
#2 22.11.2018 16:55:31 да уж, название темы не для слабонервных. В модуль книги:
НАЗВАНИЕ ТЕМЫ: «Cделать лист активным средствами VBA» |
||
|
Эххх… Кажется все добрые живут не в европейской части России, где уже поздно и они ушли спать… Ладно, может завтра… |
|
|
Апострофф  Пользователь Сообщений: 720 |
#4 22.11.2018 18:29:00 Анна Важенина, код
находится в модуле «ЭтаКнига» и именно в ней (ДОКУМЕНТАЦИЯ.xlsm) вы пытаетесь выделить лист, что неправильно(и нет в ней такого листа — отсюда и ошибка).
Изменено: Апострофф — 22.11.2018 18:35:46 |
||||
|
Апострофф Пользователь Сообщений: 720 |
#5 22.11.2018 19:51:31
Обидно за европейскую часть… |
||
|
_Igor_61  Пользователь Сообщений: 3007 |
#6 22.11.2018 20:25:41
И за ТС-ов, которые не считают нужным отвечать на ответы на их просьбу о помощи (это я про #2) — ответ был получен, но Анна решила предъявить претензии к европейской части России… |
||
|
alexleoix Пользователь Сообщений: 434 |
_Igor_61, ТС просила помощи у добрых людей, а получила от вредного кота. Да ещё и с европейской части… |
|
_Igor_61 Пользователь Сообщений: 3007 |
|
|
Апострофф Пользователь Сообщений: 720 |
Да ладно нервничать. |
|
Анна Важенина Пользователь Сообщений: 25 |
#11 26.11.2018 10:27:32 О БОГИ! Это работает! Апострофф , СПАСИБО огромное!!!!!!!
|
||