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

MS Excel

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

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.

Příloha: 17229_deleni-hodnot-v-textboxu.zip (6kB, staženo 23x)

Zaslat odpověď >

---

Pavlus(13.1.2014 18:10)#017237

Š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

Pardon . Příloha je opravena. USER FORM je ve VBA.
O.

Příloha: 17238_vypocty-v-txtboxu.rar (13kB, staženo 22x)

citovat

Pavlus(13.1.2014 19:45)#017239

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

Ahoj s proměnnýma to neumím. Něco jsem zkoušel,ale nešlo mi to. Posílám dotřetice doplněný soubor i s popisem.
Díkcitovat

OB(14.1.2014 6:26)#017243

Příloha: 17243_deleni-hodnot-v-textboxu.zip (21kB, staženo 22x)

citovat

eLCHa(14.1.2014 9:44)#017246

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse