Medya dosyalarını oynatabilmek için K-Lite Codec kurduysanız sistem menüsü üzerine eklenen "MediaInfo" menüsü aşağıdaki görselden de anlaşılacağı üzere tanıdık gelecektir.
Normalde Shell sınıfı pek çok bilgiyi verebiliyor; bu proje ona bir alternatiftir. Yakın bir zamanda Shell sınıfının index...
...End If
MsgBox "YENİ ÜRÜN GİRİŞ KAYDI BAŞARIYLA YAPILMIŞTR.", vbInformation, "Sayın " & Application.UserName
ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\Windows XP Yazdırma tamam.wav"")")
Set Bul = Nothing
Set KG = Nothing
Set KL = Nothing
Set ANM = Nothing
Set ÜF =...
İlginiz için teşekkür ederim. Aynı ise gerek yok o halde. Ama yine de denedim. Bir şeyleri yanlış yapıyorum sanırım şu hatayı veriyor. Yanlış sütuna falan yapıştırıyor ya da yan sütuna belli bir sayı yazmam gerekiyor olabilir.
Deneyiniz.
=CONCATENATE("[sound:",TEXT(ROW(A1),"000")," Too Old To Die Young.wav]")
Özünde önerilen 2 formülde aynı işlevi yapmaktadır. Sadece yazım tekniği farkı vardır.
Sanıyorum onun yazdığı formül şu hata yoksa:
=concatenate("[sound.dosya ismi",text(sütun satır no,"00",.dosya uzantısı]") ben kendi dosyam için ki, PC'de ilgili klasörde adı şu şekilde 001 Too Old To Die Young.wav (formülün çalışması için gerekliyose numaralandırmayı videoda olduğu gibi dosya...
...(001 Too Old To Die Young... ) attım. Anki'yi açıp ses ilgili ses dosyasını nasıl tanıdığını tespit ettim (şu ifadeyle tanıyordu: [sound:001 Too Old To Die Young.wav] ) sonra, yukarıda sözünü ettiğim Excel üzerinde ses sütununa bu ismi kopyaladım. Daha sonra excel ile oluşturduğum CSV...
Çok çok teşekkür ederim. Allah razı olsun kardeşim. Cahillik kötü, zor. Yaşadığım şehre yolun düşerse bir yemek ikram etmek isterim. Yine belki ileride bir iki takıldığım yer olur başka çalışmalarda. Umarım yine sorabilirim buradan. Çok teşekkür ederim.
söylemeyi unutmuşum. excel ingilizce kullanıyorum. bu durumda formül nasıl olmalı?
bir de dört sütun var bende, a dolu numaralar var. bu sözünü ettiğim metin var, c ve d sütununda yine bakşa veri var. şu şekilde:
Merhaba.
A1 hücresine ="[sound:"& YİNELE("0";3-UZUNLUK(SATIR(A1))) &SATIR(A1) &" Too Old To Die Young.wav]" formülünü kopyalayın ve aşağıya doğru çoğaltın.
Formülleri kaldırıp sadece metin kalmasını sağlamak için.
A sütununu seçip kopyalayın. Sağ tıklatıp özel yapıştır Değerler seçin.
Merhaba, excel'den çok çok az anlıyorum. Bir çalışmam var, saatlerdir araştırmama rağmen çözüm bulamadım.
"[sound:001 Too Old To Die Young.wav]" şu metni aşağı sürüklemek istiyorum ve sürüklerken 001 değişsin 002, 003, 004 .... olsun istiyorum. Ama diğer metin olduğu gibi kalmalı. Sadece sıra...
...If
End Sub
Private Sub Kaydet_Çık_Click()
Dim s, Dosya_Yolu As String
Dosya_Yolu = ThisWorkbook.Path & "\"
ExecuteExcel4Macro ("SOUND.PLAY(, """ & Dosya_Yolu & "Verilerinizi kaydedip mi çıkmak istiyorsunuz?wav"")")
cevap = MsgBox("Verilerinizi kaydedip mi çıkmak istiyorsunuz...
...şimdiye kadar kurmadığıma pişmanım" şeklinde çok methiyeler söylerim...
fakat direkt sebebi win7 olmayan bir sorunum var:
tahminimce creative sound blaster 5.1 vk ses kartım win7 ile uyumsuzluk yaratıyor!
sistem bilgilerim:
işlemci - pentium dual core 2,60 GHz
RAM - 3 Gb
sistem - 32 bit...
...göstermesi için nasıl düzenleriz?
Sub Hafta()
Dim s, Dosya_Yolu As String
Dosya_Yolu = ThisWorkbook.Path & "\"
ExecuteExcel4Macro ("SOUND.PLAY(, """ & Dosya_Yolu & "ding.wav"")")
Set s1 = Sheets("KAYIT")
Set s2 = Sheets("DURUŞMALAR")
s2.Select
s2.Range("A2:M65536").ClearContents...
...Exit Sub
Set yer = Sheets("SUÇ KAYDI")
Set bul = yer.Cells.Find(Target, , xlValues, xlWhole)
If bul Is Nothing Then
ExecuteExcel4Macro ("SOUND.PLAY(, """ & Dosya_Yolu & "KAYIT BULUNAMADI.wav"")")
Exit Sub
Else
sat = bul.Row
End If
yer.Range("A" & sat & ":L" & sat).Copy...
A+ Bilgisayar Teknik Eleman Eğitimi
Not: PDF Dökümanlarından eğitimleri düzgün izleyebilmeniz için Adobe Reader'ın 9.1 ve üzeri sürümünü kullanmanız gerekmektedir.
Bilgisayar Teknisyenliğine Giriş (PDF...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.