03. december 2010 - 12:34Der er
6 kommentarer og 1 løsning
Rullemenuder
Hej derude...
Jeg er ved at lave et excel ark, hvor jeg har forskellige rullemenuer. Som et eksempel har jeg en rulle med i celle A2 med tre valgmuligheder (AA;BB;CC). I celle A4 skal der komme en ny rullemenu, som er afhængig i valget i celle A2. F.eks. vvis der vælges AA, skal en ny rullemenu kunne komme med valgmulighederne (10;20;30;40), men vælges BB, skal rullemenuen indeholde valgmulighederne (1;2;3;4) og endelig ved CC skal rullemenuen indeholde valgmulighed (32;33;34).
Koden er anbragt under det pågældende ark De tre områder, blev anvendt ved oprettelsen af DataValideringen Testet i Excel 2007
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then If Target.Value = "AA" Then sætVærdieriA4 "$G$6:$G$9" Else If Target.Value = "BB" Then sætVærdieriA4 "$G$11:$G$14" Else sætVærdieriA4 "$G$16:$G$18" End If End If End If End Sub Private Sub sætVærdieriA4(område) Range("A4").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=" & område .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With 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.