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

السلام عليكم ارجوا التجربة في المرفق التالي ______________________________.rar

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

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

السلام عليكم الاخ / ابواسامة ---------------حفظه الله الاخ / عادل---------------حفظه الله الاخ / محمدي---------------حفظه الله الاخ / يحي---------------حفظه الله الاخت / عبير مصطفى---------------حفظها الله الاخ / mafa---------------حفظه الله كلماتكم الحلوه عزيزة على نفسي تقبلوا جزيل شكري وتقديري

السلام عليكم بمناسبة قدوم عيد الاضحى المبارك اقدم اليكم هذه الهدية : برنامج حافظة شخصية للهواتف والإيميلات ( بإمكانية البحث السريع ) الميزات المستخدمة في البرنامج ============= اولاً : سهولة ومرونة في الاستخدام ثانياً : بحث باي معيار ثالتاً : إضافة اسم و تعديل بيانات اسم رابعاً : حذف بيانات اسم خامساً : حذف جميع البيانات سادساً : الانتقال الى بريدك لارسال رسالة عند النقر على صورة الرسالة بجانب الايميل لصاحب البيانات تقبلوا خالص تحياتي وشكري ___________.rar

السلام عليكم إن شاء الله سننظر في الطلب في اقرب فرصة نوصيكم بالدعاء ودمتم في حفظ الله

السلام عليكم اخي المكرم / عادل ----------------حفظه الله من الافضل تسمية النطاق (kh_test_1) بعدد الاعمدة التي تشمله ( لم يتم تغييره في مرفقك) و تضيف متغير جديد في الكود بعدد الاعمدة في النطاق و تستخدم هذا المتغير بدلا من اضافة رقم للعمود في الكود ويصبح الكود ثابت ويتم فقط للاستخدام تحديد النطاق في الورقة مثلا : MyColumns = .Columns.Count اليك الكود : Private Sub Worksheet_Change(ByVal Target As range) Dim MyRows As Integer, MyColumns As Integer, MyRange As range, MyRange1 As range On Error GoTo 1 With range("kh_test_1") MyRows = .Rows.Count - 1 MyColumns = .Columns.Count Set MyRange = .range(cells(MyRows, 1), cells(MyRows, MyColumns)) If Not Intersect(Target.cells(1, 1), MyRange.cells) Is Nothing _ And Target.Value <> "" Then MyRange.EntireRow.Insert Set MyRange1 = .range(cells(MyRows, 1), cells(MyRows, MyColumns)) MyRange1.Value = MyRange.Value MyRange.ClearContents End If End With 1 End Sub ==================================================== و هناك اضافة جديدة لو تريدها في حالة اردت حذف صف معين تمسح بيانات خلية الاسم فيحذف الصف تلقائيا باستخدام هذا الكود: Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRows As Integer, MyRange As Range, MyRange1 As Range, MyCells As Range On Error GoTo 1 With Range("kh_test_1") MyRows = .Rows.Count - 1 Set MyRange = .Range(Cells(MyRows, 1), Cells(MyRows, 4)) Set MyCells = .Range(Cells(1, 1), Cells(MyRows - 1, 1)) If Not Intersect(Target.Cells(1, 1), MyRange.Cells) Is Nothing _ And Target.Value <> "" Then MyRange.EntireRow.Insert Set MyRange1 = .Range(Cells(MyRows, 1), Cells(MyRows, 4)) MyRange1.Value = MyRange.Value MyRange.ClearContents End If End With If Not Intersect(Target.Cells(1, 1), MyCells.Cells) Is Nothing Then If Target.Value = "" Then Target.EntireRow.Delete End If 1 End Sub سارفق الملف لاحقا Dinamic_Lable1.rar

الف مبروك

السلام عليكم استخدم الدالة ROUNDup =ROUNDUP(B21;0)

السلام عليكم استخدم الدالة int تقريب رقم لأسفل إلى أقرب عدد صحيح. =AVERAGE(INT(C16/2)) استخدم الدالة ROUND تقريب العدد إلى عدد معين من الخانات =AVERAGE(ROUND(C19/2;0))

السلام عليكم تواصلاً للفكرة الجميلة للاخ عادل تفضلوا المرفق تحياتي لجميع المشاركين حفظهم الله ______________.rar

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

السلام عليكم هل قرأت التعليمات لهذه الدالة: إرجاع المرجع المحدد بواسطة سلسلة نصية. يتم تقييم المراجع مباشرةً لعرض محتوياتها. استخدم INDIRECT عندما تريد تغيير مرجع إلى خلية داخل صيغة دون تغيير الصيغة نفسها. بناء الجملة INDIRECT(ref_text,a1) Ref_text (مرجع النص) هو مرجع لخلية تحتوي على مرجع نمط A1 أو مرجع نمط R1C1 أو اسم معرّف كمرجع أو مرجع لخلية كسلسلة نصية. إذا لم تكن ref_text مرجع خلية صالح، تقوم INDIRECT بإرجاع قيمة الخطأ #REF!. إذا أشارت ref_text لمصنف آخر (مرجع خارجي)، يجب أن يكون المصنف الآخر مفتوحاً. إذا لم يكن المصنف المصدر مفتوحاً، تقوم INDIRECT بإرجاع قيمة الخطأ #REF!. A1 هو قيمة منطقية تُحدد نوع المرجع الذى تحتويه الخلية ref_text. إذا كانت a1 تساوي TRUE أو تم حذفها، يتم تفسير ref_text كمرجع نمط A1. إذا كانت a1 تساوي FALSE، يتم تفسير ref_text كمرجع نمط R1C1. =========================================== هذا مرفق فيه بعض الامثلة (منقول ) _______________INDIRECT.rar

السلام عليكم استخدم الكود التالي: Sub SaveAs_MySheet() On Error GoTo 1 Dim Mybook As Workbook Dim MyFile As String, MySheet As String Set Mybook = ActiveWorkbook Application.ScreenUpdating = False With ActiveSheet MySheet = .Name & " ( " & Format(Now, "hh-mm-ss") & " )" .Copy End With MyFile = Mybook.Path & "\" & MySheet ActiveWorkbook.SaveAs Filename:=MyFile ActiveWorkbook.Close MsgBox "تم حفظ ورقة العمل بإسم" & Chr(10) & Chr(10) & MySheet, 524288, "الحمد لله" Application.ScreenUpdating = True 1 End Sub تفضل المرفق ________________________.rar

السلام عليكم نحن في المعادلة نريد نعرف رقم العمود في النطاق المسمى البيانات وهذه حساب العلاقة بين موقع المادة والشهر ممكن تعملها باي طريقة تعجبك مجرد (حساب)

السلام عليكم اخي العزيز/ اكرم الغامدي ________ حفظه الله الله يسلمك من كل مكروه في الدنيا والآخرة ======================================== "---------------هذه شهادة اعتز بها اخي اكرم الغامدي----------------" "----------لانني اعرف من اكرم الغامدي وعلاقته للبرمجة------------" "--------------------------(عبقري متواضع)--------------------------" ======================================== تقبل جزيل شكري و تقديري

السلام عليكم تفضل المرفق ___________________.rar

السلام عليكم الاخ قصي -------- حفظه الله سننظر في الطلب في حينه إن شاء الله تقبل شكري وتقديري

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

السلام عليكم غير في الكود من 1 الى 2000 بدلا من 7 ================================= استخدم الدالة : =MID($A1;1;SEARCH(";";$A1;1)-1)

السلام عليكم ايضا بامكانه تعيين الماكرو لزر القائمة وزر الزيادة والنقصان

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