Par programme grouper et dissocier des lignes ou des colonnes

Est-il un moyen de faire le groupe /dégrouper des colonnes ou des lignes dans Excel 2010?

Remarque:

le "manuel de la commande" est dans les Données > les grandes lignes > Groupe /Dégrouper
dans excel 2003, cette habitude de travailler: someSheet.columns(i).ShowDetail = True /False mais il ne fonctionne plus, en 2010, pour les groupes (uniquement pour les tableaux croisés dynamiques et les sous-totaux des groupements)
l'enregistrement d'une macro ne produit pas de code que je pourrais utiliser

Plus précisément, l'appel de myRange.ShowDetail = True dans Excel 2010 ne développez un groupe réduit, mais génère une erreur si le groupe est déjà développée. Et le ShowDetail propriété renvoie la valeur True si le groupe est élargi ou pas.

OriginalL'auteur assylias | 2013-02-12

Dans Excel 2010, les ShowDetail propriété retourne toujours vrai pour un groupe, si elle est réduite ou agrandie. Le Hidden propriété peut être utilisée à la place:

'to expand
If myRange.EntireColumn.Hidden Then
    myRange.EntireColumn.ShowDetail = True
End If

'to collapse
If Not myRange.EntireColumn.Hidden Then
    myRange.EntireColumn.ShowDetail = False
End If

OriginalL'auteur assylias

3

Concernant les lignes pas dans les tableaux croisés dynamiques ... Il n'a PAS été mon expérience dans Excel 2010 qui ShowDetail renvoie TOUJOURS True. J'ai pensé qu'il a fait, mais je ne savais pas que j'avais besoin d'être sur la ligne de résumé pour cette propriété fonctionne comme prévu. Deuxième de tous, je ne savais pas que la ligne de résumé par défaut est SOUS les lignes groupées. Les tests pour s'effondra/étendu est devenu beaucoup plus clair une fois que j'ai changé le paramètre de la ligne de résumé ci-dessus les lignes groupées (dans le Ruban: Données > Décrire, Montrer le Contour Dlg Encadré).

Si ma cellule sélectionnée est sur la ligne de résumé, le ShowDetail evalutes True si les enregistrements groupés sont affichés, et False si ils ne le sont pas. Pour moi, l'essentiel était d'être sur la ligne de résumé de voir que le comportement de cette manière. L'enfant/des lignes groupées ci-dessus, par défaut, vraiment m'a jeté.

Voici ma macro, de manière dynamique, se développe et s'effondre les enregistrements groupés liés à la ligne de résumé lors de la sélection d'une cellule sur une ligne de résumé. Et, il me rend la cellule de la colonne A en gras si la section est élargi. Cette macro ne s'exécute pas si j'ai sélectionné plus d'une cellule.

Noter que la feuille de protection empêche le développement et la réduction des groupes de cellules. Ma feuille de calcul est protégée, donc je déprotéger les feuilles de développer/réduire, puis réappliquez après. (Une amélioration possible serait, pour moi, de ôter la protection/protéger uniquement la feuille en cours au lieu de tous.)
```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'TOGGLE SHOW/HIDE ROW
If Target.Cells.Count = 1 Then
    If (Target.EntireRow.OutlineLevel = 1) And (Target.Offset(1, 0).EntireRow.OutlineLevel = 2) And _
       (Target.Column < 15) Then
            Call Macros.ProtShts(False)
                Target.EntireRow.ShowDetail = Not Target.EntireRow.ShowDetail
                If Target.EntireRow.ShowDetail = True Then
                    Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Font.Bold = True
                Else
                    Range(Cells(Target.Row, 1), Cells(Target.Row, 14)).Font.Bold = False
                End If
            Call Macros.ProtShts(True)
    End If
End If
End Sub
```
Rappelez-vous, j'ai mis ma ligne de résumé pour être au-dessus des enregistrements groupés. Si votre ligne est ci-dessous les enregistrements groupés (par défaut), puis le décalage de la ligne de référence doit être changé à -1, comme ceci:
```
(Target.Offset(1, 0).EntireRow.OutlineLevel = 2)
```
Vous n'avez pas à le faire qu'un travail supplémentaire.. vous pouvez simplement faire de la feuille de calcul.EnableOutlining = true;

OriginalL'auteur Dru

Le mieux est de simplement changer la largeur d'une colonne d'une cellule dans la plage vous cacher. Cela va automatiquement dissocier la sélection.

dim wsA as worksheet
set wsA = Worksheets("Name of your Worksheet")
wsA.Columns("A:AJ").Columns.Group 
wsA.Range("A:A").ColumnWidth = 22.22 
' make the change to one of the cells in the group that you want to unhide.

OriginalL'auteur Mark2222

Vous devez vous connecter pour publier un commentaire.