السلام عليكم
الاخ العزيز / الصاوي حسن
بارك الله فيك
بالنسبة لملفك المرفق والطلبات الخاصة به
1- بالنسبة لموضوع الحذف فقد جربته علي الملف المرسل منكم ويعمل بصورة طبيعية لدي ...
ولكن اظن ان السبب في حماية الشيت خاصتك حيث وجد الشيت محمي ولم اقم بفتحه احتراما لحقوقك الشخصية
2- بالنسبة لتفعيل الـ calender في يوزر فورم 1 تم تنفيذ طلبك ولكن بدون زر مجرد الدخول في تكست بوكس التاريخ
يظهر فورم النتيجة ... قم باختيار التاريخ المطلوب والخروج من التكست سيتم تنسيقه بالتنسيق الموجود بالكود
3- بالنسبة للترتيب التلقائي الشيت المرسل منكم فهو محمي ولايمكن عمل ذلك
وبالنسبة لهذا الطلب استخدم المعادلة التاليه في عمود الترقيم
=IF(B4="";"";SUBTOTAL(3;B$3:B4))
او استخدم الكود التالي للترقيم التلقائي في حدث الورقة Private Sub Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value <> "" Then
With Cells(Target.Row, Target.Column - 1)
.FormulaR1C1 = _
"=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R2C[1]:RC[1]),"""")"
End With
Else
Cells(Target.Row, Target.Column - 1).ClearContents
End If
End If
ActiveSheet.Protect Password:=123, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
4- بالنسبة لتجميع اجمالي الراتب في يوزر فورم 2 تم عمل المطلوب
واي تعديلات او طلبات معك دائما ( باذن الله )
جزاك الله خيرا
06-04-2013sama.rar