A címe az aktív cella
Azonosítása az aktív összetevők a könyv
Az aktív sorok
Szinte az összes aktív elemek segítségével határozzák ilyen szavakat - Aktív. Ktorov előtt rögzített meghatározását aktív elem. Így az aktív vonal száma lehet a következőképpen számítható ki:
Sub Stroka () s = ActiveCell.Row MsgBox "aktív vonal számozott" s, vbInformation, "aktív vonal" End Sub
Száma az aktív oszlop
Hasonlóképpen meghatározása oszlop a sor határozza meg ugyanezt az elvet, csak a végén gyűlnek sor és oszlop:
Sub Stolbec () s = ActiveCell.Column MsgBox "Aktív oszlop számát" s, vbInformation "Active oszlopban" End Sub
Határozza meg a sor számát az utolsó befejezett
Stroka = ActiveSheet.Cells.Find (Mi: = "*", SearchDirection: = xlPrevious, _ SearchOrder: = xlByRows) .Row
Stroka = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
Határozza meg a számát az utolsó befejezett oszlop
Stolbec = ActiveSheet.Cells.Find (Mi: = "*", SearchDirection: = xlPrevious, _ SearchOrder: = xlByRows) .Column
Stolbec = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
Határozzuk meg az aktív cella
A fentiek alapján írt kifejezések most könnyen meghatározni a koordinátáit az aktív cella. Ez határozza meg az aktív vonal, az aktív oszlopot kap a koordinátáit az aktív cella. Úgy fog kinézni:
Sub yacheika () sk = ActiveCell.Row st = ActiveCell.Column MsgBox "aktív cella koordinátáival Cells (" sk "" st ")", _ VbInformation, az "Aktív Cell" End Sub
De egy ilyen rekord nem illik valami, mert ott vney $, azaz abszolút értékben, nem relatív. De ez lehet korrigálni. Dollár lesz távolítva kód írásával, mint ez:
A Cím Operator tartót érték viszonylagos, és mi abszolút. Ha Cím (0,0), és a sor és az oszlop relatív rögzített (első nulla díj sorban, a második nulla - ebben az oszlopban). Ha a húr, hogy hozzanak létre egy nulla Egy egység, a vonal lesz az abszolút érték és a relatív oszlop. És az értékeket a következő bejegyzések egyenértékű:
Cím (1, 0) = cím (True, False)