а | |||||
г | е | р | ц | ||
х | |||||
и | |||||
м | |||||
т | е | с | л | а | |
д |
1 | |||||
2 | 3 | 4 | 5 | ||
6 | |||||
7 | |||||
8 | |||||
9 | 10 | 11 | 12 | 13 | |
14 |
Алгоритм примерно такой же, только букв (и боксов) не 4 а 5
Посмотрите код и все поймете:
'3 по горизонтали «тесла»
If (TextBox9.Text = "т") And (TextBox10.Text = "е") And (TextBox11.Text = "с") And (TextBox12.Text = "л") And (TextBox13.Text = "а") Then
TextBox9.BackColor = RGB(0, 255, 255)
TextBox10.BackColor = RGB(0, 255, 255)
TextBox11.BackColor = RGB(0, 255, 255)
TextBox12.BackColor = RGB(0, 255, 255)
TextBox13.BackColor = RGB(0, 255, 255)
Else
If (TextBox8.Text = "м") Then
TextBox9.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
Else
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
End If
End If
Конечно, снова набирать код нет смысла (тогда нам понадобится не 6,а 26 часовJ), просто выделяем текст для слова «герц», копируем, затем вставляем ниже и подкорректируем по слову «тесла» и номерам ячеек
|
|