10. august 2012 - 11:01Der er
5 kommentarer og 1 løsning
Afkrydsningsfelter og vis-knap
Hej
Jeg håber der er en excelhaj som kan hjælpe mig.
Jeg har en udfordring, idet jeg er ved at lave en større sammenligning af en række selskaber. Mit skema er fordelt på 11 selskaber (hver sin kolonne) og en masse spørgsmål ud for hver enkelt rækkenummer.
Jeg ville gerne have, at man ovenover sammenligningen kunne afkrydse, hvilke selskaber man gerne ville se i sammenligningen. Altså at samtlige selskaber var ridset op med et afkrydsningsfelt, hvor man kunne vælge de 2 eller flere man gerne ville sammenligne. Når man har sat x i dem man vil sammenligne, skal man kunne trykke "VIS SAMMENLIGNING" og dermed komme over i et nyt dataark, hvor kun de valgte selskaber fremgår.
Hvis nogen vil hjælpe, er de meget velkomne til at skrive til mig eller, eller på e-mail mbj87@forum.dk - her kan i også få en skabelon og en lidt større uddybning af hvad jeg gerne vil have hjælp til.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Tak for dit forslag. Jeg er ikke super-bruger af excel, men det du foreslår er ikke helt det jeg har i tankerne.
Det skal være meget brugervenligt for andre at anvende - derfor tror jeg ikke dit forslag kan bruges desværre. Eller tager jeg fejl, og misforstår det du skriver?
Const antalSelskaber = 11 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Rem Ved højreklik If InStr(Target.Address, ":") = 0 Then If Target.Column >= 2 And Target.Row = 1 And Target <> "" Then If Target.Interior.ColorIndex = 6 Then Columns(Target.Column).Interior.ColorIndex = xlColorIndexNone Else Columns(Target.Column).Interior.ColorIndex = 6 End If Cancel = True Else If Target.Address = "$A$1" And Target.Interior.ColorIndex = xlColorIndexNone Then viskunMarkeredeKolonner Target.Interior.ColorIndex = 6 Cancel = True Else If Target.Address = "$A$1" And Target.Interior.ColorIndex = 6 Then visAlleKolonner Target.Interior.ColorIndex = xlColorIndexNone Cancel = True End If End If End If End If End Sub Private Sub viskunMarkeredeKolonner() Dim kol For kol = 2 To antalSelskaber + 1 If Cells(1, kol).Interior.ColorIndex = xlColorIndexNone Then Columns(kol).Hidden = True End If Next kol End Sub Private Sub visAlleKolonner() Dim kol For kol = 2 To antalSelskaber + 1 Columns(kol).Hidden = False Columns(kol).Interior.ColorIndex = xlColorIndexNone Next kol End Sub
Synes godt om
Ny brugerNybegynder
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.