MS Excel

Téma: Pridanie desatinnych miest pomocou VBA

Zaslal/a palop 3.11.2020 23:05

Zdravím
Potreboval by som pomocou VBA meniť počet desatinných miest vo vybratých bunkách. Vždy pridať / ubrať o jednu úroveň. Vopred ďakujem za radu.

Zaslat odpověď >

Jiří497(4.11.2020 7:28)#048771

Přidat desetinná čísla:If Len(Range("A1").NumberFormat) = 1 Then
Range("A1").NumberFormat = "0.0"
Else
Range("A1").NumberFormat = WorksheetFunction.Substitute(Range("A1").NumberFormat, ".", ".0")
End If

ubrat desetinné místo:If Len(Range("A1").NumberFormat) = 3 Then
Range("A1").NumberFormat = WorksheetFunction.Substitute(Range("A1").NumberFormat, ".0", "")
Else
Range("A1").NumberFormat = WorksheetFunction.Substitute(Range("A1").NumberFormat, ".0", ".")
End Ifcitovat

palop(4.11.2020 21:14)#048790

Ďakujem za radu, makro funguje perfektne. Dorobil som bunky ktoré potrebujem. Mal som tam ešte jeden problém ale ten som vyriešil. Ešte raz ďakujem.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.