|
Numeri Romani (in automatico.) A volte abbiamo la necessità di ottenere, in una cella, numeri in formato romano (con le lettere). Oltre alla funzione specifica =ROMANO(rif_Cella) da inserire in una cella del foglio di lavoro, è possibile ovviamente ottenere anche via codice lo stesso risultato. Ricordo che un istruzione via codice rimane, non può essere cancellata come invece può accadere con una formula inserita in una cella. Ecco quà una routine veloce, magari da inserire nell'evento SelectionChange del foglio di lavoro anzichè associata ad un pulsante, per averla attivata ad ogni cambio di selezione cella, sul foglio di lavoro. Esemplificando, porremo in A1 la cella contenente il numero da convertire, ed in C1 vorremo il numero romano; se in A1 avremo il numero "24", in C1 avremo "XXIV" . Questo è il codice: Private Sub
Worksheet_SelectionChange(ByVal Target As Range)
|