MS Excel

Chtěl bych poradit, jestli je ve VBA nejaka funkce, co by dokazala ze zadaneho textboxu zjistit, zda je zadano cele nebo desetinne cislo? diky.

Zaslat odpověď >

Poki(12.11.2010 11:16)#003126

O specialni funkci nevim, ale lze to obejit treba takto:Private Sub CommandButton1_Click()
If IsNumeric(TextBox1.Text) = False Then
MsgBox "V textboxu neni cislo"
TextBox1.Text = ""
Exit Sub
End If

If CDbl(TextBox1.Text) - CLng(TextBox1.Text) > 0 Then
MsgBox "Cislo v textboxu je desetinne"
TextBox1.Text = ""
Exit Sub
End If

If CDbl(TextBox1.Text) - CLng(TextBox1.Text) = 0 Then
MsgBox "Cislo v textboxu je celé"
TextBox1.Text = ""
Exit Sub
End If
End Subcitovat

lubosT(19.3.2012 14:06)#007697

Dobrý den, chtěl bych se zeptat, jak mám upravit kód, aby mi nechal celá čísla např. 100 ale už mi nevzal číslo 100,0 . Kód od uživatele Pokiho funguje na čísla např. 100,5 ale už ne na 100,0.

Děkuji za odpověd.citovat

Poki(19.3.2012 14:22)#007699

Nevidim duvod, proc nenechat uzivatele zapsat cislo 100,0 - jaky mate duvod toto delat?
Jde preci jen o format cisla...
V dalsi praci muzete pri zobrazovani urcit format, jaky chcete, tak proc omezovat uzivatele s takovou(neurazte se) "blbosti"...?citovat

lubosT(19.3.2012 14:33)#007701

V tomto máte pravdu. Můj důvod byl takový, že když jsem poté spustil makro a číslo bylo zadáno bez desetinné čárky, tak vše bylo v pořádku. Pokud jsem ale zadal číslo např 100,0 tak výstup se jevil jako text a ne číslo.citovat

lubosT(19.3.2012 14:35)#007702

PS: v makru jsem si hodnoty přenásobil číslem 1 a vše je vyřešeno.citovat

Poki(19.3.2012 14:51)#007703

ano, jelikoz jde o textbox, tak jeho vystup je text, vynasobit *1 je jedna moznost, druha moznost je zmenit typ na napr. Long funkci CLng(TextBox1)citovat

Wally(14.4.2014 16:57)#018880

Dobrý den, potřebovala bych poradit jak definovat celé číslo a číslo desetinné.
Chci napsat makro:
pokud je číslo celé, tak....
POkud je číslo desetinné, tak...

Děkuji.citovat

marjankaj(14.4.2014 18:19)#018883

Wally napsal/a:

Dobrý den, potřebovala bych poradit jak definovat celé číslo a číslo desetinné.
Chci napsat makro:
pokud je číslo celé, tak....
POkud je číslo desetinné, tak...

Děkuji.

Sub aa()
i = 15
If Fix(i) = i Then
MsgBox "cele"
Else
MsgBox "desatinne"
End If
End Subcitovat

Téma: Cele číslo VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje