05. februar 2012 - 16:31Der er
3 kommentarer og 1 løsning
Opsummering af værdier i ét felt
Hvordan forøges en celles værdi med den værdi der skrives ind i en anden celle, hver gang den anden celle ændres?
Et hold elever får udleveret udleveret forskellige "produkter" på et aftenskole hold. Hver gang en elev henter noget, så noterer de det i et regneark De vælger deres navn i A1(liste A5:A10)og vælger "produkt" (liste B4:F4) i B1. Derefter taster de antal i C1 og trykker [Enter] herefter skal tabellen opdateres så man kan se hvor mange af hvert produkt den enkelte elev har anvendt.
Det svarer til et "ølregnskab" eller stakit optælling. Listerne er ikke noget problem. ______________________________________________________________ A1 B1 C1 Bo Produkt 2 18
Produkter Elev navn produkt 1 produkt 2 produkt 3 produkt 4 produkt 5 Bo 18 Lise Hanne Per Ib Sonja
Når Bo senere går op og tager 2 stk. af produkt 2 så skal skemaet opdateres så der står 20 i D5 og så fremdeles...
Når man trykker [Enter] så skal D5=D5+C1 Det må gerne være en makro. Jeg synes ikke at kunne finde en funktion til det.
Og som sadvanligt så er der undervisning igen mandag ;-)
Der bliver investeret massivt i AI. Teknologien er mere tilgængelig end nogensinde, og ambitionerne er høje. Alligevel oplever mange virksomheder, at resultaterne udebliver.
Hvis du bruger A1, B1 og C1 til indtastning og lader række 4 være tom, så burde denne gøre det i arkets modul
Private Sub Worksheet_Change(ByVal Target As Range) Dim Data As Variant, I As Integer, X As Integer If Target.Address = "$C$1" Then If [A1] <> "" And [B1] <> "" Then Data = [A5].CurrentRegion For I = 2 To UBound(Data, 1) If UCase(Data(I, 1)) = UCase([A1]) Then Exit For Next For X = 2 To UBound(Data, 2) If UCase(Data(1, X)) = UCase([B1]) Then Exit For Next Data(I, X) = Data(I, X) + [C1] [A5].CurrentRegion = Data End If End If End Sub
Tak for dit fine svar, det virkede efter hensigten.
Det ville være dejligt hvis det var muligt at vedhæfte en fil til et spørgsmål, så kunne man få meget mere ud af de mange svar og som ligger her inde.
Et eksempel siger mere end 1000 ord!
Nå men det er jo noget helt andet og sikkert ikke noget du kan ændre på...
Endnu en gang tak.
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.
