Just nu i M3-nätverket
Gå till innehåll

dolda flikar


ego

Rekommendera Poster

Jag har dolt ett stort antal flikar. Nu behöver jag ändra dessa + alla öppna. ca 100 st Hur gör jag för att ta fram samtliga dolda med ett kommando. Nu måste jag ta fram de en för en. Nån som vet?

 

[inlägget ändrat 2005-03-08 18:01:57 av ego]

Länk till kommentar
Dela på andra webbplatser

Oskar Hansson

Öppna Visual Basic editorn "Verktyg/Makro/Visual Basic Editor". Högerklicka på arbetsboken och välj "Lägg till modul". Klistra in följande i modulen:

 

[color="#0000ff"]Sub[/color] TaFramFlikar()


 [color="#0000ff"]For[/color] i = 1 [color="#0000ff"]To[/color] 100  [color="#006400"]'Antalet flikar du vill ta fram[/color]

    Sheets(i).Visible = [color="#0000ff"]True[/color]  [color="#006400"]'räknaren [GRÅ]"i"[/GRÅ] används som fliknummer[/color]

 [color="#0000ff"]Next[/color] i

[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]

 

Edit: kör sedan makrot...

 

/Oskar

__________________________________________________

 

Laozi - "Truthful words are not beautiful; beautiful words are not truthful"

 

 

[inlägget ändrat 2005-03-08 18:41:06 av Oskar Hansson]

Länk till kommentar
Dela på andra webbplatser

eller:

 

[color="#0000ff"]Sub[/color] UnHide()
    [color="#0000ff"]Dim[/color] ws As Variant

    [color="#0000ff"]For[/color] [color="#0000ff"]Each[/color] ws [color="#0000ff"]In[/color] ThisWorkbook.Sheets
        ws.Visible = [color="#0000ff"]True[/color]
    [color="#0000ff"]Next[/color] ws
[color="#0000ff"]End[/color] [color="#0000ff"]Sub[/color]

 

Vilken tar fram alla flikar i arbetsboken, du behöver ej veta hur många det är.

 

Men ärligt - en arbetsbok med hundra flikar!!?!?

 

Vad? Hur stor är denna mastodontbok?

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Länk till kommentar
Dela på andra webbplatser

Tackar:)!

Ska testa om en stund.

Jo Det är ett avancerat tidredovisningssystem med fakturering där varje faktura är upplagd som en flik. Naturligtvis boorde det varit en databas istället men nu är det som det är. Jag har bara övertagit.

 

Länk till kommentar
Dela på andra webbplatser

med min kod behöver du inte veta antalet...

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...