Excel contare zeri dopo la virgola

[maudit77]

Ciao a tutti,
Scrivo questo topic perchè ho un altro problemino con il visual basic, e con excel.
Bene il mio dilemma è questo:
io voglio prendere un numero e arrotondare l'importo a due cifre significative dopo gli zeri, ed in più contare gli zeri per mettergli a fianco se sono deci centi milli micron nano kilo mega giga.
Es:
1)se ho il numero 0,1234 il risultato sarà 0,12
2)se ho il numero 0,01234 il risultato sarà 0,012
3)se ho il numero 0,00001234 il risultato sarà 0,000012
ed oltre a questo li voglio scrivere come:
0,12 =>> 12 centi
0,012=>> 12 milli
0,000012=>>12 micron
ecc..
Bene il problema è che non riesco ad utilizzare la funzione mid
posto un pezzo di quello che ho scritto

Codice: Seleziona tutto

Dim s As String
Dim c
   
s = Range("D4").Value

Dim l As Integer

l = Len(s)

For i = 1 To l
 
If  Mid(s, i, 1) = 0 Then
    l = l + 1
    Else
    Exit For
    End If
Next i
   

Scusate il disturbo con queste mie domande idiote da nabbo e RINGRAZIO ANTICIPATAMENTE CHIUNQUE SI SIA INTERESSATO AL PROBLEMA!

[Flash30005]

Ma vuoi che questo arrotondamento sia riferito solo alla cella D4 oppure ad un range (tipo D4:D1000)?

ciao

[maudit77]

devo applicarlo sia a range di celle si a celle singole

[Flash30005]

Ti dò un input per la cella D4 (che ho appena preparato)

Codice: Seleziona tutto

Sub ContaDec()
S = [D4]
LS = Len(S)
conta0 = 0
VPos = InStr(S, ",")
For CS = VPos + 1 To LS
    If Mid(S, CS, 1) = 0 Then
        conta0 = conta0 + 1
    Else
        Exit For
    End If
Next CS
MioV = Mid(S, 1, CS + 1)
MioVD = Mid(S, VPos + 1 + conta0, CS - 1 - conta0)
Select Case CS - 1
Case 2
MioD = "centi"
Case 3
MioD = "milli"
Case Else
MioD = "micron"
End Select
[E4] = MioVD & " " & MioD
End Sub

In E4 avrai la tua stringa corrispondente
Se riesci a continuare da solo ok altrimenti posta ancora

ciao

EDIT ore 12:30 - Corretta macro

[maudit77]

Grazie mille
ti posso chiedere perchè prima MID non funzionava?
un altra cosa se metto un numero come 1,0123
nell'arrotondamento non mi considera affatto 1 iniziale secondo te se metto un
if VPos -1 =0 then
Select Case....(quello che hai fatto tu)
else
?????
???
come faccio a farmi scrivere il numero totale?

In fine come faccio ad automatizzare il tutto in modo tale che ogni volta che inserisco un numero nuovo posso ricevere l'arrotondamento senza premere pulsanti o avviare macro manualmente?

[Flash30005]

dovresti dire almeno cosa vorresti che venga scritto nel caso di 1,01234
non credo tu voglia 1,12 centi
ma fai sapere...

ciao

[maudit77]

in tal caso solo 1,012, se invece c'è 12045 voglio 12,045 K se ho 12004,5 deve essere 12,0045 k ecc

[Flash30005]

Vedo che continui a cambiare le specifiche rispetto al post iniziale
quindi si tratta solo di implementare la select e qualche condizione in più
con questa funzione avrei soddisfatto l'esigenza relativa alla/alle celle nelle quali potrai applicarla

In un modulo inserisci questo codice

Codice: Seleziona tutto

Public Function TrascDec(ByVal DecValue As Double) As String
S = (DecValue)
LS = Len(S)
conta0 = 0
VPos = InStr(S, ",")
For CS = VPos + 1 To LS
    If Mid(S, CS, 1) = 0 Then
        conta0 = conta0 + 1
    Else
        Exit For
    End If
Next CS
MioN = ""
If VPos = 0 Then
    MioN = S
     MioVD = ""
     MioD = ""
    GoTo saltaN
Else
    MioU = Val(Mid(S, 1, VPos - 1))
    If MioU > 0 Then MioN = MioU & ","
End If
MioVD = Mid(S, VPos + 1 + conta0, CS - 1 - conta0)
Select Case CS - VPos + 1
Case 2
MioD = "centi"
Case 3
MioD = "milli"
Case Else
MioD = "micron"
End Select
saltaN:
TrascDec = MioN & MioVD & " " & MioD
End Function

Poi nella cella interessata potrai utilizzare questa funzione es.:

Codice: Seleziona tutto

=TrascDec(D4)

che potrà essere inserita in qualsiasi cella del foglio facendo riferimento a qualsiasi altra cella invece che D4
essendo una normale funzione come quelle di default

ciao

[maudit77]

ti ringrazio moltissimo e scusami se sono stato poco chiaro nel post iniziale.

[Anthony47]

Ma ora e' risolto??

Ciao