م
ليه لما احط الكود بتاع التاريخ و الوقت فى اليوزرفورم الملف مايتشغلش و حتى محرر الاكواد لا يعمل ؟
الكود :
Private Sub UserForm_Activate ()
Label4.Caption = Date
Label5.Caption = Format(Date, "dddd")
Do
Label6.Caption = Time
DoEvents
Loop
End Sub
حتاج ضرورى كود لطباعة الخلايا التى بها بيانات و عدم طباعة الخلايا الفارغة