Отметка необходимых ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отметка необходимых ячеек (Формулы/Formulas)

VadimSh

Дата: Пятница, 25.10.2019, 16:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 13

Репутация: 0 ±

Замечаний: 20% ±

Excel 2003

Помогите пожалуйста с решением. Необходимо выделять галочками необходимые ячейки в диапазоне.
Или все ячейки (снять/поставить) или отдельные ячейки. По отдельности все работает, вместе не хочет.

'CODE 1 Ставим флажок, если был одиночный щелчок по ячейке
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E6:E33")) Is Nothing Then 'Если ячейка пересекается с указанным диапазоном, то
Target.Font.Name = "Marlett" 'Назначаем ячейке шрифт
If Target = vbNullString Then 'Если ячейка пуста, то
Target = "a" 'заполняем её символом "а" (латиница)
Else 'Иначе
Target = vbNullString 'в ячейке пусто
End If
Target.Offset(0, 1).Activate '"отскакиваем" вправо на один столбец
End If

If Not Intersect(Target, Range("E4")) Is Nothing Then
With Target
.Font.Name = "Wingdings"
.Font.Size = 28
If .Value = Chr(111) Then
.Value = Chr(254)
Else
.Value = Chr(111)
End If
.Offset(0, 1).Select
End With
End If

If Target = "ю" Then 'Если ячейка пуста, то
Range("E6:E33").Value = "a" 'заполняем диапазон символом "а" (латиница)
Else 'Иначе
Range("E6:E33").Value = vbNullString 'в ячейке пусто
End If

End Sub