Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketDisable Input
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Direkte link til dette indlæg Emne: Disable Input
    Sendt: 19.Mar.2020 kl. 10:21
Hej Alle,

Jeg er ved at lave et program til tidsregistrering.
Jeg har en kortscanner, som simpelt indsætter kortoplysninger i den aktive celle.

Når kortet er læst ind, vil jeg gerne deaktivere USB indgangen eller Excel, så man kun kan scanne én gang i f.eks. 5 sek.
Jeg har forsøgt med Application.Wait, men den gør ikke tricket, idét den stadig registrere kort læsninger, men så bare først indsætter data, efter f.eks. 5 sek.

Nogen idéer til at løse dette?

/Skovgaard
Til top



Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 19.Mar.2020 kl. 11:27
Har fundet en løsning, så I behøver ikke bruge tid på dette Smile

/Skovgaard
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179 		Direkte link til dette indlæg Sendt: 24.Mar.2020 kl. 10:34
Er det måske en løsning, som du vil dele med andre ?
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485 		Direkte link til dette indlæg Sendt: 24.Mar.2020 kl. 12:35
Ja den løsning kunne da være spændene at se....
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
Skovgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 13.Aug.2019
Land: Danmark
Status: Offline
Point: 169 		Direkte link til dette indlæg Sendt: 24.Mar.2020 kl. 13:24
Selvfølgelig vil jeg gerne dele, hermed koden Smile

Private Sub Worksheet_Change(ByVal Target As Range)

Static lasttime As Date
Dim r As Range, c As Range
Set r = Intersect(Target, Range("A:A"))
If Not r Is Nothing Then
    Application.EnableEvents = False
    If DateDiff("s", lasttime, Now) < 5 Then 'Tjekker at der ikke er scannet de sidste 5 sek.
        Application.Undo
    Else
        lasttime = Now
        For Each c In r
            c.Offset(0, 1).Value = Now
            c.Offset(0, 2).Value = Round(c.Offset(0, 1) * (24 * 60 / 5), 0) / (24 * 60 / 5)
            c.Offset(1, 0).Select
        Next c
    End If
    Application.EnableEvents = True
End If

End Sub


/Skovgaard
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk