Søg
Avatar billede dane022 Seniormester
06. december 2007 - 20:17 Der er 9 kommentarer og
1 løsning

Skjul flere rækker i vba kode

Jeg søger en kode der ved activate kan gennemsøge et område og skjule de rækker med værdien 0.

Det drejer sig om at for område f5:f21 og f30:f46, skal de rækker med værdien 0 skjules.

Jeg kunne godt tænke mig at det hele lå i samme kode, så der ikke skal gentages den sædvanlig entirerow.hidden for hver række, som dermed gør indlæsning af siden langsom.
Avatar billede gider_ikke_mere Nybegynder
06. december 2007 - 22:00 #1
Sub test()
Slut = Range("F65536").End(xlUp).Row
For I = 1 To Slut
    If Range("F" & I).Value = "0" Then
        For Y = I + 1 To Slut + 1
            If Range("F" & Y).Value <> "0" Then
                Range("F" & I & ":" & "F" & Y - 1).EntireRow.Hidden = True
                I = Y
                Exit For
            End If
        Next
    End If
Next
End Sub
Avatar billede dane022 Seniormester
06. december 2007 - 23:11 #2
smukt, smid et svar
Avatar billede gider_ikke_mere Nybegynder
06. december 2007 - 23:19 #3
Ok
Avatar billede gider_ikke_mere Nybegynder
06. december 2007 - 23:39 #4
Tak for point :-)
Avatar billede dane022 Seniormester
06. december 2007 - 23:42 #5
Jeg ser nu at koden har den ulempe at den skjuler alle nulværdier i hele f kollonen.
Hvordan skal den se ud hvis den kun skal gå efter de områder som jeg skrev i første indlæg?
Avatar billede gider_ikke_mere Nybegynder
06. december 2007 - 23:49 #6
Var det ikke det du ønskede?
Avatar billede gider_ikke_mere Nybegynder
06. december 2007 - 23:51 #7
Sub test()
Range("F5:F21").EntireRow.Hidden = True
Range("F30:F46").EntireRow.Hidden = True
End Sub
Avatar billede dane022 Seniormester
07. december 2007 - 20:03 #8
Vi har talt forbi hinanden. I virkeligheden er det en kombination af de to ting.
Koden skal virke som den første du skrev, men ikke for hele f kollonen. Kun for række 5 til 21 og fra 30 til 46
Avatar billede excelent Ekspert
07. december 2007 - 20:48 #9
Sub test()
For Each c In Range("F5:F21,F30:F46")
If c = 0 Then c.EntireRow.Hidden = True
Next
End Sub
Avatar billede dane022 Seniormester
07. december 2007 - 22:20 #10
Tak
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 09:43 Vista Af susej14 i Andet software
I går 11:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
04/1115:18 Hvordan er det - At man sætter et billed af en ting her på ? Af Ikke-ekspert i Diverse
03/1113:58 Status på UPS Af dcedata1977 i Andet hardware
02/1101:00 Problemer med software til Power Walker UPS - Nødstrømsbatteri Af ErikHg i Andet software
White papers
Flere white papers »