Bir Sonraki Satıra Geçerken Beep Sesi

[Sarigol_937]

Merhaba arkadaşlar herhangibi bir çalışma sayfamızda A1 hücresinden tab'a basınca A2 geçince, Yön tuşu ile hücre değiştirince, enter a basıp bir alt satıra inince, imlecin bir alt ve üstü yan satıra geçerken beep sesi verdiren bir kod varmıdır?Veya Veri Girilip Bir sonraki satıra geçincede bu sesi verse olur .

 

[Levent Menteşoğlu]

Aşağıdaki kodları sayfanın kod sayfasına kopyalayarak deneyin.

Dim sonadres

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
sat1 = IIf(Target.Row = 1, 1, Target.Row - 1)
sut1 = IIf(Target.Column = 1, 1, Target.Column - 1)
sat2 = Target.Row + 1
sut2 = Target.Column + 1
ilkadres = Target.Address
If Not Intersect(Range(ilkadres), Range(sonadres)) Is Nothing Then Beep
sonadres = Range(Cells(sat1, sut1), Cells(sat2, sut2)).Address
End Sub

Yukarıdaki kodda Set komutuda kullanılabilir. Bunun uygulamasıda aşağıdaki gibi olacaktır.

Dim sonadres

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
sat1 = IIf(Target.Row = 1, 1, Target.Row - 1)
sut1 = IIf(Target.Column = 1, 1, Target.Column - 1)
sat2 = Target.Row + 1
sut2 = Target.Column + 1
Set ilkadres = Target
If Not Intersect(ilkadres, sonadres) Is Nothing Then Beep
Set sonadres = Range(Cells(sat1, sut1), Cells(sat2, sut2))
End Sub

 

[Sarigol_937]

Zaman ve emek harcayarak yardımcı olduğunuz için teşekkürler Levent bey, Kod tam istediğim gibi.

 

[mustafa1205]

Levent Hocam affınıza sığınarak bu sesin farklı versiyonu olabilirmi? Yani farklı sesler?

 

[Levent Menteşoğlu]

Zaman ve emek harcayarak yardımcı olduğunuz için teşekkürler Levent bey, Kod tam istediğim gibi.

Rica ederim. Yardımcı olabildiysem ne mutlu bana.

Levent Hocam affınıza sığınarak bu sesin farklı versiyonu olabilirmi? Yani farklı sesler?

Sn Mustafa bey

Bildiğim kadarıyla Beep komutu ile varsayılan sesin dışında farklı sesler çalınamıyor. Ancak sesi; windows denetim masasındaki ses efektlerinden (varsayılan bipleme) değiştirebilirsiniz. Kapsamı genişletmek isterseniz daha kapsamlı kodlar kullanmak gerekecektir.

 

[mustafa1205]

Anladım hocam çok teşekkür ederim.

 

[ÖmerBey]

Arkadaşlar konuyla ilgili şöyle bir şey buldum. Ses dosyasını siz seçiyorsunuz.

 

[tahsinanarat]

Sn. mucit77 çaldıramadım hata uyarısı veriyor.

 

[ÖmerBey]

Evet ben de farkettim. İstediğimiz sesi çaldıramıyoruz galiba ama sistem ses dosyalarından (Windows içinde bolunan) farklı farklı seçtim problem çıkmıyor onları çalıyor. Bu da mudül içindeki Library ayarından galiba ama bu benim bilgimi aşar.
O yüzden maalesef çözüm sunamayacağım.

 

[asilme]

Levent hocam elinize sağlık kodu denedim kusursuz benim işimede yarayacak