26. juni 2007 - 11:42Der er
10 kommentarer og 1 løsning
Indsætte vandret kombinationsboks i Excel
Hej,
I dag bruger jeg at indsætte en kombinationsboks i Excel, hvor dataområdet er markeret som lodret kolonne.
Jeg har forsøgt at oprette endnu en kombinationsboks, hvor jeg har markeret et vadret/ række dataområde (fx B1:H1), men kan ikke få det til at virke - er der nogen som har en løsning på dette problem?
Årsagen hertil er, at jeg bagefter skal bruge værdierne til at slå op i en matrix ... og herudfra få forskellige udfald!
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
jeps ... det har jeg faktisk også forsøgt mig, men her er jeg desværre også stødt på et problem.
I mit inddataark har jeg i kolonne B mine priser - i C1:E1 en overskrift (prislistenavn som fortsætter i F1:H1 osv), mens jeg i cellerne C2 & D2 & E2 har nogle "komponenter" som den aktuelle prislisten består af. Min tanke var herefter at jeg kunne vælge min prisliste fra en datavaliderings drop down og herefter slå op i matrix vha en kombination af index og match-formler!! MEN når jeg markerer området C1:H1 og navngiver det og opretter liste får jeg desværre i listen følgende valgmulighdere: prislistenavn1, blank, blank, prislistenavn2, blank, blank osv. Jeg har merged C1:E1 men tilsyneladende ser excel stadig det som 3 cellen, hvorfor jeg får de blanke valgmulighdere i min dropdown. Var det den løsning du tænkte på? og kan du evt. hjælpe med mit datavaliderings dropdown problem?
Indsæt denne kode i arkets kodemodul (højreklik på fane, vis programkode) opretter en dropdown liste i A1
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1:H1")) Is Nothing Then Exit Sub Dim t, List For t = 3 To 8 If Cells(1, t) <> "" Then List = List & "," & Cells(1, t) Next With Range("A1").Validation ' ret A1 hvis du vil have list i anden celle .Delete .Add xlValidateList, Formula1:=List .InCellDropdown = True End With End Sub
..hmm jeg kender desværre ikke til kode, men forhåbentlig kan jeg lære det!
Jeg skal kun bruge en drop-down for det vandrette område F3:BB3 i arket "Inddata" - jeg har merged cellerne G3:I3 og J3:L3 osv og navngivet hele området F3:BB3 for "prisliste" Problemet med min nuværende drop-down er som sagt, at Excel tilsyneladende stadig ser mit merged område G3:I3 som 3 celler, således at jeg får følgende resultat i min drop-down: prislistenavn1, blank, blank, prislistenavn2, blank, blank osv - og her ønsker jeg blanke sorteret fra.
Min drop-down liste ønsker jeg imidlertid i et andet ark kaldet "TTO" i celle B4. Betyder det så, at jeg skal stå (og indsætte kode) i det ark, hvor jeg ønsker min drop-down eller i "inddata" arket?
ok ja så skal der ændres lidt : indsæt denne i arket Inddata's kodemodul (højreklik på fane, vis programkode)
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("F3:BB3")) Is Nothing Then Exit Sub Call myList End Sub
herefter taster du i arket ALT+F11 vælg menuen Insert > Module indsæt følgende kode i vindue til højre
Sub myList() Dim t, List For t = 5 To 54 If Cells(3, t) <> "" Then List = List & "," & Cells(3, t) Next With Sheets("TTO").Range("B4").Validation .Delete .Add xlValidateList, Formula1:=List .InCellDropdown = True End With End Sub
OBS: koden/Listen opdateres hver gang du ændrer, tilføjer eller sletter noget i området F3:BB3, så du kan evt. lige indtaste et tal i området for at aktivere koden første gang (evt. blot gentag en værdi som du har)
FANTASTISK - det virker og var lige præcis det jeg skulle bruge. Tusind tak for hjælpen....du har ihvertfald fortjent pointene (var måske faktisk et spørgsmål til mere end 30 point!). Vil du lægge et svar :-)
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.