أ / محمد صالح

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

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

على افتراض أن الخلية التي بها العدد هي 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

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

الدالة صحيحة بلا أي مشاكل وظيفتها جمع الأرقام من مدى به نصوص وأرقام بينهما مسافة ربما يكون الخطأ في وضع أول سطر من الدالة بجوار التعريف بها حيث أن الترتيب الصحيح هكذا Function SumNumOnly(rngS As Range, Optional strDelim As String = " ") As Double Dim xNums As Variant, lngNum As Long xNums = Split(rngS, strDelim) For lngNum = LBound(xNums) To UBound(xNums) SumNumOnly = SumNumOnly + Val(xNums(lngNum)) Next lngNum End Function بالتوفيق

الحل الاول: القيام بعمل repair اصلاح للأوفيس من لوحة التحكم control panel ثم uninstall a program ثم تحديد الأوفيس مع الضغط على change وليس uninstall بعدها quick repair والانتظار حتى نهاية الاصلاح وربما يتطلب الامر اعادة تشغيل الجهاز بعدها يكون كل شيء على ما يرام بإذن الله بالتوفيق

جميعا بإذن الله

وفقنا الله جميعا لكل خير

ما إصدار الأوفيس والويندوز لديك وهل 32بت أم 64؟ حيث ان امتداد xlsb يعمل من إصدار 2007 وما بعده وهل يتم هذا مع ملفات xlsb الجديدة التي يتم حفظها بنفس الاكسل؟