Ga naar inhoud

VBA Beep 64 bit


ToLa
 Delen

Aanbevolen berichten

Beste pc freaks,

Ik heb een probleem met de beepfunctie. Deze werkte perfect op mijn oude pc (32bot), maar niet op de nieuwe (64bit).

Aanpassing gedaan in vba om deze overgang van 32 naar 64 te maken.

Waarom werkt dezeonderstaande  vba niet?

Graag respons aub.

___________________

 

#If Win64 Then
  Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If

Dim oldValue
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

    Set KeyCells = Range("A38")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        If oldValue = "" And KeyCells <> "" Then
            Beep 900, 500
            Beep 900, 500
         End If
    End If
    
 On Error Resume Next

    Set KeyCells = Range("A40")
    
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        If oldValue = "" And KeyCells <> "" Then
            Beep 900, 500
            
         End If
 End If

End Sub

Link naar reactie
Delen op andere sites


Dit is een verouderd onderwerp. Heb je een gelijkaardige vraag? Start dan een nieuw topic in dit forumonderdeel aub.

Doe mee aan dit gesprek

Je kunt dit nu plaatsen en later registreren. Indien je reeds een account hebt, log dan nu in om het bericht te plaatsen met je account.

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

 Delen

×
×
  • Nieuwe aanmaken...