Astuces Excel
  1. Astuces Excel
  3. Saisie d'une formule de tableau long dans Excel VBA en utilisant la méthode Remplacer comme solution de contournement
Intereting Posts
Excel VBA – Format table ne fonctionne pas comme prévu VBA Hyperlink to Muiltsheets Écrivez la database mysql à partir d'Excel 2011 sur Mac Comment désactiver Auto_Open après la première sauvegarde Exécution d'un cas de test de feuille Excel basé sur un mot-key en tant que test test de test en utilisant du selenium Comment replace les caractères conditionnellement dans Excel Quelle est la faute d'une déclaration (Erreur 1004) Conversion de mmyy en une date utilisable Impossible de find l'erreur de reference de la bibliothèque de files excel correcte Impossible de returnner les résultats de la procédure stockée à Excel Excel VBScript copy et collez les valeurs de la cellule à la fin d'une autre list Excel VBA: comment doubler l'action de double-clic / modification de cellule dans le code vba Continuez le filter de rapport de tableau croisé dynamic après l'actualisation des données Comment décrire la gamme de plusieurs colonnes et tabs en formule 3D? le format de file et l'extension ne correspondent pas excel asp.net mvc

Saisie d'une formule de tableau long dans Excel VBA en utilisant la méthode Remplacer comme solution de contournement

J'essaie d'éviter la limite de 255 caractères lors de la saisie d'une formule de tableau via VBA. J'ai regardé en ligne et j'ai trouvé une solution prometteuse de briser le tableau en morceaux et de les combiner à nouveau.

Cependant, ma fonction .replace ne remplace rien.

J'ai été très prudent de veiller à ce que, dans chaque étape du .replace, la formule obtenue soit logique.

Voici ce que j'ai jusqu'ici: 

Sub ArrayMacro() Dim theFormulaPart1 As Ssortingng Dim theFormulaPart2 As Ssortingng Dim theFormulaPart3 As Ssortingng theFormulaPart1 = "=IF(SUM(IF(COUNTIFS(Ratting!A:A,'Site Masortingx'!$B$1:$FA$1,Ratting!K:K,'Site Masortingx'!A2)>=1,1,0))=1,1,1)" theFormulaPart2 = "SUMIF(Ticks!E:E,'Site Masortingx'!A2,Ticks!C:C)/IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Masortingx'!A2)>0,"",1))" theFormulaPart3 = "COUNTIFS(Ratting!A:A,IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Masortingx'!A2)>0,"",INDEX(Ratting!A:A,MATCH('Site Masortingx'!A2,Ratting!K:K,0))),Ratting!K:K,'Site Masortingx'!A2)" With Sheets("Site Masortingx").Range("FB2") .FormulaArray = theFormulaPart1 .Replace "1,1)", theFormulaPart2, xlPart .Replace "1))", theFormulaPart3, xlPart End With End Sub

La formule dans la cellule rest la même chaque fois que je lance la macro. Traverser le code ne lance aucune erreur ou indique ce qui ne va pas. Juste, rien ne se passe.

Les deux strings de rlocation ne sont pas définies correctement. Vous devriez utiliser la string """"" au lieu de "" intérieur de la string constante.

Deuxième problème – manquant )) à la fin de theFormulaPart3 . 

 theFormulaPart2 = "SUMIF(Ticks!E:E,'Site Masortingx'!A2,Ticks!C:C)/IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Masortingx'!A2)>0,"""",1))" theFormulaPart3 = "COUNTIFS(Ratting!A:A,IF(COUNTIFS(Ratting!N:N,TRUE,Ratting!K:K,'Site Masortingx'!A2)>0,"""",INDEX(Ratting!A:A,MATCH('Site Masortingx'!A2,Ratting!K:K,0))),Ratting!K:K,'Site Masortingx'!A2)))"