Проверка минимально допустимого значения

@olyaolya97 · Регистрация: 05.06.2018

Author24 — интернет-сервис помощи студентам

На форме имеется 12 ячеек(расположенные в 2 столбца) для ввода чисел (TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6 - 1й столбец, TextBox7,TextBox8,TextBox9,TextBox10,TextBox11,TextBox12 - 2й столбец). Как сделать, чтобы при нажатии на кнопку, если число введенное в TextBox1 больше, чем в TextBox7, число из TextBox7 меняло цвет на красный? Аналогично TextBox2 -TextBox8,TextBox3 - TextBox9...

@sandycorp · 05.06.2018, 16:30

Что-то типа этого (Сильно тапком не бейте - на коленке соорудил):

Visual Basic

For i=1 to 6
 If Me.Controls("Textbox"&i).text>Me.Controls("Textbox"&(i+6)).text then
  Me.Controls("Textbox"&i).ForeColor = VBA.RGB(0, 0, 0)
  Me.Controls("Textbox"&(i+6)).ForeColor = VBA.RGB(2, 60, 255)
 Else
  Me.Controls("Textbox"&i).ForeColor = VBA.RGB(2, 60, 255)
  Me.Controls("Textbox"&(i+6)).ForeColor = VBA.RGB(0, 0, 0)
 End If
Next i

@Narimanych · 05.06.2018, 16:41

sandycorp,

переведите тексты в числа CDbl(TextBox1.Text)

~~Остап Бонд~~ · 05.06.2018, 16:42

olyaolya97, Вам можно было бы и в первой теме отписаться?

Visual Basic

Private Sub CommandButton1_Click()
For r = 1 To 6
  If Controls("TextBox" & r) > Controls("TextBox" & r + 6) Then Controls("TextBox" & r + 6).ForeColor = 255
Next
End Sub

@olyaolya97 · 05.06.2018, 16:59 **[ТС]**

Остап Бонд, спасибо большое, очень помогли))

@sandycorp · 05.06.2018, 18:34

Остап Бонд, забыли блок Else)) И отмену "раскраски", а так, действительно, будет изящнее

@olyaolya97 · 06.06.2018, 12:48 **[ТС]**

sandycorp, можно по-подробнее по поводу отмены "раскраски"?

@sandycorp · 06.06.2018, 13:48

olyaolya97, у Уважаемого Остап Бонд идет изменение цвета. НО если данные поменять местами в старой ячейке также останется цветная ячейка.
То есть не хватает Controls("TextBox" & r).ForeColor = 0
Ну и блок ELSE тоже нужен, а то в коде проверяется только одно условие, а If Controls("TextBox" & r) < Controls("TextBox" & r + 6) код не отработает

@olyaolya97 · 06.06.2018, 13:53 **[ТС]**

sandycorp, Спасибо!

@olyaolya97 0 / 0 / 0 Регистрация: 05.06.2018 Сообщений: 5
		1
	Проверка минимально допустимого значения 05.06.2018, 16:05. Показов 951. Ответов 8 Метки нет (Все метки) На форме имеется 12 ячеек(расположенные в 2 столбца) для ввода чисел (TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6 - 1й столбец, TextBox7,TextBox8,TextBox9,TextBox10,TextBox11,TextBox12 - 2й столбец). Как сделать, чтобы при нажатии на кнопку, если число введенное в TextBox1 больше, чем в TextBox7, число из TextBox7 меняло цвет на красный? Аналогично TextBox2 -TextBox8,TextBox3 - TextBox9... 0

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	05.06.2018, 16:41	3
	sandycorp, переведите тексты в числа CDbl(TextBox1.Text) 0

@olyaolya97 0 / 0 / 0 Регистрация: 05.06.2018 Сообщений: 5
	05.06.2018, 16:59 [ТС]	5
	Остап Бонд, спасибо большое, очень помогли)) 0

@sandycorp 6 / 4 / 1 Регистрация: 21.02.2013 Сообщений: 62
	05.06.2018, 18:34	6
	Остап Бонд, забыли блок Else)) И отмену "раскраски", а так, действительно, будет изящнее 0

@olyaolya97 0 / 0 / 0 Регистрация: 05.06.2018 Сообщений: 5
	06.06.2018, 12:48 [ТС]	7
	sandycorp, можно по-подробнее по поводу отмены "раскраски"? 0

@sandycorp 6 / 4 / 1 Регистрация: 21.02.2013 Сообщений: 62
	06.06.2018, 13:48	8
	olyaolya97, у Уважаемого Остап Бонд идет изменение цвета. НО если данные поменять местами в старой ячейке также останется цветная ячейка. То есть не хватает Controls("TextBox" & r).ForeColor = 0 Ну и блок ELSE тоже нужен, а то в коде проверяется только одно условие, а If Controls("TextBox" & r) < Controls("TextBox" & r + 6) код не отработает 0

@olyaolya97 0 / 0 / 0 Регистрация: 05.06.2018 Сообщений: 5
	06.06.2018, 13:53 [ТС]	9
	sandycorp, Спасибо! 0

Опции темы

Проверка минимально допустимого значения

Решение