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

Вход

Регистрация

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

 

= Мир MS Excel/Цикл поиска значений в строке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл поиска значений в строке (Макросы/Sub)
Цикл поиска значений в строке
ulyaxin Дата: Пятница, 12.11.2021, 13:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Как проверить с помощью цикла vba, при каждом вводе данных в активную ячейку, есть ли значение(любое) в предыдущих(влево от активной ячейки) 6 ячейках строки, если есть во всех 6 подряд то запретить ввод(или msg) а если нет то можно дальше вводить данные. Нужно чтобы при составления графика дежурства на дому вводить не больше 6 дней дежурств(одного работника), потом выходной и опять по новой. В графике реализована форма для заполнения. Хочу установить проверку, чтобы было заполнено не больше 6 ячеек дальше пустая ячейка и опять 6 дней дежурства. Вот код одной кнопки:

[vba]
Код
Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, Range("B8:AF15")) Is Nothing Then
If ActiveCell.Offset(, -1) = "/3" Then
MsgBox ("ЗАБОРОНЕНО!!!"), vbCritical + vbDefau, "ПОМИЛКА"
ActiveCell.Offset(, 0) = ""
Exit Sub
Else
If ActiveCell.Offset(, -1) = 1.5 Then
MsgBox ("ЗАБОРОНЕНО!!!"), vbCritical + vbDefau, "ПОМИЛКА"
ActiveCell.Offset(, 0) = ""
Exit Sub
Else
Selection = 1.75
ActiveCell.Offset(, 1).Select
End If
End If
End If
End Sub
[/vba]
Заранее спасибо!
К сообщению приложен файл: 7484326.xlsm (260.0 Kb)


Сообщение отредактировал ulyaxin - Пятница, 12.11.2021, 13:39
 
Ответить
СообщениеКак проверить с помощью цикла vba, при каждом вводе данных в активную ячейку, есть ли значение(любое) в предыдущих(влево от активной ячейки) 6 ячейках строки, если есть во всех 6 подряд то запретить ввод(или msg) а если нет то можно дальше вводить данные. Нужно чтобы при составления графика дежурства на дому вводить не больше 6 дней дежурств(одного работника), потом выходной и опять по новой. В графике реализована форма для заполнения. Хочу установить проверку, чтобы было заполнено не больше 6 ячеек дальше пустая ячейка и опять 6 дней дежурства. Вот код одной кнопки:

[vba]
Код
Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, Range("B8:AF15")) Is Nothing Then
If ActiveCell.Offset(, -1) = "/3" Then
MsgBox ("ЗАБОРОНЕНО!!!"), vbCritical + vbDefau, "ПОМИЛКА"
ActiveCell.Offset(, 0) = ""
Exit Sub
Else
If ActiveCell.Offset(, -1) = 1.5 Then
MsgBox ("ЗАБОРОНЕНО!!!"), vbCritical + vbDefau, "ПОМИЛКА"
ActiveCell.Offset(, 0) = ""
Exit Sub
Else
Selection = 1.75
ActiveCell.Offset(, 1).Select
End If
End If
End If
End Sub
[/vba]
Заранее спасибо!

Автор - ulyaxin
Дата добавления - 12.11.2021 в 13:05
_Igor_61 Дата: Суббота, 13.11.2021, 16:06 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

Excel 2007
 
Ответить
СообщениеПредыдущая тема

Автор - _Igor_61
Дата добавления - 13.11.2021 в 16:06
bmv98rus Дата: Суббота, 13.11.2021, 19:07 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016


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

Автор - bmv98rus
Дата добавления - 13.11.2021 в 19:07
ulyaxin Дата: Суббота, 13.11.2021, 19:40 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Закройте тему!
 
Ответить
СообщениеЗакройте тему!

Автор - ulyaxin
Дата добавления - 13.11.2021 в 19:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл поиска значений в строке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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