Comment utiliser la référence indirecte à sélectionner une seule cellule ou de la plage en vba

J'ai besoin tout simplement d'un code de sélection d'une cellule, cependant que la cellule pour sélectionner des changements. J'ai une cellule du classeur qui permettra de déterminer ce que la cellule qu'il devrait être. La cellule A1 contient la cellule # qui doit être sélectionné.

Dans cet exemple, la cellule A1 contient le mot "P25", donc je veux le code ci-dessous pour référence A1 pour l'indirects de la cellule ref à P25, donc sélectionnez la cellule P25.

J'ai essayé les deux de ces lignes séparément:

Sub IndirectCellSelect()

     Sheet.Range(INDIRECT(A1)).Select
     Range(INDIRECT(A1)).Select

End Sub

Je reçois le message d'erreur Sub ou la Fonction n'est pas définie, quand il arrive à la parole INDIRECTE

OriginalL'auteur Bryan | 2015-07-08

3

Une légère altération de la posté code fonctionne:
```
Range([indirect("a1")]).Select
```
mais je vous conseille d'essayer l'un de ces lieu:
```
Sheet.Range(Sheet.Range("A1").Value).Select
Range(Range("A1")).Select
```
le premier étant plus explicite, et il est recommandé dans le code de production.

Merci! La première et la troisième travaillé! Je vais aller à la troisième depuis que vous conseiller de le au lieu.
La deuxième formule besoins en s'adaptant à la feuille que vous utilisez, ce serait Sheet1 pour la première feuille d'un nouveau classeur. C'est souvent recommandée dans la pratique que le code sera toujours la même et ne dépendra pas de la feuille qui est actuellement active.

OriginalL'auteur lori_m
0

Vous pouvez le faire d'une manière différente, mais si vous souhaitez utiliser un natif de feuille de calcul Excel fonction au sein de votre code VBA, vous avez besoin pour ce faire comme si (notez que j'ai aussi réglé la manière dont vous faites référence A1):
```
Application.WorksheetFunction.Indirect(Sheets(1).Range("A1"))
```
Modifier
Excuses - je n'avais pas fait de test. Il semble que le sous-fonction n'est pas disponible dans ce contexte. Au lieu de cela, essayez quelque chose comme ceci:
```
Dim rng as Range
Set rng = sheets(1).Range("A1")

sheets(1).Range(rng.text).Select
```
Malheureusement, je ne suis pas familier avec la façon d'utiliser une fonction correctement. J'ai essayé plusieurs méthodes sans succès, et il suffit de lire les différences entre les cas d'utilisation d'une fonction, mais ne pouvait toujours pas la mettre en œuvre. Je viens d'obtenir l'erreur "Objet ne supporte pas cette propriété ou cette méthode" fait Aussi des Feuilles(1) si le nom de la feuille est différente ou est-ce simplement 1 = active?
Voir mes modifications - cela fonctionne pour la plupart des fonctions, mais il semble que le 'Indirect' n'est pas pris en charge dans cette voie. sens que c'est plus de confusion, de l'OMI, de toute façon.
Ahh génial, oui, cela semble plus sûr que j'ai couru dans cette question dans le passé, les malades font que l'on travail! À tout hasard vous avez des connaissances sur ce post? Personne n'a répondu et il a été pendant 1 mois... stackoverflow.com/questions/30764616/...

OriginalL'auteur Grade 'Eh' Bacon

Worksheets("list").Sort.SortFields.Add Key:=Range(INDIRECT("I16" & "3" & ":" & "I16" & "5002")) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With Worksheets("list").Sort
        .SetRange Range("B2:K5002")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin

Bienvenue à Débordement de Pile! Vous pouvez préciser votre réponse en ajoutant une explication plus détaillée avec l'exemple de code.

OriginalL'auteur user6734313

Vous devez vous connecter pour publier un commentaire.