Comment afficher le nom d'un tableau ou d'un tableau croisé dynamique dans une cellule dans Excel?
Cet article parle de l'affichage d'un nom de tableau ou de tableau croisé dynamique spécifié dans une cellule dans Excel.
Afficher le nom du tableau ou du tableau croisé dynamique dans une cellule avec le code VBA
Afficher le nom du tableau ou du tableau croisé dynamique dans une cellule avec le code VBA
Le code VBA suivant peut vous aider à afficher un nom de tableau ou de tableau croisé dynamique spécifié dans une cellule. Veuillez faire comme suit.
1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA ci-dessous dans la fenêtre Module.
Code VBA: afficher le nom du tableau ou du tableau croisé dynamique dans une cellule
Function getObjName(rng As Range) As String
‘Updated by Extendoffice 20180420
Dim xTable As ListObject
Dim xPivotTable As PivotTable
Dim xTableName As String
Dim xPtName As String
On Error Resume Next
xTableName = ""
xPtName = ""
Set xTable = rng.Cells(1).ListObject
xTableName = "Table[" & xTable.Name & "]"
If xTable Is Nothing Then
Set xPivotTable = rng.Cells(1).PivotTable
xPtName = "Pivot [" & xPivotTable.Name & "]"
End If
getObjName = xTableName & xPtName
End Function3. appuie sur le autre + Q touches pour quitter Microsoft Visual Basic pour applications fenêtre.
4. Sélectionnez une cellule vide, entrez la formule =getObjName(A2) dans la barre de formule, puis appuyez sur la touche Entrée. Voir la capture d'écran:
Notes:
Articles Liés:
- Comment lister tous les noms de table dans Excel?
- Comment garder le tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée dans Excel?
- Comment réorganiser la position des colonnes dans un tableau dans Excel?
- Comment masquer les lignes de valeur zéro dans le tableau croisé dynamique?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
