طارق محمود

السلام عليكم أخي العزيز / edkawy طبعا ممكن وإن كنت غير متأكد من حدود المعادلة هل هو عدد الشروط لايزيد عن 8 أم أن حدودها هو عدد الحروف للمعادلة لايزيد عن 256 يمكنك المحاولة والتأكد مرفق الملف وبه جمع نتيجه الاربع معادلات فى خليه واحده date2.rar

السلام عليكم أخي الحبيب لا أخي الكريم ليس فقط عدم استخدام علامة آند فى المعادلة ، بل اختلط عليك الأمر وأدمجت شروط الدالة IF بحيث فسدت المعادلة أخونا الموسطي لم يتنبه لما تطلب وظن انك فقط تريد الشكل فإذا كانت المعطيات بها أكثر من إسم وأخذت نسخة من المعادلة التي شارك بها فستعطي نتائج خاطئة

السلام عليكم أخي العزيز / الموسطي ، عفوا لم أر ردك أخي العزيز / edkawy المعادلة هي =IF(C4<C$2,C$1&"، ","")&IF(D4<D$2,D$1&"، ","")&IF(E4<E$2,E$1&"، ","")&IF(F4<F$2,F$1&"، ","")&IF(G4<G$2,G$1&"، ","")&IF(H4<H$2,H$1&"، ","")&IF(I4<I$2,I$1&"، ","")&IF(J4<J$2,J$1&"، ","")&IF(K4<K$2,K$1&"، ","")&IF(L4<L$2,L$1&"، ","") طويلة ولكنها صيغة واحدة ومتكررة عشرة مرات (بعدد المواد) وطبعا أنت فهمت أننا استخدمنا دالة IF مرة واحدة وليس أكثر لننظر لجزء الفيزياء كما طلبت (ومثله اي جزء آخر من المعادلة) IF(C4<C$2,C$1&"، ","")& كما قلت أنت إذا كانت الدرجه الحاصل عليها الطالب ( C4 ) اقل من الدرجه الصغرى ( C2 ) يكون الناتج اسم المادة ( C1 ) ولكني عبرت عنها كذلك ........ إذا كانت الدرجه الحاصل عليها الطالب ( C4 ) اقل من الدرجه الصغرى ( C$2 ) يكون الناتج اسم المادة ( C$1 ) أولا: علامة الدولار قبل الرقم 2 تجعل صف المقارنة (2) عند أخذ نسخ من المعادلة ثابت لايتغير وكذلك الصف (1) ثانيا : لفهم الدالة إذا تحقق الشرط ترجع باسم المادة في الصف الأول وإذا لم يتحقق الشرط ترجع بلاشيء "" علامتي تنصيص بينهما لاشيء مثلا إرجع في المثال للطالب (إسم 02) عند متابعة المعادلة التي في صفه ، سنجد أنه قارن الدرجات بالتتابع مع الدرجات الصغري الموجودة في الصف (2) وعادت المعادلة لنا بالنتائج التالية الفيزياء الاحياء الكيمياء الرياضة العربى انجليزى فرنساوى المانى الحاسب الآلى الأنشطة لاشيء & لاشيء & لاشيء & الرياضة ، & العربى ، & لاشيء & لاشيء & لاشيء & الحاسب الآلى ، & لاشيء وطبعا العلامة & هي بمثابة علامة جمع للمتغيرات الغير رقمية فكأنك حصلت علي لاشيء + لاشيء + لاشيء + الرياضة ، + العربى ، + لاشيء + لاشيء + لاشيء + الحاسب الآلى ، + لاشيء وتكون النتيجة الرياضة، العربى، الحاسب الآلى،

السلام عليكم أخي العزيز أنا فرضت ان ساعة تسليم الوردية هي السادسة (ص/م) إذا كانت غير ذلك ، فما عليك إلا استبدال الرقم 6 في الخلية R6 بما يتناسب مع الحالة عندك تم ضبط معادلة صباح / مساء وكذلك معادلة الشيفت ، أوتوماتيكيا تكون A أو B تفضل المرفق mm2.rar

السلام عليكم أخي العزيز تفضل المرفق TELPH.rar

السلام عليكم أخي العزيز أضفت لك ايضا بعض الأسماء والدرجات للتأكد من الصيغة تفضل المرفق كتابة درجات الرسوب2.rar

السلام عليكم أخي العزيز هذا الموضوع أخذ مني وقت طويل ولم أفهم بالضبط ماذا تريد ولعل هذا هو سبب عدم رد أعضاء كثيرين (منهم أنا) لابد أن يكون المطلوب واضح تماما المهم المعادلاتين (صافى المديوينة وصافى المبيعات) مطلوب نقلهما إلي أي شيت بالضبط في ملف الإيصالات توقعت ان يكون شيت data_insert إذا كان كذلك ، أنظر المرفق وإلا وضح لي بالضبط الايصالات2.rar

السلام عليكم أخي العزيز / مجدي جزاك الله خيرا أخي بدريويو ممكن تجرب أحد الروابط التالية http://www.officena.net/ib/index.php?showtopic=39323 http://www.officena.net/ib/index.php?showtopic=206 http://www.officena.net/ib/index.php?showtopic=34088

السلام عليكم أخي العزيز استخدم الكود التالي Sub reverse() For Each ce In Selection s = "" If Len(ce) > 0 Then For i = Len(ce) To 1 Step -1 s = s & Mid(ce, i, 1) Next i ce.Offset(0, 0) = s End If Next ce End Sub أو ظلل الكلمات المراد عكسها ثم اضغط الزر في المرفق عكس_اتجاه النص.rar

السلام عليكم أخي العزيز استخدم الكود التالي Sub reverse() For Each ce In Selection s = "" If Len(ce) > 0 Then For i = Len(ce) To 1 Step -1 s = s & Mid(ce, i, 1) Next i ce.Offset(0, 0) = s End If Next ce End Sub أو ظلل الكلمات المراد عكسها ثم اضغط الزر في المرفق Reverse.rar

السلام عليكم أخي العزيز راجع بدقة الأسباب التي ذكرتها لك في المشاركة #2

السلام عليكم أخي العزيز ضع المعادلة التالية في أي خلية ترجع لك باسم الورقة =RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

وإذا لم يكن يمكن لديك 2007 فتفضل المرفق باستخدام دالة Sumproduct بدلا من Countifs احصاء بالترحيل3.rar

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

السلام عليكم أخي العزيز جرب الموضوع التالي قد يكون هو ماتريد http://www.officena.net/ib/index.php?showtopic=46203#entry275750

السلام عليكم أخي خالد جزاك الله خيرا علي مرورك الكريم وكلماتك الطيبة أخي admbrk الكود بعد التعديل Sub Remin_2() LR = Cells.SpecialCells(xlCellTypeLastCell).Row Sheet3.[B5:AC1000].ClearContents For c = 20 To 99 If Cells(3, c) = "حالة السداد" Then N = (c - 2) / 4 - 4 For r = 4 To LR V = Cells(r, c - 1) D = Cells(r, c - 2) If Cells(r, c) = "لم يسدد" And D <= [P1] Then Clnt_N = Cells(r, 2) C_Nam = Cells(r, 4) Clnt_T = Cells(r, 5) C_Add = Cells(r, 6) Else: GoTo 10 End If With Sheet3 s = .[H1000].End(xlUp).Row + 1 For s_r = 5 To s - 1 If .Cells(s_r, 3) = C_Nam Then clm = .Cells(s_r, "IV").End(xlToLeft).Column .Cells(s_r, clm + 1) = N .Cells(s_r, clm + 2) = D .Cells(s_r, clm + 3) = V GoTo 10 End If Next s_r .Cells(s, 2) = Clnt_N .Cells(s, 3) = C_Nam .Cells(s, 4) = Clnt_T .Cells(s, 5) = C_Add .Cells(s, 6) = N .Cells(s, 7) = D .Cells(s, 8) = V End With 10 Next r End If Next Sheet3.Activate End Sub مرفق الملف به الكود الجديد ليناسب ماطلبت وبه أيضا شيت اضافي لشرح الكود تفضل المرفق حصر الاقساط واجبة التحصيل عند تحديد تاريخ معين2.rar

السلام عليكم أخي العزيز لم أنساك ولكني أمر بظروف ضيق وقت شديد اليوم بالمرفق تجد الخطوة التي تحدثنا عنها سابقا نقل يوميات العمال علي صفحاتهم لتكتشف الخطوة الجديدة في صفحة القيد QAID ثجد القيود الخمسة القديمة إذهب لصفحة العمال Time_Sheet ثم إضغط زر ترحيل العمال سيبدأ في ترحيل العمال مع السؤال عن يومياتهم إذهب لصفحة القيد QAID مرة أخري ستجد أن كل عامل تم تجميع يومياته وترحيلها مرتين .............. مرة من ح/الشركة كدائن إلي ح/العميل كمدين .............. ومرة أخري من ح/العامل كدائن إلي ح/الشركة كمدين وبذلك عندما تضغط زر الترحيل في صفحة القيد QAID ، سيتم ترحيل قيمة يوميات العامل 4 مرات .............. مرة في ح/الشركة كدائن .............. مقابل مرة في ح/العميل كمدين .............. ومرة في ح/الشركة كمدين .............. مقابل مرة في ح/العامل كدائن أعتقد أنه لم يبق من طلباتك إلا 1. الطباعة 2. تقرير بيان الارباح من كل عميل على حده 3. وتقرير بيان الارباح من كل العملاء مجتمعه وهذه سهلة إن شاء الله ولو عندك طلبات أخري غير ذلك لاتتردد تفضل المرفق ، جربه وأنتظر رأيك شركة مقاولات-4.rar

السلام عليكم أخي العزيز تفضل المرفق حصر الاقساط واجبة التحصيل عند تحديد تاريخ معين.rar

السلام عليكم أخي العزيز كليك يمين علي المحور الافقي بالشارت ثم من فورمات المحور إلغي اختيار الوضع المعكوس الاكسل عندي انجليزي بس هاتفهم الفيديو المرفق بسرعة تفضل Chart.rar

السلام عليكم بعد إذن أخي أحمد أخي العزيز كليك يمين علي الشكل الدائري ثم إختر تعيين الكود الموجود عليه Assign Macro يبدو أن أخونا أحمد شأننا جميعا تعجل الرد قبل أن يضبط الزر علي الكود

السلام عليكم بعد إذن استاذنا الجليل أخي العزيز سؤالك الأول معني : Dim ii As Double تحدد المتغير ii بألا يقبل غير الأرقام ويقبل الكسور العشرية وطوله يصل إلي 64 Bit ملحوظة إذا عرفت المتغير علي أنه Short فهذا يعني أنه رقمي بطول 16 Bit أما Integer فهذا يعني أنه رقمي بطول 32 Bit و Long فهذا يعني أنه رقمي بطول 64 Bit و Single فهذا يعني أنه رقمي بطول 32 Bit مع فاصلة (كسرعشري) و Double فهذا يعني أنه رقمي بطول 64 Bit مع فاصلة (كسرعشري) و Decimal فهذا يعني أنه رقمي بطول 128 Bit سؤالك الثاني والثالث (إجابتهما متقاربة) : اين الشرط لقاعدة if If MN Then إذا لم يذكر الشرط صراحة فيعني أن المتغير (بعد If) يحتمل إما أن يكون True أو يكون False وحيث أن True تعني =1 أو رقم غير الصفر وأن False تعني الصفر فإنها هنا تعني إذا كان MN يحتوي علي قيمة أي أن بالشيت بالمجال A9:Axx الرقم الأصغر لايساوي صفر بفرض أن Axx تعني آخر خلية بها بيانات بالعمود A

السلام عليكم أخي العزيز غير الكود السابق بالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 4 Or Target.Row < 7 Or Target.Row > 214 Then Exit Sub [D7:D214].Interior.ColorIndex = xlNone [I4:O24].Interior.ColorIndex = xlNone For Each i_cl In Target i_cl.Interior.ColorIndex = 3 x = i_cl.Offset(0, 1).Value For Each ce In Range("I4:O24") If ce.Value = x Then ce.Interior.ColorIndex = 3 Next Next End Sub ثم بإختيار أكثر من (كود صنف) مع الضغط علي زر الكنترول Ctrl ستجد ماتريد

السلام عليكم أخي العزيز هذه ليست مشكلة الإكسل هذه لابد أن تحلها من البرنامج الذي تصدر منه

ألسلام عليكم بعد إذن أخونا عبقري المعادلات / محمود أخي الكريم بالكود إذا أشرت بالماوس إلي أي كود صنف في المجال من D7 إلي D214 فسيتلون كلا من كود الصنف والبلوك المقابل باللون الأحمر أوتوماتيكيا ستجد بالمرفق الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 4 Or Target.Row < 7 Or Target.Row > 214 Then Exit Sub x = Target.Offset(0, 1).Value [D7:D214].Interior.ColorIndex = xlNone Target.Interior.ColorIndex = 3 [I4:O24].Interior.ColorIndex = xlNone For Each ce In Range("I4:O24") If ce.Value = x Then ce.Interior.ColorIndex = 3 Next End Sub تفضل المرفق كروكى المخزن 5 ب_T.rar

السلام عليكم أخي العزيز هذا الموضوع ، أفضل من يفيدك فيه بإذن الله هو أخونا الفاضل / الأستاذ / محمد صالح وقد راسلته في هذا الخصوص ووعد بالنظر فيه مساء اليوم