mükemmel mp3 çaldırma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Private Declare Function mciSendString Lib "winmm.dll" Alias _
        "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
        lpstrReturnString As String, ByVal uReturnLength As Long, _
        ByVal hwndCallback As Long) As Long

Private isPlaying As Boolean

Public Sub Ap_002_Play()
   Dim mp3File As String 'Dim mp3File$
       mp3File = Chr$(34) & "C:mp3muamma.mp3" & Chr$(34)
    If isPlaying = True Then
  Call mciSendString("Stop MM", 0&, 0&, 0&)
  Call mciSendString("Close MM", 0&, 0&, 0&)
  Call mciSendString("Open " & mp3File & " Alias MM", 0&, 0&, 0&)
  Call mciSendString("Play MM", 0&, 0&, 0&)
  Else
  Call mciSendString("Open " & mp3File & " Alias MM", 0&, 0&, 0&)
  Call mciSendString("Play MM", 0&, 0&, 0&)
       isPlaying = True
   End If
End Sub

Public Sub Ap_002_Stop()
    If isPlaying = False Then Exit Sub
  Call mciSendString("Stop MM", 0&, 0&, 0&)
  Call mciSendString("Close MM", 0&, 0&, 0&)
End Sub

Benzer Sonuçlar
No	Makro Adı
1	mükemmel mp3 çaldırma
2	mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır
3	userform mükemmel bir açılış efekti
4	mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler
5	kendi kendine kapanan kitap 10 saniyede mükemmel
6	statusbar da mükemmel ınitialize
7	dolu satır ve sütunu kesiştirerek seçme (mükemmel)
8	dosya arama 2
9	mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)
10	mp3 dosyası çalma
11	şartlı wav çaldırma
12	wav çaldırma
13	mükerrer kayıtları siler
14	aktif satırın herhangi bir sütununda bir satır bile dolu olsa silmez(satır da boşlukları aldırma) 2
15	aktif satırın herhangi bir sütununda bir satır bile dolu olsa silmez(satır da boşlukları aldırma)
16	boşlukları aldırma
17	a sütununda boşlukları aldırma doluları listeleme
18	textbox taki boşlukları aldırma
19	boşlukları aldırmak (silerek)
20	boşluk aldırma

Benzer Sonuçlar

Makro Adı

mükemmel mp3 çaldırma

mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır

userform mükemmel bir açılış efekti

mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler

kendi kendine kapanan kitap 10 saniyede mükemmel

statusbar da mükemmel ınitialize

dolu satır ve sütunu kesiştirerek seçme (mükemmel)

dosya arama 2

mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)

mp3 dosyası çalma