Avatar billede h_s Forsker
06. juli 2006 - 12:25 Der er 8 kommentarer og
1 løsning

Funktion til at hente værdi hvis det er "den rigtige"

I Kolonne C har jeg nogle spørgsmål: 1,1 - 1,2 - 1,3 - 2,1 - 2,2 osv.

I kolonne D får hvert spørgsmå point: 0 - 0,5 - 1,0 osv.

I en celle vil jeg så have samlet alle de spørgsmål personen har fået ex. 0-point.

Ex.
1,1 - 0
1,2 - 1,0
1,3 - 0
1,4 - 0
1,5 - 0,5

I celle H8 samlet alle O-er: 1,3,4
I celle H9 samlet alle 0,5-er: 5
I celle H10 samlet alle 1-er: 2

Hvordan gør man det?
Avatar billede excelent Ekspert
06. juli 2006 - 15:57 #1
H8=TÆL.HVIS($D$2:$D$100;0)
H9=TÆL.HVIS($D$2:$D$100;0,5)
H10=TÆL.HVIS($D$2:$D$100;1)
Avatar billede h_s Forsker
06. juli 2006 - 16:51 #2
Tæl.Hvis angiver antallet af forekomster. Det jeg har brug for, er at der i cellen står hvilke opgaver, der har givet 0-point og hvilke der har givet 0,5-point osv.

Ex. 0-point: spørgsmål 1 og 3 og 4 - Så skal der stå 1,3,4
Avatar billede excelent Ekspert
06. juli 2006 - 19:23 #3
hmm kan ikke lige finde en excel-funktion der dur,
men jeg har en VBA-løsning hvis det kan bruges ?
Avatar billede h_s Forsker
06. juli 2006 - 21:50 #4
Lad mig prøve...
Det kunne være ok, hvis andet ikke kan lade sig gøre!
Avatar billede excelent Ekspert
06. juli 2006 - 22:38 #5
der kan godt anvendes komma som seperator mellem tallene, men
så opfattes enkelt værdier som tal, og flere værdier som tekst

Sub point()
Range("H8:H10") = ""
For x = 1 To 100
If Cells(x, 3) <> "" And Cells(x, 4) = 0 Then Cells(8, 8) = Cells(8, 8) & x & "-"
If Cells(x, 3) <> "" And Cells(x, 4) = 0.5 Then Cells(9, 8) = Cells(9, 8) & x & "-"
If Cells(x, 3) <> "" And Cells(x, 4) = 0 Then Cells(10, 8) = Cells(10, 8) & x & "-"
Next
End Sub
Avatar billede excelent Ekspert
06. juli 2006 - 22:43 #6
rettelse

Sub point()
Range("H8:H10") = ""
For x = 1 To 100
If Cells(x, 3) <> "" And Cells(x, 4) = 0 Then Cells(8, 8) = Cells(8, 8) & x & "-"
If Cells(x, 3) <> "" And Cells(x, 4) = 0.5 Then Cells(9, 8) = Cells(9, 8) & x & "-"
If Cells(x, 3) <> "" And Cells(x, 4) = 1 Then Cells(10, 8) = Cells(10, 8) & x & "-"
Next
End Sub
Avatar billede h_s Forsker
07. juli 2006 - 11:06 #7
Jeg synes ikke rigtig jeg kan bruge det, så jeg har brugt følgende funktion:

=HVIS(LP!D5=1;HØJRE(LP!C5;1);"")&HVIS(LP!D6=1;" "&HØJRE(LP!C6;1);"")&HVIS(LP!D7=1;" "&HØJRE(LP!C7;1);"")&HVIS(LP!D8=1;" "&HØJRE(LP!C8;1);"")&HVIS(LP!D9=1;" "&HØJRE(LP!C9;1);"")

Den skal så kopires og ændres ialt 450 gange, så hvis nogen har en nem løsning, så sig til!
Avatar billede excelent Ekspert
07. juli 2006 - 16:37 #8
at lave en makro der virker er ikke noget problem, men det
forudsætter naturligvis tilstrækkelig oplysninger om dit projekt.
Avatar billede h_s Forsker
28. oktober 2006 - 17:54 #9
..
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester