أ / محمد صالح

عليكم السلام يمكنك وضع هذه المعادلة في الخلية F3 =(SUM(B3,E3)-SUM(A3,D3))*24 بالتوفيق

أخي الكريم يجب كتابة المطلوب بالتفصيل الممل حتى يفهم الجميع ويساعدوك

من الواضح أن إجراء التمكين غير موجود والذي يسمى enableply لذلك يمكنك استعمال هذين الاجرائين للتعطيل Private Sub Workbook_Open() Application.CommandBars("Ply").Enabled = False End Sub للتمكين Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Ply").Enabled = True End Sub بالتوفيق

يمكنك استعمال هذه المعادلة في B3 =WORKDAY.INTL(A3-1,D3,16) بالتوفيق

المشكلة ليست في الكود المشكلة في تنسيق الخلية ونوع التقويم

جرب هذه المعادلة =IF(M4*0.0199<1.99,1.99,IF(M4*0.0199>=0.299*F4,0.299*F4,M4*0.0199)) على اعتبار أن قيمة الصفقة هي الخلية F4 بالتوفيق

هذا الرمز يخبر اكسل أن ينتج قيمة واحدة كما هو الحال في معادلة المصفوفات القديمة جرب أن تحذف معادلات العمود كله وتكتب المعادلة بدون @ في أول خلية فقط مع الضغط على انتر فقط حيث أن هذا النوع من المعادلات يحتاج إلى نطاق فارغ ليظهر جميع النتائج وإلا يظهر الخطأ SPILL بالتوفيق

يمكنك تجربة هذه المحاولة بالمعادلات بدلا من تصدير النتائج في شيت جديد يمكنك كتابة مصطلح البحث والحصول على النتائج في شيت النتائج أهم شيء معادلة المسلسل في شيت البيانات data لأن معادلة البحث vlookup تعتمد عليها بالتوفيق فلترة نتائج البحث في شيت جديد.xls

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

بعد إذن أخي الغالي @احمد عبدالحليم يمكنك استعمال هذا الاجراء لوضع أسماء الشيتات ايا كان عددها في العمود B Sub sheetsnames() n = 4 For Each sh In ThisWorkbook.Sheets If sh.Name <> "الرئيسية" Then Range("b" & n) = sh.Name n = n + 1 End If Next sh MsgBox "ok" End Sub واستعمال هذا الكود في حدث تغيير قيمة الخلايا في شيت الرئيسية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then Range("C4:C12").Formula = "=VLOOKUP($B$2,INDIRECT(""'""&B4&""'!a2:b10000""),2,0)" Range("C4:C12").Value = Range("C4:C12").Value End If End Sub بالتوفيق

بدلا من الكود الخاص بنسخ 32بت فقط ويكون السطر مكتوب باللون الأحمر تضع هذا السطر بعد elde وتضع نفس السطر بعد غضافة ptrsafe قبل function بعد if vba7

نظام جهازي يستعمل الفاصلة بين أجزاء المعادلة ربما يكون جهازك يستعمل الفاصلة المنقوطة

هذه معادلة بحث عادية لماذا تجعلها مصغوفات بالضغط على Ctrl+shift+enter يلزمك تقليل عدد صفوف البحث بتبديل رقم 1048576 إلى 1000 مثلا إذا كانت صفوف بياناتك أقل من الف صف او اكبر من عدد صفوف البيانات لديك بقليل بالتوفيق

أو يمكنك تعديل الكود ليتناسب مع 64bit # if vba7 then declare ptrsafe function.... # else declare function... # end if لاحظ وضع ptrsafe قبل function بالتوفيق

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذه المعادلة في L6 =IF(H6>0,VLOOKUP(C6,$T$5:$AI$100,MATCH(B6,$T$5:$AI$5,0),0),0) وهذه المعادلة في N6 =IF(AND(H6>0,OR(S6="ض نقل",S6="نقل")),VLOOKUP(C6,$T$5:$AI$100,MATCH(B6,$T$5:$AI$5,0)+1,0),0) لاحظ استعمال match لجلب ؤقم العمود بدلالة رقم أمر التوريد بالتوفيق

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

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

كتعديل في كود الفلتر وعدم الحاجة لكود إلغاء الفلتر يمكن استعمال هذا الكود في حدث تغيير محتوى الخلايا في الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$8" Then Dim LastRow As Long Dim FilterRange As Range LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row Set FilterRange = Range("C9:U" & LastRow) If Not IsEmpty(Range("D8")) Then FilterRange.AutoFilter Field:=2, Criteria1:=Range("D8").Value Else FilterRange.AutoFilter Field:=2 End If End If End Sub بالتوفيق

الأولى طبعا أن يكون الكود بالمسميات الموجودة في الشيت ولكن بعد تجربة ملف صاحب الاستفسار تبين أنه يعمل بكفاءة بعد حذف الصفوف الفارغة فقط فلا داعي لزيادة الأمر عليه بالتوفيق للجميع

أخي الكريم @عماني عماني كنت قد شرجت قبل ذلك هذا الأمر في منتدانا الكبير أوفيسنا وأبسط الحلول بالمعادلات وليس بالكود * أن تمسح بيانات العمود A والعمود J * وتضبط خيارات الإكسل إلى تفعيل خاصية الحساب التكراري iterative calculation File - options - formula * تستعمل هذه المعادلة في C4 ويتم نسخها إلى D4 & E4 وكذلك إلى L4 & M4 & N4 مع تغيير A4 إلى J4 =IF($A4="","",IF(C4<>"",C4,NOW())) * تغيير تنسيق الخلية في اليوم إلى dddd وفي الوقت إلى hh:mm:ss بالتوفيق

هذه محاولة مني ضع هذه المعادلة في L5 =IFERROR(INDEX($I$5:$I$272,MATCH(0,IFERROR(MATCH($I$5:$I$272,$D$5:$D$1370,0),COUNTIF($L$4:$L4,$I$5:$I$272)),0)),"") واتسخ لأسفل 100 صف فقط حتى لا تبطئ الملف وإذا كان الأوفيس قديم نسبيا يجب الضغط على كنترول وشيفت وانتر بالتوفيق

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

لن تجد ما يناسبك مائة بالمائة إلا أن تصمم برنامجك بنفسك وتعرض مشكلتك إذا صادفتك مشكلة وهذه عينة من برامج الفواتير https://www.officena.net/ib/search/?&q=برنامج فواتير&type=forums_topic&quick=1&nodes=135&search_and_or=and&sortby=relevancy بالتوفيق

ممكن تستعمل for ..... next لكن في كل مرة ستفتح نافذة جديدة في المتصفح

ربما تفيدك هذه الموضوعات https://www.officena.net/ib/search/?q=تفقيط الدينار الكويتي &updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق