Zobrazí sa chybové hlásenie "dolný index out of range" pri použití HPageBreaks alebo VPageBreaks. location v Exceli

Príznaky

Pri použití vlastnosti umiestnenia alebo umiestnenia. adresa zvislých alebo vodorovných zlomov strán v makre programu Microsoft Visual Basic for Applications sa môže zobraziť nasledujúce chybové hlásenie:

Príčina

Tento problém sa môže vyskytnúť, ak sú splnené tieto podmienky:

• Aktívna bunka je nad vodorovným zlomom strany alebo naľavo od zvislého zlomu strany, na ktorý odkazuje index HPageBreaks alebo VPageBreaks .

• Umiestnenie zvislého alebo vodorovného zlomu strany je z obrazovky napravo od viditeľného okna alebo pod oknom viditeľného zošita.

• V programe Microsoft Excel používate Visual Basic for Applications, podobne ako tento kód:

  Sub TestHorizontal()    ActiveSheet.Range("CZ1000").Value = 1    MsgBox ActiveSheet.HPageBreaks.Count    MsgBox ActiveSheet.HPageBreaks(1).Location.Address    MsgBox ActiveSheet.HPageBreaks(2).Location.AddressEnd Sub Sub TestVertical()    ActiveSheet.Range("CZ1000").Value = 1    MsgBox ActiveSheet.VPageBreaks.Count    MsgBox ActiveSheet.VPageBreaks(1).Location.Address    MsgBox ActiveSheet.VPageBreaks(2).Location.Address    MsgBox ActiveSheet.VPageBreaks(3).Location.AddressEnd Sub

Alternatívne riešenie

Spoločnosť Microsoft poskytuje príklady programovacieho systému iba na ilustráciu bez záruky vyjadrené alebo implicitné. Toto zahŕňa, ale nie je obmedzené na implikované záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. V tomto článku sa predpokladá, že ste oboznámení s prejaveným programovacím jazykom a s nástrojmi, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, ale tieto príklady nebudú upravovať, aby poskytovali pridanú funkčnosť alebo vybudovali postupy na splnenie konkrétnych požiadaviek. Ak chcete predísť tomuto problému, pridajte kód na výber poslednej bunky použitej v hárku, kým kód použije vlastnosť umiestnenia vodorovných alebo zvislých zlomov strán. Na výber koncovej bunky použite napríklad nasledujúci kód, použite vlastnosť Location a potom znova vyberte pôvodnú aktívnu bunku:

Sub CheckPageBreaks()    'Set object "currcell" equal to active cell.    Set currcell = ActiveCell        'Select the last cell on the worksheet that has data.    Range("IV65536").Select        'Include code with Location property here.    x = ActiveSheet.HPageBreaks(2).Location.Address    MsgBox x    'Example sets x equal to address of second horizontal page break.    'Then message box displays the address of the page break.        'Select original active cell.    currcell.SelectEnd Sub

Po vypočítaní vlastnosti umiestnenia môžete znova vybrať pôvodnú aktívnu bunku. Ak použijete kód na prechádzanie medzi prvou a poslednou bunkou alebo vyberiete poslednú bunku a okamžite znova vyberiete začiatočnú bunku, môže sa stať, že chyba sa stále vyskytuje. Obrazovka musí byť prekreslená a vlastnosť Location sa vypočíta, aby bolo alternatívne riešenie účinné. Ak použijete vyššie uvedený kód s

Application.ScreenUpdating = False

Ak chcete zabrániť prekresleniu obrazovky, problém sa stále vyskytuje.

Stav

Spoločnosť Microsoft potvrdzuje, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v tomto článku v časti Informácie v tomto článku sa týkajú nasledujúcich produktov.

Ďalšie informácie

Ak použijete metódu Count s vlastnosťou VPageBreaks alebo HPageBreaks , môže sa zobraziť výsledok nula. Táto situácia sa vyskytuje za podmienok uvedených v časti príčina. Ak sa zlom strany zobrazuje, metóda Count môže poskytnúť správnu odpoveď. Spôsob počítania zvislých alebo vodorovných zlomov strán môže poskytnúť očakávaný výsledok, ak sa zlom strany nachádza vedľa viditeľnej časti okna zošita. Vyššie uvedené riešenie možno použiť na získanie očakávaného počtu. Zlomy strán, ktoré sa nachádzajú napravo od okna zošita alebo pod oknom zošita, môžu umožniť, aby metóda počítania fungovala a aby sa zlom strany nachádzal, ak je vzdialenosť od okna k zlomu strany menšia ako polovica vzdialenosti medzi zlommi strán.

Odkazy

Ďalšie informácie o tom, ako pasce chyby v makre, nájdete v článku databázy Microsoft Knowledge Base, ktorý sa zobrazí po kliknutí na nasledovné číslo článku:

213637 Riešenie chýb v makre pomocou funkcie "On Error"