| а | |||||
| г | е | р | ц | ||
| х | |||||
| и | |||||
| м | |||||
| т | е | с | л | а | |
| д |
| 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), просто выделяем текст для слова «герц», копируем, затем вставляем ниже и подкорректируем по слову «тесла» и номерам ячеек






