|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.11.2014, 11:28 | #1 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
проверка заполнения ячеек
Здравствовать всем! вопрос вот такой -
есть пять ячеек, которые заполняет юзер. он должен занести данные только в ДВЕ любых ячеек из пяти! как организовать проверку заполнения??? что заполнено не ТРИ не четыре, а только ДВЕ ячейки из пяти??? вот отрывок кода, 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 Последний раз редактировалось maxvip; 24.11.2014 в 11:32. |
24.11.2014, 12:08 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Например, так:
Код:
Чем шире угол зрения, тем он тупее.
|
24.11.2014, 12:13 | #3 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
ага! то есть -
объявили диапазон записали в рамки диапазона нужные ячейки ...а вот етого -"Application.CountA" я и не знаю.... |
24.11.2014, 12:23 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
CountA - это функция ексел СЧЕТЗ
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
24.11.2014, 12:39 | #5 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
ну так то да! а после этой строки 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 ...ну а дальше надо либо выйти либо считать дальше, но не получается |
24.11.2014, 12:49 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Не совсем понятно. Наверное, Вам так нужно?
Код:
Чем шире угол зрения, тем он тупее.
|
24.11.2014, 12:55 | #7 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
а-а-а! ну да! чет я затупил, тут же проверка и есть а я еще одну проверку пытаюсь сделать!
спасибо за помощь! |
24.11.2014, 13:06 | #8 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Только следует иметь ввиду, что для данного примера, ноль - это тоже значение.
Поэтому, перед подсчетом значений, лучше удалить нули: Код:
Чем шире угол зрения, тем он тупее.
|
24.11.2014, 13:09 | #9 |
Форумчанин
Регистрация: 11.05.2009
Сообщений: 139
|
да! спасибо! очистка ячеек от ненужных значений будет предусмотрена
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Причина недоступности (и неработоспособности) заполнения ячеек прогрессией | Serge_Bliznykov | Microsoft Office Excel | 8 | 23.09.2017 14:19 |
проверка заполнения полей | segail | HTML и CSS | 1 | 31.01.2012 20:47 |
Форма заполнения ячеек | Severny | Microsoft Office Excel | 8 | 25.08.2011 11:10 |
Проверка корректности заполнения формы | True_girl | JavaScript, Ajax | 1 | 05.06.2010 08:02 |
Алгоритм заполнения ячеек | Иван_1651 | Microsoft Office Excel | 3 | 11.03.2009 21:27 |