Excel VBA: Réglage de l'Adresse d'une Cellule à une variable “Objet Requis Erreur”

Je veux mettre l'adresse d'une cellule à une variable. Et puis utiliser cette variable pour définir une formule de cellule avec une relèvent de la cellule rng c'est à dire Quelqu'un devrait être en mesure de double-cliquez sur la cellule contenant la formule et de voir la référence de la cellule de rng plutôt que de la valeur de la cellule rng dans la formule. J'ai le code suivant: 

Dim rng As Range
Dim j As integer 
j = 5
Set rng = ActiveSheet.Cells(j, 1).Address(False, False) ' get error here

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng

- Je obtenir cet "Objet Requis Erreur". Ce que je fais mal?

InformationsquelleAutor CSAW | 2014-08-19
  1. 2

    Alternativement, dans le cas où vous avez besoin de la rng pour quoi que ce soit d'autre, vous pouvez effectuer les opérations suivantes

    Dim rng As Range
Dim j As integer 
j = 5
Set rng = ActiveSheet.Cells(j, 1)

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng.address
    InformationsquelleAutor guitarthrower
  2. 1

    D'accord, alors je crois que mes problèmes est que j'ai mal compris le type qui ActiveSheet.Cells(j, 1).Address(False, False) est.

    ActiveSheet.Cells(j, 1).Address(False, False) est un String, de sorte que vous obtenez un message d'erreur si vous définissez un Range à un String. Il suffit de changer de rng à un String va résoudre mon problème:

    Solution: 

    Dim rng As String
Dim j As integer 
j = 5
rng = ActiveSheet.Cells(j, 1).Address(False, False) ' works now

ActiveSheet.Cells(1, 15).Formula = "=5*" & rng
    • Vous devez supprimer Set de votre 4e ligne, comme rng n'est plus un objet (de Plage).
    • ^Ouais, je suppose que je n'ai pas compris que quand j'étais modifiant le code de la question du devenir de la réponse. Merci.
    InformationsquelleAutor CSAW