07. november 2004 - 09:35Der er
21 kommentarer og 1 løsning
Ved pile_udgang af et felt skal der springes til nyt felt
Hej
Jeg har et regneark hvor jeg i nogle af felterne gerne vil have det sådan at når jeg trykker på en piletast i de pågældende felter så springer fokus til et felt et andet sted på arket. Kan det lade sig gøre?
'Hvis det kun er højre skal du kun bruge, ellers vil du få en fejlmelding da de andre makroer mangler Sub Auto_Open() Application.OnKey "{Right}", "pilhojre" End Sub
Hold Alt tasten nede og pryk på F11 nu er du inde i VB vælg Insert i nenuen, vælg indsæt Module, dobbeltklik på Module1 og sæt koden der ind. Luk nu filen og svar ja til at gemme. Når du genstarter filen skulle den virke.
'Du kan også med højrepilen springe fra flere forskellige celler fx F15 hvis du i L15 skriver A16 og sætter koden ind
Sub pilhojre() If ActiveCell.Offset(0, 5).Range("A1") = "A13" Then ' Kikker 5 celler til højre om der står A13 Range("A13").Select GoTo Slut End If If ActiveCell.Offset(0, 5).Range("A1") = "A16" Then ' Kikker 5 celler til højre om der står A16 Range("A16").Select End If Slut: End Sub
'Du kan også få den til at virke som almindelig pil til højre alle andre steder med følgende kode Sub pilhojre() On Error GoTo Fortsaet If ActiveCell.Offset(0, 5).Range("A1") = "A13" Then ' Kikker 5 celler til højre om der står A13 Range("A13").Select GoTo Slut End If If ActiveCell.Offset(0, 5).Range("A1") = "A16" Then ' Kikker 5 celler til højre om der står A16 Range("A16").Select GoTo Slut End If
Fortsaet:
Almindelig 'Makro som almindelig pil til højre
Slut: End Sub Sub Almindelig() On Error Resume Next ActiveCell.Offset(0, 1).Range("A1").Select On Error GoTo 0
er der nogen der har et ark hvor skidet kører, jeg kan ikke få det til virke, der ske ikke noget ved højrepil overhovedet. send evt. et ark til mikael_hauge@hotmail.com
Et alternativ kunne være at låse cellerne du ikke vil have markøren til (låse alle dem du vil brue op), og herefter beskytte arket og så bruge tabulatoren i stedet.
Så vil markøren kun springe mellem de ikke lukkede celler.
Faqpoler tak for arket, hvilken version har du lavet det i? Der sker ikke noget når jeg ændre i cellen og forlader den. Jeg ved ikke om det kan være min excel der er gammel eller syg
i filen EnLøsning.xls når du står i den første gule feldt (F13) og skriver et eller andet, eller bare trykker på pilen til højre springer den til A13, hvis du står i (F15) springer den til A16 ellers alle andre steder virker pilen bare som pil til højre Det er en forudsætning at der står A13 i celle K13 og A16 i celle K15 (der kan rettes i koden så du kan skrive hvad du vil i vilke celler du vil) det er en forudsætning at du starter filen med Makro **************************************************** i filen EnAndenLøsning.xls virker ved at du skriver et eller andet (en forandring) i de af gule celler og trykker på tasten Enter
fagpoler får pointene, da det virker på en anden maskine jeg har, med samme version af excel. Jeg skal nok have geninstalleret skidet. smider du lige et svar?
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.