Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отметка необходимых ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отметка необходимых ячеек (Формулы/Formulas)
Отметка необходимых ячеек
VadimSh Дата: Пятница, 25.10.2019, 16:49 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

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
К сообщению приложен файл: 1522528.xlsm(26.3 Kb)
 
Ответить
СообщениеПомогите пожалуйста с решением. Необходимо выделять галочками необходимые ячейки в диапазоне.
Или все ячейки (снять/поставить) или отдельные ячейки. По отдельности все работает, вместе не хочет.

'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

Автор - VadimSh
Дата добавления - 25.10.2019 в 16:49
Pelena Дата: Пятница, 25.10.2019, 19:49 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14763
Репутация: 3229 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
VadimSh, оформите, плз, код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеVadimSh, оформите, плз, код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 25.10.2019 в 19:49
bmv98rus Дата: Пятница, 25.10.2019, 20:10 | Сообщение № 3
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2737
Репутация: 470 ±
Замечаний: 0% ±

Excel 2013/2016
Ну и про кроссы упомянуть не мешает.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеНу и про кроссы упомянуть не мешает.

Автор - bmv98rus
Дата добавления - 25.10.2019 в 20:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отметка необходимых ячеек (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!