Excel

 


 
Ordinamento alfabetico dei fogli di calcolo con VBA
Quando si lavora in una cartella composta da diversi fogli di calcolo puo' essere utile ordinarli alfabeticamente. Questa una macro Visual Basic. 
     	  Sub OrdinaFogli()
     	    Dim i As Integer, j As Integer
     	      For i = 1 to Sheets.Count
     	        For j = 1 to Sheets.Count - 1
     	          If UCase$ (Sheets(j).Name) Then
     	            Sheets(j).Move after := Sheets(j+1)
     	          End if
     	        Next j
     	      Next i
     	   End Sub

 

 www.fabrizio.tommasi.name by Fabrizio Tommasi
 
Questo sito e' un sito non commerciale e potrebbe riportare informazioni non aggiornate e/o non corrette. Leggi il disclaimer sottostante.

Lavoro |  Home |  Locali |  Info                   000600                 Disclaimer |  Portale |  Blog |  Ricette