İleri Excel » Makrolar

 

Zaman Sayacı

1. A1 Hüresinde 60 saniye saydıkdan sonra durur.

 

Sub Timer()    
Start = Timer   
Do      
DoEvents    
Finnish = Timer  
[A1] = Format(Finnish - Start, 00)  
Loop While Finnish - Start <= 60  
End Sub  

 

2. A1 Hüresinde 60 saniye saydıkdan sonra 0'dan yeniden başlar.

 

Sub Timer()    
ResumeSub;
Start = Timer   
Do      
DoEvents    
Finnish = Timer  
[A1] = Format(Finnish - Start, 00)  
Loop While Finnish - Start <= 60  
GoTo ResumeSub;
End Sub  

 

 

Zaman Gecikmeli MsgBox
 
Sub Timer_MsgBox() 
Application.Wait Now + TimeValue(00:00:10) 
MsgBox (10 saniye geçti!) 
End Sub  
					 

 

 

Zamanlamalı UserForm
Private Sub UserForm_Activate()    
Application.OnTime Now + TimeValue(00:00:05), KillTheForm  
End Sub 

 


  • Lookup Formülleri

    Excel'de sıklıkla kullanılan Lookup formülleri ile ilgili örnekli anlatımlara ulaşmak için tıklayınız.

    Devamı »

  • Excel İpuçları

    Zaman kazandıracak faydalı ipuçları ve daha fazlası için mutlaka göz atın.              

    Devamı »

  • VBA Programlama

    VBA makroları oluşturarak Excel'in sınırlarını zorlayın. Örnek kodları inceleyin veya kendi makronuzu kaydedin.

    Devamı »