طارق محمود

وللتخلص من مشكلة عدد الأسماء بالملف يمكن تغيير الرقم عشرة بعدد الأسماء الحقيقي كالتالي ActiveWorkbook.Names.Count ليصبح الكود Sub DeleteNames() On Error Resume Next For i = 1 To ActiveWorkbook.Names.Count ActiveWorkbook.Names(1).Delete Next i End Sub

السلام عليكم يمكن التحايل علي ذلك بالكود التالي Sub DeleteNames() On Error Resume Next For i = 1 To 10 ActiveWorkbook.Names(1).Delete Next i End Sub هذا إذا كانت الأسماء في حدود عشرة ويمكنك طبعا زيادتها كما تشاء بتغيير الرقم 10 بالكود

مرفق الملف أيضا وبه الكود غير أنني لم أستخدم CheckBox الخاص بـ (صباح - مساء) لضيق الوقت كل عام وأنتم بخير ترحيل بيانات2.rar

السلام عليكم تفضل أخي الكود التالي Sub shift_empty() Sheets("Cells as CheckBoxes").Activate lastR = [A10000].End(xlUp).Row Sheets("ص").Range("A3:A10000").EntireRow.Delete Shift:=xlUp Sheets("م").Range("A3:A10000").EntireRow.Delete Shift:=xlUp For i = 4 To lastR If Cells(i, "C") <> "a" Then Range("A" & i & ":B" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0)) End If Next i For i = 4 To lastR If Cells(i, "G") <> "a" Then Range("E" & i & ":F" & i).Copy (Sheets("ص").[A10000].End(xlUp).Offset(1, 0)) End If Next i For i = 4 To lastR If Cells(i, "D") <> "a" Then Range("A" & i & ":B" & i).Copy (Sheets("م").[A10000].End(xlUp).Offset(1, 0)) End If Next i For i = 4 To lastR If Cells(i, "H") <> "a" Then Range("E" & i & ":F" & i).Copy (Sheets("م").[A10000].End(xlUp).Offset(1, 0)) End If Next i End Sub

أيضا أنظري الفيديو المرفق Get_Equation.rar

السلام عليكم أهلا ومرحبا أختنا الفاضلة بين إخوانك إذا كنت فقط تريدين معادلة تقريبية فسنلجأ للترند في الإكسل عن طريق التالي: قفي بالماوس علي المنحني كليك يمين - إختاري Add Trendline ثم إختاري Polynomial ومن مربع الـ Order تزودي درجة المعادلة حتي يكون أقرب مايكون للمنحني ثم إختاري Display equation on the Chart

السلام عليكم أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية =SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14) ثانيا في مثالك أنت الأول ، فأنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا فقد أضفت لك العمود F المكتوب بالخط الأزرق وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50 أنظر المرفق في الورقة 100 وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق جداول تسديد العملاء والزكاة_طارق.rar

السلام عليكم أولا في هذا المثال " الجمع بين تاريخيين 1." الذي وضعته انت بالمشاركة السابقة يمكن إستبدال الكود للحصول علي المجموع بالخلية C6 بالمعادلة التالية =SUMIF(E4:E14,">="&C4,F4:F14)-SUMIF(E4:E14,">"&C5,F4:F14) ثانيا في مثالك أنت الأول أنت لاتكتب التاريخ بتنسيقه الصحيح فأنت تكبه حروف بصيغة لايتعرفها الإكسل وإن كان من الممكن التحايل علي هذا فقد أضفت لك العمود F المكتوب بالخط الأزرق وكذلك معادلتين في الخلايا B51، C51 أيضا بالأزرق ثم أنشأت لك 3 خانات كما طلبت B50 و C50 وE50 أنظر المرفق في الورقة 100 وإذا كان هو ماتريد يمكنك نسخه لباقي الأوراق

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

السلام عليكم أخي الكريم في المرفق ، مجلد به 3 ملفات في ملف الخلاصة تجد ماتريد لكن يعيب هذه الطريقة أنها ستعطي خطأ إذا كان الملف الذي ترجع إليه مغلقا أولا إفتح الملفات الثلاثة وفي ملف الخلاصة تجد خلايا معتمدة علي إسم الملف الموجود بخلية ثابتة E3 الصفراء وإذا بحثت بالمنتدي ستجد مواضيع عن كيفية الرجوع لملف وهو مغلق تفضل المجلد علي الرابط التالي http://www.4shared.com/file/sLUuX7OX/_online.html

السلام عليكم معني الرسالة أنك وضعت قيمة في العمود D ليست موجودة في جدول اللوك أب والله أعلم يمكنك إضافة السطر التالي في الكود ليتفادي مثل هذا الخطأ On Error Resume Next ليكون كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 17 Then Exit Sub tgc = Target.Column tgr = Target.Row If tgc <> 4 And tgc <> 6 And tgc <> 9 And tgc <> 16 Then Exit Sub If WorksheetFunction.CountA(Range("D" & tgr & ":F" & tgr)) < 2 Then Exit Sub On Error Resume Next Dim pc As Range .... ... ولكن جرب أولا ال نتائج إذا لم تكن القيمة في العمود D موجودة في جدول اللوك أب

السلام عليكم أخي الكريم ابا الحارث أسعدني وشرفني مرورك العظيم دمت في ود

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

السلام عليكم أخي الكريم بدل الكود بالتالي (امسح القديم وضع هذا) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 17 Then Exit Sub tgc = Target.Column tgr = Target.Row If tgc <> 4 And tgc <> 6 And tgc <> 9 And tgc <> 16 Then Exit Sub If WorksheetFunction.CountA(Range("D" & tgr & ":F" & tgr)) < 2 Then Exit Sub Dim pc As Range Set pc = Sheets(2).Range("prices") lastR = [D10000].End(xlUp).Row For i = 18 To lastR If Cells(i, "D") <> "" Then Cells(i, "C") = WorksheetFunction.CountA(Range("D18:D" & i)) Cells(i, "O") = WorksheetFunction.VLookup(Cells(i, "D"), pc, 2, 0) If Cells(i, "P") = "" Then Cells(i, "G") = Cells(i, "O") Else Cells(i, "G") = Cells(i, "P") End If Cells(i, "H") = Cells(i, "F") * Cells(i, "G") End If Next i End Sub

السلام عليكم أخي الكريم جرب الكود التالي Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Next g If Target.Row < 17 Then Exit Sub tgc = Target.Column If tgc <> 3 And tgc <> 7 And tgc <> 8 And tgc <> 15 Then Exit Sub Dim pc As Range Set pc = Sheets(2).Range("prices") lastR = [D10000].End(xlUp).Row For i = 18 To lastR If Cells(i, "D") <> "" Then Cells(i, "C") = WorksheetFunction.CountA(Range("D18:D" & i)) Cells(i, "O") = WorksheetFunction.VLookup(Cells(i, "D"), pc, 2, 0) If Cells(i, "P") = "" Then Cells(i, "G") = Cells(i, "O") Else Cells(i, "G") = Cells(i, "P") End If Cells(i, "H") = Cells(i, "F") * Cells(i, "G") End If Next i End Sub في حدث الورقة (الرئيسية) لكن لابد من إلغاء الكود الموجود بها تفضل المرفق Equations_2_Codes.rar

السلام عليكم نعم أخي الكريم يمكن ذلك باستخدام الدالة INDIRECT

السلام عليكم أخي الكريم لقياس المسافة بين الإحداثيين (x1,y1) ، (x2,y2) أولا تحسب الفارق بين السينات (x1-x2) وكذلك الفارق بين الصادات (y1-y2) ثم تستخدم فيثاغورث لحساب المسافة بينهما عن طريق الجذر التربيعي لمجموع مربعيهما ويمكنك طبعا ضم ذلك كله في معادلة واحدة أنظر المرفق المسافة بين الإحداثيين.rar

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

السلام عليكم أخي العزيز الكود يحتاج الكثير من الوقت لمراجعته مع أنه مكون من عدة أوامر 4 أو 5 فقط ولكنها متكررة علي 33 حالة مما يشكل إحتمالية خطأ كبيرة الأفضل أن ترسل الملف وتوضح ماتريد عليه مع جميع الحالات

السلام عليكم جزاك الله كل خير أخي يحي دائما سباق بالخير يعلم الله كم أحبهم وأحبكم فيه سبحانه وتعالي طمأنك الله علي كل من تحب دائما اللهم جمعنا جميعا في أعلي عليين آميين

السلام عليكم كل عام وانتم بخير أخي العزيز هذا هو الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A:H").Interior.ColorIndex = xlNone If Target.Column > 8 Then Exit Sub Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.ColorIndex = 6 End Sub ومرفق الملف به الكود تحديد الصف الذى تقف عليه.rar

السلام عليكم أخي بو علام تقول لم أفهم : ليتك ترفق ملف موضح عليه المطلوب فالأستاذين محمد1/جمال1 حسب مثالك يدرسون عربية /رياضيات وليس علوم/فيزياء

السلام عليكم أخي الكريم في المرفق تجد الملف fff موجود بالفولدر excel وموجود أيضا عدد 2 فولدر x, Y في نفس مستوي الفولدر excel عند تشغيل الكود ، سيكتشف وجود عدد 2 فولدر x, Y غير الفولدر الأصلي excel وسيبحث داخلهما ويجد الآتي: داخل الفولدر x ملف TDR_KKK.xlsx وملف TDR_TOTAL.xlsx وداخل الفولدر Y ملف TDR_AAA.xlsx وملف TDR_BBB.xlsx فيقوم بعمل الفولدرات الجديدة TOTAL، KKK داخل الفولدر x والفولدرات الجديدة BBB، AAA داخل الفولدر Y وبداخل كل منها الملف المطلوب أرجو أن يكون هذا هو المطلوب moh250.rar

إضافة لما سبق ، فيما يلي بعض الروابط لمواضيع تعرضت للسولفر http://www.officena.net/ib/index.php?showtopic=7520&st=0&p=33991&hl=solver&fromsearch=1&#entry33991 http://www.officena.net/ib/index.php?showtopic=4474&st=0&p=23090&hl=solver&fromsearch=1&#entry23090 http://www.officena.net/ib/index.php?showtopic=2620&st=0&p=13628&hl=solver&fromsearch=1&#entry13628

السلام عليكم أخي الكريم إبحث بالمنتدي ستجد أكثر من موضوع يتناول شرح السولفر بطريقة مفصلة وبالنسبة للملف الذي أرسلته لك بعد تشغيل السولفر بالإكسل ، ستتغير القيم بالجدول 3 لو تغيرت الكميات في الجدول 1 او الجدول 2