09. februar 2005 - 18:58Der er
8 kommentarer og 1 løsning
hent to værdier til to celler
har Z17==HVIS(P11="b";J11;"")&HVIS(P12="b";J12;"")&HVIS(P13="b";J13;"")&HVIS(P14="b";J14;"")&HVIS(P15="b";J15;"")&HVIS(P16="b";J16;"")&HVIS(P17="b";J17;"")&HVIS(P18="b";J18;"")&HVIS(Q12="b";J12;"")&HVIS(Q13="b";J13;"")&HVIS(Q14="b";J14;"")&HVIS(Q15="b";J15;"")&HVIS(Q16="b";J16;"")&HVIS(Q17="b";J17;"")&HVIS(R13="b";J13;"")&HVIS(R14="b";J14;"")&HVIS(R15="b";J15;"")&HVIS(R16="b";J16;"")&HVIS(R17="b";J17;"")&HVIS(Q18="b";J18;"")&HVIS(S14="b";J14;"")&HVIS(S15="b";J15;"")&HVIS(S16="b";J16;"")&HVIS(S17="b";J17;"")&HVIS(R18="b";J18;"")&HVIS(T15="b";J15;"")&HVIS(T16="b";J16;"")&HVIS(T17="b";J17;"")&HVIS(T18="b";J18;"")&HVIS(U16="b";J16;"")&HVIS(U17="b";J17;"")&HVIS(U18="b";J18;"")&HVIS(V17="b";J17;"")&HVIS(S18="b";J18;"")&HVIS(V18="b";J18;"")&HVIS(W18="b";J18;"")
Og ah17 =HVIS(P11="b";P4;"")&HVIS(P12="b";P4;"")&HVIS(P13="b";P4;"")&HVIS(P14="b";P4;"")&HVIS(P15="b";P4;"")&HVIS(P16="b";P4;"")&HVIS(P17="b";P4;"")&HVIS(P18="b";P4;"")&HVIS(Q12="b";Q4;"")&HVIS(Q13="b";Q4;"")&HVIS(Q14="b";Q4;"")&HVIS(Q15="b";Q4;"")&HVIS(Q16="b";Q4;"")&HVIS(Q17="b";Q4;"")&HVIS(Q18="b";Q4;"")&HVIS(R13="b";R4;"")&HVIS(R14="b";R4;"")&HVIS(R15="b";R4;"")&HVIS(R16="b";R4;"")&HVIS(R17="b";R4;"")&HVIS(R18="b";R4;"")&HVIS(S14="b";S4;"")&HVIS(S15="b";S4;"")&HVIS(S16="b";S4;"")&HVIS(S17="b";S4;"")&HVIS(S18="b";S4;"")&HVIS(T15="b";T4;"")&HVIS(T16="b";T4;"")&HVIS(T17="b";T4;"")&HVIS(T18="b";T4;"")&HVIS(U16="b";U4;"")&HVIS(U17="b";U4;"")&HVIS(U18="b";U4;"")&HVIS(V17="b";V4;"")&HVIS(V18="b";V4;"")&HVIS(W18="b";W4;"")
De henter hver en værdi i et krydsfelt hvis den er = "a" eller "b". Nogle gange står der bare ikke hverken a eller b i felterne, og i det, og kun det tilfælde skal søges i z4 til z12.
Her vil der være to celler der er formateret betinget, med rød baggrund, og den værdien i første celle skal returneres til z17 den næste til ah17
og den værdi i første celle skal returneres til z17 den næste til ah17
er spørgsmålet, ved godt det blev lidt langt der var en lille stavefejl og måske drukner spm i det samlede. men jeg henter en værdi i et krydsfelt, nogle gange er der ingen ting at hente, og så skal den hentes i z 4 til z12, hvordan skal tillaget til formlerne så se ud?
Prøv at indsætte følgende funktion i et modul (ikke selve regnearkets modul, men et generelt modul for hele filen)
Public Function SpillerNavn(Kamp As String, SpillerNr As Integer) As String
Application.Volatile For Each c In Range("P10:X18") If c = Kamp Then If SpillerNr = 1 Then SpillerNavn = Cells(c.Row, 10) Else SpillerNavn = Cells(4, c.Column) End If End If Next
End Function
Herefter kan du i cellerne blot skrive f.eks.
=spillernavn("a";1) Herved hentes Spiller 1 fra a =spillernavn("a";2) Herved hentes Spiller 2 fra a =spillernavn("b";1) Herved hentes Spiller 1 fra b =spillernavn("b";2) Herved hentes Spiller 2 fra b
Når du trykker Alt-F11 (for at starte VBA editoren) skal du vælge menuen Indsæt/Modul og det er i dette modul du skal indsætte funktionen. Så gælder den generelt for hele regnearket og ikke kun for det aktuelle ark.
Havde lige været lidt uopmærksom i timen, og overset det med navnene, når der ikke er noget b. Brug denne her funktion i stedet - den anvendes som beskrevet ovenfor.
Public Function SpillerNavn(Kamp As String, SpillerNr As Integer) As String Dim Fundet As Boolean
Fundet = False Application.Volatile For Each c In Range("P10:X18") If c = Kamp Then Fundet = True If SpillerNr = 1 Then SpillerNavn = Cells(c.Row, 10) Else SpillerNavn = Cells(4, c.Column) End If End If Next
If Not Fundet Then Antal = 0 For Each c In Range("Z4:Z12") If c.Font.ColorIndex = 2 Then 'Husk at rette her, hvis formatet for valgte spillere ændres! Antal = Antal + 1 If Antal = SpillerNr Then SpillerNavn = c End If End If Next End If
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.
