• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excelde sürekli aktif saat

  • Konbuyu başlatan Konbuyu başlatan kekin57
  • Başlangıç tarihi Başlangıç tarihi
Katılım
28 Ocak 2007
Mesajlar
2
Excel Vers. ve Dili
office 200
Excelde yaptığım bir proğramın ana sayfasında (excel ana sayfada) sürekli çalışan saat yapmak istiyorum. sayfanın bir hücresine =ŞİMDİ() ile yaptığım saat sadece exceli açtığım zamanları gösteriyor.excelin herhangi bir hücresine sürekli çalışan saat yapabilirmiyim teşekkür ederim.
 
merhaba arkadaslar excel sayfasında irsaliye kesiyorum benim sorunum irsaliye satini elimle yazmak zorundayım devamlı aktif hale nasıl yaparım yardımlarınız ıcın sımdıden tskler saygılar..
 
merhaba arkadaslar excel sayfasında irsaliye kesiyorum benim sorunum irsaliye satini elimle yazmak zorundayım devamlı aktif hale nasıl yaparım yardımlarınız ıcın sımdıden tskler saygılar..
Kod:
Private Sub Workbook_Open()
Do
DoEvents
[A1] = Format(Now, "hh:mm:ss")
Loop
End Sub
[A1] HÜCRESİNDE ÇALŞIR SİZ İSTEDİĞİNİZ HÜCREYİ YAZIN
 

Ekli dosyalar

  • Saat.xls
    Saat.xls
    23.5 KB · Görüntüleme: 283
arkadaslar uzun zamandır aramış olduğum birşey bu fakat bi türlü yapamadım, ekteki dosyayı (2003 excel) açarken makro hatası alıyorum, yukarıdaki kodu nereye girebilirim?
 
arkadaslar uzun zamandır aramış olduğum birşey bu fakat bi türlü yapamadım, ekteki dosyayı (2003 excel) açarken makro hatası alıyorum, yukarıdaki kodu nereye girebilirim?

Sayın emrah82
makro hatası derken makro güvenlik hatasımı veriyor.
 
arkadaşlar fazla uğraşmayın yok kayıt yok o dosyayı indir falan hiç gerek yok
işte formül yazacağınız kutuya aynen yaz
=şimdi()
budur
 
saat makrosunu çaılştırdığımızda hücreler pasif konuma geçiyor
 
Sürekli olarak hücreye saat yazdığı için kilitlenme yaratabilir. Hücre yerine excelin görev çubuğu (statusbar) kullanılabilir.

C++:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.StatusBar = False
End Sub

Private Sub Workbook_Open()
    Do
        DoEvents
        Application.StatusBar = Now
    Loop
End Sub
 
Sayfa1de internetten veri çekiyorum. ama sayfamda aktif saate ihtiyacım var. ve buradaki

Private Sub Workbook_Open()
Do
DoEvents
[A1] = Format(Now, "hh:mm:ss")
Loop
End Sub

kodlarını kullandığımda internetten veri çekme excel alt bilgi çubuğunda "Arka Plan sorgusu çalıştırılıyor" yazıp öylece bekliyor ve veriler güncellenmiyor. vba kodlama kısmında durdurma işlemi yaptığımda güncelleme çalışıyor. bunu düzeltmemin bir yolu var mıdır. Aktif bir saat kullanmam şart.
 
Geri
Üst