Cd Açma Kapama 2 Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! 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. Option Base 1 Public 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 Sub main() Dim Now As String Dim a(2) As String a(1) = "set cdaudio door open" a(2) = "set cdaudio door closed" total = 1 For I = 1 To (total * 2) If Int(I / 2) = I / 2 Then Now = vbString(a(2), 0) Else Now = vbString(a(1), 0) End If Next I End Sub Function vbString(ByVal Command As String, ByVal hWnd As Long) As String Dim Buff As String Dim dwR As Long Buff = Space$(100) ' Create a buffer dwR = mciSendString(Command, ByVal Buff, Len(Buff), hWnd) vbString = Buff End Function Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 cd açma kapama 2 2 cd açma kapama 3 hesap makinesini açma kapama 4 menü çubuğunun silinmesi ve özel bir menünün oluşturulması 5 numlock u açma, kapama 6 butonu kullanıma açma-kapama 7 not defterini açma ve kapama 8 kitabı açma-kopyalama-kapama 9 listboxla dosya açma kapama silme 10 disketten .bat dosyası açma 11 Bilgisayarı tamamen kapatıp yeniden açmak 12 formlardan birini kapayıp, diğerini açma 13 başka açık bir excel çalışma sayfasındaki formu açma 14 hesap makinesi açma 15 excel dosyasının cd’de çalışması 16 text dosyası 3 açma ve hazırlama 17 a1'de adı yazan sayfayı açmak 18 makro ile satır açma 19 Sayfayı açmadan o sayfadaki hücrenin değerini getirme 20 tarihe göre kitap açma makrosu (belirlenen tarih geçmişse kitabı açmaz)