Vba excel: formattare testo

[karug64]

Salve a tutti.
Tramite codice ho bisogno scrivere in celle di un foglio dei numeri formattati come testo.

Quindi se il numero è 1 devo scrivere 001, se 0 000 e se 23 023.

Ho provato a scrivere

cells(1,1).value = right("000"+str(numero),3)

Cells(1,1).numberformat) = "@"

Ma sulla cella trovo solo il numero...

C'è modo di risolvere (senza anteporre al risultato l'apostrofo, ovviamente) ?

Grazie

[Marius44]

Ciao
la tua formula cells(1,1).value = right("000"+str(numero),3)

provala così
cells(1,1).value = right("000" & 1,3) ' al posto di 1 metti il tuo numero

Ciao,
Mario

[Anthony47]

Io non giocherei a combinare le stringhe ma userei la funzione Format (https://docs.microsoft.com/en-us/office ... lications)
Quindi, tipo:

Codice: Seleziona tutto

Cells(10, 6).NumberFormat = "@"
Cells(10, 6).Value = Format(numero, "0000")         'es: 0002
Cells(10, 6).Value = Format(numero, "0000.00")      'es: 0002,10
Cells(10, 6).Value = Format(numero, "0,000.00")     'es: 1.123,10


Importante la formattazione iniziale come Text, altrimenti Excel potrebbe impegnarsi a convertire la stringa in valore numerico e allora addio...

Ciao

[karug64]

Grazie ad entrambi per le soluzioni valide fornite.

Alla prossima.