|
| Kommentar Fra : Eyvind |
Dato : 31-10-13 18:37 |
|
Jeg har en gang styret tabulatoren i Access men aldrig i Excel
Men jeg fandt dette spørgsmål i Eksperten.dk og du kan se det uden at logge ind.
http://www.eksperten.dk/spm/163045
Du kan bruge denne makro. Bemærk, at du selv kan definere hvilke celler man skal hoppe imellem:
Se spm. http://www.eksperten.dk/spm/108246
Private Sub Worksheet_Change(ByVal Target As Range)
Dim JumpCells As Range
Dim NumberOfStartCells As Long
Dim Counter As Long
'G2;G4;G6;G8;C11;C13;I11;I13;D20;G20;J20;L20;B24;C24
Set JumpCells = Range("g2,g4,g6,g8,c11,c13,i11,i13,d20,g20,j20,l20,b24,c24")
NumberOfStartCells = 1
If Not Intersect(Target, JumpCells) Is Nothing Then
For Counter = 1 To JumpCells.Areas.Count - NumberOfStartCells
If Not Intersect(Target, JumpCells.Areas(Counter)) Is Nothing Then
JumpCells.Areas(Counter + NumberOfStartCells).Activate
Exit For
End If
Next Counter
End If
Set JumpCells = Nothing
End Sub
| |
|
Citat Private Sub Worksheet_Change(ByVal Target As Range)
Dim JumpCells As Range
Dim NumberOfStartCells As Long
Dim Counter As Long
'G2;G4;G6;G8;C11;C13;I11;I13;D20;G20;J20;L20;B24;C24
Set JumpCells = Range("g2,g4,g6,g8,c11,c13,i11,i13,d20,g20,j20,l20,b24,c24")
NumberOfStartCells = 1
If Not Intersect(Target, JumpCells) Is Nothing Then
For Counter = 1 To JumpCells.Areas.Count - NumberOfStartCells
If Not Intersect(Target, JumpCells.Areas(Counter)) Is Nothing Then
JumpCells.Areas(Counter + NumberOfStartCells).Activate
Exit For
End If
Next Counter
End If
Set JumpCells = Nothing
End Sub |
Hvordan er det lige jeg får koden ind?
Jeg har tilføjet 'Udvikler' gruppen på båndet, men hvordan får jeg koden ind på den rigtige måde?
| |
| Kommentar Fra : Eyvind |
Dato : 04-11-13 17:05 |
|
Jeg har jo kun saxet koden fra det andet forum, men hvis du laver en makro og så redigerer den, vil jeg tro du kan kopiere den ind.
Når du redigerer en makro får du koden at se, og ser så også start og slut koden som i forkortet udgave ligner den du skal lægge ind...........................vil jeg tro.
| |
|
Øv Kan ikke få det til at virke. Jeg kigger lige lidt nærmere på spørgsmålet på eksperten.dk
| |
| Kommentar Fra : Eyvind |
Dato : 07-11-13 10:13 |
|
Sidst jeg styrede tabulering til indskrivning, var det i databasen Access og det var en formular.
Måske du kunne kæde en formular fra Access ind i Excel.
Bare en tanke.
| |
| Du har følgende muligheder | |
|
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
| |
|
|