• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse