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

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

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

السلام عليكم بارك الله فيك

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

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

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

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

السلام عليكم =IF(G19>=85%;400*G19;400*G19/2)

السلام عليكم برنامج خبور المدرسي الاصدار الثاني توزيع الطلبة على الفصول

السلام عليكم فورم للخروج من الملف يعمل عند اغلاق اطار الملف وعبر زر بدون انبعاث رسالة الحفظ للاكسل ____________________.rar

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

السلام عليكم الاخ / ahh بارك الله فيك الاخ / ju بارك الله فيك الاخ / sado بارك الله فيك في المرفق التوضيح ___vb.rar

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

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

السلام عليكم المطلوب عمل كود بالتالي 1- للخروج عند إغلاق إطار الملف إذا كان هناك حدث يستدعي الحفظ . 2- للخروج باستخدام زر 3- ايقاف الرسالة الإنبعاثية الخاصة بالإكسل 4- انشاء هذه الرسالة عبر الكود استخدام الحدث : ThisWorkbook.Saved Sub kh_Close() On Error GoTo 1 With ThisWorkbook Dim kh_MsgBox kh_MsgBox = MsgBox("هل تريد حفظ التغييرات التي أجريتها على " _ & .Name & " ؟", 3 + 1048576 + 524288, "في أمان الله خبور خير") If kh_MsgBox = 6 Then .Save: .Saved = True: .Close ElseIf kh_MsgBox = 7 Then .Saved = True: .Close Else GoTo 1 End If End With 1 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error GoTo 1 With ThisWorkbook If .Saved = False Then Cancel = True: kh_Close End With 1 End Sub ___________________.rar

السلام عليكم الشكر واصل للجميع حفظكم الله وشهركم مبارك

السلام عليكم شرح بالصور : شرح لكيفية نقل فورم من ملف الى ملف آخر __________________________________.rar

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

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

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

السلام عليكم بعد استدعاء البيانات من زر استدعاء امسح ما تريد حذفه واضغط تعديل اما زر delete هو لحذف جميع البيانات المستدعاء

السلام عليكم وانت على الخلية C5 اذهب الى بيانات التحقق من الصحة اختار مخصص و الغي التشييك في (تجاهل الفراغ) وضع هذه الصيغة : =OR(AND(B5=0;C5=0);AND(B5<>0;C5>0;C5<9))

السلام عليكم تفضل الملف / اضافة تاريخ عن طريق فورم _____1.rar

السلام عليكم الاخ العزيز / ju--------------- حفظه الله الاخ العزيز / abu--------------- حفظه الله بارك الله فيكما ولكما امثال الدعاء اضعاف مضاعفة تقبلا شكري وتقديري وهذا كود مختصر للعملية التي يقوم بها الكود السابق: Private Sub Combo_Sect_Change() On Error Resume Next Dim Lastrow As Integer, R As Integer, H As Integer Dim DataCell As Range Set DataCell = Range("AllData") Combo_Emp.Clear Box_ID.Text = "" H = 0 With DataCell Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row R = 1 Do Until R = Lastrow If Combo_Sect.Text = "All Sections" Then GoTo 1 If .Cells(R, 2).Text = Combo_Sect.Text Then 1 Combo_Emp.AddItem .Cells(R, 1).Value If .Cells(R, 4).Text = "Excelent" Then H = H + 1 End If End If R = R + 1 Loop End With Box_Count.Caption = Combo_Emp.ListCount Box_Excelent.Caption = H End Sub

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