Здравейте !
Следната задача ме затруднява, тъй като в моите проекти досега не съм използвала inputbox, като средство за въвеждане на данни.

Каква е задачата :
В Userform1 съм поставила един textbox1
в него съм поставила ето този код :

Private Sub textbox1_enter()
Dim strbr As Integer
strbr = InputBox(prompt:="Въведете число")
textbox1 = strbr
до тук добре ....
но, сега как да продължа ....
продължението на задачата е следното : когато се върна отново на textbo1 и въведа число в inputbox то сбора от въведените числа да се изпишат в textbox1
Ето едно примерче, за да стане ясно:
първото въведено число :5
второто въвдено число:7
в textbox1 трябва да се получи 12 тоест всички въведени числа да се натрупват като сбор в textbo1
Благодаря предварително !!!

Dim int1 As Integer
Dim int2 As Integer
int1 = InputBox("Enter number 1:")
int2 = InputBox("Enter number 2:")
TextBox1.Text = int1 + int2

Ако не става горното, кажи защо не става, и ще пробвам друго да предложа...
Колко числа искаш да събереш, 2, 3, 20, 1000...??

Редактирано от Naki на 31.07.11 17:45.

Здравей !
Идеята е следната: Числата, който въвеждам , чрез inputbox да се събират , тоест да се натрупват, пример:
кликам върху textbox1, появява се inputbox, въвеждам цифрата 5 и в textbox1 се появява въведената цифра 5. След това кликам пак върху въпросния textbox1, отново се появява inputbox, въвеждам цифрата 7 и резултата в textbox e 12 и така, колкото пъти кликам върху textbox1, толкова пъти въвеждам числа,които се събират в въпросния textbox1

Пробвай това:

Private Sub textbox1_enter()

Dim strbr As Integer

strbr = InputBox(prompt:="Въведете число, 0 за изход")

Do While strbr

    TextBox1 = Val(TextBox1.Value) + strbr

    strbr = InputBox(prompt:="Въведете число")



Loop



End Sub

Редактирано от zhitov на 04.08.11 09:37.