أبو حنــــين

مرحبا أخي اولا : هل ( b10) تجمع في كل الحالات ثانيا : كيف يكون الناتج عندما تكون قيمة الخلية اقل من 30 سجل اعجاب بهذا

مرحبا يمكن ان تستعمل هذه الدالة المعرفة Function GetValue(C As Double) Dim MyResult As Single Select Case C Case 30 To 60: MyResult = C * 0.97 Case 61 To 90: MyResult = C * 0.94 Case Is > 90: MyResult = C * 0.91 End Select GetValue = MyResult End Function ' ثم تكتب في الخلية المعنية بالناتج ' =GetValue(B2)

الحمد لله و جزاكم الله كل الخير

لمسح المحتويات Sub CopyToSheets() Application.ScreenUpdating = False Dim i As Integer, sh As Worksheet, HS As Worksheet, Lr As Integer, iLr As Integer Set sh = Sheets("الرئيسية") With sh Lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To Lr 'Sheets.Count For Each HS In Sheets If HS.Name = sh.Cells(i, 1) Then iLr = HS.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A" & i).Resize(, 7).Copy HS.Range("A" & iLr).PasteSpecial (xlPasteValues) End If Next Next .Range("A2:G" & Lr).ClearContents End With Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

السلام عليكم جرب هذا الكود Sub CopyToSheets() Application.ScreenUpdating = False Dim i As Integer, sh As Worksheet, HS As Worksheet, Lr As Integer, iLr As Integer Set sh = Sheets("ÇáÑÆíÓíÉ") With sh Lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To Lr 'Sheets.Count For Each HS In Sheets If HS.Name = sh.Cells(i, 1) Then iLr = HS.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A" & i).Resize(, 7).Copy HS.Range("A" & iLr).PasteSpecial (xlPasteValues) End If Next Next End With Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

السلام عليكم اعتقد و الله اعلم أنه تم عمل المطلوب جمع العناصر المتشابهة 33.rar

لم اجرب الكود لذلك وقع الخطأ و لقد تم تصحيحه جديد الاصناف 3.rar

مرحبا اعتقد انك قمت بالاجابة و ذلك باستعمال الدالة : SUBTOTAL =SUBTOTAL(3;A1:A10)

السلام عليكم اخي ابو عبد الرحمان أخوك ابو حنين بطيئ الفهم أرفقت لك ملف أريد فيه بعض التوضيح مثال.rar

مرحبا تم عمل المطلوب ان شاء الله جديد الاصناف 2.rar

حتى يعمل زر الطباعة لابد من كتابة التاريخ : من . . . الى اكتب تاريخين من الى ثم جرب الطباعة مع مراعات ان يكون عمود التاريخ K منسق بتنسيق التاريخ

مرحبا جرب أخي المرفق جديد الاصناف1.rar

السلام عليكم جرب اخي المرفق نمودج من اصناف.rar

المرفق بالتنسيق الشرطي 2مدفوعات.rar

مرحبا على ما يبدو ان القيمة 2000 هي حاصل جمع القيم : ( 800 + 100 ) + ( 500 + 600 ) و إن كان الأمر كذلك فمعنى هذا أنه لا ينبغي مسح القيم السابقة (كل ما تتغير القيمة لشخص تضاف لسابقتها ) و ان كان الأمر يختلف عن هذا فأرجو التوضيح عن مصدر الرقم 2000

السلام عليكم اعتقد و الله أعلم أنه لا توجد طريقة سوي تحويل ملف الإكسيل الى ملف تنفيذي بإمتداد exe

السلام عليكم اعتذر اخي ابو عبد الرحمان للتأخر عن الرد بسبب النت جرب المرفق و تأكد من النتائج و اخبرني جمع العناصر المتشابهة 1.rar

مرحبا هل تريد عدم تكرارا الرقم في العمود الاول او عدم تكرارا الاسم في العمود الثاني و الثالث

السلام عليكم هناك مشكلة في تحميل الملف

السلام عليكم أخي أبو عبد الرحمان جرب المرفق تم إلغاء دمج الخلايا في صفحة Salary الصف السابع جمع العناصر المتشابهة باستخدام المصفوفات.rar

مرحبا يمكن الجمع بهذه الطريقة '=COUNTIF($D$4:$H$4;"ح")+COUNTIF($D$4:$H$4;"ت")+COUNTIF($D$4:$H$4;"غ")

=COUNTIF(G4:AG4;"ح") =COUNTIF(G4:AG4;"ت") = SUMPRODUCT(--(I4:AH4=U4)--(I4:AH4=Z4)) =COUNTIF(G4:AG4;"ح")&" - "&COUNTIF(G4:AG4;"ت") ="الحضور "&COUNTIF(G4:AG4;"ح") ="التأخر "&COUNTIF(G4:AG4;"ت") =" مجموع الحضور و التأخر" & SUMPRODUCT(--(I4:AH4=U4)--(I4:AH4=Z4)) ="الحضور "&COUNTIF(G4:AG4;"ح")&" التأخر " & " " &COUNTIF(G4:AG4;"ت") السلام عليكم هل تقصد هكذا

السلام عليكم في زر البحث ستجد هذا السطر If CStr(.Cells(x, 3)) = CStr(TextBox5.Value) Then فقط قم بتغير الرقم 3 الى الرقم 1 و هو يعني عمود البحث العمود الاول 1 هو الاسم العمود الثاني 2 هو العنوان العمود الثالث 3 هو رقم الهاتف ........... وهكذا البحث بالاسم

مرحبا أخي الكلمة تعني نطاق سمي بهذه التسمية و هو : A2 : I500 و لمعرفة هذا النطاق هناك طريقتان - 1 - من مربع الاسم الموجود في اليسار ( في الافيس العربي) مقابل شريط الصيغة تجد سهم صغير اضغط عليه تجد الكلمة ، اضغط على الكلمة يحدد لك النطاق - 2 - من شريط القوائم نذهب الى : صيغ ------> ادارة الاسماء ، تجد الكلمة اضغط عليها يظهر لك النطاق الخاص بهذه الكلمة ملاحظة لتعيين نطاق معين نحدده مثلا ( A1:D20 ) ثم في مربع الاسم نكتب أي اسم و نضعط على أنتر

مرحبا الملف يحتوي على ما طلبت تسجيل بيانات15.rar