Determinarea componentelor active ale cărții
Numărul liniei active
Practic toate elementele active sunt definite folosind cuvântul Active. Înregistrarea este scrisă înainte ca elementul activ să fie definit. Astfel, numărul liniei active poate fi calculat după cum urmează:
Sub Stroka () s = ActiveCell.Row MsgBox "Număr rând activ" s, vbInformation, "Active String" End Sub
Numărul coloanei active
Similar cu definiția unui rând, coloana este determinată de același principiu, numai la final nu se adaugă un rând, ci o coloană:
Sub Stolbec () s = ActiveCell.Column MsgBox "Coloana activă sub număr" s, vbInformation, "Coloana activă" End Sub
Determinați numărul ultimei linii umplute
Stroka = ActiveSheet.Cells.Find (ce: = "*", SearchDirection: = xlPrevious, _ SearchOrder: = xlByRows) .Row
Stroka = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Determinați numărul ultimei coloane umplut
Stolbec = ActiveSheet.Cells.Find (ce: = "*", SearchDirection: = xlPrevious, _ SearchOrder: = xlByRows). Coloana
Stolbec = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
Determinați celula activă
Pe baza expresiilor scrise de mai sus, puteți stabili în siguranță coordonatele celulei active. Adică, definim rândul activ, coloana activă și obținem coordonatele celulei active. Acesta va arata astfel:
Sub yacheika () sk = ActiveCell.Row st = ActiveCell.Column MsgBox "Celula activă are coordonatele celulelor (" sk "" st "), _vbInformation," Celulă activă "End Sub
Dar o astfel de înregistrare poate să nu se potrivească cu unele, pentru că există $, valoare absolută, nu relativă. Dar chiar și acest lucru poate fi corectat. Dolarii vor fi eliminați dacă scrieți codul astfel:
Parantezele operatorului de adresă specifică ce valoare trebuie să fie relativă și care este absolută. Dacă adresa (0,0), atunci atât rândul, cât și coloana sunt scrise relativ (primul zero este responsabil pentru șir, al doilea este coloana). Dacă ați plasat unul în loc de zero în linie, linia va fi o valoare absolută, iar coloana va fi relativă. Iar valorile următoarelor intrări sunt echivalente:
Adresa (1, 0) = Adresa (Adevărat, Fals)