à l'aide de la variable à l'intérieur de formulaR1C1 pour offseting

J'ai la ligne de code suivante:

ActiveCell.FormulaR1C1 = "=sqrt(RC[-1])"

Maintenant, au lieu de -1, je veux utiliser une variable, disons x, comme suit:

ActiveCell.FormulaR1C1 = "=sqrt(RC[x])"

Cela renvoie une erreur. Est il possible que je puisse faire cela?

Il y a un message d'erreur vous pouvez fournir?

OriginalL'auteur user2812791 | 2013-09-24

  1. 8

    Comme ceci:

    ActiveCell.FormulaR1C1 = "=sqrt(RC[" & x & "])"
    oups... a été en utilisant les guillemets tout faux plus tôt... merci une tonne!!!
    Une requête relative, au Lieu de ActiveCell.FormulaR1C1 = "=sqrt(B3)" je veux utiliser une variable x telle que ActiveCell.FormulaR1C1 = "=sqrt(Bx)" Comment puis-je faire cela??? J'ai essayé ActiveCell.FormulaR1C1 = "=sqrt("B" & " & x, & ")". Cela n'a pas fonctionné
    Il ne fonctionne pas parce que vous êtes en assignant à la FormulaR1C1 mais votre formule n'est pas dans R1C1 format.
    Gotcha... Merci... a Travaillé comme ceci: ActiveCell.Formula = "=sqrt(B" & x, & ")"
    utilise juste le Excel R1C1 cellule-format d'adressage au lieu de l'habituel (Lotus 123) A1 format utilisé par .Formula=. R1C1 est plus prolixe, (et peut être moins naturelle), mais légèrement plus puissant de l'adressage de la méthode. En particulier, beaucoup de programmeurs de trouver plus facile à utiliser à partir de VBA et à un autre code.

    OriginalL'auteur RBarryYoung

  2. 0

    Déjà RBarryYoung donné la bonne solution

    Peut-être vous pouvez essayer le code ci-dessous

    Testé

    Sub Macro1()

    Dim X As Integer
    X = 1

    Range("C1").Value = Sqr(Range("B" & X).Value)

End Sub

    Modifier le code en fonction de vos besoins

    Je préfère les mettre à la formule dans la cellule au lieu de la valeur... merci de toute façon satish..

    OriginalL'auteur Sathish K

  3. 0

    Vous n'avez probablement pas besoin de boucle ici, Êtes-vous conscient que vous pouvez faire des trucs comme ça?

    Range("A1:A10").Formula = "=SQRT(B1)"

    Excel va incrémenter la ref par ligne.

    OriginalL'auteur Dan Donoghue

  4. 0

    L'extension de cette question: Ce que je veux faire est auto-explicatif:

    Dim  max1, sig1 As Integer

max1 = Range("B5")
sig1 = Range("I5")
Range("B9").Select
ActiveCell.FormulaR1C1 = "=INDEX(LINEST((R1C[" & sig1 & "]:R1C[" & max1 & "]),),1)"

    Échoue sur la dernière ligne, comme il l'interprète comme: INDEX(DROITEREG((R4C:R4C),),1)
    Fonctionne très bien si je lui dis où ces cellules que je veux ajustement comme dans:

    ActiveCell.FormulaR1C1 = "=INDEX(LINEST((R1C2:R1C1793),),1)"

    Ont confirmé que max1 = 1793, sig1 = 1009, et de la Ligne 1 contient 4096 entiers.

    OriginalL'auteur C Mackay