google reklam

arama

29 Haziran 2010 Salı

Excel içinde sürekli çalışan saat

Evet arkadaşlar belki lazım olur belki olmaz ama illaki deneyeceğinizden eminim. :)

- bunu yapmak için ilk önce excel açalım

- arkadasından Alt+F11 yapalım

- insert den modül ekleyelim ve içine aşağıdaki kodları ekleyip kaydedelim

- Sonrasında macrolardan çalıştırdığımızda A1 hücresinde sürekli çalışan saatinizi görebilirsiniz.

Dim stopit As Boolean 'on top of module!

Sub startclock() 'assign start button
stopit = False
clock
End Sub

Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

Sub stopclock() 'assign stop button
stopit = True
End Sub

 

image

Hiç yorum yok:

Yorum Gönder