Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Temmuz 2008 Salı

UserForm Time Kontrol


'UserForm1

Option Explicit
Private Sub UserForm_Initialize()

On Error Resume Next
Me.Caption = "[PBİD®] UserForm Time Controls..."

End Sub
Private Sub UserForm_Activate()

On Error Resume Next
Do

Label1.Caption = VBA.Format(Now, "hh:mm:ss")
DoEvents

Loop

End Sub

Hiç yorum yok:

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul
Anadolu Üniversitesi Açık Öğretim Fakültesi