Questione : La macro di ricerca di Excel per usare un codice a barre cerca il risultato in manuale, comincia sopra

Ciao, uso un trasferimento dal sistema centrale verso i satelliti del manuale di supremazia dal nostro Web site per esplorare i biglietti per un evento.  I biglietti hanno codici a barre stampati su loro.  Userò un lettore di codice a barre per esplorare il biglietto per l'identificazione del biglietto, cerco il manuale per assicurarmi che l'identificazione del biglietto possa essere trovata ed inoltre quella esso già non è stata usata.  Attualmente fare questo con la caratteristica del ritrovamento ed allora cancellare l'identificazione del biglietto se è trovato.  Vorrei avere un metodo più facile per fare this.

So, ho bisogno dell'aiuto con una macro di cercare il manuale un'identificazione del biglietto, confermo l'identificazione esisto e quello non è stato usato già.   Se sia usato, restituire un colpo di clacson udibile e un'esposizione “dell'usato di precedentemente„, se non già usato, visualizzare “giusto„, contrassegnano la colonna seguente sulla stessa fila con uno sì (per la determinazione della prima parte della macro), ritorno per cercare il richiamo l'entrata di codice a barre per farla ancora una volta.  Sono aperto a qualche cosa che compire lo stesso concept.

che ho attaccato bc la parte nome di schedario„ " vuoto " >

 del class= del
(58 Kb) i attachmentDetails„ il href= " del class= " di (tipo di lima particolari) il class= della lima downlod
Sample " " di descrizione del class= " di
del >
class= del

Risposta : La macro di ricerca di Excel per usare un codice a barre cerca il risultato in manuale, comincia sopra

Dare questo un giro rapido.
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 la x ()
  
Oscurare il rFind come gamma, lo sFind, s come stringa

line1:
sFind = Application.InputBox (“impostare il codice a barre„, 2)
Se lo sFind = falso allora esce il sommergibile

Con Sheet1.Range (“E2„, Sheet1.Range (“E2„). Estremità (xlDown))
    Regolare il rFind =. Trovare (che cosa: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Se il rFind allora è niente
        s = MsgBox (“identificazione non esiste ancora la prova? „, vbYesNo)
        Se la s = il vbNo allora escono il sommergibile
    Altrimenti
        Se UCase (rFind.Offset (, 1)) = “SÌ„ allora
            MsgBox “usato precedentemente„
            Colpo di clacson
        Altrimenti
            rFind.Offset (, 1) = “SÌ„
            MsgBox “GIUSTO„
        Concluder se
    Concluder se
Concluder con

Line1 di avanzamento

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us