Come impostare le variabili per fare riferimento ad intervalli di celle

Per impostare una variabile in modo che faccia riferimento a un intervallo, è necessario utilizzare il comando Set:

Sub VariableSetToRange() 
	'questo imposta la variabile myRange alla selezione del foglio di lavoro corrente
	Dim myRange As Range 
	Set myRange = Selection 
End Sub
Sub VariableSetToCell() 
	'questo imposta la variabile curCell sulla cella attiva 
	Dim curCell As Range 
	Set curCell = ActiveCell 
End Sub
Sub VariableSetToLargeRange() 
	'questo imposta la variabile cellsOfInterest sulle celle dalla cella attiva 
	'all'ultima cella nella colonna della cella con una voce. Si presume che 
	'siano presenti voci nella colonna sotto la cella attiva. 
	Dim R As Integer, cellsOfInterest As Range 
	With ActiveSheet.UsedRange 
		R = .Cells(.Cells.Count).Row + 1 
	End With 
	Set cellsOfInterest = Range(ActiveCell, Cells(R, ActiveCell.Column).End(xlUp)) 
	cellsOfInterest.Select 
End Sub

 

Tags: , , , , , , , , , , , ,

Ti è stato utile?