...başlangıç*******************
If Len(TextBox5.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox5.Text) Then
Beep
MsgBox "Harf girilmeyecek,Sadece Rakam Giriniz .......!!", vbOKOnly, "dikkat !!!"
End If
End Sub
Private Sub TextBox6_Change()
On Error Resume Next
TextBox7 =...
...her bir sheet tıklandıkça 1, 2, 3 şeklinde farklı uyarılar almam gerekiyor. örneğin, CBV sheetine tıklandığında ekrana "1" uyarısı, ÇStM-U sheet' ine tıklandığında "2" uyarısı gelsin istiyorum...
bunu
Sub Auto_open()
Beep
MsgBox "1"
End Sub
ile yapmaya çalıştım. olmadı.
ilginize teşekkürler.
selamlar
formda çok sayıda buton var ve üzerlerinden maus ile geçerken ses çıkarması
için naapabilirim vede beep sesinden başka seslerin kodlarını nereden bulurum
bunları kullanıyorum
Private Sub CommandButton2_Click()
Beep
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As...
...istiyorum. Ne yapmam lazım
Yardımlarınız için teşekkürler,
Sub Auto_Open()
Sheets("GİRİŞ").Select
End Sub
……………………………….
Sub Auto_open()
Beep
MsgBox "Bu program ..................tarafından yapılmıştır. ", vbInformation, " Buraya yazdığınız yazı mesaj kutusunun başlığında gözükecektir."
End...
...mesajının yazı karekterini (veya seçtiğim kelimeyi ) nasıl renklendirir ve büyütebilirim.
yardımlarınız için teşekkürler.
Sub Auto_close()
Beep
MsgBox "Bu program hakkındaki görüş ve önerilerinizi .............nolu telefona bildirebilirsiniz.", vbSystemModal, " iyi günler /...
...sorum şöyle arkadaşlar
A1 hücresine B1 ve C1 hücrelerinin toplamı yazılmaktadır.
A1 hücresinin degeri 2 oldugunda
sesli beep uyarısı versin ve bu uyarının süresi 10 saniye olsun istiyorum
diger hallerde sesli uyarı vermesin sadece 2 oldugunda uyarı versin.
bunu nasıl...
...Exel Sayfası devamlı açık kalacak veya kapalı Hatırlatma günü ve saati geldiğinde Sesle ve Yazıyla Hatırlatma yapacak.
Sub Alarm()
Dim beepat As String
beepat = InputBox("Give Alarm at", "hh:mm:ss " & _
Format(Now, "mm:hh"), "15:46")
If beepat = "" Then
MsgBox "cancelled"...
...kodlardan hiç anlamazdım) sound deyimiyle çaldırırlardı. Bende şimdi yaptığım makrolarda denedim ama olmadı. Böyle birşey olabilir mi? yani "beep" haricinde kendi notalarımızı kullanarak basitçe sesler çıkarabilir miyiz?
Örneğin yaptığımız bir işlemin sonucu olumlu olursa bir kaç nota...
...Sub txtAnaAdi_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
Beep
End If
End Sub
Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If...
...SİSTEM BİPLERİ
Arada çıkan "bip" seslerinden sıkıldıysanız ve kapatmak istiyorsanız "HKEY_CUR-RENT_USERControl PanelSound" anahtanna gidin ve "beep" değerini bulun karşısına "no" yazın
IMAGE TOOL BAR AÇILMASIN
Web sitelerinde gezerken bir resmin üzerine geldiğiniz zaman sol üst köşede...
...Sistem Bip’leri Kapansın
Arada çık “bip” seslerinden sıkıldıysanız Regedit’den “HKEY_CURRENT_USER\Control Panel\Sound” anahtarına ulaşın. “Beep” değerini “no” olarak değiştirin.
Ekran Koruyuculardan Kurtulun
Eğer XP ekran koruyucularını kullanmıyor ve bunlardan kurtulmak...
...tıkladığımda sırasıyla Tx1-a1'Hç, Tx2-b1'Hç, Tx1-c1'Hç 'e eklensin.
s.2
UserForm1'den UserForm2'e NEXT Buttonu ile nasıl geçiş yapılır.
s.3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Beep
End Sub
burada "Beep" yerine başka ne kullanabilirim
yardımlarınız için teşekkürler.
...veriyor. Yardımcı olursanız sevinirim.
Private Sub fiyat1_Change()
fiyat1.Value = Format(fiyat1, "###,###")
End Sub
Private Sub fiyat1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
Beep
End If...
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.