Come utilizzare il riferimento indiretto per selezionare una singola cella o intervallo in vba

Question

Ho bisogno semplicemente di un codice per selezionare una cella, tuttavia quella cella per selezionare le modifiche. Ho una cella nella cartella di lavoro che identificherà quale cella dovrebbe essere. La cella A1 contiene la cella # che deve essere selezionata.

In questo esempio, la cella A1 contiene la parola "P25", quindi voglio che il codice seguente faccia riferimento a A1 per la cella indiretta ref a P25, quindi selezionare la cella P25.

ho provato entrambe le linee separatamente:

Sub IndirectCellSelect() 

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

End Sub 

ho la Sub errore o di funzione non è definita, quando si arriva alla parola INDIRETTO

Answer 1

Una lieve alterazione del codice scritto funziona:

Range([indirect("a1")]).Select 

ma vorrei consigliare di provare uno di questi, invece:

Sheet.Range(Sheet.Range("A1").Value).Select 
Range(Range("A1")).Select 

la prima essere più esplicito ed è raccomandato nel codice di produzione.

Answer 2

Si può fare questo un modo diverso, ma se si desidera utilizzare una funzione di foglio di lavoro Excel nativo all'interno del codice VBA, è necessario fare questo in questo modo (si noti che ho adattato anche come si fa riferimento A1):

Application.WorksheetFunction.Indirect(Sheets(1).Range("A1")) 

Modifica Scuse - Non l'avevo verificato. Sembra che la funzione indiretta non sia disponibile in questo contesto. Invece, provare qualcosa di simile:

Dim rng as Range 
Set rng = sheets(1).Range("A1") 

sheets(1).Range(rng.text).Select 

Answer 3

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