Проверка: Все ли заполнено в шаблоне? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Проверка: Все ли заполнено в шаблоне? - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проверка: Все ли заполнено в шаблоне?

Проверка: Все ли заполнено в шаблоне?

Дата: Четверг, 26.01.2012, 20:09 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 3 ±

Замечаний: 0% ±

Добрый день, уважаемые форумчане!
В прикрепленном файле лист-шаблон, заполняемый пользователем системы. После заполнения созданное на основе шаблона ТЗ (техническое задание) пересылается другим пользователям. Для системы важно, что бы "шапка" ТЗ была заполнена полностью. А вот как программно проверить полноту заполнения немогу придумать. Подскажите пожалуйста. Может у кого есть идеи.
Заранее спасибо.

К сообщению приложен файл: Forma.xls (33.0 Kb)

Путей к вершине множество. Этот один из многих...

Ответить

Дата: Четверг, 26.01.2012, 20:57 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Что значит "заполнена полностью"?
Пока пара вариантов - УФ и другой лист (скрыть потом) для проверки

К сообщению приложен файл: Forma_1.xls (44.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Пятница, 27.01.2012, 09:24 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 3 ±

Замечаний: 0% ±

_Boroda_,
Добрый день!
Спасибо за быстрый отзыв, я понял что недостаточно объяснил детали проблемы. Прошу прощения, и попытаюсь объяснить.
"Шапка" формы - это набор блоков ячеек, я их покрасил в разные цвета, что бы лучше было на них ссылаться, хотя, адресацию А1:С2 никто не отменял.
Каждый блок содержит после заполнения (точнее должен содержать) набор, как постоянных, так и переменных алфавитно-цифровых блоков текстовой строки.
Например: Блок A1:C2 - название документа: "Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета.", где dd.mm.yyyy и nnnnnnnnnnnn величины переменные, все остальное - постоянные. Но "шаловливые ручки" пользователей иногда вносят коррективы как в постоянные так и в переменные составляющие. Вот я и хочу, средствами VBA проверять состояние тех и других перед отправкой. Можно конечно обойтись элементарным:

if range(.Cells(1,1),.Cells(2,3))<> "" then
'выполняем отправку
else
msgbox "Отправка невозможна"
end if

но, может есть способ проверять более глубоко, типа "по маске", т.е. запись вида "Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета."
является маской:

dim mska as string

mska="Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета."

f range(.Cells(1,1),.Cells(2,3))= mska then
'выполняем отправку
else
msgbox "Отправка невозможна"
end if

Уф! Вроде объяснил.

_Boroda_,
Добрый день!
Спасибо за быстрый отзыв, я понял что недостаточно объяснил детали проблемы. Прошу прощения, и попытаюсь объяснить.
"Шапка" формы - это набор блоков ячеек, я их покрасил в разные цвета, что бы лучше было на них ссылаться, хотя, адресацию А1:С2 никто не отменял.
Каждый блок содержит после заполнения (точнее должен содержать) набор, как постоянных, так и переменных алфавитно-цифровых блоков текстовой строки.
Например: Блок A1:C2 - название документа: "Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета.", где dd.mm.yyyy и nnnnnnnnnnnn величины переменные, все остальное - постоянные. Но "шаловливые ручки" пользователей иногда вносят коррективы как в постоянные так и в переменные составляющие. Вот я и хочу, средствами VBA проверять состояние тех и других перед отправкой. Можно конечно обойтись элементарным:

if range(.Cells(1,1),.Cells(2,3))<> "" then
'выполняем отправку
else
msgbox "Отправка невозможна"
end if

но, может есть способ проверять более глубоко, типа "по маске", т.е. запись вида "Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета."
является маской:

dim mska as string

mska="Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета."

f range(.Cells(1,1),.Cells(2,3))= mska then
'выполняем отправку
else
msgbox "Отправка невозможна"
end if

Уф! Вроде объяснил.GWolf

Путей к вершине множество. Этот один из многих...

Ответить

Сообщение_Boroda_,
Добрый день!
Спасибо за быстрый отзыв, я понял что недостаточно объяснил детали проблемы. Прошу прощения, и попытаюсь объяснить.
"Шапка" формы - это набор блоков ячеек, я их покрасил в разные цвета, что бы лучше было на них ссылаться, хотя, адресацию А1:С2 никто не отменял.
Каждый блок содержит после заполнения (точнее должен содержать) набор, как постоянных, так и переменных алфавитно-цифровых блоков текстовой строки.
Например: Блок A1:C2 - название документа: "Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета.", где dd.mm.yyyy и nnnnnnnnnnnn величины переменные, все остальное - постоянные. Но "шаловливые ручки" пользователей иногда вносят коррективы как в постоянные так и в переменные составляющие. Вот я и хочу, средствами VBA проверять состояние тех и других перед отправкой. Можно конечно обойтись элементарным:

if range(.Cells(1,1),.Cells(2,3))<> "" then
'выполняем отправку
else
msgbox "Отправка невозможна"
end if

но, может есть способ проверять более глубоко, типа "по маске", т.е. запись вида "Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета."
является маской:

dim mska as string

mska="Техническое задание сформировано на дату: dd.mm.yyyy г., за № nnnnnnnnnnnn на производство сметного расчета."

f range(.Cells(1,1),.Cells(2,3))= mska then
'выполняем отправку
else
msgbox "Отправка невозможна"
end if

Уф! Вроде объяснил.

Автор - GWolf
Дата добавления - 27.01.2012 в 09:24

Дата: Пятница, 27.01.2012, 10:00 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub qqq()
If IsDate(Left(Split([A1], ":")(1), 10)) Then MsgBox "Date"
If IsNumeric(Left(Split([A1], "№")(1), 2)) Then MsgBox "Number"
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Проверка: Все ли заполнено в шаблоне?

Страница 1 из 1
1

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