Appliquer la formule en VBA?

J'essaye d'appliquer une formule qui écrit OUI ou NON dans une cellule vérifiant si une autre cellule commence par le texte Q).Appliquer la formule en VBA?

L'écriture manuelle dans Excel fonctionne.

=IF(LEFT(A2;2)="Q)";"YES";"NO")

Mais lorsque je tente de le faire automatiquement à l'intérieur d'une macro

Range("R2").Formula = "=IF(LEFT(A2;2)=""Q)"";""YES"";""NO"")"

Erreur d'exécution '1004': Application définie ou un objet défini erreur

également , Je vais vouloir le faire pour toute la colonne, quelque chose comme ça

Range("R2:R" & lastRow).Formula = "=IF(LEFT(A2;2)=""Q)"";""YES"";""NO"")"

Mais pour cela, je dois résoudre le premier problème avant.

Qu'est-ce que je fais mal?

Source

2017-08-02 Daniel Viaño

GAUCHE (A2,2) - utilisez une virgule, pas un point-virgule – braX

Ces points-virgules (;) doit être une virgule (,) –

VBA utilise le séparateur virgule, indépendamment de vos paramètres locaux

Range("R2:R" & lastRow).Formula = "=IF(LEFT(A2,2)=""Q)"",""YES"",""NO"")"

Source

2017-08-02 14:03:47 SJR

Cela a résolu le problème, je vais accepter est le plus tôt possible. Je vous remercie. –

Au lieu de doubles guillemets. essayez de sauter les guillemets avec.

Par exemple: au lieu de "" Q "" essayer \ "Q \"

Source

2017-08-02 14:03:07 blackspacer

Cette n'est pas vb.Net, c'est 'VBA'. Les symboles d'échappement sont différents. – Vityata

Vous pouvez toujours essayer l'option Enregistrer une macro : 1. Démarrez l'enregistrement 2. Coller la formule dans une cellule 3. Arrêter l'enregistrement 4. Regardez la macro enregistrée et comment il formate la formule

Source

2017-08-02 14:06:06 rakuna

J'ai essayé, mais il utilisait le format R1C1 et je ne le connais pas. –

En général, essayez la fo llowing:

Faire une formule viable dans Excel
Sélectionnez ensuite la cellule avec la formule pratique
Run le code
Dans la fenêtre immédiate quelque chose d'utile devrait être imprimé.

Le code:

Public Sub PrintMeUsefulFormula() 
    Dim strFormula As String 
    Dim strParenth As String 

    strParenth = """" 

    strFormula = Selection.Formula 
    strFormula = Replace(strFormula, """", """""") 

    strFormula = strParenth & strFormula & strParenth 
    Debug.Print strFormula 
End Sub

Source: Error with IF/OR in VBA

Source

2017-08-02 14:15:07 Vityata

Le Range.Formula attend une syntaxe EN-US.

Utilisez Range.FormulaLocal pour insérer une formule en fonction de vos paramètres régionaux:

Range("R2").FormulaLocal = "=IF(LEFT(A2;2)=""Q)"";""YES"";""NO"")"

Source

2017-08-02 14:17:13

Appliquer la formule en VBA?

Répondre

Questions connexes