MacroFacili: Numero colonna

Questa semplice funzione converte il riferimento in lettera di una colonna nel numero di colonna corrispondente.

Function NumeroColonna(Lettera) As Integer
NumeroColonna = Range(Lettera & "1").Column
End Function

E' utile per aumetare la leggibilità del codice, ad esempio dovendo lavorare con un foglio come quello a destra potremmo scrivere un codice come questo:

For R = 2 To 6
  IdCliente = Cells(R, 2)
  DsCliente = Cells(R, 3)
  Cells(R, 4) = IdCliente & "-" & DsCliente
Next R

Nel caso di aggiunta di colonne ci costringerebbe a spostare i riferimenti delle colonne sostituendoli con il numero della colonna.

Scrivendo il codice come nell'esempio sotto sia la leggibilità che la manutenzione sono migliori.

C_IdCliente = NumeroColonna("B")
C_DsCliente = NumeroColonna("C")
C_IdDsCliente = NumeroColonna("D")

For R = 2 To 6
  IdCliente = Cells(R, C_IdCliente)
  DsCliente = Cells(R, C_DsCliente)
  Cells(R, C_IdDsCliente) = IdCliente & "-" & DsCliente
Next R