12. november 2007 - 12:24Der er
17 kommentarer og 1 løsning
Problem med vis/skjul række ved vba
Jeg har et problem med at få vist/skjult en række.
Koden ligger i et modul, som er sat til at køre når man vælger i en drop down box.
Valget i drop down boxen, giver enten en værdi i række 44, eller returnerer et 0 hvis der ikke er nogen værdi. Række 44 skal skjules hvis der ikke returneres en værdi til f.eks. h44, ellers skal den vises. Dette lykkes ikke.
Det pudsige er at der er nøjagtig samme kode for linie 21, og her virker det.
Er der nogen der vil kigge på regnearket, det er klar til at blive sendt.
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.
Er det rigtigt, at det kun er, hvis Stilling er to, at 44 skal skjules, eller er der også andre situationer, hvor h44/i44 ikke giver værdier større end 0?
I hvilke situationer skal AG19 og AG42 blive andet end Nej?
Hvis jeg forstår dig rigtigt, så er det ligemeget hvad stillingen er (eller om den er tom), men returnerer den 0 i h44 og i44, så skal rækken skjules. Er det det du mener?
Ja. Problemet er, at den virker fint, hvis jeg rem'er en af IF..THEN...ELSE grupperne ud - ligegyldigt hvilken, men den virker ikke, hvis de alle er der. Og det kan jeg ikke umiddelbart gennemskue nogen grund til.
If Worksheets("løn").Range("k20") = "x" Then Else Worksheets("data2").Range("k4") = Worksheets("data").Range("k4") Worksheets("data2").Range("l4") = Worksheets("data").Range("l4") End If
Der mangler ligesom noget efter Then. Du går direkte til Else
Det er som om at hvis man 2 gange i træk vælger en stilling der ikke giver noget i linie 44, så gør den hvad den skal anden gang. Det samme sker hvis man vælger en stilling der giver noget i række 44. Kan der være noget beregning der ikke bliver kørt ordentligt igennem?
Jeg kæmpe fjols, forklaring følger: Sektionen med: If Worksheets("løn").Range("k20") = "x" Then Else Worksheets("data2").Range("k4") = Worksheets("data").Range("k4") Worksheets("data2").Range("l4") = Worksheets("data").Range("l4") End If
Skal ligge før skjul/vis række 44 koden Det skyldes at ved valg af stilling sørger ovenstående kode for at opdatere stillingsnr på begge dataark (data!k4 og data2!k4). Jeg beklager meget den tid du har brugt på det her, du får selvfølgelig point for det
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.
