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
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.
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.
