08. april 2007 - 11:06Der er
9 kommentarer og 2 løsninger
Genvejstaster til makroer
Jeg kunne godt tænke mig at lave nogle makroer der gjordre det muligt at springe mellem mine forskellige ark. Jeg har ca. 10 ark og kunne godt tænke mig at lave en genvejstast der f.eks. så således ud: ctrl + 1 (gerne numerisk tastatur) skal springe til arket FOR ctrl + 2 (gerne numerisk tastatur) skal springe til arket IND ctrl + 2 (gerne numerisk tastatur) skal springe til arket RES osv.
Det kunne også sagtens være shift eller alt der skulle bruges, hvis dette gør det nemmere.
Jeg har forsøgt at indspille en makro, men der er det kun muligt at bruge CTRL + "et bogstav"
Hvis du ligger denne stump kode under thisworkbook kan du hoppe som du gerne vil. '^' står for ctrl. hvis du bruger '+' eller '%' kan du bruge hhv. shift og alt tast
Private Sub Workbook_Open() Application.OnKey "^1", "thisworkbook.hopTilArkNr" Application.OnKey "^2", "thisworkbook.hopTilArkNavn" End Sub
Sub hopTilArkNr() Sheets(1).Activate End Sub
Sub hopTilArkNavn() Sheets("Test").Activate End Sub
Sub hopTilArkNavn1() Sheets("FOR").Activate End Sub Sub hopTilArkNavn2() Sheets("IND").Activate End Sub Sub hopTilArkNavn3() Sheets("RES").Activate End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
