عبدالله باقشير

السلام عليكم انا سالت حينها على اي اساس اجلب الصور قيل لي على حسب التسلسل وعملت الكود على هذا الاساس ايه الذي تقترحه انت لاسم الصور ؟؟

السلام عليكم شاهد المرفق mido.rar

السلام عليكم ولك مثل دعائك اضعاف مضاعفة اكرمك الله تعديل في المعادلات من اجل تفادي الخطا في حالة تغيير الصف الاول لنطاق البيانات MyRng تفضل المرفق استدعاء بيانات بشروط معينة2.rar

السلام عليكم دي معادلة مختصرة =IF(COUNTIF($A2:$A$7000;$A2)=1;SUMIF($A$2:$A2;A2;$B$2:$B2);"") ودمتم

السلام عليكم ده الاستعجال عايز احل المسالة وارد قبل ان اصلي العصر هو مافيش داعي لاستخدام SUMPRODUCT وتعديلك صحيح

السلام عليكم العفو اخي كيماس وزادك الله علما والواقع كلنا نتعلم من بعض ============================ ايضا ممكن اختصار المعادلة : لكن القيمة الصفرية ستظهر وممكن اخفاءها من ادوات / خيارات / عرض ابعاد الشيك من قيم الصفر ============================ في المرفق ملفين اكسل 2003/2007 ============================ اجمالي فرعي لكل رقم في عمود آخر.rar

السلام عليكم الشكر واصل للاخ الحبيب كيماس =IF(SUMPRODUCT(N(COUNTIF($A$2:B2;$A2)=COUNTIF($A$2:$A$7000;$A2)))=1;SUMIF($A$2:$A$7000;$A2;$B$2:$B$7000);"") تفضل المرفق اجمالي فرعي لكل رقم في عمود آخر.rar

السلام عليكم المعادلة في العمود A1 تغير رقم العمود حسب كلي / جزئي شاهد المرفق استدعاء بيانات بشروط معينة1.rar

السلام عليكم حسب مافهمت من الموضوع رغم كلمة ترحيل اربكتني الصحيح انك تريد الاستدعاء على مااظن عملنا جزء من العمل لترى هل هو ما تريده ولكن هناك عمودين للتسديد في البيانات برضوا اربكتني نريد نريد توضيح اكثر شاهد المرفق استدعاء بيانات بشروط معينة.rar

السلام عليكم بارك الله فيك اخي كيماس تقبل تحياتي وشكري

السلام عليكم احتمالات المشكلة قد تكون في التالي: 1- اسم الورقة التي فيها الزر غير صحيح 2- اسم الزر غير صحيج 3- اسماء الاوراق التي فيها الخلايا غير صحيحة لا تياس سريعا اخي حاول ثم حاول ثم حاول ثم اعد تكرار المحاولة من جديد وبعدها سياتي النجاح ودمتم في حفظ الله

السلام عليكم استخدم الدالة SUMIF =SUMIF('الصفحة الرئيسية'!$C$3:$C$1000;A3;'الصفحة الرئيسية'!$B$3:$B$1000) تعليمات (منقوله من تعليمات الدوال للاكسل) جمع الخلايا المحددة بواسطة معيار موجود. بناء الجملة SUMIF(range,criteria,sum_range) Range (نطاق) نطاق الخلايا التي ترغب في تقييمها. Criteria(المعايير) المعايير الموجودة في شكل رقم أو تعبير أو نص يحدد الخلايا التي يتم جمعها. فعلى سبيل المثال، يمكن التعبير عن المعايير كـ 32, "32", ">32", و"تفاح". Sum_range (نطاق الجمع) الخلايا الفعلية التي سيتم جمعها. ملاحظات يتم جمع الخلايا في sum_range فقط إذا كانت الخلايا المناظرة لها في النطاق توافق المعيار. إذا تم تجاهل sum_range، يتم جمع الخلايا في النطاق. يوفر Microsoft Excel دالات إضافية يمكن استخدامها لتحليل البيانات الخاصة بك استناداً إلى شرط.على سبيل المثال، لحساب عدد التواجدات لسلسلة نصية أو أحد الأرقام داخل نطاق من الخلايا، استخدم الدالة COUNTIF. لكي تقوم الصيغة بإرجاع قيمة من قيمتين تستندان إلى شرط، مثل علاوة مبيعات استناداً إلى مقدار محدد من المبيعات، استخدم الدالة IF. شاهد المرفق مستند.rar

السلام عليكم اخي بعد وضع الكود في الوده النمطية يوضع الكود التالي في الوحدة النمطية ThisWorkbook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Worksheets("AA").Shapes("ok_off").ControlFormat.Value = xlOn Then Set MyTarget = Nothing If Sh.Name = "AA" Then Set MyTarget = Sh.Range("B2:B30,D2:G30") If Sh.Name = "BB" Then Set MyTarget = Sh.Range("D5:E10") If Sh.Name = "DD" Then Set MyTarget = Sh.Range("E4:E10") If Not MyTarget Is Nothing Then If Not Intersect(Target, MyTarget) Is Nothing Then Sh.Cells(Target.Row, 1).Select End If Set MyTarget = Nothing End If End Sub قم من خلاله بتغيير اساء اللاوراق التي تريدها والنطاقا ت التي تريد ها التي تريده لهذه الاورق ام الزر قم بنسخه من الملف ولصقه في اي ورقة ترديها وغير اسم هذه الورقة في الكود

السلام عليكم الشكر واصل للجمع المبارك اعلاه ولاثراء الموضوع استخدم الدالة EDATE =EDATE(A1;1) لو فرضنا ان التاريخ في الخلية A1 والعدد 1 هو الشهر الذي تريد اضافته =================================================== تعليمات عن هذه الدالة ( منقول من تعليمات الدوال في الاكسل ) إرجاع الرقم التسلسلي الذي يمثل التاريخ الموضح به عدد الشهور قبل أو بعد تاريخ محدد (تاريخ البداية start_date). استخدم EDATE لحساب تواريخ الاستحقاق أو تواريخ الدفع التي تقع في نفس اليوم من الشهر لتاريخ الإصدار. إذ لم تتوفر هذه الدالة و تم إرجاع قيمة الخطأ #NAME?، قم بتثبيت الوظيفة الإضافية Analysis ToolPak وتشغيلها. كيف؟ في القائمة أدوات، انقر فوق وظائف إضافية. في قائمة الوظائف الإضافية المتوفرة، حدد مربع الحوار Analysis ToolPak، ثم انقر فوق موافق. إذا لزم الأمر، اتبع التعليمات في برنامج الإعداد. بناء الجملة EDATE(start_date,months) Start_date التاريخ الذي يمثل تاريخ البداية. يجب إدخال التواريخ باستخدام الدالة DATE، أو كنتائج لصيغ أو دالات أخرى. على سبيل المثال، استخدم DATE(2008,5,23) لليوم الثالث والعشرون من مايو سنة 2008. يمكن أن تحدث مشاكل إذا تم إدخال التواريخ كنص. Months عدد الشهور قبل تاريخ البداية start_date. تعطي القيمة الموجبة للشهور تاريخ في المستقبل وتعطي القيمة السالبة تاريخ في الماضي. ملاحظات يقوم Microsoft Excel بتخزين التواريخ في صورة أرقام تسلسلية متتابعة كي يمكن استخدامها في العمليات الحسابية. يكون 1 يناير، 1900 افتراضياً هو الرقم التسلسلي 1، و 1 يناير، 2008 هو الرقم التسلسلي 39448 لأنه يزيد 39.448 يوماً عن 1 يناير، 1900. يستخدم Microsoft Excel لماكنتوش نظام تاريخ افتراضي مختلف. إذا لم يكن تاريخ البداية start_date تاريخاً صالحاً، ترجع EDATE قيمة الخطأ #VALUE!. إذا لم يكن الشهر عدداً صحيحاً، يتم اقتصاصه. ودمتم في حفظ الله

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

السلام عليكم استخدم المعادلة التالية: =IF(AA7>=884;"ممتاز";IF(AA7>=780;"جيد جداً";IF(AA7>=676;"جيد";IF(AA7>=520;"مقبول";"دون المستوي")))) اما الطلب الاخر فالقيام به يحتاح عمل كبير وهو معمول في كثير من الملفات المشابهه لملفك حاول ان تبحث عنها في المنتدى

السلام عليكم غير الكود بالتالي: If ComboBox1.ListIndex <> -1 Then Range(Column_H.ControlSource).Value = "ملغي" Range(Column_D.ControlSource).Value = 0 End If

السلام عليكم اربط الزر بالامر التالي: If ComboBox1.ListIndex <> -1 Then Column_H.Text = "ملغي" Column_D.Value = 0 End If ودمتم في حفظ الله

السلام عليكم ممكن الاختصار بالكود التالي: Sub Com1() With Sheets(MySheets) For rr = 3 To .Range("A500").End(xlUp).Row If .Cells(rr, "b") = 1 Then .Cells(rr, "x").Value = Application.WorksheetFunction.Sum(Range(.Cells(rr, "c"), .Cells(rr, "w"))) End If Next End With End Sub

السلام عليكم الشكر واصل للاخ الحبيب عادل حفظه الله ولاثراء الموضوع اضفنا زر تشييك في الورقة AA باسم "ok_off" عن طريقه يتم التحكم في الحماية يوضع الكود التالي في الوحدة النمطية ThisWorkbook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Worksheets("AA").Shapes("ok_off").ControlFormat.Value = xlOn Then Set MyTarget = Nothing If Sh.Name = "AA" Then Set MyTarget = Sh.Range("B2:B30,D2:G30") If Sh.Name = "BB" Then Set MyTarget = Sh.Range("D5:E10") If Sh.Name = "DD" Then Set MyTarget = Sh.Range("E4:E10") If Not MyTarget Is Nothing Then If Not Intersect(Target, MyTarget) Is Nothing Then Sh.Cells(Target.Row, 1).Select End If Set MyTarget = Nothing End If End Sub شاهد المرفق كود حماية خلايا.rar

السلام عليكم بارك الله فيك اخي حسن وجزاك خيرا تقبل تحياتي وشكري

السلام عليكم بامكانك تعمل شريط تمرير للفرمة شاهد المرفق تكامل الفورم مع محتوياته.rar

السلام عليكم الاخ / waha2011 تم اضافة اسئلتك في موضوع منفصل على الرابط http://www.officena.net/ib/index.php?showtopic=35277 بعنوان: توسيع الفورم لاظهار جميع محتوياته

السلام عليكم حسب ما فهمنا من طلبك رغم ان القيمة لا تظهر في الخلية تفضل المرفق كود الدوائر الحمر1.rar

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