vbstreets konferencia - Téma megtekintése - lapszám
2 Sonata Nos, valóban, a válasz erre kérni fogja adni magát még az első post
Public Sub jop1 ()
I = 1 To Worksheets.Count
Sheets ( "Nomera_listov"). Aktiválása
A sejteket (i, 1) = i
A sejteket (i, 2) = Sheets (i) .name
Következő i
End Sub
még itt is Sheets (i) .Index nem használják, mert ebben az esetben az i index a lap.
másrészt RayShade és adtam hozzá egy meglehetősen teljes
PS Figyeljük meg, hogy én vagyok az első bejegyzést mutatott az index nem csak az aktív munkalap.
I = 1 To Workbooks.Count
MsgBox munkafüzetek (i) .name + "kód:" + CStr (i)
Következő i
Valóban, Sonata, a válasz te adtad be a szóban forgó
Elnézést titkosírás lapok kell szervezni egy második fordulóban
I = 1 To Workbooks.Count
K = 3
sejteket (i, 1) .value = Workbooks (i) .name
sejteket (i, 2) .value = i
A j = 1-től Workbooks (i) .worksheets.count
sejteket (i, k) .value = Workbooks (i) .worksheets (j) .index
k = k + 1
következő j
Következő i
És lehet egy ciklus, de akkor kap egy lapot Idex csak az aktív munkafüzet:
k = 1
I = 1 To Sheets.Count
A sejteket (1, k) .Value = Sheets (i) .Index
k = k + 1
Következő i
Nem értem.
Azt hiszem, hogy én egészen értem mindent magyarázni, mire van szükségem.
Az a tény, hogy a programot -i - ez a szokásos számláló, nem pedig egy indexlapon.
Például van egy lapot a neve „ALL” ő ellensúlyozására -3 (a sorban harmadik elejétől a könyv), és az index -15. és igen, én programe kiadott 3 percet, azt kell kiadni 15.