Avatar billede black_knight Nybegynder
02. juni 2003 - 10:34 Der er 2 kommentarer og
1 løsning

Hvordan kan jeg skifte mellem bestemte celler med tabulator?

Jeg har lavet et excel-ark hvis meningen er, at der kun er nogen bestemte celler der skal udfyldes. F.eks. hvis jeg står i celle A1, og jeg trykker på tab, så skal jeg skrive noget i celle A4, og trykker jeg igen, så skal tabulatoren springe til B1 o.s.v.
Avatar billede janvogt Praktikant
02. juni 2003 - 10:39 #1
Du kan bare beskytte arket. Så springer man kun mellem disse celler med tab.
Avatar billede stewen Praktikant
02. juni 2003 - 12:04 #2
Lige huske at i de celler der skal bevæges imellem (eks A1, A4 og B1 osv) skal du under: Formater --> Formater celler --> Beskyttelse --> "fjerne fluebenet fra låst"

(Dvs du markerer de celler der skal skrives i - og gør som beskrevet - herefter beskytter du arket)
Avatar billede Chewie Novice
02. juni 2003 - 12:21 #3
Flemmingdahl lavede engang denne til mig

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Jumper As Range
Dim JumpCells1 As Range
Dim JumpCells2 As Range
Dim bJump1 As Boolean
Dim bJump2 As Boolean
Dim NumberOfStartCells As Long
Dim Counter As Long

    'NOTER dig at sidste celle i JumpCells1 er den samme celle som første celle i JumpCells2
    'MAX længde af JumpCells' Range er 255 karakter, så ingen unødige mellemrum
    'Er du i tvivl om længden, så paste a1,A2....i8,i9 ind i en celle og lad en anden celle tælle =LÆNGDE(xx)
    Set JumpCells1 = Range("a1,a3,a4,a8")
    Set JumpCells2 = Range("a8,b1,b5,b3")
    NumberOfStartCells = 1

    If Not Intersect(Target, JumpCells1) Is Nothing Then
        bJump1 = True
        Set Jumper = JumpCells1
    End If
   
    If Not Intersect(Target, JumpCells2) Is Nothing Then
        bJump2 = True
        Set Jumper = JumpCells2
    End If
       
       
    If bJump1 Or bJump2 Then
        For Counter = 1 To Jumper.Areas.Count - NumberOfStartCells
            If Not Intersect(Target, Jumper.Areas(Counter)) Is Nothing Then
                Jumper.Areas(Counter + NumberOfStartCells).Activate
                Exit For
            End If
        Next Counter
    End If
   
Set Jumper = Nothing
Set JumpCells1 = Nothing
Set JumpCells2 = Nothing
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester