كود تحويل الساعات الى دقائق

[أبو قاسم]

ارجو المساعدة بكود تحويل الساعات الى دقائق

تحويل الساعات الى ثواني.rar

[سليم حاصبيا]

جرب هذا الملف

 

ta7weel.rar

[أبو قاسم]

تشكر الف شكر

[أبو قاسم]

هل فية امكانية بعد تنفيذ الكود  يقوم بمسح المعادلة

طبعاً المطلوب تحويل الساعات الى دقائق فقط

[سليم حاصبيا]

26 دقائق مضت, أبو قاسم said:

هل فية امكانية بعد تنفيذ الكود  يقوم بمسح المعادلة

طبعاً المطلوب تحويل الساعات الى دقائق فقط

استبدل الكود بهذا

Sub ta7wil_ila_sec()
Application.ScreenUpdating = False
lrj = Cells(Rows.Count, "j").End(3).Row
If lrj < 6 Then lrj = 6
For i = 6 To lrj
If Cells(i, "j") <> "" Then
x = CDate(Range("j" & i))
h = Hour(x): m = Minute(x): s = Second(x)
 Cells(i, "j").Offset(0, 1) = h * 60 + m
 Cells(i, "j").Offset(0, 2) = h * 3600 + m * 60 + s
 Cells(i, "j").Offset(0, 1).Resize(1, 2).NumberFormat = "general"
 End If
 Next
 Application.ScreenUpdating = True
End Sub