أ / محمد صالح

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

الكود كان يعتمد على تسجيل العربون قبل ذلك ويرحل إلى أول خلية فارغة بعد العمود 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 بالتوفيق

آمين ولك بالمثل ويزيد

هذه عملية بحث بسيطة يمكن استخدام الكثير من معادلات البحث وأبسطها استعمال هذه المعادلة في الخلية E3 =VLOOKUP(D3, A1:B100,2, 0) حيث الرقم مكتوب في D3 بالتوفيق

هذا الكود لحذف ملف الاكسل بعد موافقة المستخدم وهو صحيح ويعمل بكفاءة ربما تقصد أنه لا يحذف الملف التنفيذي exe؟

مضاد الفيروسات يخبر أن الملف بهذه الصورة شديد الخطورة ربما لو أرسلت الكود نتعرف على مكان الخطأ

جميعا بإذن الله هل معنى هذا أن الملف أصبح طبيعيا معك وتستطيع إضافة الماكرو وحذفه؟؟

الملف ليس به أكواد سوى Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False End Sub وتعني عند تغير تحديد الخلايا يتم إيقاف خاصية تحديث الشاشة وهو موجود في بعض الشيتات وهذا الكود يمكن حذفه وكود آخر في موديول1 Sub save() ThisWorkbook.save End Sub وهو لحفظ هذا المصنف وتمت اضافة ماكرو يعرض رسالة وحذف حدث عند تغيير التحديد في جميع الشيتات يفضل تجربة هذا المرفق وملاحظة هل المشكلة مازالت مستمرة أم لا بالتوفيق مخازن شتوي 2022.rar

يفضل إرفاق الملف حتى نتمكن من تجربته ونرى هل المشكلة في الملف أم في برنامج الاكسل لديكم