Excele Video Eklemek Gibi Not defteri eklemek mümkün mü?

[izcik]

Saygılar uzmanlarım.

Levent Menteşoğlu ve Uzmanamele uzmanlarımın, içerisine media player eklenmiş ve gerekli kodları yazılmış excel dosyası ektedir.

Bu dosyayı çok severek kullanıyorum.

Şöyle bir dosyaya ihtiyacım oldu: Tıpkı excelde video çalar gibi ya da müzik dinler gibi , çeşitli not defterlerini açacak örnektekine benzer excel dosyasına ihtiyacım var. Bu yapılabilir mi?

Not: Örnek dosyada da çok güzel ayrıntılı açıklama yaptım.

Teşekkürler uzmanlarım.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[izcik]

Evren Gizlen uzmanım harika olmuş, elinize aklınıza fikrinize sağlık.
Ne kadar çok faydalı oldunuz.

Yalnız bir minik düzeltme yapabilirseniz:

Not dosyalarındaki kelimeler arasındaki boşluk ve bir satır alta geçme hareketlerini tamamen yok sayıyor. Yani normalde var olan kelimeler arasındaki boşluklar ve alt satıra geçme hareketleri görünmüyor.

Bu düzelir mi acaba?

 

[Orion1]

Evren Gizlen uzmanım harika olmuş, elinize aklınıza fikrinize sağlık.
Ne kadar çok faydalı oldunuz.

Yalnız bir minik düzeltme yapabilirseniz:

Not dosyalarındaki kelimeler arasındaki boşluk ve bir satır alta geçme hareketlerini tamamen yok sayıyor. Yani normalde var olan kelimeler arasındaki boşluklar ve alt satıra geçme hareketleri görünmüyor.

Bu düzelir mi acaba?

Kelimeler arasındaki boşlukları görüyor.Altsatır olayı içinse desing moda geçip textboxın genişliğini biraz arttırınız.

 

[izcik]

Evren uzmanım design moda geçtim, text boxu da buldum. Fakat genişliği hangi seçenekle artıyor?

 

[Orion1]

Evren uzmanım design moda geçtim, text boxu da buldum. Fakat genişliği hangi seçenekle artıyor?

Mousu kenarına veya en alta köşeye götürün.
Mausun imleci değişince tutun çekin istediğiniz kadar.Tabbiki önce textboxı seçmelisiniz.Tıklamalasınız yan.Desinmodda iken

 

[izcik]

Genişliği de arttırdım ama alt satıra geçenler bitişik görünüyor nedense

 

[izcik]

Evren uzmanım sizin mesajınızı görmeden önce tam söylediğiniz gibi yaptım.

Hem de oldukça enini ve boyutunu büyülttüm.

Fakat alt satırlar görünmüyor maalesef. Bunu da çözebilirsek tam istediğim gibi olacak doğrusu.

Acaba başka bir nedenden olabilir mi?

 

[Orion1]

Genişliği de arttırdım ama alt satıra geçenler bitişik görünüyor nedense

Yollayın dosyalarıda bakayım.

 

[izcik]

Hemen yolluyorum. Saygılar

 

[Orion1]

Tamam ben yeni satır kodunu unutmuşm.
Dosya ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [H:H,K:K]) Is Nothing Then Exit Sub
If Target.Text <> "" Then
If Target.Column = 8 Then
    Sayfa1.WindowsMediaPlayer1.URL = Target.Next.Value
End If
If Target.Column = 11 Then
    TextBox1.Text = ""
    Open (Target.Value) For Input As #1
    Do While Not EOF(1)
        Line Input #1, a
        deg = deg & vbLf & a
    Loop
    Close #1
    TextBox1.Text = deg
End If
End If
End Sub

 

[izcik]

Evren uzmanım'a

NOT: Şarkı çalmada hiç sorun yok uzmanım.

 

[Orion1]

NOT: Şarkı çalmada hiç sorun yok uzmanım.

11 nolu mesajdaki dosyayı kullanınınzı.

 

[izcik]

Çok güzel oldu Evren uzmanım. Sadece ilk satırda kendiliğinden bir satır aşağıdan başlıyor. O da o kadar önemli değil. Elinize sağlık.

 

[Orion1]

Çok güzel oldu Evren uzmanım. Sadece ilk satırda kendiliğinden bir satır aşağıdan başlıyor. O da o kadar önemli değil. Elinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[izcik]

Tam istediğim gibi oldu. Başka arkadaşların da eminim işine yarayacaktır. Tekrar teşekkür ederim değerli uzmanım. İyi akşamlar.

 

[Orion1]

İsterseniz şarkı sözlerine isterseniz müziğe tıklayın.
Hem müzik çalar hemede sözleri textboxta görünür.
dosya ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C:C,D:D]) Is Nothing Then Exit Sub
If Target.Text <> "" Then
If Target.Column = 3 Then
    Sayfa1.WindowsMediaPlayer1.URL = Target.Text.Value
    TextBox1.Text = ""
    Open (Target.Offset(0, 1).Value) For Input As #1
    Do While Not EOF(1)
        Line Input #1, a
        deg = deg & vbLf & a
    Loop
    Close #1
    TextBox1.Text = deg
End If
If Target.Column = 4 Then
    Sayfa1.WindowsMediaPlayer1.URL = Target.Offset(0, -1).Value
    TextBox1.Text = ""
    Open (Target.Value) For Input As #1
    Do While Not EOF(1)
        Line Input #1, a
        deg = deg & vbLf & a
    Loop
    Close #1
    TextBox1.Text = deg
End If
End If
End Sub

 

[Orion1]

Öm ile isteğiniz gibi yaptım.Yalnız lütfen öm ile sorunuz sormayınız.Nedenmi?
Çünkü bu soruyu takip eden kişiler olabilir.Eğer biz kendi aaramızda öm ile yazışırsak bu kişiler burada ne olup bittipğğini anlayamayacaklar.Buta forumun amacına ters düşen bir durumdur.Buna dikkat edersek iyi olur.Öm kullanılmasın demiyortum.Yanlış anlamayın.Öm yine kullanın ama özel durumlar için.Başkalrını ilgilendirmeyen yalnız 2 kişinin bilmesi gereken durumlar için öm kullanın.
Kolay gelsin.:cool.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C:C,D:D]) Is Nothing Then Exit Sub
If Target.Text <> "" Then
If Target.Column = 3 Then
    Sayfa1.WindowsMediaPlayer1.URL = Target.Value
End If
If Target.Column = 4 Then
    TextBox1.Text = ""
    Open (Target.Value) For Input As #1
    Do While Not EOF(1)
        Line Input #1, a
        deg = deg & vbLf & a
    Loop
    Close #1
    TextBox1.Text = deg
End If
End If
End Sub

 

[izcik]

Evren uzmanım, C sütununa gelince yine hata verdi. run time 424 hatası. üstelik şarkıyı da çalmadı maalesef (şarkı sözleri kısmında (D sütunu) hata yok.)
:redface:

 

[izcik]

Uzmanım isterseniz V5 ile siz de bir deneyin. Mesela C sütununa bir klasör oluşturup içine herhangi bir mp3 koyun. Ve C sütununda herhangi bir hücreye o şarkının tam adresini yazın. Ve C sütunundaki hücrenin üzerine gelin.

Öyle deneyebilir misiniz? Belki olay daha iyi anlaşılır.

V5 de şarkı sözlerinde (D sütununda) bir problem yok.