textbox da saat

[ccumhur]

arkadaşlar textboxa excel hücresindeki saati nasıl aldırırım dosya gönderemiyom .tşk

 

[aduhan22]

vba kodu (label a uygularsın ama ok...)
[Private Sub UserForm_Activate()
Do
DoEvents
Label1.Caption = Format(Now, "hh:mm:ss")
Loop
'
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub]

 

[Levent Menteşoğlu]

Hücrede sadece saatmi yazıyor, yoksa çalışan bir saatmi var?

 

[ccumhur]

hocam formda çalıştırıyoruzda
ben atıyorum excelehücreye 12:20 değeri girdim form active olunca bu değerin görünmesini istiyorum .

 

[ccumhur]

pardon sorunuzu yeni gördümsadece saat var

 

[Levent Menteşoğlu]

Bu durumda saatin örneğin A1 hücresinde olduğunu kabul edersek aşağıdaki kodu deneyin.

[vb:1:658716e851]Private Sub UserForm_Initialize()
TextBox1 = Format([a1], "hh:mm")
End Sub
[/vb:1:658716e851]

 

[ccumhur]

saolun çokişime yarıyacak tşk

 

[ccumhur]

şimdi basit bir dosyahazırladım yardımlrınızıbekliyom tşk

 

[Levent Menteşoğlu]

Aşağıdaki kodları userforma yazarak deneyin.

[vb:1:0c0aab1791]Private Sub UserForm_Activate()
Do
DoEvents
If Format(TextBox1, "hh:mm:ss") = Label1.Caption Then MsgBox "a"
Label1.Caption = Format(Now, "hh:mm:ss")
Loop
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
[/vb:1:0c0aab1791]