نجوم المشاركات

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

اهداء لكم ول*عز_سوريه ولكبيرنا استاذ جعفر تحديث: 1- يعمل على مقاس دقة الشاشة الوندوز HD 1920 وفوق + 2-اصلاح الاخطاء وتحسين بعض 3-اضافة قائمة الصيانه وتكاليف 4-اضافة قائمة الارباح وصافي ربح تأجير 5-وصل استلام آلي عن ذالك والبقيه بالتحديث ان كان للعمر بقيه مفتوح المصدر وبذكر يعمل على اكسس 2016 الى 202X للرقم كبير ومفتوح لابداعاتكم بتعديل والارفاق وانا اكتب نسيت اضافة بتحديث تحميل ميديا فير مباشر وسريع: https://www.mediafire.com/file/1ep8n8nhm8ijtsj/v2X-Care_Upsofte_XGPT_For_Office_RintCare_To_2024_Devloper.rar/file Ezril في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

بخصوص التأمين للنسخة الجديد يمكن وضع السطر التالي في بداية الكود ActiveSheet.Protect Password = "Jokem" والسطر التالي في نهاية الكود ActiveSheet.unProtect Password = "Jokem" أما بخصوص أن تكون النسخة الجديدة بلا أكود فهذه النقطة يمكن لاحد العمالقة تنفيذها

شكرا لكم

السلام عليكم ورحمة الله وبركاته اخواني ظهرت عندي مشكله قبل كم يوم ان قوقل وقفت خدمة الوصول التطبيقات الأقل أمانًا في البريد الاكتروني بشكل نهائي من قبل كانت شغاله معي تمام والان ما اقدر ارسل عن طريق الاكسس ايميل الى عدة اشخاص في المثال المرفق لاحد الاخوه استخدمت الكود فيه وشغال عليه من فتره وماشي زي الفل لكن الان توقفت الخدمة وتوقف الارسال عن طريق الاكسس هل هناك اخواني حل او طريقة اخرى لهذه المشكله لان بالنسبه لي ارسال الايميل عن طريق الاكسس مهم جدا وعملي متوقف عليه الان وكثير من الاخوه ايضا يحتاج هذه الخدمه ارجو المساعده بارك الله فيكم وجزاكم الله خير Course certificates -Mohd+Moosa.zip

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

حل بسيط القيمة بالعائد.xlsx

اولا عمل العديد من CheckBox كل عليك عملة هو الضغط علي الزر وتحديد المدي المراد عمل له ال CheckBox شاهد المرفق Create_CheckBoxes.xlsm ثانيا عمل العديد من OptionButton كل عليك عملة هو الضغط علي الزر وتحديد المدي المراد عمل له ال OptionButton شاهد المرفق Create_OptionButtons.xlsm

هذه طريقة لاستخراجهم في الاستعلام نفسه باستخدام iif الحاصلين على 65%.rar

برسل لك مرفق كان يعمل عندي تمام لكن مادري ويش صار هل المشكلة بجوجل أم عندي سامحني أخي جرب عندك يمكن يعمل أو الأخوة بالمنتدى يساعدوك رجاء أرسل نتيجة تجربتك كي يساعدك أحد . واليك المرفق به 3 فورم بطرق مختلفة أملأ الجدولان أولاً . تحياتي . Send Gmail.rar

تفضل أخي @أبو امين 🙂 << تعديل >> عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول : Public Sub ShowOrHideFormControls() Dim Frm As Form Dim Ctl As Control Set Frm = Screen.ActiveForm For Each Ctl In Frm.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Frm = Nothing End Sub '------------------------------------------------------------------- Public Sub ShowOrHideReportControls() Dim Rpt As Report Dim Ctl As Control Set Rpt = Screen.ActiveReport For Each Ctl In Rpt.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Rpt = Nothing End Sub وتنادي كل دالة باسمها حسب الاستخدام هكذا : ' للنماذج Call ShowOrHideFormControls() ' للتقارير Call ShowOrHideReportControls()

the problem is simply because you refer to the incorrect column (Classes Column) while you should refer to the (Committee Column) so to fix change the column from F to G =MINIFS(data!A:A,data!G:G,H6)

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

حياك الله استاذ طارق كفييت ووفيت

السلام عليكم أخي العزيز لابأس ، المهم تصل لما تريد ، هذا هدفنا جميعا تفضل الكود بعد التعديل كما تريد وبه تلميح باللغة العربية لأماكن التعديل Dim OldValue Private Sub Worksheet_Change(ByVal Target As Range) 'في السطر التالي تم إضافة العمودين رقم 3 ، 4 للعمود رقم 2 If Target.Count > 1 Or Target.Column < 2 Or Target.Column > 4 Then Exit Sub 'وفي السطر التالي يتم تحديد الصفوف من 10 إلي 5000 If Target.Row < 10 Or Target.Row > 5000 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False Target = OldValue & Target OldValue = vbNullString Application.ScreenUpdating = True Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target End Sub