Pergunta : O macro da busca de Excel para usar um código de barra procura o resultado na folha, começa sobre

Olá!, eu uso transferência da folha primar de nosso Web site para fazer a varredura de bilhetes para um evento.  Os bilhetes têm os códigos de barra impressos neles.  Eu usarei um leitor de código da barra para fazer a varredura do bilhete para a identificação do bilhete, procuraro a folha para certificar-se que a identificação do bilhete pode ser encontrada e aquela ele não tem sido usada igualmente já.  Atualmente fazendo isto com a caraterística do achado e então suprimindo da identificação do bilhete se se encontra.  Eu gostaria de ter um método mais fácil para fazer this.

So, eu preciso a ajuda com um macro de procurarar a folha por uma identificação do bilhete, confirmo a identificação existo e isso não tem sido usado já.   Se foi usado, retornar um sinal acústico audível e uma exposição do “usado previamente”, se não já usado, indicar “aprovado”, marcam a coluna seguinte na mesma fileira com um Yes (para determinar a primeira parte do macro), retorno para procurarar o alerta pela entrada do código de barra para fazê-la mais uma vez.  Eu estou aberto a qualquer coisa que realizará o mesmo concept.

que eu tenho unido a parte nome de arquivo " vazio " >

 da amostra " s o class= do >
SampleTixFile.xls o class= (58 KB) attachmentDetails” o href= " do class= " de (tipo de lima detalhes) o class= da lima downlod
Sample " " da descrição do class= do " de
>
class= do

Resposta : O macro da busca de Excel para usar um código de barra procura o resultado na folha, começa sobre

Dar a isto um giro.
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 ()
  
Escurecer o rFind como a escala, sFind, s como a corda

line1:
sFind = Application.InputBox (“dar entrada ao código”, 2 da barra)
Se o sFind = falso retira então o submarino

Com Sheet1.Range (“E2”, Sheet1.Range (“E2”). Extremidade (xlDown))
    Ajustar o rFind =. Encontrar (que: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Se o rFind não é nada então
        s = MsgBox (“identificação não existe a tentativa outra vez? ”, vbYesNo)
        Se s = o vbNo retiram então o submarino
    Mais
        Se UCase (rFind.Offset (, 1)) = “SIM” então
            MsgBox “usado previamente”
            Sinal acústico
        Mais
            rFind.Offset (, 1) = “SIM”
            MsgBox “APROVADO”
        Terminar se
    Terminar se
Terminar com

Line1 empreendedores

Submarino da extremidade
Outras soluções  
 
programming4us programming4us