Snelkoppeling te verplaatsen tussen twee werkbladen

U kunt eenvoudig schakelen tussen werkbladen in een werkmap met behulp van Ctrl + Pg Up en Ctrl + Pg Down. Wat als u een snelkoppeling wilt gebruiken om tussen twee specifieke, niet-aangrenzende werkbladen, zoals Sheet1 en Blad4? In dit geval is het het beste om een ​​macro te gebruiken om het springen rond doen.

Indien gewenst, kan je twee macro's die het springen zou doen definiëren. Een macro zou springen om Sheet1 en de andere naar Blad4. Deze zouden gemakkelijk genoeg te maken met behulp van de macro-recorder, en je kon een sneltoets aan elk van de macro's toewijzen.

Als u op zoek bent naar een enkelvoudige toetsencombinatie die schakelt tussen de twee werkbladen, dan kunt u een macro gebruiken, zoals deze:

Sub JumpBetween1 ()
Als ActiveSheet.Name = "Blad1" Dan
Werkbladen ("Blad4"). Activeren
Anders
Werkbladen ("Blad1"). Activeren
End If
End Sub

De macro controleert eenvoudig te zien welke werkblad wordt weergegeven. Als het Blad1, dan Blad4 wordt weergegeven. In alle andere gevallen wordt Sheet1 weergegeven. Dit is handig, maar het betekent dat als u momenteel Sheet2 weergegeven, wordt de snelkoppeling altijd weer Sheet1. Je zou niet willen dat de macro om iets te doen, tenzij een van Sheet1 of Blad4 wordt weergegeven. In dat geval moet u deze variant op de macro gebruiken:

Sub JumpBetween2 ()
Als ActiveSheet.Name = "Blad1" Dan
Sheets ("Blad4"). Activeren
ElseIf ActiveSheet.Name = "Blad4" Dan
Sheets ("Blad1"). Activeren
End If
End Sub

Merk op dat het enige verschil tussen de twee macro's is dat de laatste variant gebruikt ElseIf om te controleren of Blad4 wordt weergegeven. Dit betekent dat als een ander dan Blad1 of Blad4 werkbladen wordt weergegeven, wordt de macro niets doen.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (3216) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vindt u hier: Shortcut to Move tussen twee werkbladen.


© 2020 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com