MS Excel

Private Sub TextBox2_Change()
Pocet_Prac_Hod
End Sub

Private Sub TextBox3_Change()
Pocet_Prac_Hod
End Sub

Sub Pocet_Prac_Hod()
Dim Vysledok As String
On Error Resume Next
Vysledok = TextBox2.Text * TextBox3.Text
TextBox4.Text = Vysledok
TextBox4.BackColor = IIf(Err.Number = 0, vbWhite, rgbOrange)
End Subcitovat

"On Error Resume Next" som použil naschvál, kvôli tomu aby som sa o prípadnej chybe dozvedel, a dal ju najavo zvýraznením. Naproti tomu Val() bude chybu ignorovať. Viac riadkov kódu má svoje výhody. Z čoho vyplýva, že programovať robustný SW je vždy zložité, takže zabudnite na jednoriadkové všemakro na obsluhu TextBoxov pri použití na to, na čo neboli navrhnuté - na počítanie.

A tým sa dostávam k otázke: Prečo nemôžete použiť v Exceli jeho základnú funkcionalitu, na ktorú bol navrhnutý - počítanie v bunkách ???

50 TextBoxov má navzájom interagovať?citovat