MS Excel

Ahoj všichni, potřeboval bych poradit se sčítáním respektive s násobením hodnot textboxů v zadávacím formuláři. Když do textboxu1 zadám počet jednotek do textboxu 2 zadám cenu, potřeboval bych, aby se mi výsledek automaticky promítl do textboxu3. Děkuji za každý nápad.

Zaslat odpověď >

Strana: 1 2 další »

AL(17.1.2012 21:49)#006974

Do kódu formulára skús pridať nasledujúce inštrukcie:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox4 = TextBox2 * TextBox3
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox4 = TextBox2 * TextBox3
End Subcitovat

husita(17.1.2012 22:41)#006976

funguje to báječně i když bych ještě potřeboval, aby bylo možné do těch polí zadávat poze čísla a ta pak zapsat do tabulky, jinak moc děkujicitovat

AL(17.1.2012 22:57)#006977

Mal som za to, že to, aby bolo možné zadávať len čísla, máš v tom kóde nejak ošetrené. Mne tie Tvoje makrá nefungujú, hádže mi to nejaké chyby, nejak som sa v tom podrobne nevŕtal, tak neviem, v čom je problém a čo presne to má robiť. Každopádne, s čím som mohol, s tým som sa snažil pomôcť, snáď so zvyškom poradí niekto skúsenejší.citovat

Poki(25.1.2012 13:54)#007053

taky trosku prispeju do mlyna:
Private Sub TextBox2_Change()
If IsNumeric(Me.TextBox2.Text) And Len(Me.TextBox2.Text) > 0 And Len(Me.TextBox3.Text) > 0 Then
Me.TextBox4.Text = Me.TextBox2.Text * Me.TextBox3.Text
Else
Me.TextBox4.Text = ""
End If
End Sub

Private Sub TextBox3_Change()
If IsNumeric(Me.TextBox2.Text) And Len(Me.TextBox2.Text) > 0 And Len(Me.TextBox3.Text) > 0 Then
Me.TextBox4.Text = Me.TextBox2.Text * Me.TextBox3.Text
Else
Me.TextBox4.Text = ""
End If
End Subcitovat

husita(23.2.2012 21:59)#007414

Mám ještě jednu prosbu. Jak se mi podaří sečíst výsledky oněch textboxů.
Když dám TextBox93 = TextBox1 + TextBox2 při hodnotách například textbox1 = 144 a textbox2 = 12, vžycky mi to vypíše 14412

Som z toho volaaký zmatetený. Díky všemcitovat

misocko(23.2.2012 22:20)#007415

Private Sub TextBox2_Change()
If IsNumeric(Me.TextBox2.Text) And Len(Me.TextBox2.Text) > 0 And Len(Me.TextBox3.Text) > 0 Then
Me.TextBox4.Text = CSng(Me.TextBox2.Text) + CSng(Me.TextBox3.Text)
Else
Me.TextBox4.Text = ""
End If
End Sub

Private Sub TextBox3_Change()
If IsNumeric(Me.TextBox2.Text) And Len(Me.TextBox2.Text) > 0 And Len(Me.TextBox3.Text) > 0 Then
Me.TextBox4.Text = CSng(Me.TextBox2.Text) + CSng(Me.TextBox3.Text)
Else
Me.TextBox4.Text = ""
End If
End Sub

to ma kedysi davno naucil Poki,
diky Poki a sorry ze sa Ti mixujem do kodu

citovat

husita(24.2.2012 23:13)#007431

Díky moc za reakci, ale to neni to, co bych potřeboval. Já potřebuji, aby se mi při zadávání položek, průběžně sčítaly výsledné výsledné hodnoty "Celkem" do horního pole. viz příloha z prvního příspěvku. Děkuji moccitovat

misocko(25.2.2012 20:54)#007436

ja reagujem iba na to ze Ti to pri scitani 12 + 34 vyjde 1234 (spoji dva textove retazce) upravil som iba Pokiho kod, tvoja priloha mi nefunguje (ako uz pisal Al)citovat

husita(25.2.2012 21:22)#007437

to ano, pokud bych sčítal pouze dva textboxy, ale já jich potřebuji sčítat postupně 22. Trápím se s tím a nemůžu to nějak dát dohromady. I tak moc díkycitovat

misocko(25.2.2012 21:55)#007438

trochu som sa v tom pohrabal a uz mi ide otvorit tvoj userform, po vlozeni mnov upraveneho Pokiho kodu do userform to pocita prvy riadok, pre vypocet vsetkych 22 riadkov to tam budes musiet vlozit 22x a upravit cisla textboxov, nic zlozite iba zdlhave, alebo nerozumiem problemu ?

, este pozeram ze to chces do nejakeho horniho pole (tak daj scitat vsetky textboxi Celkem) , či?.....citovat

Strana: 1 2 další »

Téma: Sčítání textboxů

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje