AccessTr.neT

Tam Versiyon: excelde timer
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
[attachment=12210][attachment=12210]Merhabalar;
Acceste yaptığımız gibi Excel userformlarında da timer uygulaması yapılabilirmi?
Geri saydırmak ve belirlenen zamanlarda bir kısım kontrolleri görünmez yapmak gibi

forma üzerindeki text kutusunda geri sayım yaptırsak, 30. sayinede, 1. butonu, gizlese,
60. saniyede 2. butonu gizlese.
Veya geri sayım yaparak bu işleri yapsa
Soruyu biraz değiştirsem iyi olacak.
Eski şekliyle ilgili bir uygulama yapılamıyor heralde.
User formu kaldıralım evvela.
Normal bir sayfaya bir kaç buton ekledik diyelim.
Makra veya hücre içinde bir çalışma ile timer oluşturup, 20 saniyede 1. buton, 40 saniyede 2. buton gizlensin diyebilirmiyiz
Sn:herdogan
UserForm1 üzerine butonlar ekleyiniz (CommandButton1, CommandButton2, CommandButton3) ve bir adette Module1 ekleyiniz butona yazılacak kodlar aşağıdaki gibidir.
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
CommandButton3.Visible = True
Application.OnTime Now + TimeValue("00:00:02"), "Form1"
Application.OnTime Now + TimeValue("00:00:03"), "Form2"
End Sub
Module1 e yazılacak kodlar aşağıdadır.
Private Sub Form1()
UserForm1.CommandButton2.Visible = False
End Sub
Private Sub Form2()
UserForm1.CommandButton3.Visible = False
End Sub