18. september 2009 - 16:46Der er
3 kommentarer og 1 løsning
Dynamisk indættelse af group og/eller ungroup
Som supplement i en pivotabel skal jeg have en funktion som afhængig af valget i page i pivot foretager en ny opdeling af den eksisterende pruppering.
Bemærk, der er ikke tale om gruppering i tabellen, men en mulighed for at vise/skjule rækker i aktuelt view ved hjælp af Data> Group / Ungroup.
I kolonne A er der en beregning det returnerer 1 eller 0 afhængigt af aktuelt view.
Når bruger har valgt ny page/view skal der afvikles en makro som ophæver eksisterende gruppering,og indsætter en ny der hvor værdien i kolonne A er 0 ...
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
Dim Række As Integer, StartR As Integer Række = 1 StartR = 1 Range("A:A").ClearOutline While (Cells(Række, 1)) <> "" If Cells(Række, 1) = 1 And Række > 1 Then Range(Cells(Række - 1, 1), Cells(StartR, 1)).Rows.Group StartR = Række + 1 Række = Række + 1 If Cells(Række, 1) = 1 Then StartR = Række + 1 Række = Række + 1 End If End If Række = Række + 1 Wend
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.
