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

السلام عليكم يوجد خطا في المعادلة L2 غيرها بالتالي: =IF(COUNTA(INDEX(MYRANG;0;2))=SUBTOTAL(3;INDEX(MYRANG;0;2));"";VLOOKUP(SUBTOTAL(4;INDEX(MYRANG;0;1));MYRANG;12;0))

السلام عليكم الحل في المرفق PeRIOD_2.rar

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

السلام عليكم الاخ الحبيب / محمدي ------------------حفظه الله تقبل تحياتي وشكري ================== الاخ / ابو اشرف ---------------حفظه الله لماذا تريد طباعة الفورم بامكانة طباعة الورقة نفسها لان فيها نفس المعلومات لاي بيانات بالاختيارمن القائمة مع ميزة تنسيق الطباعة حسب ما تريد لانها في الورقة نفسها تقبل تحياتي وشكري ================== الاخ / ALD------------------حفظه الله تقبل تحياتي وشكري ================== الاخ الحبيب / احمد يعقوب------------------حفظه الله ولك بمثل دعائك اضعاف مضاعفة تقبل تحياتي وشكري

السلام عليكم انظر المرفق ______.rar

السلام عليكم بعد اذن اخي ابو خالد تفضل المرفق بالمعادلات _________.rar

السلام عليكم تم تعديل كود الدالة ليتناسب مع طلبك بشكل سريع Function kh_y_m_d(D_Birth As Integer, M_Birth As Integer, Y_Birth As Integer, D_1 As Integer, M_1 As Integer, Y_1 As Integer, Optional Y_M_D As String) Dim D As Integer, M As Integer, Y As Integer If D_1 >= D_Birth Then D = D_1 - D_Birth: M = 0 Else D = D_1 + 30 - D_Birth: M = -1 If M_1 + M >= M_Birth Then M = M_1 + M - M_Birth: Y = 0 Else M = M_1 + M + 12 - M_Birth: Y = -1 Y = Y_1 + Y - Y_Birth If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_y_m_d = Y If Y_M_D = "M" Then kh_y_m_d = M If Y_M_D = "D" Then kh_y_m_d = D End Function تفضل المرفق _________.rar

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

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

السلام عليكم الاخ / تايجر نيت ---------------حفظه الله انا لم اعمل لحضرتك اي كود لاقوم بشرحه ؟؟؟؟؟؟؟؟؟؟

السلام عليكم الاخ / تايجر نيت ---------------حفظه الله شكرا جزيلا على عذب الكلام , واذا شاء الله وفي استطاعتنا شي لن نبخل به على الآخرين ارفق ملف بالمطلوب و إن شاء الله ستجد خيرا تقبل تحياتي وشكري ودمتم في حفظ الله

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

السلام عليكم دالة حساب العمر بالميلادي او الهجري كود الدالة Option Explicit ' بسم الله الرحمن الرحيم " '============================================" ' دالة حساب العمر بالتقويم الميلادي او الهجري " '============================================" 'Mydate_Birth: تاريخ الميلاد بالميلادي " '============================================" 'Mydate: التاريخ الذي تريد احتساب العمر عنده " ' بالاختيار " ' اذا كان فارغاً : سيتم تعيين تاريخ اليوم " '============================================" 'Y_M_D : بالإختيار يوم او شهر او سنة " ' D : يوم " ' M : شهر " ' Y : سنة " ' اذا كان فارغاً : سيتم إظهار الكل " '============================================" 'MyCalendar: التقويم المستخدم لحساب العمر " 'True : او اي رقم سيتم تعيين التقويم الهجري " 'False: او اذا كان فارغاً " ' سيتم تعيين التقويم الميلادي " '============================================" Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now _ , Optional Y_M_D As String = "Y_M_D", Optional MyCalendar As Boolean) Dim Mydate As Date, KH_Calendar As Integer Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, D As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then Mydate = Mydate_Now Else Mydate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(Mydate) Then KH_Calendar = Calendar If MyCalendar = True Then Calendar = 1 Else Calendar = 0 D_1 = Day(Mydate): D_2 = Day(Mydate_Birth) M_1 = Month(Mydate): M_2 = Month(Mydate_Birth) Y_1 = Year(Mydate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then D = D_1 - D_2: M = 0 Else D = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_count_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = D Calendar = KH_Calendar End If End Function ___________________________________.rar

السلام عليكم الاخ / علي فهيم حفظه الله تقبل تحياتي وشكري ================== الاخ الحبيب / ابو عبدالله اكسيلجي ---------------حفظه الله بارك الله فيك , احسنت الاضافة تقبل تحياتي وشكري ==================

السلام عليكم استخدم الكود التالي: Sub kh_Sort() Dim Message, Title, Default, MyCOM Dim R As Long, C As Integer Message = "ادخل رقم العمود" & Chr(10) & "من الرقم 1 الى الرقم 3" Title = "رقم العمود" Default = 1 1 MyCOM = InputBox(Message, Title, Default) If MyCOM = CANCEL Then GoTo 2 If Not IsNumeric(MyCOM) Or IsEmpty(MyCOM) Then GoTo 1 C = MyCOM If C < 0 Or C > 3 Then GoTo 1 With Sheets("1") R = Range("a" & .Rows.Count).End(xlUp).Row .Range("a3:C" & R).Sort Key1:=.Cells(3, C), Order1:=xlAscending End With 2 End Sub

السلام عليكم اخي الكريم : ZIZO ستجد طلبك في الموضوع ادناه: وعلى فكرة ملفك جميل جدا http://www.officena.net/ib/index.php?showt...mp;#entry127715

السلام عليكم المثال الثاني: ايضا طلب لاحدهم في المشاركة ادناه وهو ملف جميل جدا: http://www.officena.net/ib/index.php?showt...mp;#entry127716 طريقة اخرى : كود MyArray(0) = "ComboBox1" For R = 1 To 17 MyArray(R) = "TextBox" & R Next R Officona.rar

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

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

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

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

السلام عليكم فورم للادخال و المعاينة و التعديل المثال الاول: طلب لاحدهم في المشاركة ادناه http://www.officena.net/ib/index.php?showtopic=26682 تجميع عناصر الفورم في Array واستخدامها بسهولة بدون تكرارها في كل كود كود myCon = Array("TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5", "TextBox6", "TextBox7", "TextBox8", "TextBox9", "TextBox10", "TextBox11") __________1.rar

السلام عليكم Sub رسالة() Dim M As Integer, KH_M As String With Range("A1:A13") For M = 1 To .Rows.Count If .Cells(M, 1).Value > 5900 Then If KH_M = "" Then KH_M = "=======" KH_M = KH_M & Chr(10) & .Cells(M, 1).Value End If Next M End With MsgBox "القيم التالية : " & Chr(10) & KH_M, 524288 + 1048576, "فحص النتيجة" End Sub

السلام عليكم Sub رسالة() Dim M As Integer With Range("A1:A13") For M = 1 To .Rows.Count If .Cells(M, 1).Value > 5900 Then MsgBox "القيمة : " & .Cells(M, 1).Value, 524288 + 1048576, "فحص النتيجة" End If Next M End With End Sub

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