نبيل عبد الهادي
-
Posts
125 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
نبيل عبد الهادي's post in هل ممكن نسخ شيتات من ملف محمي إلى ملف آخر was marked as the answer
تفضل...
1- على اعتبار ان الملف 1.xlsm في مجلد Files في القسم c
2- بعد انتهاء نقل الاوراق اختر "حفظ" اذا كنت لاتريد احتفاظ الملف الاصلي 1.xlsm بالاوراق المنقوله والعكس صحيح عند اختيار "عدم الحفظ"
3- يمكن لك نسخ الاوراق اكثر من مره الى ملف HR_TESTER
HR_TESTER.xlsm 1.xlsm
-
نبيل عبد الهادي's post in اخفاء واظهار اوراق العمل بناء على معلومة في خلية was marked as the answer
السلام عليكم
اكتب او اختر من القائمة المنسدلة في الخلية m1
اخفاء اوراق العمل بناء على معلومة في خلية.xlsm
-
نبيل عبد الهادي's post in كيفية جعل الشيت ثابتة was marked as the answer
السلام عليكم .المعذره لم استطع تحميل ملفك المرفق
عموما ..ضع الكود التالي في حدث الورقة المطلوبه ويمكن لك التحكم في المدى بين علامتي ""
Private Sub Worksheet_Activate() ScrollArea = "A1:N100" End Sub
-
نبيل عبد الهادي's post in ترقيم تلقائى متسلسل was marked as the answer
تفضل
ترقيم تلقائى متسلسل.xlsm
-
نبيل عبد الهادي's post in اختصارات الاجازات was marked as the answer
p حاضر -------------> Present
off موقوف -----------> off
H عطلة ---------------> holiday
HW عطلة يسمح فيها العمل ------------ holiday work
A غائب -----------------> absent
SL اجازة مرضية -------------------> Sick leave
CL اجازة عادية ------------------> Casual leave
EL اجازة مكتسبة --------------> Earned leave
LWP اجازة بدون اجر -----------> Leave without pay
SP اجازة خاصة -----------------> Special leave
-
نبيل عبد الهادي's post in كيفية إنشاء نسخة من ملف إكسيل تستحدث تلقائياً was marked as the answer
1- عن طريق عمل اختصار للملف الاصلي على سطح المكتب اي تعديل سوف يعدل في النسخه الاصلية
2-عن طريق الاكواد
الكود الاول لعمل نسخه واحده باسم الملف في المجلد المفترض من البارتش المفترض (يمكن تغيره)
Sub backup() Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="D:\backup\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True Call MsgBox(" تم الحفظ بنجاح ", mBox, "شكرا لكم") End Sub الكود الثاني لعمل نسخه باسم الملف عند الحفظ كل مره في الساعه والدقيقه والثانية في المجلد الفترض من البارتشن المفترض (يمكن تغيره)
Sub myBackup() Dim strDate As String, strTime As String strDate = Format(Date, "DD-MM-YYYY") strTime = Format(Time, "hh.mm.ss") Application.DisplayAlerts = False With ActiveWorkbook .SaveCopyAs Filename:="D:\backup\" & strDate & "_" & strTime & "_" & .Name End With Application.DisplayAlerts = True Call MsgBox(" تم الحفظ بنجاح ", mBox, "شكرا لكم") End Sub