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

وعليكم السلام ورحمة الله وبركاته، أخي يمكنك الحصول على القرآن الكريم برواية قالون عن نافع من خلال هذا الموقع: https://surahquran.com/qaloon/fahras.html لكن يجب أولًا أن تقوم بتحميل ملف الخط (KFGQPC QALOON Uthmanic Script Regular) من هذا الرابط المباشر: https://drive.google.com/uc?export=download&id=1bpaUhpcgTjrIwou5IFmCOb0cFZ_lZu1l بعد ذلك قم بتثبيته على الكمبيوتر (يجب أن يكون برنامج الوورد مغلق) حتى يظهر اسم الخط في قائمة الخطوط الخاصة بالبرنامج. بعد ذلك انسخ النص القرآني المطلوب في برنامج الوورد وقم بتحديده، ثم من قائمة الخطوط اختر (KFGQPC QALOON Uthmanic Script Regular).

كيف نتعامل مع النصوص الطويلة؟ نختصرها إلى نقاط رئيسية، ونوزِّع التفاصيل على أكثر من شريحة.

كررت التجربة والملف يعمل ولا يسمح باظافة اي كمية تتجاوز الموحود بالمخزن ولكن هناك سبب يجغل الرصيد في المخزن بالسالب عندما تكتب الكمية اولا ثم تختار توع الحركة بعدها هنا يتم قبول الكمية ولو كان الصنف انتهى من المخزن وهذه حلها الغاء خاصية تجاهل الفراغ حينها لا يقبل اي كمية سواء اخترت نوع الحركة اولا او اخر جرب الغاء الخاصية في ملف الاستاذ Foksh واليك ملف اخر بنفس فكرة Data Validation باستخذام عمود مساعد في العمود o بالرغم انني لا احبذ استخذم الاعمدة المساعدة وله نفس نتائج ملف معلمنا Foksh مخزن 1.xlsb

في هذه المدونة المتواضعة ، سأقوم بإدراج جميع الأعمال التي قمت بها ، مقسمة إلى أقسام .. 1️⃣ ⭐ مستورد السجلات الذكي 2025⭐ 2️⃣ ⭐ تفقيط و تحويل الفترات الزمنية إلى نص⭐ 3️⃣ ⭐ أداة النسخ الاحتياطي والاستعادة لقواعد بيانات اكسيس 2025⭐ 4️⃣ ⭐ نظام مراقبة الطابور وحجز الدور في المنشئات 2025⭐ 5️⃣ ⭐ مرسال الواتس أب الجديد 2025⭐ 6️⃣ ⭐ كيف تغير اللغة في برامجك 2024⭐ 7️⃣ ⭐ متعقب التغييرات الذكي 2024⭐ 8️⃣ ⭐ طريقة ابداعية للتحديث من خلال الانترنت 2024⭐ 9️⃣ ⭐ تغيير لغة النظام في Unicode ⭐ 1️⃣0️⃣ ⭐ حضور وإنصراف الموظفين⭐ 1️⃣1️⃣ ⭐ أداة تحويل ملفات PDF متعددة الوظائف 2025⭐ 1️⃣2️⃣ ⭐ أداة تحليل وإدارة أكواد اكسيس - Access Code Explorer⭐ 1️⃣3️⃣ ⭐ قاتل الترميش والوميض في اكسيس⭐ 1️⃣4️⃣ ⭐ إرسال بريد إلكتروني من Gmail الى أي إيميل⭐ 1️⃣5️⃣ ⭐ مزيل التكرارات الذكي 2025⭐ 1️⃣6️⃣ ⭐ مراقب لوحة المفاتيح ومنع إضافة لغات مدمجة من ملفات اكسيس⭐ 1️⃣7️⃣ ⭐ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐ 1️⃣8️⃣ ⭐ كاسر ملفات آكسيس Accde - واستخراج محتوى قواعد البيانات⭐ ( موضوع تم حذفه لخطورته ) - نسخة 32 | نسخة 64 ( الصورة للواجهة من الإصدار الجديد القيد التطوير ، وليست للإصدار المرفق في الروابط أعلاه ) 1️⃣9️⃣ ⭐ صانع الجداول الذكي 2024⭐ 2️⃣0️⃣ ⭐ مراقب لوحة المفاتيح ومنع إضافة لغات مدمجة من ملفات اكسيس ⭐ 2️⃣1️⃣ ⭐ تثبيت تطبيق واتس اب على ويندوز سيرفر 2022 ⭐ 2️⃣2️⃣ ⭐ مواقيت الصلاة 2024 ⭐ 2️⃣3️⃣ ⭐ ساعة رقمية إعلانية ⭐ 2️⃣4️⃣ ⭐ المنبه الذكي 2024 ⭐ 2️⃣5️⃣ ⭐ صانع القوائم المختصرة 2026 ⭐ ( نسخة محدثة ) 2️⃣6️⃣ ⭐ مختبر فوكش الكيميائي التفاعلي - 2026 2️⃣7️⃣ ⭐ نظام إرسال الرسائل القصيرة SMS من اكسيس ⭐ ( نسخة محدثة ) سيتم إضافة مواضيع جديدة ، لم يتم تحديث المدونة بها 😇

طيب .. رغم أن الطلب تم تحقيقه من خلال Data Validation ، ولكن هذا لا يمنع من تجربة الفكرة التالية من خلال الأكواد . حيث تم دمج الحدث عند التغيير للورقة من :- If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B3:B3000")) Is Nothing Then With Target(1, 5) .Value = Date & " " & Time .EntireColumn.AutoFit End With End If ليصبح :- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or Target.Row < 3 Then Exit Sub If Target.Column = 2 And Target.Value <> "" Then Target.Offset(0, 4).Value = Now If (Target.Column = 4 Or Target.Column = 5) And Trim(Me.Cells(Target.Row, "D").Value) = "بيع" Then Dim r As Long: r = Target.Row Dim itemCode As Variant: itemCode = Me.Cells(r, "B").Value Dim qty As Double: qty = Val(Me.Cells(r, "E").Value) If Not IsEmpty(itemCode) And qty > 0 Then Dim stockSheet As Worksheet: Set stockSheet = Worksheets("المخزن") Dim findCell As Range Set findCell = stockSheet.Range("B3:B800").Find(What:=itemCode, LookIn:=xlValues, LookAt:=xlWhole) If Not findCell Is Nothing Then Dim realAvailableStock As Double realAvailableStock = Val(stockSheet.Range("I" & findCell.Row).Value) + qty If qty > realAvailableStock Then MsgBox "• لا يمكنك إتمام عملية البيع هذه" & vbCrLf & vbCrLf & _ "• الصنــف: " & Me.Cells(r, "C").Value & vbCrLf & _ "• الرصيد المتاح حالياً: " & realAvailableStock & " قطعة" & vbCrLf & _ "• الكمية المطلوبة: " & qty & " قطعة", _ vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تجاوز الرصيد" Application.EnableEvents = False Me.Cells(r, "E").ClearContents Me.Cells(r, "E").Select Application.EnableEvents = True End If End If End If End If End Sub ملفك بعد التطبيق :- مخزن 1.xlsb