Обобщена информация
Тази статия съдържа Microsoft Visual Basic for Applications макрос (процедура), който вериги през всички работни листове на активната работна книга. Този макрос се показва името на всеки работен лист.
Повече информация
Microsoft предоставя примери само за илюстративни цели без изрични или подразбиращи се. Това включва, но не е ограничено до, подразбиращи се гаранции за продаваемост или годност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и процедури за отстраняване на грешки. Инженерите на поддръжката на Microsoft могат да помогнат с обяснение на функциите на конкретна процедура, но няма да могат да модифицират тези примери с цел осигуряване на допълнителна функционалност или създаване на процедури за удовлетворение на конкретните ви изисквания. Да опитате примерен макрос, изпълнете следните стъпки:
-
Въведете следния код на макрос в нов модул лист.
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
-
За да стартирате макроса, поставете точката на вмъкване в реда, което гласи "Под WorksheetLoop()" и натиснете F5.
Макросът ще Сравнете работната книга и показва съобщение с името на друг лист всеки път, той пуска през линия. Имайте предвид, че този макрос ще показва само имена на таблици; Тя няма да показва имената на други видове листове в работната книга. Можете също да линия през всички работни листове в работната книга чрез "За всеки" цикъл.
-
Въведете следния код на макрос в нов модул лист.
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
-
За да стартирате макроса, поставете точката на вмъкване в реда, което гласи "Под WorksheetLoop2()" и натиснете F5.
Този макрос работи точно WorksheetLoop макрос, освен че той използва различен тип линия за обработка на всички работни листове на активната работна книга.
Препратки
За допълнителна информация относно получаване на помощ за Visual Basic for Applications вижте следната статия в базата знания на Microsoft:
163435 VBA: Програмиране ресурси за Visual Basic for Applications
226118 OFF2000: Програмиране ресурси за Visual Basic for Applications
