طارق محمود

السلام عليكم تفضل اخي المرفق علي الرابط ===== تم اضافة المرفق للمشاركة كود لاستخراج الاسماء بثلاث شروط1.rar

بالنسبة لمن حمل الملف أرجو تصليحه كما سبق أو تحميل الجديد (مرفق) توزيع3.rar

السلام عليكم فيه خطأ بالكود سيتم تعديله حالا الثلاث مواضع للدالة Match المعامل 0 بدلا من 1

السلام عليكم إذن جرب هذا Range("A7", [L10000].End(xlUp)).Select

السلام عليكم أخي العزيز بعد إذن الأساتذة لأفاضل : أحمد يعقوب ، العيدروس قد يكون كل ماتحتاجه تحديد بيانات Data Validation وليس فورم جرب المرفق حسب إختيارك لـ (نوع الصنف) سيتحدد مجموعة (الصنف) المتاح به الإختيار Book1_TAREQ.rar

السلام عليكم أخي العزيز استخدم الكود Range("A7", Cells.SpecialCells(xlCellTypeLastCell)).Select

السلام عليكم أخي العزيز رددت عليك منذ ساعتين , ولادري أين ذهب الرد عموما تفضل المرفق وبه التعديل المطلوب 3جديد.rar

تفضل المرفق وبه الكود توزيع2.rar

السلام عليكم أخي العزيز إستعمل هذا الكود Sub distribute() LR = [B10000].End(xlUp).Row For i = 1 To 6 Asas_Col = i + 140 x = "اساسى " & i y = "الدرجة النهائية 1" C1 = WorksheetFunction.Match(x, [B4:CX4], 0) + 1 C2 = WorksheetFunction.Match(y, Range(Cells(6, C1), Cells(6, C1 + 9)), 0) + C1 - 1 For r = 9 To LR If Cells(r, Asas_Col) > 0 Then With Sheet2 Rw_1 = WorksheetFunction.Match(i, .[F1:F1000], 0) + 36 LR_i = .Range("C" & Rw_1).End(xlUp).Row + 1 .Cells(LR_i, "C") = Cells(r, "B") .Cells(LR_i, "B") = Cells(r, "D") .Cells(LR_i, "D") = Cells(r, C2) End With End If Next r Next i MsgBox ("تم الترحيل بحمد الله") End Sub يتم تشغيله بزر مثلا من ورقة الاساس

السلام عليكم بعد إذن أخي عبدالله (أبا أحمد) الدالة SUBTOTAL تحل محل (أو تؤدي وظيفة) دوال أخري وهي التي أشار إليها أخونا الحبيب أبا أحمد في ملفه ولكن الفارق الرئيسي بينها وبين الدوال الأخري التي تحل محلها أنها تقوم بوظيفة تلك الدوال في حالة إخفاء بعض بياناتها (عن طريق الفلتر) وتكون صياغتها ، تتبع بقوسين بينهما عنصرين يفصل بينهما كومة أو كومة منقوطة حسب تجهيز الويندوز عندك كالتالي =SUBTOTAL (n,Range) أو =SUBTOTAL (n;Range) حيث: n رقم صحيح ويأخذ قيم من 1 إلي 11 Range هو النطاق الذي به البيانات إذا كانت n= 1 فهي تحل محل الدالة AVERAGE و إذا كانت n= 2 فهي تحل محل الدالة COUNT و إذا كانت n= 3 فهي تحل محل الدالة COUNTA و إذا كانت n= 4 فهي تحل محل الدالة MAX و إذا كانت n= 5 فهي تحل محل الدالة MIN و إذا كانت n= 6 فهي تحل محل الدالة PRODUCT و إذا كانت n= 7 فهي تحل محل الدالة STDEV و إذا كانت n= 8 فهي تحل محل الدالة STDEVP و إذا كانت n= 9 فهي تحل محل الدالة SUM و إذا كانت n= 10 فهي تحل محل الدالة VAR و إذا كانت n= 11 فهي تحل محل الدالة VARP لاحظ أن الرقم الصحيح n هو التي يحدد الدالة التي تحل محلها دالة SUBTOTAL وأشهر استخداماتها مع الرقم 9 (الجمع) في مثال أخي عبدالله (أبا أحمد) في الخلية B10 من ورقة شرح تجد المعادلة =SUBTOTAL(9,$A$2:$A$12) وبجوارها معادلة الجمع العادية =SUM(A2:A12) ونتيجتهما واحدة 66 لو عملت فلتر (تصفية) واخفيت بعض الصفوف غير الـ 9 ستجد نتيجة SUBTOTAL تتغير والأخري لاتتغير ملحوظة أخري إذا أضفت 100 للمعامل n بمعني 101 بدلا من 1 و 102 بدلا من 2 و 103 بدلا من 3 و 104 بدلا من 4 و .... هكذا سيؤدي نفس دور الدالة الأخري ، أي سيأخذ بالإعتبار الصفوف المخفية بالفلتر

السلام عليكم عثرت اثناء تصفحي للإنترنت علي الموقع التالي للمستندات الأكثر استخداما http://www.vertex42.com/ExcelTemplates/business-templates.html ومع انه باللغة الإنجليزية إلا أنكم ستجدون فيه إجابات علي معظم الأسئلة المتكررة ونماذج جيدة جدا في شتي المجالات مثل نموذج فاتورة ( المبيعات - المشتروات ) نموذج إيصال نموذج طلب العمل نموذج تعبئة للشحن Packing List نموذج حضور وانصراف (مع إمكانية راحة واحدة أو أكثر باليوم) جدول للرواتب تقرير مصروفات نموذج تسديد حاسبة صك الراتب استمارة طلب وظيفة نموذج جرد نموذج مراقبة المخزون تتبع البرامج الجرد وتتبع معدات الأصول استهلاك قرض حاسبة لحد الدين عمل الميزانية التحليل بطريقة Break Even Analysis تكاليف الأعمال NPV حاسبة الاستهلاك جدول / حاسبة البيانات المالية الميزانية العمومية بيان الدخل / الأرباح والخسائر بيان التدفقات النقدية جدول زمني بسيط تحليل المسار الحرج مراقبة الجودة والإحصاء تحليل بيانات البورصات (شمعات نقاط ارتداد / مقاومة) اختيار الرسم البياني أرجو الله أن ينفعني وإياكم به

السلام عليكم أخي العزيز أهلا ومرحبا بك بين إخوانك بعد إذن اخي أبو أحمد السؤال غير دقيق ففي الحقيقة يمكنك رسم الدائرة بمعلومية نصف القطر فقط (أنظر المرفق) أرجو أن تعيد صياغة سؤالك أو ترسل مثال للعمل عليه هذا إن لم تجد ماتريد في الموضوع الذي أشار إليه أخونا عبدالله المجرب (أبو أحمد) Circle.rar

السلام عليكم أخي الحبيب / أحمد ذكرنا الله وإياكم بما ينفعنا في الدنيا والآخرة هل تقصد (بذكرك للآية الكريمة) تذكيري بشيء لأنني لاأذكر!!

السلام عليكم أخي العزيز في أوفيس 2003 من قائمة Data إختر Import External Data ثم New Web Query ونفس عنوان الويب وباقي الخطوات كما هي مرفق ملف 2003 وبه شرح بالصور أيضا بور صة مصرية.rar

السلام عليكم تفضل أخي المرفق به ورقة بالمطلوب وورقة للشرح بور صة مصرية.rar

السلام عليكم سؤال جيد ، وانت تقريبا أجبت ضمنيا عن نصفه في قولك (فهو حتما ليس القيمة التي نبحث عنها) هي حيلة جيدة تعلمتها من أخي وأستاذي / يحي حسين ، جزاه الله خيرا حاصل قسمة 1 علي أي رقم سيكون أقل من 1 وبالطبع لن يساوي 2 أنا وأنت نعرف ذلك لكن الدالة لاتعرفه فبالنسبة لها ستظل تبحث عن القيمة فلن تجدها وعلي هذا فكل الأرقام الحقيقية ستحقق الشرط بالتقريب وليس بالضبط فترجع لنا آخر قيمة في المصفوفة وهذه الحيلة تفيد في إستخراج آخر رقم ، آخر تاريخ ، آخر ...

السلام عليكم ألف ألف مبروك أخي أحمد البحيري وإلي الأما م دائما إن شاء الله طارق محمود

السلام عليكم تفضل الكود التالي يقوم بنفس العمل تضعه في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) For Each ce In ActiveSheet.UsedRange If IsError(ce) = True Then With ce .Interior.ColorIndex = xlNone .Font.ColorIndex = 2 End With End If Next End Sub

السلام عليكم إستبدل المعادلة بالخلية E19 في الملف السابق رفعه (مشاركة #4) بالمعادلة التالية =SUMPRODUCT(--($B$2:$B$11=E$18),--($A$2:$A$11=$D19))[/code وانسخها للأسفل ولليسار

السلام عليكم أسهل حل سريع بالتنسيق الشرطي ظلل (علًم) المساحة التي تريد عمل ذلك عليها ثم من التنسيق الشرطي Conditional Format من آخر خيار في التنسيق الشرطي (عن طريق صيغة) ضع المعادلة التالية =ISERROR(A1) حيث A1 هي الخلية النشطة في المجال الذي اخترته ثم إجعل شرط التنسيق هو لون الفونط الأبيض

السلام عليكم بعد إذن اخي أحمد ولإثراء الموضوع تفضل أخي المرفق قد يكون هذا ماتريد علي الرابط http://www.4shared.com/rar/1qILsaLZ/Book1_.html

السلام عليكم تفضل هذا هو الكود Sub shift_School() Dim x As Integer LR = [B10000].End(xlUp).Row On Error Resume Next For r = 6 To LR yy = Cells(r, "C").Value x = WorksheetFunction.Search("بتدا", yy) If x = 0 Then GoTo 10 s = Sheet2.[B10000].End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy (Sheet2.Cells(s, "A")) x = 0 GoTo 30 10 x = WorksheetFunction.Search("عداد", yy) If x = 0 Then GoTo 20 s = Sheet3.[B10000].End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy (Sheet3.Cells(s, "A")) x = 0 GoTo 30 20 x = WorksheetFunction.Search("ثانوي", yy) If x = 0 Then GoTo 30 s = Sheet4.[B10000].End(xlUp).Row + 1 Range("A" & r & ":E" & r).Copy (Sheet4.Cells(s, "A")) x = 0 30 Next r End Sub وهذا هو الملف كشف مساعدات2.rar

عفوا تفضل المرفق بالرابط http://www.4shared.com/rar/eQBLUDLk/_2_online.html

السلام عليكم إضغط الزر الأحمر (ترحيل العلاوات) في المرفق

السلام عليكم سؤال جيد أعتقد أنه يعتمد علي نوع الخطأ والدوال المستخدمة والتي أنتجت هذا الخطأ ولذلك يلزم مثال ياأخي للعمل عليه