Suvestinė
Šiame straipsnyje pateikiami Microsoft Visual Basic for Applications makrokomanda (papildoma procedūra), kilpos per visus aktyvios darbaknygės darbalapių. Ši makrokomanda taip pat rodo kiekvieno darbalapio pavadinimą.
Daugiau informacijos
"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras. Išbandyti pavyzdys makrokomandą, atlikite šiuos veiksmus:
-
Įveskite šį makrokomandos kodą į naują modulio lape.
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
-
Norėdami paleisti makrokomandą, perkelkite įvedimo vietą į eilutėje rašoma "Sub WorksheetLoop()", ir paspauskite F5.
Makrokomanda linijos per darbaknygę ir Rodyti pranešimo lauką, į kitą darbalapio pavadinimas kiekvieną kartą, kai veikia per visas naujienas. Atkreipkite dėmesį, kad ši makrokomanda bus rodoma tik darbalapių pavadinimų; ji nebus rodomi pavadinimai, kitos rūšies lapų darbaknygę. Taip pat galite linijos per visą darbaknygės darbalapių naudojant ciklą "Kiekvienam".
-
Įveskite šį makrokomandos kodą į naują modulio lape.
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
-
Norėdami paleisti makrokomandą, perkelkite įvedimo vietą į eilutėje rašoma "Sub WorksheetLoop2()", ir paspauskite F5.
Ši makrokomanda veikia vienodai WorksheetLoop makrokomandą, išskyrus tai, kad ji naudoja kitokį ciklą apdoroti visas aktyvios darbaknygės darbalapių.
Nuorodos
Jei norite gauti papildomos informacijos apie tai, kaip pagalbos Visual Basic for Applications, rasite šioje "Microsoft" žinių bazės straipsnį:
163435 VBA: Visual Basic for Applications programavimo ištekliai
226118 OFF2000: Visual Basic for Applications programavimo ištekliai