проверка заполнения ячеек

[maxvip]

Здравствовать всем! вопрос вот такой -
есть пять ячеек, которые заполняет юзер. он должен занести данные только в ДВЕ любых ячеек из пяти! как организовать проверку заполнения??? что заполнено не ТРИ не четыре, а только ДВЕ ячейки из пяти???
вот отрывок кода,
If Cells(6, 6) = 0 And Cells(6, 8) = 0 And Cells(6, 10) = 0 And Cells(12, 6) = 0 And Cells(12, 8) = 0 Then
MsgBox "введите значения двух, любых элементов!"
Else

[SAS888]

Например, так:

Sub qq()
    Dim x As Range
    Set x = Union(Cells(6, 6), Cells(6, 8), Cells(6, 10), Cells(12, 6), Cells(12, 8))
    If Application.CountA(x) <> 2 Then MsgBox "Заполнено НЕ две ячейки из диапазона!"
End Sub

[maxvip]

ага! то есть -
объявили диапазон
записали в рамки диапазона нужные ячейки
...а вот етого -"Application.CountA" я и не знаю....

[IgorGO]

CountA - это функция ексел СЧЕТЗ

Sub qq()
    If Application.CountA(Cells(6, 6), Cells(6, 8), Cells(6, 10), Cells(12, 6), Cells(12, 8)) <> 2 Then MsgBox "Заполнено НЕ две ячейки из диапазона!"
End Sub

[maxvip]

ну так то да! а после этой строки Else будет работать??? у меня чета не получается

If Cells(6, 6) = 0 And Cells(6, 8) = 0 And Cells(6, 10) = 0 And Cells(12, 6) = 0 And Cells(12, 8) = 0 Then
MsgBox "введите два значение"
Exit Sub
'вот я проверил на "0" и если "0" то вышел из процедуры. если же не "0" то...

Else
If Application.CountA(Cells(6, 6), Cells(6, 8), Cells(6, 10), Cells(12, 6), Cells(12, 8)) <> 2 Then MsgBox "Заполнено НЕ две ячейки из диапазона!"
Exit Sub
...ну а дальше надо либо выйти либо считать дальше, но не получается

[SAS888]

Не совсем понятно. Наверное, Вам так нужно?

Sub qq()
    Dim x As Range
    Set x = Union(Cells(6, 6), Cells(6, 8), Cells(6, 10), Cells(12, 6), Cells(12, 8))
    If Application.CountA(x) <> 2 Then
        MsgBox "Заполнено НЕ две ячейки из диапазона!"
        Exit Sub
    End If
    ''Продолжение Вашего кода, если заполнены две ячейки.
End Sub

[maxvip]

а-а-а! ну да! чет я затупил, тут же проверка и есть а я еще одну проверку пытаюсь сделать!
спасибо за помощь!

[SAS888]

Только следует иметь ввиду, что для данного примера, ноль - это тоже значение.
Поэтому, перед подсчетом значений, лучше удалить нули:

Sub qq()
    Dim x As Range
    Set x = Union(Cells(6, 6), Cells(6, 8), Cells(6, 10), Cells(12, 6), Cells(12, 8))
    x.Replace 0, "", xlWhole
    If Application.CountA(x) <> 2 Then
        MsgBox "Заполнено НЕ две ячейки из диапазона!"
        Exit Sub
    End If
    ''Продолжение Вашего кода, если заполнены две ячейки.
End Sub

[maxvip]

да! спасибо! очистка ячеек от ненужных значений будет предусмотрена