Vraag : De het onderzoeksmacro van Excel om een streepjescode te gebruiken zoekt over resultaat in aantekenvel, begin

Hello, ik uitblink aantekenveldownload van onze website gebruik om kaartjes voor een gebeurtenis af te tasten.  De kaartjes hebben streepjescodes die op hen worden gedrukt.  Ik zal een streepjescodelezer gebruiken om het kaartje voor kaartjesidentiteitskaart af te tasten, zoek het aantekenvel om ervoor te zorgen kaartjesidentiteitskaart kan worden gevonden en ook dat het niet reeds is gebruikt.  Momenteel doend dit met de eigenschap van de Vondst en dan schrappend kaartjesidentiteitskaart als het wordt gevonden.  Ik zou een gemakkelijkere methode willen hebben om this.

So te doen, heb ik hulp met een macro nodig om het aantekenvel naar een kaartjesidentiteitskaart te zoeken, identiteitskaart bestaat bevestigen en dat het niet reeds is gebruikt.   Als het is gebruikt, keer een hoorbare pieper terug en een vertoning van „eerder gebruikt“, als niet reeds gebruikt, vertoning „O.k.“, merkt de volgende kolom ja op de zelfde rij met a (voor het bepalen van het eerste deel van de macro), terugkeer aan onderzoeksherinnering voor streepjescodeingang om het helemaal opnieuw te doen.  Ik ben open aan om het even wat die zelfde basisconcept.

zal verwezenlijken ik een deel class= " h " >

Antwoord : De het onderzoeksmacro van Excel om een streepjescode te gebruiken zoekt over resultaat in aantekenvel, begin

Geef dit een roes.
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 ()
  
Schemerige rFind als Waaier, sFind, s als Koord

line1:
sFind = Application.InputBox („ga streepjescode“, 2) in
Als sFind = Vals dan Sub wegga

Met Sheet1.Range („E2“, Sheet1.Range („E2“). Eind (xlDown))
    Reeks rFind =. Vind (wat: =sFind, LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
    Als rFind dan niets is
        s = MsgBox („identiteitskaart bestaat niet opnieuw de poging? “, vbYesNo)
        Als s = vbNo dan Sub weggaat
    Anders
        Als UCase (rFind.Offset (, 1)) = „JA“ toen
            „Eerder“ Gebruikte MsgBox
            Pieper
        Anders
            rFind.Offset (, 1) = „JA“
            „O.K.“ MsgBox
        Eind als
    Eind als
Eind met

GoTo line1

Sub van het eind
Andere oplossingen  
 
programming4us programming4us