[ ZorzNS @ 11.11.2012. 20:35 ] @
Kako da namestim u excelu da mi program da zvuchnu signalizaciju kada se pojavi neka vrednost u odredjenoj celiji?
[ loto17 @ 12.11.2012. 12:05 ] @
Copy the code below to a VBA module in your workbook.

Code:
'Windows API function declaration
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition)
    Dim WAVFile As String
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
    On Error GoTo ErrHandler
    If Evaluate(Cell.Value & Condition) Then
        WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this statement
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        Alarm = True
        Exit Function
    End If
ErrHandler:
    Alarm = False
End Function

Primer:
Code:
=Alarm(A1,">=1000")
=Alarm(C12,"<0")


[Ovu poruku je menjao timmy dana 16.11.2012. u 12:17 GMT+1]
[ p.djole @ 15.11.2012. 01:01 ] @
Ako moze pojasnjenje, posto nisam uspeo da se snadjem
hvala
[ loto17 @ 15.11.2012. 09:58 ] @
Krajnje je jednostavno.
Deklaraciju funkcije i funkciju Alarm treba snimiti u modul ( pritisnes ALT+F11 i izaberes insert MODUL )


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


Function Alarm(Cell, Condition)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound.wav" 'Izmeniti putanju i naziv wav fajla koji treba da svira. Npr: WAVFile="C:\proba.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function


snimis i gotovo!


[Ovu poruku je menjao loto17 dana 15.11.2012. u 11:32 GMT+1]

[Ovu poruku je menjao timmy dana 16.11.2012. u 12:16 GMT+1]
[ p.djole @ 15.11.2012. 22:35 ] @
Radi
Hvala
[ ZorzNS @ 18.11.2012. 17:36 ] @
Cekaj ja i dalje nisam uspeo da skontam.. Znachi udjem u vba sa alt+f11, i onda idem gore na insert, pa na module, i otvori mi se novi modul i u njega prekopiram onaj kod.. I kad izadjem iz vba, chak i ako nisam snimio ostane mi memorisan taj kod kad opet udjem u vba.. Ne kontam to shto kazesh snimish, valjda snimim posle dokument il?
I ne kontam gde onda treba da upishem ovo: =Alarm(A1,">=1000") ? Jel to upisujem u celiju ili gde? Ako to upishem u bilo koju celiju prijavljuje mi da postoji greshka u formuli sa znakovima interpunkcije..

[ Brodoplovac @ 18.11.2012. 17:52 ] @
- Da, samo snimiš dokument.
- Formulu upišeš u bilo koju ćeliju. Formula će se aktivirati svaki put kada se promeni vrednost u ćeliji A1.
- Formula bi trebalo da bude zapisana kao:
=alarm(A1, ">=" & 100)
(moguće je da umesto zareza treba tačka zarez, to zavisi od podešavanja na tvom računaru)
[ ZorzNS @ 18.11.2012. 19:52 ] @
O mamu mu.. pa ne radi mi opet, kad upishem formulu sa tachkom zarezom onda mi u toj celiji napishe false... Aj pliz ako ti nije teshko uploaduj prazan dokument samo sa tim odradjenim da vidim kako treba da bude?
[ ib.kroki @ 18.11.2012. 20:26 ] @
Da li u folderu gde je xls fajl imaš i zvučni fajl sound.wav?
[ Brodoplovac @ 18.11.2012. 20:45 ] @
Kod mene radi. Na mom računaru je podešeno da se koristi tačka zarez, ti promeni kod tebe u zarez.
U atachu je xls fajl i wav fajl.
[ ZorzNS @ 18.11.2012. 22:34 ] @
Eee sad radi konachno! :) hvala!