Just nu i M3-nätverket
Jump to content

dolda flikar


ego

Recommended Posts

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]

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...