< návrat zpět

MS Excel

Téma: Excel 2010 - Počítání s hodnotami v txtboxu rss

Zaslal/a OB 13.1.2014 14:57

Ahoj,

opět mám problém s txtboxem. Neumím nastavit dělení.
Viz příloha. UseForm s txtboxy je ve VBA.

Dík. 7

Příloha: zip17229_deleni-hodnot-v-textboxu.zip (6kB, staženo 24x)
Zaslat odpověď >
Pavlus(13.1.2014 18:10)#017237
avatar
Špatně jsi to uložil, takže v příloze žádný UserForm není.
Při ukládání je třeba zvolit "Sešit aplikace Excel s podporou maker".
P.citovat
OB(13.1.2014 19:29)#017238
avatar
Pardon 4 . Příloha je opravena. USER FORM je ve VBA.
O.
Příloha: rar17238_vypocty-v-txtboxu.rar (13kB, staženo 23x)
citovat
Pavlus(13.1.2014 19:45)#017239
avatar
Teď tam zase není žádný kód ;-).
S čím přesně tam máš problém? Prostě jenom přepíšeš vzoreček, kde za proměnné doplníš příslušné TextBoxy...
P.citovat
OB(14.1.2014 6:25)#017242
avatar
Ahoj s proměnnýma to neumím. Něco jsem zkoušel,ale nešlo mi to. Posílám dotřetice 9 doplněný soubor i s popisem.
Díkcitovat
OB(14.1.2014 6:26)#017243
avatar
1
Příloha: zip17243_deleni-hodnot-v-textboxu.zip (21kB, staženo 23x)
citovat
icon eLCHa(14.1.2014 9:44)#017246
eLCHa
Nehledejte v tom žádnou vědu ;)
Private Sub CommandButton1_Click()
Dim FINAL As Double, HALB As Double, NOK As Double
On Error Resume Next
FINAL = CDbl(TextBox1.Text)
HALB = CDbl(TextBox2.Text)
NOK = CDbl(TextBox3.Text)
If Not Err.Number = 0 Then
TextBox4.Text = "#ERR"
Else
TextBox4.Text = Format(((FINAL + HALB) - NOK / FINAL + HALB) * 100, "#,##0.00")
End If
On Error GoTo 0
End Subcitovat
OB(14.1.2014 11:25)#017265
avatar
Děkuji. Nevím, jak bych to jinak dělal. Umím tak akorát sčítat a to navíc bez proměnných.
O.B.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje