Вопрос : Макрос поиска Эксел для использования кода штриховой маркировки ищет результат в рабочий лист, начинает сверх

Здравствулте!, я использую загрузку рабочий лист первенствовать от нашего вебсайт для того чтобы просмотреть билеты для случая.  Билеты имеют коды штриховой маркировки напечатанные на их.  Меня буду использовать читателя кода штриховой маркировки для того чтобы просмотреть билет для удостоверения личности билета, ищу рабочий лист для того чтобы сделать конечно удостоверение личности билета можно найти и также то оно уже не было использовано.  В настоящее время делать это с характеристикой находки и после этого уничтожать удостоверение личности билета если о личности.  Я хотел был бы иметь более легкий метод для того чтобы сделать this.

So, мне нужно помощь с макросом искать рабочий лист для удостоверения личности билета, подтверждаю удостоверение личности существую и то оно не было использовано уже.   Если оно было использован, то возвратите звуковой beep и индикация «после того как я использована ранее», если уже после того как я использована, показывает «одобренное», маркирует следующую колонку на таком же рядке с утвердительным ответом (для обусловливать первую часть макроса), возвращение для того чтобы искать подсказку для входа кода штриховой маркировки для того чтобы сделать его все с начала.  Я открыт к что-нибыдь выполнит такое же основное concept.

, котор я прикреплял часть filename» class= >

 образца " s >
(58 KB) attachmentDetails» href= " class= " (тип архива детали) class= архива downlod
Sample " " описания class= "
>
class=

Ответ : Макрос поиска Эксел для использования кода штриховой маркировки ищет результат в рабочий лист, начинает сверх

Дайте этому whirl.
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:

Sub x ()
  
Затемните rFind как ряд, sFind, s как шнур

line1:
sFind = Application.InputBox («впишите код штриховой маркировки», 2)
Если sFind = ложно после этого выходит подводная лодка

С Sheet1.Range («E2», Sheet1.Range («E2»). Конец (xlDown))
    Установите rFind =. Находите (: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Если rFind ничего после этого
        s = MsgBox («удостоверение личности не существует попытка снова? », vbYesNo)
        Если s = vbNo после этого выходят подводная лодка
    Еще
        Если UCase, то (rFind.Offset (, 1)) = «ДА» после этого
            MsgBox «используемое ранее»
            Beep
        Еще
            rFind.Offset (, 1) = «ДА»
            MsgBox «ОДОБРЕННОЕ»
        Закончитесь если
    Закончитесь если
Закончитесь с

Переход line1

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us