Question : Le macro de recherche d'Excel pour employer un code barres recherchent le résultat en feuille de travail, commencent plus de

Bonjour, j'emploie un téléchargement de feuille de travail d'exceler de notre site Web pour balayer des billets pour un événement.  Les billets ont des codes barres imprimés sur eux.  J'emploierai un lecteur de code à barres pour balayer le billet pour l'identification de billet, recherche la feuille de travail pour s'assurer que l'identification de billet peut être trouvée et également cela il n'a pas été déjà employé.  Faire actuellement ceci avec la configuration de trouvaille et alors suppression de l'identification de billet si on le trouve.  Je voudrais avoir une méthode plus facile pour faire this.

So, j'ai besoin de l'aide avec un macro rechercher la feuille de travail une identification de billet, confirme l'identification existe et cela il n'a pas été déjà employé.   S'il a été employé, renvoyer un signal sonore audible et un affichage de « utilisé précédemment », sinon déjà utilisé, montrer « correct », marquent la prochaine colonne sur la même rangée avec un oui (pour déterminer la première partie du macro), retour pour rechercher le message de sollicitation l'entrée de code barres pour la faire encore une fois.  Je suis ouvert à tout ce qui accomplira le même concept.

que j'ai attaché une partie nom de fichier » " de >

 de
SampleTixFile.xls le class= (58 KBs) attachmentDetails » le href= " de class= des " de (type de dossier détails) class= du dossier downlod
Sample " de description de class= " de
le " le " de >
class= de

Réponse : Le macro de recherche d'Excel pour employer un code barres recherchent le résultat en feuille de travail, commencent plus de

Donner à ceci un mouvement giratoire.
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 :

Substrater x ()
  
Obscurcir le rFind comme gamme, le sFind, s comme corde

line1 :
sFind = Application.InputBox (« écrire le code barres », 2)
Si le sFind = faux sortent alors le sous-marin

Avec Sheet1.Range (« E2 », Sheet1.Range (« E2 »). Extrémité (xlDown))
    Placer le rFind =. Trouver (ce qui : =sFind, LookAt : =xlWhole, MatchCase : =False, SearchFormat : =False)
    Si le rFind n'est rien alors
        s = MsgBox (« identification n'existe-t-il pas l'essai encore ?  », vbYesNo)
        Si s = vbNo sortent alors le sous-marin
    Autrement
        Si UCase (rFind.Offset (, 1)) = « OUI » puis
            MsgBox « utilisé précédemment »
            Signal sonore
        Autrement
            rFind.Offset (, 1) = « OUI »
            MsgBox « CORRECT »
        Finir si
    Finir si
Finir avec

Line1 GoTo

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us