Екцел ВБА радна свеска
ВБА Воркбоок је објекат који је део колекције предмета Воркбоокс. Лако уочавамо разлику у делу колекције предмета и самог предмета, множина речи „Радне свеске“ означава да има много „Радне свеске“. У ВБА имамо неколико других објеката као што су радни листови, ћелије и опсези, графикони и облици.
На екцел платформи датотека екцел назива се „радна свеска“, посебно у ВБА. Никада га не називамо датотеком; него је зовемо „Радна свеска“.
Позивањем на радну свеску можемо да радимо све задатке у вези с њом. Неки од важних задатака су „Отвори радну свеску“, „Сачувај радну свеску“, „Сачувај као радну свеску“ и „Затвори радну свеску“. Можемо одабрати, активирати радне свеске које се отварају.
Синтакса
Сада погледајте која је синтакса Радне свеске.
Индекс није ништа друго до коју радну свеску желите да изаберете. Радну свеску можемо упутити према броју радне свеске или према називу радне свеске.
Употреба ВБА радног кода објекта
Пример # 1
На пример, тренутно имам две датотеке отворене. Прво име радне свеске је „Датотека 1“, а друго име „Датотека 2“.
Сада пишем код у трећу датотеку. Из ове датотеке желим да активирам радну свеску названу „Датотека 1“.
Корак 1: Покрените макронаредбу креирањем ВБА потпроцедуре.
Шифра:
Суб Воркбоок_Екампле1 () Енд Суб
Корак 2: Сада изаберите објекат радне свеске.
Корак 3: Сада унесите радну свеску коју желимо да активирамо.
Шифра:
Суб Воркбоок_Екампле1 () Воркбоокс ("Филе 1 Енд Суб
Корак 4: Након уноса имена радне свеске, морамо да унесемо и екстензију датотеке. Сачувао сам ову радну свеску као редовну радну свеску, тј. „Кслск“ радну свеску.
Шифра:
Суб Воркбоок_Екампле1 () Воркбоокс ("Филе 1.клск") Енд Суб
Корак 5: Сада морамо да одлучимо шта желимо да радимо са овом радном свеском. Унесите тачку да бисте видели све опције доступне у овој радној свесци.
Корак 6: Сада морамо да активирамо радну свеску, изаберите метод као „Активирај“.
Шифра:
Суб Воркбоок_Екампле1 () Воркбоокс („Филе 1.клск“). Активирајте Енд Суб
Није важно у којој сте радној свесци. Активираће наведену радну свеску.
Чим одаберете радну свеску, она постаје „Активна радна свеска “.
Пример # 2 - Унесите вредности у радну свеску
Као што сам рекао чим одаберете радну свеску, она постаје активна радна свеска. Користећи Активну радну свеску, можемо упутити ћелију.
У активној радној свесци треба да изаберемо лист по имену или ћемо користити реч Активни лист.
У активном радном листу треба да изаберемо ћелију помоћу објекта Ранге.
Шифра:
Потпуна радна свеска_Пример1 () Радне свеске ("Датотека 1.клск"). Активирајте АцтивеВоркбоок.АцтивеСхеет.Ранге ("А1"). Валуе = "Хелло" Енд Суб
Када покренете овај код помоћу тастера Ф5 или ручно, он ће уметнути реч „Здраво“ у ћелију А1 у радну свеску „Датотека 1.клск“.
We can also use the below code to do the same job.
Code:
Sub Workbook_Example1() Workbooks("File 1.xlsx").ActiveSheet.Range("A1").Value = "Hello" End Sub
This will also insert the word “Hello” to the workbook “File 1.xlsx.”
Example #3 - Assign Workbook to Variable
We can also assign the data type as a “workbook” to the declared variable. Declare the variable as Workbook.
Code:
Sub Workbook_Example2()
Dim WB As Workbook
End Sub
Now we need to set the object variable to the workbook name by using the word “Set.”
Code:
Sub Workbook_Example2() Dim WB As Workbook Set WB = Workbooks("File 1.xlsx") End Sub
From now onwards, the variable “WB” holds the name of the workbook “File 1.xlsx”.
Using the variable name, we can insert the words.
Code:
Sub Workbook_Example2() Dim WB As Workbook Set WB = Workbooks("File 1.xlsx") WB.Worksheets("Sheet1").Range("A1") = "Hello" WB.Worksheets("Sheet1").Range("B1") = "Good" WB.Worksheets("Sheet1").Range("C1") = "Morning" End Sub
Run this code manually or use shortcut key F5 and see the result, as shown in the below screenshot.
WB.Worksheets("Sheet1").Range("A1") = "Hello"
Here WB is referencing the workbook, in that workbook, we are referencing the worksheet Sheet1 by using the Worksheets object. In that worksheet cell, A1 is equal to the value of “Hello.”
We can also reference the workbook by index number as well. For example, look at the below code.
Code:
Sub Workbook_Example3() Workbooks(1).Activate Workbooks(2).Activate Workbooks(3).Activate End Sub
Here Workbooks (1) means whichever the workbook first on the list, like this similarly Workbooks (2) refers to the second workbook, and Workbooks (3) refers to the third workbook.
The main problem with this index number referencing is we don’t know exactly which workbook activated. It is dangerous to use index numbers.
Example #4 - For Each Loop for Workbook Object
As I told in the beginning, the workbook is a collection object of Workbooks in VBA. Whenever we want to perform the same kind of activity for all the opened workbooks, we need to use For Each loop in VBA.
For Each Loop is the loop for all the objects in VBA. Use the below code to save all the opened workbooks.
Code:
Суб Саве_Алл_Воркбоокс () Затамни ВБ као радну свеску за сваки ВБ у радним свескама ВБ.Саве Нект ВБ Енд Суб
Када покренете овај код преко тастера Ф5 или ручно, појављује се искачући прозор који тражи да сачувате радну свеску. Кликните на Ок да бисте сачували.
Користите доњи код да затворите све радне свеске осим оне на којој радите.
Шифра:
Суб Цлосе_Алл_Воркбоокс () Затамни ВБ као радну свеску за сваки ВБ у радним свескама Ако је ВБ.Наме ТхисВоркбоок.Наме тхен ВБ.Цлосе Енд Иф Нект ВБ Енд Суб
Искачући прозор долази пре затварања радне свеске.
