1 den 100 e kadar yarım saniye aralıklarla saydırma

[Muhammet Okumuş]

Değerli forum üyeleri acaba a1 hücresine 1 den 100 kadar sırayla yarım saniye aralıklarla sayılar gelebilir mi? Örneğin bir düğmemiz olacak ona bastığımız anda a1 hücresinde 1, 2,3 ... ,100'e kadar yarım saniye aralıklarla sayı gelebilecek makro var mı?Forumda sayma diye arama yaptım.Ama çok fazla sonuç buldu.Çözüm varsa yardımlarınızı bekliyorum.

 

[leumruk]

Merhaba,

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Sayi_Cevir()
[a1].ClearContents
For x = 1 To 100
Sleep (500)
[a1] = x
Next
End Sub

Bu kodla da makro çalışırken excel üzerinde başka işlemler yapabilirsiniz.

Sub Sayi()
[a1].ClearContents
For x = 1 To 100
basla = Timer
Do While Timer < basla + 0.5
DoEvents
Loop
[a1] = x
Next
End Sub

 

[Muhammet Okumuş]

sn leumruk çok teşekkür ederim bir de stop düğmesi ekleyebilir misiniz?yani stop düğmesine bir kez basınca duracak,bir kez daha bastığımızda kaldığı yerden devam edecek

 

[leumruk]

Merhaba,
Butona ilk basmanızda çalışır, ikincide durur.

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "ÇALIŞTIR" Then
CommandButton1.Caption = "DUR"
Else:
CommandButton1.Caption = "ÇALIŞTIR"
End If
Do While [a1] < 100
If CommandButton1.Caption = "DUR" Then
basla = Timer
Do While Timer < basla + 0.5
DoEvents
Loop
[a1] = [a1] + 1
Else: Exit Sub: End If
Loop
End Sub

 

[Muhammet Okumuş]

Sn leumruk çok teşekkür ederim.Tam istediğim gibi olmuş.Allah sizden razı olsun.

 

[leumruk]

Sn leumruk çok teşekkür ederim.Tam istediğim gibi olmuş.Allah sizden razı olsun.

Rica ederim.:hey:

 

[mutluedenercan]

slm, bunu geriye saydırıp süre bitiminde bir mesaj veya bir işlem yaptırmak mümkünmü ?

Do While Timer < basla + 0.5 kodunu 0,5 saniye bekle demek deyilmi.. bu satırı başka kodda denedim neden olmadı

 

[Muhammet Okumuş]

Sn leumruk bu konuda 2 sorum olacak.
1.Private Sub CommandButton1_Click() kodla başlayan düğmeyi hiç bir yere taşıyamıyorum.Bu düğmenin taşınma özelliği yok mu?
2.Acaba stop düğmesi için sub komutuyla başlayan bir kod yazılabilir mi?

 

[leumruk]

Düğme taşınabilir tabi. Aşağıda belirttiğim yolu takip edin.
GÖRÜNÜM>ARAÇ ÇUBUKLARI>DENETİM ARAÇ KUTUSU> TASARIM MODU'nu seçtiğinizde düğmeyi istediğiniz yere taşıyabilirsiniz.
Tasarım modu çıkan ekrandaki cetvel resimli kısım. Yani ilk seçenek.

 

[Muhammet Okumuş]

Evet oldu.Bir türlü taşıyamıyordum.Teşekkür ederim sn leumruk.

 

[leumruk]

Evet oldu.Bir türlü taşıyamıyordum.Teşekkür ederim sn leumruk.

Rica ederim.