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.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
