02. juni 2003 - 10:34Der 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.
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
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)
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
Synes godt om
Ny brugerNybegynder
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.