Excel VBA valeur de la variable égal à la formule

J'ai du mal à l'attribution de valeurs de variables dans VBA. Je comprends comment définir myVar égal à un ActiveCell.Valeur comme ceci: 

ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[7])"
myVar = ActiveCell.Value
MsgBox (myVar)

Est-il possible de myVar égale à une formule et de sauter la ActiveCell.La valeur de la ligne. J'ai essayé cela, mais il ne fonctionne pas. 

myVar = "=SUM(RC[1]:RC[7])"

Merci pour votre aide.

InformationsquelleAutor Jiminie.Glick | 2013-03-18
  1. 2

    Je ne sais pas qu'est ce qu'un champ d'application plus large de votre objectif donc je présente une idée qui pourrait être utile. Cependant, il commute de référence relative de FormulaR1C1 en référence relative de Range.Offset() techniques.

    myVar = WorksheetFunction.Sum(Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 7)))
MsgBox myVar
    • Merci Kaz De La Mâchoire. C'est ce que je cherchais. Je suis en train de travailler sur quelques macros et essayer d'obtenir quelques bases. Merci pour votre aide!
    InformationsquelleAutor Kazimierz Jawor
  2. 0

    Oui, vous le pouvez. Vous commencez par fixer le myVar variable d'abord, puis l'appliquer à une gamme (ActiveCell ou tout autre objet de la Plage).

    Dim myVar as String
Dim r as Excel.Range

Set r = ActiveCell

myVar = "=SUM(RC[1]:RC[7])"
r.FormulaR1C1 = myVar
    InformationsquelleAutor Joseph
  3. 0

    Si vous n'avez pas besoin de votre formule par rapport à la cellule active, vous pouvez également utiliser le court [..] pour évaluer un énoncé, par exemple:

    MsgBox [SUM(B1:B7)]
    InformationsquelleAutor Peter Albert