كيف يتم تحويل أرقام الخليه الى ساعات

[lyla]

السلام عليكم : هل من الممكن تحويل محتوى الخليه من أرقام الى وقت . وأن شاء الله المثال المرفق يوضح المراد أكثر مع جزيل الشكر.أختكم في الله

ex.rar

[lyla]

أبشركم عرفت ولله الحمد وذلك بواسطة دالة الوقت . ومافيه مانع لمن يريد يحل المثال للمنفعه العامه ودمتم

=TIME(G17+C17;F17+B17;)

ملاحظه في الكود خليته بيجمع الخليتين الأولى وهما عبارة عن ساعه والخليتين الآخيرتين عبارة عن دقائق

[lyla]

و هذا المثال بالكامل لمن يريد

ex.rar

[محمد عسكر]

السلام عليكم

الأخت / lyla

الحمد لله انك وصلت الى ما تريدينه و تبحثين عنه

و اضافه صغيره

1 - هذا الكود فى صفحهTHISH WORKBOOK

Private Sub Workbook_Open()
 Call Timer
userformasker.Show

End Sub

و هذا الكود فى ماكرو على اساس ان اسم الورقه هو ورقه 1 و فى الخليه A1 فيها كود =NOW()

Sub Timer()
Application.OnTime Now + TimeValue("00:00:01"), "ChangeTime"
End Sub
Sub ChangeTime()
On Error Resume Next
Sheets("ورقة1").Range("A1") = Now()
Call Timer
Exit Sub
End Sub

هذا و الله اعلم

تحياتى

[lyla]

أخ محمد السلام عليكم ... سراحه تورطت مره ثانيه شوف هذا المثال وتعرف

ex2.rar