Hücrede aktif saat

[acar6783]

Bu Baslikta Bircok Yazi Okludum Fakat Cvbimi Bulamadim Yapmak Istediim =simdi() Yani Guncel Saati Ben Calisma Sayfasindayken Calisir Durumda Olmasi Yani Saiyesi Islemesi Ama Bi Turlu Bulamiorum Cvbimi Yardimlarinizi Beklioruum

 

[Ömer]

Merhaba,

Linki incelermisiniz..

http://excel.web.tr/showthread.php?t=38457&highlight=g%FCncel+saat

 

[acar6783]

Inceledim Fakat Orda Bi Dosyada Bi Asaat Eklenmi Ole Duruyo Hic Ilerleme Yok

 

[Ömer]

Merhaba,

Boş bir excel sayfasını açarak Araçlar / Makro / Güvenlikten Güvenlik Düzeyini Düşük ( önerilmez ) olarak işaretledikten sonra deneyiniz..

 

[acar6783]

Hersey Tmm Cok Saolun Bunu Kopyalayabilirim Degilmi Kendi Sayfama
?*

 

[Ömer]

Dosyayı açtıktan sonra ALT F11 tuşlarına birlikte basınız, module1 içindeki kodları kendi dosyanızda boş bir modul oluşturarak içine kopyalabilirsiniz.

 

[acar6783]

Biraz Daha Acsaniz

 

[Ömer]

Çalışma sayfanızı açınız,

Araçlar / Makro / Visual Basic Düzenleyici ( kısayol klavye tuşu Alt F11 dir ) açınız açılan ekranda bir modul oluşturunuz oluşan module aşağıdaki kodları yapıştırınız.

Sub Tak()
    Dim Zaman As Date
    Zaman = Now + TimeValue("00:00:01")
    Application.OnTime Zaman, "Tik"
End Sub
Sub Tik()
    Range("[COLOR="Red"][B]A1[/B][/COLOR]").Value = Now
    Call Tak
End Sub

Buradaki A1 hangi hücrede saati göstermek istediğinizi belirtir.

Daha sonra ThisWorkbook sayfasına aşağıdaki kodları yapıştırınız.

Private Sub Workbook_Open()
    Call Tak
End Sub

Bu işlemleri yaptıktan sonra Visual Basic ekranını kapatınız, daha sonra A1 hücresinin hücre biçimlendirmesini İsteğe uyarlamıştan tür bölümüne,

gg.aa.yy - ss:dd:nn

Yazınız..

 

[Ömer]

Merhaba,

Resimde kırmızı ile işaretli bölgelere dikkat ediniz..

 

[acar6783]

Abim Kusura Bakma Module Kodlari Girdimde Thisworkbook Nerde Bulamiorum Acemiyim Biraz Da Mazur Gorun

 

[Ömer]

9. mesajımdaki resmi incelediniz mi?

 

[acar6783]

Tmm Buraya Kadar Yaptim Herseyi Ama Saat Cikmadi Belrttigim Hucrede

 

[Ömer]

Dosyanızı kaydetip, kapatınız ve tekrar açarak denermisiniz..

 

[acar6783]

Abi Helal Saolasin Cok Ugrastirdim Seni Ksra Bakam
Tesekkurler

 

[Ömer]

Önemli değil,

Yardımcı olabildiysem ne mutlu bana.

İyi çalışmalar..