Сравнения данных и звуковой сигнал

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'-------------------------------------------------------------------------------------------------
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A1:A2], Target) Is Nothing Then
    If [A1] <> "" And [B2] < [C2] Then
      'mciExecute ("Play C:\Windows\Media\tada.wav")
      Call sndPlaySound("C:\Windows\Media\tada.wav", 1)
    End If
  End If
End Sub

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal dwFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r&
    If Not Intersect([B2:D5], Target) Is Nothing Then
        r = Target.Row
        If Range("B" & r) > Range("C" & r) And Range("B" & r) < Range("D" & r) Then
            'mciExecute ("Play C:\Windows\Media\tada.wav")
            Call sndPlaySound("C:\Windows\Media\tada.wav", 1)
        End If
    End If
End Sub

ZVI
 
14.11.2012, 04:31   
Вот так должно работать и в 32 и в 64-битных версиях:
 
#If Win64 Then
Private Declare PtrSafe Function GetProfileString Lib "kernel32" _
Alias "GetProfileStringA" (ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) As Long
#Else
Private Declare Function GetProfileString Lib "kernel32" _
Alias "GetProfileStringA" (ByVal lpAppName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) As Long
#End If
 
Специальное декларирование API-функций требуется, только если установлена 64-битная версия Excel. Для сочетания Win(64бит) + Excel(32бит) этого не требуется.