أ / محمد صالح

الكود يقوم بهذا الغرض ولكن على العمود 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 بالتوفيق

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

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

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

يمكنك استعمال هذه المعادلة =TEXTJOIN(CHAR(10),1,A2:C2) مع تغيير تنسيق الخلية إلى التفاف النص wrap text وإذا لم تكن دالة textjoin مدعومة فيوجد موضوع لي عن بدائل لها mastextjoin بالتوفيق

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

ربما لو أرفقت ملفا به النتائج المتوقعة (الشكل النهائي للشيت) نتوصل بإذن الله لما تريد لأن المطلوب له أكثر من احتمال وأبسطها أن تكتب في أول خلية رأسية وليكن B3 =D1 ثم في الخلية التي تحتها B4 =IFERROR(IF(B3+1<=F$1,B3+1,""),"") مع سحب المعادلة لأسفل وتغيير تنسيق الخلايا إلى تاريخ بالتوفيق

الحمد لله الذي بنعمته تتم الصالحات

للأسف نماذج الاكسل لا تدعم الارتباط التشعبي بالشكل المعتاد ولكن يمكن التحايل على ذلك بوضع عنوان الارتباط في label وتنسيق لون الخط أزرق وتحته خط وكأنه ارتباط واستعمال هذا الكود في حدث النقر على التسمية Private Sub lblLink_Click() ActiveWorkbook.FollowHyperlink Address:="mr-mas.com", NewWindow:=True Unload Me End Sub مع تغيير رابط موقعي إلى عنوان الارتباط التشعبي بالتوفيق