أ / محمد صالح

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

بارك الله لك كود رائع

في هذه الحالة نستعمل round يمكنك استعمال هذه المعادلة في الخلية C2 =ROUND(B2*50%,0) وهى لتقريب نسبة 50٪ من الخلية b2 مع عدم تعديل الخلية k2 بالتوفيق

يوجد دالة اسمها filter تعمل على أوفيس 365 والنسخ المحدثة من أوفيس 2019 يمكنك استعمال هذه المعادلة إذا كنت تملك هذا الإصدار =FILTER(الكورسات!A:A,(الكورسات!B:B="الكل")+(الكورسات!C:C="الكل")+(الكورسات!B:B=B3)*(الكورسات!C:C=B4),"لا يوجد كورسات") مع تغيير جملة ينفع لكل الوظائف والمستويات إلى كلمة الكل وربما نتوصل إلى بدائل لهذه الدالة بالتوفيق

يمكن ربط الوورد بملف اكسل على الجهاز ويمكن بملف في جوجل درايف إذا تم تثبيت برنامج جوجل درايف على الجهاز بالتوفيق

رائع أستاذ @Ali Mohamed Ali ولإثراء الموضوع يمكن جلب الجزء الأول بالمعادلة التالية المختصرة =LEFT(AD1,FIND("-",AD1)-1) بالتوفيق

خالص دعواتي بالتوفيق

لو أرفقت ملفك الذي به المشكلة ربما نتوصل لحلها لكن كما أخبرتك يمكنك وضع أكواد في جميع الأحداث الممكنة المهم ألا يحدث تضارب بين الأحداث

الكود كان يعتمد على تسجيل العربون قبل ذلك ويرحل إلى أول خلية فارغة بعد العمود U على كل حال ومع افتراض خلو العربون تم تحديث الكود السابق وإضافة ميزة الترحيل إلى العمود T & U في حال فراغهم بالتوفيق

إذا وضعت كود حذف الملف التنفيذي في مكانه في إجراء Kill_Myself لابد أن يحذفه يتم وضع هذا السطر kill "D:\folder\file.exe" طبعا مع تعديل اسم الملف ومساره الذي استعملته في حدث عند فتح المصنف بعد هذا السطر في الموديول Kill .FullName بالتوفيق

جميع الأحداث الممكنة في ورقة العمل يمكن تعبئتها بالكود للتعرف على الأحداث الممكنة كلك يمين على اسم الشيت في تبويب الشيتات ثم اختيار view code ثم نختار من القائمة اليسرى worksheet أعلى يسار نافذة الكود سنجد في القائمة اليمنى الأحداث الممكنة بالتوفيق

أستاذ @alhellal hamd يبدوأن حضرتك ما قرأت آخر سطر في المشاركة الأولى

جميعا بإدن من الله وفضله

جميعا بإذن الله ولك مثلها ويزيد

على افتراض أن الخلية التي بها العدد هي A1 يمكنك استعمال المعادلة التالية =IF(A1<151,0,IF(A1<201,1,2)) بالتوفيق

جميعا بإذن الله العمود المخفي يحتوي على النطاق المسمى Rng والمستعمل في الكود لاحظ هذا السطر في الكود For I = 1 To Application.CountA([Rng]) بالتوفيق

يمكنك استعمال هذا الكود في زر (قسط شهري جديد) Private Sub CommandButton27_Click() Dim lastrow As Long, n As Long, col As String lastrow = Sheets("حركة الأقساط").Range("b" & Rows.Count).End(xlUp).Row For n = 12 To lastrow If Sheets("حركة الأقساط").Range("b" & n) = Me.TextBox21 Then Select Case Me.ComboBox7 Case Is = "جانفي" col = "h" Case Is = "فيفري" col = "i" Case Is = "مارس" col = "j" Case Is = "افريل" col = "k" Case Is = "ماي" col = "l" Case Is = "جوان" col = "m" Case Is = "جويلية" col = "n" Case Is = "اوت" col = "o" Case Is = "سبتمبر" col = "p" Case Is = "اكتوبر" col = "q" Case Is = "نوفمبر" col = "r" Case Is = "ديسمبر" col = "s" End Select Sheets("حركة الأقساط").Range(col & n) = Val(Me.TextBox24) MsgBox "تم ترحيل القسط" Exit Sub End If Next n End Sub وإذا تم استعمال رقم الشهر 1،2،3 بدلا من اسمه في القائمة سيتم اختصار الكود جدا Private Sub CommandButton27_Click() Dim lastrow As Long, n As Long lastrow = Sheets("حركة الأقساط").Range("b" & Rows.Count).End(xlUp).Row For n = 12 To lastrow If Sheets("حركة الأقساط").Range("b" & n) = Me.TextBox21 Then Sheets("حركة الأقساط").cells(n, val(Me.ComboBox7)+7) = Val(Me.TextBox24) MsgBox "تم ترحيل القسط" Exit Sub End If Next n End Sub بالتوفيق

* بالنسبة لطباعة 10 سجلات فقط يرجع هذا لاعتماد الكود على القيم الموجودة في العمود M المخفي يمكنك إظهار العمود وسحب المعادلة من الخلية M4 إلى الصف 1000 أو حسب أقصى عدد للطلاب * كما يظهر خطأ #N/A بسبب اعتمادك في المعادلات على المدى حتى. العمود J والصواب حتى العمود K كما في حلقة النموذجية جزء التقييم الشهري * كما يجب مطابقة العناوين في الصف 7 مع خلايا العمود C في التقرير ومنها في حلقة النموذجية لا يظهر (مقدار الحفظ بالصفحة ) لأن العنوان مختلف في شيت نموذج إدخال البيانات بالتوفيق

مادام التقرير يخص موظفا في شهر معين فلا داعي للتقرير ويمكن الاعتماد على عملية التصفية (فلتر) في نفس شيت الشهر مع تعديل المعادلات لتتناسب مع المطلوب . تم ضبط مجموعة المعادلات في خلايا التأخير وما بعدها والتنسيق الشرطي ووضع معادلة ( إجمالي وعدد) الموظف المختار أو الكل حسب الفلتر ويمكن الاستغناء عن صف المجموع أسفل البيانات بالتوفيق حضور وانصراف الموظفين 111.xlsx

يوجد زر في إذن الصرف والتوريد اسمه (طباعة إذن الصرف / الوارد) أليس هذا هو المطلوب؟!

هههههههه أو يكون الكود صحيح والتطبيق غير سليم يفضل إرفاق ملفك وتحديد المطلوب بصورة عملية محددة

أحسن الله إليكم بارك الله لنا جميعا

الشكر لله أخي الفاضل نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

لكي يتم هذا يجب تحديد مكان تشغيل الملف التنفيذي مثلا في المسار D:\folder\file.exe مع تغيير اسم البارتيشن والمجلد والملف حسب احتياجاتك وفي حدث عند فتح ملف الاكسل يتأكد من وجود الملف التنفيذي في المسار المحدد فإذا كان موجودا يفتح البرنامج وإلا فيظهر رسالة يجب وضع البرنامج في المسار ..... كذا بكود مثل هذا Private Sub Workbook_Open() strpath = "D:\folder\file.exe" If Dir(strpath) = "" Then MsgBox "يجب وضع البرنامج في هذا المسار حتى يعمل" & chr(10)& strpath thisworkbook.close 1 End If End Sub وفي كود حذف الملف يتم إضافة سطر لحذف الملف التنفيذي kill "D:\folder\file.exe" بالتوفيق

يمكنك استعمال هذا الكود Private Sub TextBox1_Change() txt = Val(Me.TextBox1.Value) If txt = 2 Or txt = 5 Or txt = 8 Then Me.TextBox2.Value = "العراق" ElseIf txt = 3 Or txt = 4 Or txt = 7 Then Me.TextBox2.Value = "مصر" Else Me.TextBox2.Value = "" End If End Sub بالتوفيق