أ / محمد صالح

تم إجراء بعض التعديلات لتتناسب مع المطلوب وهي: كتابة تاريخ 1 في الشهر المطلوب في الخلية c5 وبناء يتم جلب بيانات باقي ايام الشهر وتلوين الجمعة والسبت وكتابة اسم الشهر تلقائيا تم وضع معادلة التصفية الأفقية لجلب تاريخ اليوم المكتوب فيه غ (معادلة مصفوفات) تم وضع معادلة لحساب عدد أيام الغياب بالتوفيق حضور و غياب مع الخلاصة الشهرية.xlsm

الاحتمالات كثيرة أحدها نظام الفاصلة في جهازك هل هو الفاصلة فقط أم الفاصلة المنقوطة؟ يفضل إرفاق ملفك أو الشيت موضع المشكلة

حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة في الخلية B3 =INDIRECT("'"&B1&"'!$B$2") مع نسخ المعادلة بالسحب يمينا حتى M3 بالتوفيق

الأمر بسيط جدا بإذن الله تبدأ المعادلة بعلامة = ثم iferror ثم تفتح قوس ثم تلصق معادلتك بدون علامة = في أولها ثم الفاصلة أو الفاصلة المنقوطة (حسب نظام جهازك) ثم علامتين تنصيص ثم تغلق القوس ثم انتر بالتوفيق

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

الكود يقوم بهذا الغرض ولكن على العمود 3 بينما عمود الدائرة 16 لذا يجب تغيير هذا السطر txt = Join(Array(a(i, 3), a(i, 3)), Chr(3)) إلى txt = Join(Array(a(i, 16), a(i, 16)), Chr(3)) بالتوفيق

للحصول على الفرق بين رقمين نستعمل عملية الطرح بصورة عادية مثلا الرقم الأول في الخلية A1 من العمود الأول والرقم الثاني في الخلية B1 من العمود الثاني نكتب في الخلية التي نريد إظهار الفرق فيها =a1-b1 أما إذا كنت تريد غير ذلك فيرجى توضيح تفاصيل المطلوب بدقة واستفاضة بالتوفيق

يمكنك استعمال هذا الكود Sub savePDF() ActiveSheet.PageSetup.PrintArea = "B3:P" & Range("B" & Rows.Count).End(xlUp).Row ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("g7").Value & "_" & Format(Now(), "yyyy-mm-dd_hh-nn-ss") & ".pdf" MsgBox "Done by mr-mas.com" End Sub لاحظ مسار هذا المصنف thisworkbook.path وتنسيق الوقت الحالي ضمن الاسم واستعمال الشرطة - والشرطة السفلية _ في الاسم بدلا من / بالتوفيق

الملف المرفق لا يفيدنا في الوقوف على أسباب المشكلة ربما تكون قمت بتثبيت برنامج ribbonX وهو الذي يقوم بوضع هذا الكود في جميع الملفات بناء على خيارات البرنامج لذا افترح الغاء تثبيت البرنامج وملاحظة المشكلة وإذا استمرت أقترح عمل اصلاح repair. للأوفيس من لوحة التحكم ثم إلغاء تثبيت البرامج بالتوفيق

ربما لو ازفقت الملف او الجزء الذي به المشكلة نتوصل للحل

أخي الكريم * حتى تظهر الصفوف الجديدة ضمن نتائج البحث يجب نسخ المعادلة في النطاق H5:M17 إلى الصف المطلوب بعد إظهار هذه الأعمدة المخفية * فلسفة هذه الطريقة من البحث بالمعادلات تعتمد على تلوين الصف الذي يحتوي على كلمات البحث وهو في مكانه * السجل الجديد يتم إضافته بعد آخر صف مكتوب فيه وإذا أردت تغيير هذه الفلسفة إلى الفلترة وظهور الصفوف التي تحتوي على كلمات البحث فيمكنك الاستفادة من هذا الموضوع بالتوفيق

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

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

إن شاء اللّه تكون هي المطلوبة =SUM(B2:M2)/COUNTIF(B2:M2,">"&0)*12 بالتوفيق

تفضل هذا ملفك بعد وضع معادلة التصفية في الخلايا الصفراء وزيادة رقم الصفحة لعرض أول 4 ثم ثاني 4 ثم ثالث 4 وهكذا بالتوفيق تصفية الرواتب في صفحة الطباعة.xlsx

الشكر لله الذي بنعمته تتم الصالحات

الدالة row تجلب رقم الصف النشط وطرح 2 ليكون الناتج صفر ثم 1 ثم 2 في كل صف ثم الضرب في 8 ليتجاوز 8 صفوف في كل مرة بالتوفيق

تم استعمال دالتين وهذا شرحهما transpose offset

الشكر لله الذي وفقنا لهذا

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

من تبويب ملف file ثم خيارات options ثم متقدم advanced يوجد قوائم مخصصة custom lists تأكد من وجود أسماء الأيام والشهور باللغة العربية وإلا فيجب إضافتها كل عنصر في سطر وبالنسبة لتنسيق الأرقام فيجب اختيار منطقة عربية في لوحة التحكم في تنسيق التاريخ والأرفام بالتوفيق

إذا كان المطلوب مجرد فرق بين تاريخين يمكنك استعمال دالة datedif بالتوفيق

ينبغي مدارسة المعادلة وفهم بداية ونهاية كل نطاق ورقم الصف والعمود المطلوب وبإذن الله تستطيع الوصول للمطلوب الثاني بنفسك خالص دعواتي بالتوفيق

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

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