2 Sonata Ei bine, de fapt, răspunsul la această întrebare pe care tu mi-ai dat-o în primul post
Public Sub jop1 ()
Pentru i = 1 În foile de lucru
Foi (Numbers_List) Activați
Celulele (i, 1) = i
Celule (i, 2) = Sheets (i) .Name
Înainte i
End Sub
aici, chiar Sheets (i) .Index nu poate fi folosit, deoarece i în acest caz este un index de frunze.
și în al doilea rând, RayShade și cu mine am adăugat într-o măsură destul de completă
Shl Rețineți că în primul meu post am indicat indicele nu numai a frunzei active.
Pentru i = 1 În Workbooks.Count
MsgBox Workbooks (i). Nume + "index:" + CStr (i)
Înainte i
Într-adevăr, Sonata, ți se pare că ai răspuns la întrebarea ta
Ne pare rău, pentru numerotarea foilor trebuie să organizați un al doilea ciclu
Pentru i = 1 În Workbooks.Count
K = 3
celule (i, 1) .value = registre de lucru (i) .Name
celule (i, 2) .value = i
Pentru j = 1 Pentru registrele de lucru (i) .worksheets.count
celule (i, k) .value = registre de lucru (i) .worksheets (j) .index
k = k + 1
următorul j
Înainte i
Este posibil și un ciclu, dar apoi vor fi emise idealurile foilor cărții active:
k = 1
Pentru i = 1 Pentru Sheets.Count
Celule (1, k) .Value = Sheets (i) .Index
k = k + 1
Înainte i
Nu înțeleg.
Mi se pare că am explicat foarte clar tot ce am nevoie.
Faptul că în programul meu - i este un contor regulat, și nu un index de frunze.
De exemplu, am o foaie numită "ALL", are un numărător -3 (numărând a treia de la începutul cărții) și indicele este -15. și așa, în programul meu este dat 3-ka, dar trebuie să fiu eliberat 15.