السلام عليكم
عندى اقتراح
نصحت احد الاخوه به و تم بشكل جيد
اجعل المجموع في اول صف و قم بتجمده من تجميد الواح و بذلك يبقى المجموع امامك
الى ان ييسر الله الحل
اما الطباعة في سهله
حدد الخانه التى تريدها ان تظهر المجموع و اجعلها كتذييل للصفحه برمجيا مثل الكود التالى
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = ActiveSheet.Range("a169:f169")
End Sub
السلام عليكم
http://www.officena.net/ib/index.php?showt...;ال
مستوى الاسئله عندك متقدم مع انك عضو جديد(قد تكون مبرمجا)
نسال الله لك السداد في القول و العمل
السلام عليكم
على عجاله
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value = "" And Target.Column = 2 Then
Target.Value = Now()
Target.Offset(1, -1).Select
End If
End Sub
الكود مرتبط في الحدث دبل كلك من الورقه
و هو كالاتى
اذا اكانت الخليه الهدف فارغه ( حتى لا نضغط على خليه مسجل بها تاريخ دخول مسبق) و كان رقم عمود الخليه الهدف هو 2 (اي نحصر عمل الكود فى الخلايا الفارغه من العمود 2 وهو عمود b
اذا تحقق الشرطان الاوليان : 1- ضع التاريخ و الوقت في الخليه الهدف (الدله now() تقوم بذلك)
2- انتقل الى الخليه التى تبعد عن الخليه الهدف عمود نحو اليمن (A) و صف الى الاسفل
***قمت بحذف كلمه cells من الكود لانها لا داعلى لها
السلام عليكم
حل للسؤال و ليس جواب في البيسك ( الاخ ابو تامر يجيب)
عملت قائمه للاشهر و سميتها ym
و جعلهتا مصدر الصف للكمبوبوكس
اما اخفاء الاشرطه (انا لااحبه) المنتدى ملئ بالبرامج التى تقوم بذلك
testfor_vb.rar
السلام عليكم
الجمله تقول الاتى
=AND($A4<>"",MOD(ROW(),2)=0)
1-اذا كانت الخلية A4 ليست فارغه (<>"")
وكان رقم الصف يقسم على 2 بدون باقي(=0) (بعباره اخرى اذا كان رقم الصف من مضاعفات 2 )
طبق اشرط وهو التلوين بالاخضر الغامق
2- اذا كان الامر عكس ما ذكر اعلاه طبق الشرط الاخر
=AND($A5<>"",MOD(ROW(),2)=1)
و اذا انتفى الشرطان يكون اللون هو اللون الاساسى (التلقائي) وه الابيض
السلام عليكم
اذا كنت تستخدم 2007
=COUNTIFS(A$2:A$300,K2,B$2:B$300,L2)
اذا كنت تستخدم 2003
{=COUNT(IF(A$2:A$300=K2,IF(B$2:B$300=L2,B$2:B$300)))}
_____.rar