26. marts 2007 - 14:10Der er
3 kommentarer og 5 løsninger
Trække fra og ligge til
I excelark har jeg en kolonne(c) hvor jeg har et vist antal(f.eks 25) varer. I kolonne (d) kan jeg så skrive et tal f.eks 5. Tallet bliver så trukket fra kolonne (c) så der kun er 20 varer tilbage. Desuden forsvinder 5 tallet fra kolonne D. Dette gøres ved hjalp af denne kode:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D2:D259")) Is Nothing Then Exit Sub Application.EnableEvents = False Target.Offset(0, -1) = Target.Offset(0, -1) - Target Target = "" Application.EnableEvents = True End Sub
Mit spørgsmål er så, hvordan koden skal se ud, hvis nu jeg vil have at de tal jeg skriver i kolonne E skal ligges til kolonne C, samtidig med at kolonne D stadig skal trække fra.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("D2:E259")) Is Nothing Then Exit Sub Application.EnableEvents = False If Target.Column = 4 Then Target.Offset(0, -1) = Target.Offset(0, -1) - Target Target = "" End If If Target.Column = 5 Then Target.Offset(0, -2) = Target.Offset(0, -2) + Target Target = "" End If Application.EnableEvents = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2:D259")) Is Nothing Then Else Application.EnableEvents = False Target.Offset(0, -1) = Target.Offset(0, -1) - Target Target = "" Application.EnableEvents = True End If
If Intersect(Target, Range("E2:E259")) Is Nothing Then Else Application.EnableEvents = False Target.Offset(0, -2) = Target.Offset(0, -2) + Target Target = "" Application.EnableEvents = True End If
for at lukke skal du markere box med navn og klikke accepter
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.
