Åbne og lukke grupper via makro

Umiddelbart ville jeg mene at det ikke kan lade sig gøre via en makro, men hvis nogen har idéer hører jeg gerne.

Hvis du åbner den makro, du har optaget, vil du sikkert opdage at den ikke indeholder noget som helst.

Den ser faktisk således ud...helt tom er den da ikke :

Sub grupper()


    Sheets("TOTAL").Select
    Rows("4:340").Select
    ExecuteExcel4Macro "SHOW.DETAIL(1,333,FALSE,,304)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,302,FALSE,,294)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,292,FALSE,,272)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,268,FALSE,,181)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,179,FALSE,,92)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,90,FALSE,,3)"
    Rows("293:340").Select
    ExecuteExcel4Macro "SHOW.DETAIL(1,333,TRUE,,304)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,302,TRUE,,294)"
    ExecuteExcel4Macro "SHOW.DETAIL(1,292,TRUE,,272)"
    Range("A1").Select
End Sub

Hvordan ser Excel4 makroen ud?

Jeg er hægtet af...hvad mener du ?

Din kode forsøger at udføre en Excel4 makro. Det kræver at en sådan makro findes.

...og hvor finder jeg så den henne ?

I et Excel4 makroark, som burde findes et eller andet sted i projektmappen. Hvis ikke, kan det måske være årsagen.

hov..excel4 makroen er jo netop SHOW.DETAIL(1,292,TRUE,,272) og ExecuteExcel4Macro "SHOW.DETAIL(1,292,TRUE,,272)" betyder bare at VBA skal køre den makro.
=SHOW.DETAIL(1,292,TRUE,,272) kunne lige så godt være indtastet i xl4 makroark

Tida, hvordan er disse gruppe lavet (pivot, subtotaler, eller manuelt)

Bak-> Når jeg afprøver makroen, får jeg at vide, at der er "for mange argumenter". Både når jeg prøver den i et makroark, og når jeg kører den som kode !

Tida->test lige det her og se om det er bedre.
Sub tester1()
    Worksheets("Total").Activate
    Range("A3").Rows.ShowDetail = False
    Range("A90").Rows.ShowDetail = False
    Range("A92").Rows.ShowDetail = False
    Range("A181").Rows.ShowDetail = False
    Range("A272").Rows.ShowDetail = True
    Range("A294").Rows.ShowDetail = True
    Range("A304").Rows.ShowDetail = True
End Sub

jkrons-> det gør jeg også, men jeg kender heller ikke så meget til ex4-makroer at jeg kender argumenterne for disse og jeg kan ikke huske hvor jeg finder dem.
Jeg har dog en gammel dansk xl4-makrobog hjemme....så måske

Jeg har ikke selv brugt Excel4 makroark siden Excel4, og det er et par dage siden. Var det i '93-94?

Aner det faktisk ikke. På det tidspunkt brugte jeg sikkert Lotus :-)
Min første excelversion var ver.5, hvor man programmerede på dansk....

Det husker jeg også. Jeg mener at den kom enten i slutningen af 94 eller begyndelsen af 95, så 4 må ligge længerte tilbage.

Tusind tak bak....det ser godt ud !
Send et svar og du skal få points !

svar :-)

Nu ved jeg ikke rigtigt hvor den xl4macro stammer fra, men jeg har lige chekket hvordan den skal være.
SHOW.DETAIL(1;90;true) eller dansk VIS.DETALJE
hvor 1.parameter kan være 1 for rækker, 2 for kolonner
2. parameter er en række i gruppen
3. parameter True eller False (vis ej ikke vis detalje)

Bogen er forøvrigt fra 92.. :-)