15. januar 2013 - 18:30Der er
2 kommentarer og 1 løsning
Vælg ark vol. 2
Hej
Jeg fik denne stump af flinke Store-Morten igår, men jeg kunne godt tænke mig at fortsætte med at vælge i andre rubrikker, f.eks. ved kryds i "D4" vælges kun ark 3 - ved kryds i "D5" vises kun ark 4 - mere så jeg kan se hvordan det kan laves en længere programmerings streng hvor der udelukkes mere end et andet felt.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2")) Is Nothing Then Application.ScreenUpdating = False If Target.Value = "x" Then Range("D3").Value = "" Worksheets(2).Visible = True Worksheets(3).Visible = True Worksheets(4).Visible = False Else Worksheets(2).Visible = False Worksheets(3).Visible = False Worksheets(4).Visible = False End If End If
If Not Intersect(Target, Range("D3")) Is Nothing Then Application.ScreenUpdating = False If Target.Value = "x" Then Range("D2").Value = "" Worksheets(2).Visible = True Worksheets(3).Visible = True Worksheets(4).Visible = True Else Worksheets(2).Visible = False Worksheets(3).Visible = False Worksheets(4).Visible = False End If End If Application.ScreenUpdating = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2")) Is Nothing Then Application.ScreenUpdating = False If Target.Value = "x" Then Range("D3").Value = "" Range("D4").Value = "" Worksheets(2).Visible = True Worksheets(3).Visible = True Worksheets(4).Visible = False Else Worksheets(2).Visible = False Worksheets(3).Visible = False Worksheets(4).Visible = False End If End If If Not Intersect(Target, Range("D3")) Is Nothing Then Application.ScreenUpdating = False If Target.Value = "x" Then Range("D2").Value = "" Range("D4").Value = "" Worksheets(2).Visible = False Worksheets(3).Visible = True Worksheets(4).Visible = True Else Worksheets(2).Visible = False Worksheets(3).Visible = False Worksheets(4).Visible = False End If End If If Not Intersect(Target, Range("D4")) Is Nothing Then Application.ScreenUpdating = False If Target.Value = "x" Then Range("D2").Value = "" Range("D3").Value = "" Worksheets(2).Visible = True Worksheets(3).Visible = True Worksheets(4).Visible = True Else Worksheets(2).Visible = False Worksheets(3).Visible = False Worksheets(4).Visible = False End If End If Application.ScreenUpdating = True End Sub
Når jeg udbreder dette til flere felter får jeg at vide at koden er for lang, kan man f.eks. oprette flere korter makroer der definerer hvert enkelt felt? Et der bestemmer hvad der skal ske når der sættes et kryds i felt "E3" en anden der definerer hvad der skal ske når man sætter kryds i felt "F3"
Altså som ovenstående blot delt op i flere dele?
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.
