Developing.ru

• Цитата breeze

breeze » 20 июл 2006, 13:48

• Цитата Avsha

Avsha » 20 июл 2006, 11:07

• Цитата Sokl

Sokl » 20 июл 2006, 06:57

Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
                Alias "PlaySoundA" ( _
                ByVal lpszName As String, _
                ByVal hModule As Long, _
                ByVal dwFlags As Long) As Long

Private Sub Play()
       PlaySound "c:\temp\chimes.wav", 0&, &H1
End Sub

Private Sub Worksheet_Calculate()
        If [A1].Value > [B1].Value Then Play
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If (Target = [A1]) Then
        If [A1].Value > [B1].Value Then Play
    End If
End Sub

• Цитата pashulka

pashulka » 20 июл 2006, 03:14

Private Sub Worksheet_Calculate()

End Sub

• Цитата breeze

breeze » 20 июл 2006, 01:51

• Цитата pashulka

pashulka » 20 июл 2006, 01:28

• Цитата breeze

breeze » 20 июл 2006, 01:17

• Цитата breeze

breeze » 20 июл 2006, 01:15

• Цитата pashulka

pashulka » 20 июл 2006, 01:00

• Цитата breeze

breeze » 19 июл 2006, 20:51