06. december 2007 - 23:06Der er
9 kommentarer og 1 løsning
Valg af ark ved at taste et nummer.
Jeg har været ved at lege med vba progammering. Men er stødt ind i noget jeg ikke lige kunne dreje.
Det jeg vil have er at jeg på første ark ( ark1 ) kan skrive 1 nummer og nuget tekst ud for, og så har muligheden for at taste det nummer jeg gerne vil se.
Eks.
1. gå til varme regnskab
2. gå til el regnskab.
Så i feldt D1 kunne taste 1 hvis jeg ville se varme regnskabet, eller 2 for at se det andet.
Har lavet denne lille kode, men den melder fejl i den.
Sub vlag_af_ark()
If Worksheets(1).Range("D1") = "1" Then select ark3 End If
If Worksheets(1).Range("D1") = "2" Then select Ark2 End If
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
Syntaksen for Select er forkert. Den er istedet: Worksheets("Ark 2").Select
Desuden kan du optimere koden lidt ved at erstatte din If Then ... med en Select Case
Select Case Worksheets(1).Range("D1") Case "1" Worksheets("Ark 3").Select Case "2" Worksheets("Ark 2").Select Case Else ' Gør et eller andet End select
Forresten - hvis du lægger der i Worksheet_change så kan du få den til det helt automatisk :-)
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Adress = "$D$1") Then Select Case Worksheets(1).Range("D1") Case "1" Worksheets("Ark 3").Select Case "2" Worksheets("Ark 2").Select Case Else ' Gør et eller andet End select End if End sub
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.
