Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel contare zeri dopo la virgola

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

Excel contare zeri dopo la virgola

Postdi maudit77 » 16/01/13 11:55

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!
Maudit
Windows 7 Office 2010 pro
Debian wheezy kernel 3.2.0-4-amd64
maudit77
Utente Junior
 
Post: 26
Iscritto il: 11/11/12 17:03

Sponsor
 

Re: Excel contare zeri dopo la virgola

Postdi Flash30005 » 16/01/13 12:07

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

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel contare zeri dopo la virgola

Postdi maudit77 » 16/01/13 12:17

devo applicarlo sia a range di celle si a celle singole
Maudit
Windows 7 Office 2010 pro
Debian wheezy kernel 3.2.0-4-amd64
maudit77
Utente Junior
 
Post: 26
Iscritto il: 11/11/12 17:03

Re: Excel contare zeri dopo la virgola

Postdi Flash30005 » 16/01/13 12:24

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel contare zeri dopo la virgola

Postdi maudit77 » 16/01/13 12:51

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?
Maudit
Windows 7 Office 2010 pro
Debian wheezy kernel 3.2.0-4-amd64
maudit77
Utente Junior
 
Post: 26
Iscritto il: 11/11/12 17:03

Re: Excel contare zeri dopo la virgola

Postdi Flash30005 » 16/01/13 13:06

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

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel contare zeri dopo la virgola

Postdi maudit77 » 16/01/13 13:53

in tal caso solo 1,012, se invece c'è 12045 voglio 12,045 K se ho 12004,5 deve essere 12,0045 k ecc
Maudit
Windows 7 Office 2010 pro
Debian wheezy kernel 3.2.0-4-amd64
maudit77
Utente Junior
 
Post: 26
Iscritto il: 11/11/12 17:03

Re: Excel contare zeri dopo la virgola

Postdi Flash30005 » 16/01/13 14:05

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel contare zeri dopo la virgola

Postdi maudit77 » 16/01/13 14:36

ti ringrazio moltissimo e scusami se sono stato poco chiaro nel post iniziale.
Maudit
Windows 7 Office 2010 pro
Debian wheezy kernel 3.2.0-4-amd64
maudit77
Utente Junior
 
Post: 26
Iscritto il: 11/11/12 17:03

Re: Excel contare zeri dopo la virgola

Postdi Anthony47 » 16/01/13 21:35

Ma ora e' risolto??

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Excel contare zeri dopo la virgola":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti