Oggi ho dovuto scrivere delle macro in excel che scorrevano celle e impostavano vari calcoli. Ho riassunto alcune funzioni come promemoria, se avete bisogno o volete giocare con le macro:
- Aprite excel
- premete ALT+F8 per gestire le macro
- Nuova Macro e inserite il codice seguente:
Dim sh As Worksheet
Dim lRiga As Long
Dim lCol As Long
Dim Contatore As Integer
Sheets(“Foglio1”).Select
Set sh = ThisWorkbook.Worksheets(“Foglio1”)
‘————————————–
Contatore = 0
With sh
For lRiga = 1 To 5
For lCol = 1 To 3
‘—– Test contenuto di una cella
‘ If .Cells(lRiga, lCol).Value = “www” Then
‘ Range(.Cells(lRiga, lCol).Address) = “TROVATO”
‘ End If
‘—– Coordinate cella
‘ MsgBox “Coordinate cella –> ” + .Cells(lRiga, lCol).Address
‘—– Imposto un Contatore
Contatore = Contatore + 1
‘ MsgBox (“Contatore –> ” & Contatore)
‘—– Visualizzo il Contenuto di una Cella
MsgBox “Contenuto cella –> ” & .Cells(lRiga, lCol).Value
‘—– Imposto il contenuto di una cella variabile
‘ Range(.Cells(lRiga, lCol).Address) = Contatore
‘—– Imposto il contenuto della cella successiva
‘ Range(.Cells(lRiga, (lCol + 1)).Address) = “X”
‘—– Imposto il contenuto della riga successiva
‘ Range(.Cells((lRiga + 1), lCol).Address) = “X”
Next
Next
End With
Set sh = Nothing
‘ Determinare il numero righe esistenti
‘NumeroRighe = ContaRighe(“Tutti”, 1, 4)
MsgBox “Il numero dell’ ultima riga occupata nelle prime 4 colonne è : ” & NumeroRighe
End Sub
Function ContaRighe(WS$, MinCol, MaxCol)
Dim Contatore
For COLONNA = MinCol To MaxCol
Ur = Worksheets(WS$).Cells(65536, COLONNA).End(xlUp).Row ‘ Ur = Ultima riga
valore = Worksheets(WS$).Cells(Ur, COLONNA).Value
If Contatore < Ur And valore <> “” Then
Contatore = Ur
End If
Next COLONNA
ContaRighe = Contatore
End Function
Allego un foglio già pronto scaricabile da qui –> Prove_Excel