J'ai donc appris que les tableaux croisés dynamiques sont délicats, tout comme la syntaxe des variables de chaîne, tout comme l'utilisation de citations dans VBA. J'essaye (et j'échoue) d'utiliser les trois!
J'essaie de collecter un élément de données à partir d'un tableau croisé dynamique très grand / complexe pour un grand nombre de numéros de travail. Je souhaite sélectionner un numéro de poste dans A1 et mettre à jour automatiquement la formule du tableau croisé dynamique avec le numéro de poste sélectionné pour renvoyer un résultat numérique.
J'ai actuellement deux problèmes: 1) la syntaxe pour obtenir le numéro de travail entre guillemets pour la formule 'getpivotdata' ne fonctionne pas et 2) il supprime les zéros dans le numéro de travail lorsqu'il exécute le code.
Mon code est répertorié ci-dessous, lorsque je l'exécute, j'espère voir cette formule se remplir en A2:
=GETPIVOTDATA("Part Number",' Parts Status '!$A$8,"CHAR_FIELD3","11-008","MATERIAL STATUS MASTER","Avail")
mais obtenez plutôt:
=GETPIVOTDATA("Part Number",' Parts Status '!$A$8,"CHAR_FIELD3",11-8,"MATERIAL STATUS MASTER","Avail")
Mon code est ici
Sub Macro1()
Dim jobnumber As String
jobnumber = Worksheets("Macros test").Cells(1, "A").Value
Sheets("Macros test").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Part Number"",' Parts Status '!R8C1,""CHAR_FIELD3""," & jobnumber & ",""MATERIAL STATUS MASTER"",""Avail"")"
Si vous avez besoin des citations, remplacez-les par ceci:
"=GETPIVOTDATA(""Part Number"",' Parts Status '!R8C1,""CHAR_FIELD3"",""" & jobnumber & """,""MATERIAL STATUS MASTER"",""Avail"")"
En outre, vous pouvez ajouter une msgbox temporaire après avoir défini le numéro de travail pour vous assurer que c'est ce que vous pensez:
MsgBox(jobnumber)
Cet article est collecté sur Internet, veuillez indiquer la source lors de la réimpression.
En cas d'infraction, veuillez [email protected] Supprimer.
laisse moi dire quelques mots