الـعيدروس

السلام عليكم الاخ الفاضل سعيد بيرم حفظك الله انت فصلت طلبك كثير ههههه لحد اني يحتاج لي اولاً اخذ كرس لكي افهم الطلب وبعدين اخش الاختبار وفي الاخر النتائج غير متوقعه بنهزر يااخي واضن طلبك يحتاج للمسات عباقرة المعادلات وانا في المعادلات ضعيف فتقبل اعتذاري والسلام عليكم

السلام عليكم استاذي الحبيب عبدالله المجرب اشكر مرورك العطر وتشجيعك لنا المستمر الاخ هشام ان شاء الله يكون تم المطلوب والسلام عليكم

السلام عليكم اخي الفاضل adel123 تدرج الأعداد لم توضحها مثلا اول عدد ثاني عدد مباشرة تريد لو ثاني عدد اكبر من اول عدد لون الخلية ولاكن التدرج بيصير في بعضه ان لم تحدد ماهي الاعداد الفردية بيصير ثاني عدد عن اول عدد ثالث عدد مباشره عن ثاني عدد رابع عدد مباشره عن ثالث عدد هكذا بتكون النتائج على العموم جرب الكود المرفق وذا لم يكون الطلب مثل ماوضحت لك حدد الارقام الفردية تكون ذا عدد معين او لون مثلا ALI_CO.rar

السلام عليكم الاخ الفاضل nono2011 كما يقولون فهم السؤال نصف الإجابة === هل تقصد في المنصب هو تكرار المادة يعني مثلا الرياضيات لها طارق عمري يعتبر منصب اول و محمد اسحاق يعتبر منصب ثاني ولاكن افواج كلن منهما تختلف عن الاخر كل استاذ افواجه في المقابل الأفواج المسندة بمعنى اذا تكررت مادة يعمل خط اسفل الاثنين او الثلاثة الخ المكرر هل هكذا فهمي صحيح

السلام عليكم هل هكذا تقصد جرب واخبرني النتيجة زيادة 50 % _ALI_1.rar

السلام عليكم الاخ بدر حفظك الله لاعليك كلنا هنا نتعلم من بعض اما الفلترة امرها بسيط وضح المطلوب على اي ورقة وماهو المدى وتحياتي

السلام عليكم اخي الفاضل باسم سعيد هذا البرنامج اخذ من كل محيط جوهره فتخيل عند جمع كل جواهر المحيطات كيف يصير فله ومنوره جزاك الله خير على هذا العمل المتقن الرائع تستاهل عليه ترليون من القبل تقبل مروري

السلام عليكم اخي الفاضل hsa100 انا تحايلت بمهمة الكود كي يودي النتيجة الذي تريدها فأنت طلبك جمع قيمة خلية معينه في ملفات اكسل فعمل الكود يقوم بجلب قيمة الخلية من كل ملفات اكسل التي في الفولدر وفي الاخر يجمة تلك القيم في خلية C2 هل هكذا تم الطلب أو ارجو منك التوضيح اكثر

السلام عليكم اولاً اتبع هذا الشرح الشرح المرفق الأول والملف وبه الكود المرفق الثاني SH_ALI.rar زيادة 50 % _ALI.rar

السلام عليكم الاخ الفاضل emailehtiaty انصحك اتصفح هذا المنتدى واوعدك تصير محترف وماصعب عليك أسأل انا عن نفسي دخلت هذا المنتدى ومااعرف في الاكسل غير الخطوط التي عاملة مثل شبكة العنكبوت ههههه ماكنت اعرف ماهي والحمد لله الان لابأس استفدنا الكثير

السلام عليكم جزاك الله خير استاذ احمد يعقوب على الكود الجميل المختصر وبالامكان إضافة جملة تعطيل الشاشة في أول الكود ليخف عملية الإخفاء والإظهار Application.ScreenUpdating = False وهكذا الكود بعد الإضافة Dim B, C B = [b4] C = [c4] Application.ScreenUpdating = False Range("E4:CF5").EntireColumn.Hidden = True For CL = 5 To 88 If Cells(4, CL) = C Then Cells(4, CL).EntireColumn.Hidden = False If Cells(5, CL) = B Then Cells(5, CL).EntireColumn.Hidden = False Next

السلام عليكم هل هكذا تريد اكتب التاريخ في الخليتين وشاهد ارجو أن يكون ادى الغرض filter_ALI.rar

السلام عليكم استاذي الحبيب عبدالله المجرب حفظك الله اشكرك على هذا التشجيع بالنسبة لهذه الجزئية Interior.Color = RGB(255, 255, 0) اضن ماتقصده هو RGB تسلسل ارقام الألوان أحد طرق تعريف الألوان في VB و VBA رقم 255,0,0 رقم أساسي وتحصل منه على اللون الأحمر وأنا استخدمت تفرعه للون الأصفر واللي هوا 255,255,0 وزي ماتعرف بداية الارقام 1 اللي هوا لون اسود وانت جرب هذا الكود سوف توضح لك الصورة Sub ali() For A_c = 1 To 255 Range("A" & A_c).Interior.Color = A_c Next A_c End Sub أو هذا الكود لسرد الألوان بطريقة غير منتظمة للمعلومية فقط Sub ALI() For E = 1 To 255 Range("A" & E).Interior.ColorIndex = Int(Rnd * 56) + 1 Next E End Sub وطريقة اخرى كالمستخدمة في الفورمز لتكن كالطريقة التالية للون الاحمر Range("A1").Interior.Color = &HFF& وهذا للون الأصفر Range("A1").Interior.Color = &H80FFFF ارجو ان تكون وضحت الصورة والسلام عليكم

السلام عليكم تفضل هذا الكود يعمل الكود على عمود M اللي هوا المرتب الأساسي وتقدر تغير الى اي مدى تحب موضح على الكود Public Sub ALI() Dim A_1 As Range, A_2 As Range Set A_2 = Range("M4:M30") 'غير المدى الذي تريد إضافة 50% عليه For Each A_1 In A_2 If A_1.Value <> Empty Then If IsNumeric(A_1) Then A_1.Value = A_1 / 100 * 50 + A_1 End If End If Next A_1 End Sub جرب واخبرني النتيجة

السلام عليكم الاساتذة الافاضل بن عليه عبدالله المجرب حفظكم الله معادلات نحتاجها وفقكم الله تقبلو مروري

السلام عليكم اخي بدر عند الدخول الى الفورم من اين المخرج اكلها ====<< لاعليك ادارة المهام سوف تقوم بالواجب وزيادة حقيقة فورم جميل ومثل ماتفضلت يحتاج لمسات العباقرة حفظهم الله وفقك الله تقبل مروري

السلام عليكم الاخ الفاضل بوعلام جزاك الله خير على هذا الملف القيم والمجهود الطيب جعله الله في موازين حسناتك ان شاء الله لي ملاحظه بسيطة عند النقر على زر المطبوعات و عند الرجوع من صفحة المطبوعات يظهر رسالة خطاء عند هذا السطر ActiveSheet.Shapes.Range(Array("Picture 1")).Select على انه لم يعثر على الصورة المحددة وفي الاول والاخر جزاك الله خير وتقبل مروري

السلام عليكم اخي الفاضل عيد مصطفى البرنامج مغلق بكلمة سر لذا لايمكن التعديل عليه نرجو منك طلب الباسورد من صاحب البرنامج وهو الاستاذ القدير عماد الحسامي وارفاقة كي يتم التعديل عليه

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

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

السلام عليكم بارك الله فيك استاذنا الحسامي مميز بتفكيرك وصياغة الأكواد تقبل مروري

السلام عليكم استعين بهذا الكود لكي يعمل معاك الكود اتبع التالي أولا هذا السطر من الكود تحط فيه المسار كالتالي : A_P = "C:\Documents and Settings\user\Desktop\جمع كل الشيتات\" وهذا الجزء في الدالة الخلية التي سيتم جمع قيمتها في كل الفولدر في الشيت الاول G_D = WB.Sheets(1).Range("A1") وهذا الكود حطه في وحدة مودويل وجرب واخبرني بالنتيجة Option Explicit Sub ALI_PAT() Dim A_P As String, Fil As String Dim C_A As Range, A_Rng As Range, A_ROW As Long '============================================================ ' هنا تحط مسار المجلد A_P = "C:\Documents and Settings\user\Desktop\جمع كل الشيتات\" ' Fil = Dir(A_P & "*.xls") Do Until Fil = "" Set C_A = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1) C_A = Fil C_A.Offset(, 1) = G_D(A_P & Fil) Fil = Dir Loop With Range("C1") .Value = "المجموع لملفات الفولدر" .Borders.Color = 40 .Interior.Color = RGB(250, 250, 210) .Font.Bold = True .Font.Size = 16 .Font.Name = "Traditional Arabic" .Font.Color = 3 End With A_ROW = Cells(Rows.Count, 2).End(xlUp).Row Cells(2, 3).Formula = Evaluate("=SUM(B2:B" & A_ROW & ")") Set A_Rng = Range([A1], [B1].End(xlDown).Offset(1, 0)) A_Rng.Clear Columns("C:C").EntireColumn.AutoFit Cells(2, 3).HorizontalAlignment = xlCenter Cells(2, 3).VerticalAlignment = xlCenter: Cells(2, 3).Borders.Color = 40 End Sub Private Function G_D(MyFile As String) Dim WB As Workbook Set WB = Workbooks.Open(MyFile) '============================================================ ' هنا الخلية التي ستم جمع قيمتها في كل الملفات G_D = WB.Sheets(1).Range("A1") WB.Close False End Function النتيجة تكون في الشيت النشط خلية C1 و C2 والسلام عليكم

السلام عليكم سؤال غير واضح مامعنى محصورين بين عامين ؟؟ وسامحنا على صلافة فهمنا نرجو التوضيح

يوجد طرق عدة ولاكن استخدم هذا الكود عن طريق الاضافة العادية للأوراق وسيتم إضافة الورقة الجديدة DataValidation حط الكود في حدث ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) If MsgBox("هل تريد إضافة شيت جديد ", vbYesNo, "تأكيد إدراج ورقة جديدة") = vbYes Then Application.EnableEvents = False Call Alidroos Application.EnableEvents = True MsgBox "تم إدراج الورقة بنجاح مع إضافتها في الـ DataValidation", vbInformation, "الحمد لله" Else Application.DisplayAlerts = False ActiveSheet.Delete MsgBox "تم إلغاء إدراج ورقة . ", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading Application.DisplayAlerts = True Exit Sub End If End Sub Public Sub Alidroos() For Each Sh In ActiveWorkbook.Worksheets SH_ALI = SH_ALI & "," & Sh.Name Next Sh Sheets(1).Activate With Range("I7,J7").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=SH_ALI End With End Sub

السلام عليكم اي كود تقصد ؟؟ ارجو التوضيح