Condividi:        

sistemare numero a 2 cifre

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

sistemare numero a 2 cifre

Postdi raimea » 04/07/24 20:54

ciao
in un foglio col F (posizione)
ho delle sigle in numeri
che devo mettere in ordine crescente
dal primo numero e poi dal numero dopo il segno -

attualmente l'ordinamento non riesco a farlo correttamente
perche il numero dopo il trattino -
e' formato da un solo numero se inferiore a 10

avrei bisogno di anteporre lo zero 0 ai numeri dopo il trattino
se inferiori a 10

ES: 1-3 >> 1-03 2-2>>2-02

cosicche' successivamente potro' ordinare
tutto il foglio in relazione ai numeri di col F

vi allego il file
https://www.dropbox.com/scl/fi/vfud4vksbbi2v8ctplsn5/correggi_numeri_F.xlsm?rlkey=vri9y0xf4ubkmsxcq8553kzjd&st=xse8o0kr&dl=0

grazie
ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1416
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: sistemare numero a 2 cifre

Postdi Marius44 » 05/07/24 06:09

Ciao
Se non vado errato, i numeri scritti in quel modo Excel li assume come date (1° marzo, 2 febbraio, ecc) quindi avrai la necessità di impostare la colonna come "testo" (anche se Excel - in caso di calcoli - li considera numeri). A questo punto puoi inserire come vuoi lo 0 prima della seconda cifra, manualmente uno dopo l'altro ovvero con VBA.

Spero di non aver detto cavolate.
Ciao,
Mario
Marius44
Utente Senior
 
Post: 657
Iscritto il: 07/09/15 22:00

Re: sistemare numero a 2 cifre

Postdi Anthony47 » 05/07/24 09:23

Come dice Mario il rischio e' che quelle celle contengano date, anche se nel file pubblicato questo non succede.
Con questa spada di Damocle sulla testa, la seguente macro potrebbe "aggiustare" il contenuto di colonna F e convertire tutto in doppia cifra, tipo 1-1 --> 01-01, o 1-10 --> 01-10
Codice: Seleziona tutto
Sub SetF()
Dim I As Long, mySplit, ccVal As String, LastF As Long
'
LastF = Cells(Rows.Count, "F").End(xlUp).Row
Range("F:F").NumberFormat = "@"
For I = 2 To LastF
    ccVal = Cells(I, 6).Text
    If InStr(1, ccVal, "-", vbTextCompare) > 0 Then
        mySplit = Split(ccVal & " - ", "-", , vbTextCompare)
        If UBound(mySplit) > 1 Then
            Cells(I, 6).Value = "'" & Format(mySplit(0), "00") & "-" & Format(mySplit(1), "00")
        End If
    End If
Next I
End Sub

Prova, ma sarebbe meglio spostare l'operazione alla fase che quel contenuto lo genera...
Avatar utente
Anthony47
Moderatore
 
Post: 19299
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: sistemare numero a 2 cifre

Postdi raimea » 05/07/24 16:51

ciao
tutto ok

in colonna F non ci sono mai date
la macro e' ok

x Mario : grazie x l'interessamento
ma non posso farlo manualmente
perche' il file reale contiene moltissime righe

grazie ad entrambi

ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1416
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "sistemare numero a 2 cifre":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti