Проверка по трём критериям / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка по трём критериям

17 сообщений из 17, страница 1 из 1

Проверка по трём критериям

#36291894

GioCH

Гость

Задача такая на Excel 2003- есть три дистрибутора у которых имеются свои водители, по три водителя на каждого. При оформлении заказа в бланк вводится фамилия дистрибутора и фамилия водителя, надо макросом проверить соответствует ли фамилия водителя своему дистрибутору, если нет то месиджбоксом вывести сообщение об не соответствии. Я хотел сделать так - If distr="name" then if driver<> "drname1" or "drname2" or "drname3" then msgbox("Проверте соответствые")
я точно не знаю как правильно записать это условие т.е. все водители проверялись на соответствие с дистрибутором макросом.
Спасибо!

...

Рейтинг:

0 / 0

05.11.2009, 12:46

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36291988

Гость

а зачем макросом?... если же все таки хотите макросом, просто приделайте каждому водителю в конце цифру, соответствующую номеру дистрибъютора (которому тоже можете пределать цифру) и дальше сверяйте цифры в конце.
Например:
Дистрибъюторы:
Петров = Петров1
Иванов = Иванов2
...
Водители:
Иванченко = Иванченко1
Сидоров = Сидоров1
...

Код: plaintext

If right(distributor, 1 ) = right(voditel, 1 ) then

...

Рейтинг:

0 / 0

05.11.2009, 13:08

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36292339

GioCH

Гость

Отдельно проверять водителя не пойдёт, потому что если заказ выписан например на второго водителя или на третьего тогда проверка уже на первого водителя выдаст сообщение об ошибке ввода.
Надо проверить всех "сразу" - или водител1 или водител2 или водител3 и так для других дстрибуторов.
Если код пойдёт для одного дстрибутора то она будет работать и на других.

...

Рейтинг:

0 / 0

05.11.2009, 14:43

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36292423

Гость

Ну так а я что говорю:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.

dim voditel
dim disributor
dim  aD( 1  to  3 )
dim aV( 1  to  9 )
dim i as integer

aD( 1 ) = "Петров1"
aD( 2 ) = "Иванов2"
...

aV ( 1 ) = "Иванченко1"
aV ( 2 ) = "Сидоров1"
aV ( 4 ) = "Зеленый2"
...

voditel = cells(r,c).value
distributor = cells(r,c).value

For i =  1  to ubound(aD)
if voditel = mid(aV(i), 1 ,len(aV(i)- 1 )) then voditel = aV(i) exit for
next i

For i =  1  to ubound(aV)
if disributor = mid(aD(i), 1 ,len(aD(i)- 1 )) then voditel = aD(i) exit for
next i

If right(distributor, 1 ) <> right(voditel, 1 ) then
msgbox "Несовподение"
end if

код не проверял, но идея должна быть понятной

...

Рейтинг:

0 / 0

05.11.2009, 15:08

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36292559

Hugo121

Гость

Другой вариант - меняем validation E4 в зависимости от значения ячейки D4

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
 Select Case [D4]
 Case "mmm"

    With [E4].Validation
    .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="m1,m2,m3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "please"
        .ErrorTitle = "stop"
        .InputMessage = "input drivers!"
        .ErrorMessage = "unknown driver"
        .ShowInput = True
        .ShowError = True
    End With

Case "hhh"
    With [E4].Validation
    .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="h1,h2,h3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "please"
        .ErrorTitle = "stop"
        .InputMessage = "input drivers!"
        .ErrorMessage = "unknown driver"
        .ShowInput = True
        .ShowError = True
    End With

Case Else
    With [E4].Validation
    .Delete
    End With
    [E4].Delete
End Select

End Sub

Т.е. дистрибюторы - mmm, hhh
водители - m1, m2, m3, h1, h2, h3
Добавить третью третию третюю третьую тьфу группу №3 :)...
Других вариантов быть не может (если только copy-paste)...
Подправить по вкусу :)

...

Рейтинг:

0 / 0

05.11.2009, 15:51

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36292579

Hugo121

Гость

Да, на D4 тоже можно проверку навесить, тогда заполнить можно всё выбирая из выпадающего списка.

...

Рейтинг:

0 / 0

05.11.2009, 15:56

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36292803

Гость

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

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

dim bChecker as boolean
dim sJoin as string
dim i as integer
dim  aА( 1  to n)

aA( 1 ) = "ПетровИванченко"
aD( 2 ) = "ИвановСидоров"
...
aD( 4 ) = "ИвановЗеленый"
...

bChecker = False
join = cells(r,c).value & cells(r,c).value

for i =  1  to n
if checker = aA(i) then bChecker = true 
next i

if bChecker = False then msgbox "Халепа :)"

...

Рейтинг:

0 / 0

05.11.2009, 16:49

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36293110

Hugo121

Гость

Вроде получилось удобно - добавил ещё примочку - если кликнуть по дистрибютору, водила сразу пропадает :) Т.е. больше нельзя заменить дистрибютора, но оставить прежнего чужого водилу.
Ну и список дистрибюторов и водителей легко редактировать - они в таблице.
Вариант рабочий, см. нижнюю часть.

...

Рейтинг:

0 / 0

05.11.2009, 18:23

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36293116

Hugo121

Гость

В первом файле осталось удаление водилы при смене листа, лучше см. этот файл

...

Рейтинг:

0 / 0

05.11.2009, 18:25

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36293924

GioCH

Гость

Спасибо всем!
Я сделал так - добавил счётчик, если несовпадение имени водителя то счётчик=счётчик+1,
в конце если счётчик=3 (т.е. не совпали все три имени) то выходит сообщение об ошибке ввода.
Ваши варианты посмотрю, Спасибо!

...

Рейтинг:

0 / 0

06.11.2009, 10:12

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36293971

GioCH

Гость

Можно и так, более компактно
If distr = "name" Then If (driver <> "водит1") And (driver <> "Водит2") And (driver <> "Водит3") Then MsgBox ("Проверьте имя водителя")

...

Рейтинг:

0 / 0

06.11.2009, 10:28

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36311757

vikttur

Участник

Сообщения: 1 079

Рейтинг: 0 / 0

Можно и так, без VBA :)

...

Рейтинг:

0 / 0

16.11.2009, 09:52

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36311770

Hugo121

Гость

viktturМожно и так, без VBA :) ??? А где Ваш вариант? Спасибо, что в моём красоту навели, конечно....

...

Рейтинг:

0 / 0

16.11.2009, 09:59

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36311777

vikttur

Участник

Сообщения: 1 079

Рейтинг: 0 / 0

-Вставка-Имя-Присвоить
Для F13:
-Данные-Проверка-Список
-Условное форматирование

...

Рейтинг:

0 / 0

16.11.2009, 10:03

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36311781

Hugo121

Гость

Ах да, заметил - indirect добавилось...

...

Рейтинг:

0 / 0

16.11.2009, 10:04

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36311803

Hugo121

Гость

Да, так конечно лучше, но не кардинально, согласись...

...

Рейтинг:

0 / 0

16.11.2009, 10:10

| Ответить | Цитировать | Написать

Проверка по трём критериям

#36311809

vikttur

Участник

Сообщения: 1 079

Рейтинг: 0 / 0

Лучше или хуже - это уже решать применительно к конкретной задаче :)
Просто как пример.

...

Рейтинг:

0 / 0

16.11.2009, 10:12

| Ответить | Цитировать | Написать

17 сообщений из 17, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверка по трём критериям

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36311777&tid=2178846]:	0ms
get settings:	11ms
get forum list:	19ms
check forum access:	4ms
check topic access:	4ms
track hit:	170ms
get topic data:	13ms
get forum data:	3ms
get page messages:	83ms
get tp. blocked users:	2ms
others:	215ms

total:	524ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы