19. januar 2015 - 21:38Der er
7 kommentarer og 1 løsning
Excel ........=LOPSLAG
Hej
Har 2 problemer
Bruger dette i forskellige lister
Er det mulig at den skriver det i samme celle som formelen står i ??
Fx hvis jeg skriver V i celle c17 skal den skrive Vinduer i celle C17 ???
Er det mulig at den bruger 2 forskellige fyld farver alt efter hvad jef skriver i cellen ??? Er godt klar og jeg skal skrive det i hver felt inden det virker . Alle mine drenge skal være blå og piger skal være røde
Du kan ikke have 2 forskellige oplysninger i samme celle. LOPSLAG skal bruge en opslagsværdi, og den vil forsvinde, hvis du indtaster formlen i samme celle - og give en cirkulær reference, hvis du forsøger.
En løsning på det du efterspørger kunne laves i VBA.
Du kan bruge Betinget formatering (fanen Startside) til at farvelægge celler efter indhold.
Private Sub Worksheet_Change(ByVal Target As Range) Dim Udfyld As Range Set Udfyld = Range("V17,V18,V19,V20") If Not Application.Intersect(Udfyld, Range(Target.Address)) Is Nothing Then If Range("V17") <> "V" Then Cells(17, 22).Value = "Vindue" End If End If End Sub
Tast Alt-F11 for at starte VBA-editoren. Dobbeltklik på arkets navn i menuen til vestre Kopier koden og indsæt den i billedet.
Voila!
Rettelse: Opdager at jeg ikke fik rettet denne linje tilbage efter en test. If Range("V17") <> "V" Then skal være If Range("V17") = "V" Then
Hele koden kommer her: med en lille tilføjelse, så du kan se udviddelsesmulighederne
Private Sub Worksheet_Change(ByVal Target As Range) Dim Udfyld As Range Set Udfyld = Range("V17,V18,V19,V20") If Not Application.Intersect(Udfyld, Range(Target.Address)) Is Nothing Then If Range("V17") = "V" Then Cells(17, 22).Value = "Vindue" End If If Range("V17") = "D" Then Cells(17, 22).Value = "Dør" End If End If End Sub
Hvis der slet ikke vises noget i VBA-editoren kan du taste Ctrl-R for at få vist Project-vinduet. Heri dobbeltklikker du som beskrevet ovenfor på arkets navn, og indsætter koden i det vindue, der åbner sig.
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.
Følg dette spørgsmålOpretPreview
Flere spørgsmål fra Office & Kontorpakker kategorien