Проверка на заполнение.

[Asya]

Aent, спасибо

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
flag = 0
If Target.Row <> 1 Then
  For j = 1 To 7 Step 3
  If Cells(Target.Row - 1, j) = "" Then
  flag = 1
  End If
  Next j
 If flag = 1 Then
 Application.EnableEvents = False
 Target.Value = ""
 Application.EnableEvents = True
 MsgBox ("Заполните ячейки в столбцах 1 4 7 ")
 End If
End If
End Sub

Вот так все ок (цикл с шагом, чтобы не писать лишних строк)

[Asya]

Сообщения наперегонки )))))) Но цикл лучше с шагом ))

[Aent]

Но цикл лучше с шагом

А почему бы вместо цикла не написать

Код: Выделить всё

k = target.row - 1
if Len(cells(k,1)) = 0 or Len(cells(k,4)) = 0 or Len(cells(k,7)) = 0 then 
     Application.EnableEvents = False
     Target.ClearContents
     Application.EnableEvents = True
     MsgBox "Заполните ячейки в столбцах 1 4 7 " 'Скобки не нужны! Здесь это оператор а не функция!
end if

короче, быстрее и прозрачнее.

[Asya]

Да, так вообще супер ) Краткость сестра таланта.
И чего Вы сразу все это не предложили, даете нам возможность подумать самостоятельно?

[Aent]

даете нам возможность подумать самостоятельно?

Именно так
А то топики будут слишком короткими

[AlexZZZ]

А то топики будут слишком короткими

Не волнуйтесь, Aent, не будут На самом деле, в моей задаче есть ещё одно условие: Если в строке заполнена ячейка 9 (например, сумма платежа), то должна обязательно заполнена ячейка 8 (назначение платежа) и 10 (валюта). Правда, имея перед глазами такой замечательный пример, тут я сам допёр, что нужно добавить.

Код: Выделить всё

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
k = Target.Row - 1
If Len(Cells(k, 1)) = 0 Or Len(Cells(k, 4)) = 0 Or Len(Cells(k, 7)) = 0 Then
     Target.ClearContents
MsgBox "Заполните ячейки в столбцах 1 4 7 " 
End If
If Len(Cells(k, 9)) <> 0 And (Len(Cells(k, 8)) = 0 Or Len(Cells(k, 10)) = 0) Then
     Target.ClearContents
     MsgBox "Заполните ячейки в столбцах 8 и 10"
End If
Application.EnableEvents = True
End Sub

Вроде. проще уже некуда, но если будут предложения по оптимизации кода, буду благодарен! С познавательной целью это очень полезно.
P.S.: А Вы, Asya, оказывается, не только умница, но ещё и красавица!

[Aent]

1.Отключать обработку событий достаточно один раз при входе в процедуру.
Cоответственно, включаем - перед выходом.
2.Кроме того, приведённый вами код срабатывает при изменении любой ячейки.
Наверное это не лучшее решение....
Рекомендую проверять Target.column для принятия решения о дальнейших проверках....

[AlexZZZ]

Отключать обработку событий достаточно один раз при входе в процедуру.

Спасибо за замечание, поправил!

Кроме того, приведённый вами код срабатывает при изменении любой ячейки

В данном случае это как раз хорошо, чтобы пользователь не оставлял пустых строк, а заполнял их последовательно.
Правда, ошибку нашёл в своей логике: забыл скобки поставить:

Код: Выделить всё

If Len(Cells(k, 9)) <> 0 And (Len(Cells(k, 8)) = 0 Or Len(Cells(k, 10)) = 0) Then

Сейчас отредактирую.

[Aent]

В данном случае это как раз хорошо, чтобы пользователь не оставлял пустых строк, а заполнял их последовательно

Я имел в виду что обработчик будет вызываться при заполнении ячеек в 8 и 10 и т.п колонках.
Это не эффективно.
Условие можно переписать так

Код: Выделить всё

if Len(Cells(k,9)) > 0 And Len(Cells(k,8)) *Len(Cells(k,10)) = 0 then

[AlexZZZ]

Я имел в виду что обработчик будет вызываться при заполнении ячеек в 8 и 10 и т.п колонках.

Ваша строчка изящнее, но разве логически это не тоже самое? Или Вы имеете в виду код до того как я исправил ошибку со скобками?

Решил ещё сделать кнопку проверки правильности заполнения последней записи (по маркеру - непустой ячейке второго столбца), но кнопка почему-то работает только, если находится на "листе1". А мне нужно, чтобы кнопка находилась на "листе2", а проверяла "лист1"! Помогите, пожалуйста, найти ошибку в логике!

Код: Выделить всё

Private Sub CommandButton1_Click()
Application.EnableEvents = False
Worksheets("Лист1").Select
Dim r, k As Integer
For r = 2 To 200 ' проверим первые 200 строк
k = r - 1

' находим строку с пустой ячейкой второго столбца и непустой ячейкой предыдущей строки того же столбца
If Len(Cells(r, 2)) = 0 And Len(Cells(k, 2)) <> 0 Then

'в предыдущей строке проверяем условие на заполнение ячеек
If Len(Cells(k, 1)) = 0 Or Len(Cells(k, 4)) = 0 Or Len(Cells(k, 7)) = 0 Then
   MsgBox "Заполните ячейки в столбцах 1 4 7 " & "в строке " & k
   GoTo lblEnd: 'конец процедуры
   End If
if Len(Cells(k,9)) > 0 And Len(Cells(k,8)) *Len(Cells(k,10)) = 0  Then
     MsgBox "Заполните ячейки в столбцах 8 и 10 " & "в строке " & k
    GoTo lblEnd: 'конец процедуры
End If
End If
Next

lblMessage: ' если ни одно из условий не верно
MsgBox "Всё заполнено верно!"
lblEnd:
Application.EnableEvents = True
End Sub