Prisijunkite prie „Microsoft“
Prisijunkite arba sukurkite paskyrą.
Sveiki,
Pasirinkti kitą paskyrą.
Turite kelias paskyras
Pasirinkite paskyrą, kurią naudodami norite prisijungti.

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:

  1. Į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
  2. 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".

  1. Į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
  2. 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

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?
Paspaudus mygtuką Pateikti, jūsų atsiliepimai bus naudojami tobulinant „Microsoft“ produktus ir paslaugas. Jūsų IT administratorius galės rinkti šiuos duomenis. Privatumo patvirtinimas.

Dėkojame už jūsų atsiliepimą!

×