http://www.memonic.com/user/ChrisPo...er/all?start=26

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:A5], Target) Is Nothing Then
If [A1] > 0 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)
If Not Intersect([A2:A2], Target) Is Nothing Then
If [A2] > 100 Then
'mciExecute ("Play C:\Windows\Media\tada.wav")
Call sndPlaySound("C:\Windows\Media\tada.wav", 1)
End If
End If
End Sub


можно ли уменьшить толщину линий спрэда в области кластеров ?
и поменять по возможность цвет линий спреда? например…. черный или коричневый.

Цвет и толщина линий спреда в кластерах задается параметрами HSpreadAskPen и HSpreadBidPen.