سؤال لأهل الخبرة

[malak 2018]

م

ليه لما احط الكود بتاع التاريخ و الوقت فى اليوزرفورم الملف مايتشغلش و حتى محرر الاكواد لا يعمل ؟

الكود :

Private Sub UserForm_Activate ()

Label4.Caption = Date

Label5.Caption = Format(Date, "dddd")

Do

Label6.Caption = Time

DoEvents

Loop

End Sub

حتاج ضرورى كود لطباعة الخلايا التى بها بيانات و عدم طباعة الخلايا الفارغة