Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSumprodukt i VBA til brugerformular
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Emne: Sumprodukt i VBA til brugerformular
    Sendt: 08.Sep.2013 kl. 17:27
Hej til alle herinde
 
Er der nogen som kan svare på, hvordan man bruger funktionen SUMPRODUKT i VBA?
Jeg har en brugerformular, hvor jeg ud fra to datoer ønsker at tælle nogle tal sammen med Sumprodukt
 
Jeg har denne VBA-kode (som ikke virker):
res_kendt_graddage = Evaluate("SUMPRODUKT((DATO(GDår;GDmåneder;GDdage)>=dato_kendtfra)*(DATO(GDår;GDmåneder;GDdage)<=dato_kendttil)*(GDdata))")
 
Forklaring:
res_kendt_graddage : et felt i formularen, hvor jeg ønsker svaret (værdi)
dato_kendtfra : et felt i formularen, hvor der er angivet en dato (dd-mm-åå)
dato_kendttil : et felt i formularen, hvor der er angivet en dato (dd-mm-åå)
 
GDår : et navngivet område med tal
GDmåneder : et navngivet område med tal
GDdage : et navngivet område med tal
GDdata : et navngivet område med tal
 
Ps. funktionen Sumprodukt((DATO... fungerer fint ellers)
 
Kan i hjælpe med hvordan VBA-koden skal se ud?
 
Peder
Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 10.Sep.2013 kl. 19:21
Prøv med denne :
 
res_kendt_graddage = Evaluate("SUMPRODUCT((DATE(GDår,GDmåneder,GDdage)>=dato_kendtfra)*(DATE(GDår,GDmåneder,GDdage)<=dato_kendttil)*(tal))")
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 10.Sep.2013 kl. 22:03
Øv det synes ikke at være problemet.
Jeg får fejlmeddelelsen:
Run-time error '13':
type mismatch
 
Kan det være fordi jeg bruger danske tegn (å)...?
 
Andre forslag ?
 
 
Med venlig hilsen

\\Peppe
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 10.Sep.2013 kl. 23:35
Jeg testede lige om det var det danske å, men det hjalp ikke - samme fejl
Det skal dog nævnes at formlen er trukket ud fra nettet, så det er naturligvis ikke sikkert
den overhovedet skal se sådan ud...
 
 
Med venlig hilsen

\\Peppe
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 11.Sep.2013 kl. 19:19

Ja min formel var baseret på at du havde dato_kendtfra og dato_kendttil i celler
på arket, kan dog se at det skiver du at du ikke har.
Jeg håber da du har en god grund til at have dine datoer splittet op i 3 kolonner
det er i sagens natur besværligt at arbejde med et sådan layout .

Det er ikke lykkes mig at få formlen til at acceptere disse datoværdier direkte
fra formularen, men har dog en anden løsning som du måske kan bruge :

Du har 2 muligheder, enten taste dine datoer direkte i 2 navngivne celler fx. fra og til, eller via
kode skrive disse datoer fra formularen i arket i celler som er navngivet fx. fra og til (kan evt. skjules).

---koden--

Range("fra") = CDate(Me.dato_kendtfra.Value) ' kan unlades hvis du skriver direkte i celler
Range("til") = CDate(Me.dato_kendttil.Value) ' kan unlades hvis du skriver direkte i celler
res_kendt_graddage = Evaluate("=SUMPRODUCT((DATE(GDår,GDmåneder,GDdage)>=fra)*(DATE(GDår,GDmåneder,GDdage)<=til)*(tal))")
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 11.Sep.2013 kl. 20:39
Jeg lægger en Excelfil ind der hedder VBAsumprodukt
Det er et eksempel på hvordan filen ser ud med navngivne områder osv.
 
jeg har lavet en brugerformular der kommer frem ved at trykke på knappen i arket...
 
Opbygningen af data vil jeg gerne have forbliver således (år, måneder og dage)
Jeg lægger filen op om 5 min...
 
Skriv endelig hvis jeg skal forklare nærmere
 
Med venlig hilsen

\\Peppe
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 11.Sep.2013 kl. 20:44
Så er filen uploadet...
 
 
Med venlig hilsen

\\Peppe
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 11.Sep.2013 kl. 21:32
Beklager - glemte vist lige at jeg skulle lægge et link ved...
Her er filen:
uploads/106/VBAsumprodukt.xlsm
 
 
Med venlig hilsen

\\Peppe
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 11.Sep.2013 kl. 22:57
uploads/248/VBAsumprodukt_2.xlsm
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 12.Sep.2013 kl. 11:48
Hej Excelent
 
Genialt - det virker jo fortræffeligt i denne eksempelfil.
Jeg lægger det ind i den rigtige fil senere i dag og selvfølgelig virker det.
 
Herfra siger jeg tak.
 
Peder
Med venlig hilsen

\\Peppe
Til top
peppe Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 26.Okt.2010
Land: Danmark
Status: Offline
Point: 294 		Direkte link til dette indlæg Sendt: 12.Sep.2013 kl. 18:43
Hej igen
blot som opfølgning...
Det virker dælme.
Atter engeng : tak
 
 
Med venlig hilsen

\\Peppe
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171 		Direkte link til dette indlæg Sendt: 12.Sep.2013 kl. 21:45
velbekom
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk