Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

Officena Team
  • Content Count

    2,183
  • Joined

  • Days Won

    40

Everything posted by أ / محمد صالح

  1. الحمد لله أني لم أطلب طلبات دنيوية وأبسطها ثمن البرنامج كما يفعل الكثير أو تعليم المحتوى في دورات أونلاين بمقابل ولكن طلبت الدعم الذي لا يكلف القائم به أي شيء وببساطة جدا من لا يدعم لا يستحق التضحية من أجله بالوقت والمعلومة العطاء سعادة ولو عطاء المجهود هذه رسالتي ومن يبخل فإنما يبخل عن نفسه وهل جزاء الإحسان إلا الإحسان
  2. ما المقصود بكلمة ( وميض ) ؟ الخلية النشطة التي يتم الكتابة فيها تكون محاطة بإطار غامق وهذا يميزها عن غيرها
  3. بالنسبة لمشكلة الإرسال فيبدو ان الإرسال يتم قبل أن يتم تصدير الملف pdf لذلك يمكنك استعمال أمر الانتظار قبل تنفيذ الكود الثاني لبعض الثواني باستعمال الأمر wait هكذا Application.Wait DateAdd("s", 5, Now) وبالنسبة لاستبدال while فلا مشكلة لم يستعمل المتغير a في الكود ضع سطر for بدلا من while وضع سطر next بدلا من زيادة المتغير a وبعده loop بالتوفيق
  4. المطلوب غير واضح بصورة كافية لي يفضل توضيح الصورة النهائية للبيانات مع الشرح بالتفصيل حتى يتمكن الزملاء من مساعدتك فيما بدأت أنت في حله
  5. المطلوب شبه واضح وهو توفيق أرقام من مجموعة خلايا ليكون حاصل جمعهم رقما محددا من طرفكم ولكن غير محدد مكان التنفيذ في الملف أين الخلايا التي بها الأرقام؟ وأين خلية الرقم المراد تجميعه؟
  6. مادام السؤال نظريا فالإجابة ايضا نظرية تعتمد الفكرة المطلوبة على: تسجيل ماكرو استبدال الحروف التي عليها همزة إلى حروف ليس عليها همزة واستبدال التاء المربوطة بالهاء واستبدال الياء المتطرفة بالألف المقصورة ثم بعد ذلك يتم تنفيذ الترتيب
  7. إذا كنت تقصد تنسيق التاريخ مثلا فهذا يرجع إلى إعدادات تنسيق الخلايا format cells وإلى إعدادات اللغة والمنطقة في الويندوز
  8. تحتاج فقط إلى تغيير تنسيق الرقم يمكنك تغيير كود زر الضرب والقسمة إلى هذا الكود Private Sub CommandButton3_Click() TextBox3.Text = Format(Val(TextBox1.Text) * Val(TextBox2.Text), "#.00") End Sub Private Sub CommandButton4_Click() TextBox3.Text = Format(Val(TextBox1.Text) / Val(TextBox2.Text), "#.00") End Sub
  9. للأسف لا يوجد حدث عند إخفاء أو إظهار الأعمدة أو الصفوف في الشيت ولكن يمكن التحايل على ذلك بوضع كود الحساب في حدث عند تغيير التحديد بحيث أنه بعد الإخفاء أو الإظهار يكتفى بوضع المؤشر في أي مكان في الشيت لتقوم الدالة بالحساب Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Calculate End Sub وطبعا يتم لصق هذا الكود في شاشة الأكواد الخاصة بالشيت الذي به معادلة جميع الأعمدة المرئية فقط بالضغط دبل كلك على اسم الشيت
  10. المثال بعد كمة طريقة استعمالها أولا تضيف موديول في شاشة الفيجوال بيسك ثم تلصق الدالة الموجودة في الكود الأول في المشاركة السابقة ثم تكتب المعادلة الثانية في المكان الذي تريد فيه ظهور مجموع الخلايا المرئية فقط
  11. فعلا subtotal لا تعمل مع الأعمدة لكن يمكنك استعمال هذه الدالة Function sum_vis_cols(rng As Range) As Double Dim mysum As Double, c As Range Application.Volatile For Each c In rng mysum = mysum + IIf(c.EntireColumn.Hidden <> True, c.Value, 0) Next sum_vis_cols = mysum End Function وطريقة استعمالها =sum_vis_cols(E1:CX1) بالتوفيق
  12. هذا السؤال تسأل فيه صاحب الملف الأستاذ أبو الحسن لأنه برنامج تجاري والأكواد محمية ببرنامج بمقابل يعني الراجل يدفع فلوس لحماية أكواده وانت تفكها كدا ببساطة؟؟؟؟!!!!! الخلاصة: حتى الآن لا توجد طريقة معروفة لضرب حماية برنامج VBA unviewable+
  13. يمكنك أولا استعمال عمود واحد للمبلغ ككل ولا داعي للتقسيم إلى عمودين ولكن للحل بنفس الأسلوب يمكنك وضع المعادلة التالية في الخلية L6 =INT(SUM($J6,$I6/100)*K$4) وتعني الرقم الصحيح من ناتج جمع القروش والجنيهات ثم ضربه في 9% المكتوبة في الخلية K4 وكتابة المعادلة التالية إلى الخلية K6 =MOD(TRUNC(SUM($J6,$I6/100)*K$4,2),1)*100 وتعني ضرب باقي قسمة المستحق على 9% في 100 ليكون رقما صحيحا ثم نسخ المعادلة لباقي النسبة تحديد الخليتين K6 & L6 ثم CTRL+C للنسخ الوقوف في M6 ثم اللصق بـ CTRL+V الوقوف في O6 ثم اللصق بـ CTRL+V الوقوف في Q6 ثم اللصق بـ CTRL+V
  14. جرب هذا اكود ActiveSheet.PageSetup.RightFooter = Range("n5").Value & chr(10) & Range("o5").Value حيث chr(10) تعني سطر جديد وهو يساوي الضغط على alt+enter داخل الخلية
  15. هذه المشكلة تعني أن نوع البيانات المقدم للدالة لا يتناسب مع نوع البيانات المطلوب من الدالة وبالنسبة لعدم تمكين ال debug فسببه حماية الأكواد بباسوورد ويجب إلغاء أو إدخال كلمة المرور أولا حتى تظهر
  16. الدالة صحيحة مليون في المائة الخطأ في استسهال العرب في استعمال قاعدة استلاف شهر والشهر يساوي 30 يوم والصواب استلاف شهر عدد أيامه هو عدد أيام الشهر في التاريخ القديم (الثاني) جرب المعادلة مع شهر تكون أيامه 30 وشهر تكون أيامه 31 وشهر فبراير مرة 28 ومرة 29 ستتأكد من آلية عمل الدالة (كل هذه التغيرات في التاريخ الثاني القديم الذي يتم طرحه من التاريخ الأول الحديث وهذا هو سر عدم تضمينها في قائمة الدوال وعدم ظهورها في الإكمال التلقائي تحياتي للجميع
  17. تستخدم بطريقة عادية زي ما قلت لحضرتك المشكلة أنها لا تظهر في قائمة الدوال أو الإكمال التلقائي في شريط الصيغة ويوجد مثال بالإكسل في الرابط المذكور به الطريقة على تاريخ اليوم أو تاريخ آخر محدد
  18. دالة datedif موجودة في جميع إصدارات إكسل ولكنها غير موجودة في قائمة الدوال ولا تظهر في الإكمال التلقائي نظرا لاختلاف عالمي في طريقة حساب الفرق بين تاريخين ويمكنك الاستفادة من هذا الرابط https://www.mr-mas.com/p/datedif.html لخساب الفرق بين تاريخين أونلاين وفي برنامج ميكروسوفت إكسيل
  19. يمكنك استخدام هذا الموقع لتقسيم الصور افقيا وراسيا https://pinetools.com/split-image في حالة تساوي احجام الصور
  20. ربما يفيدك هذا الموضوع استخراج تاريخ الميلاد والمحافظة والنوع من الرقم القومي
  21. بعد ملاحظة المرفق تبين وجود جدول مرتبط بشيت1 في ملف الإكسل ولذا يجب عدم فتح النموذج ولا البرنامج ككل إذا لم يكن الملف موجودا في المسار المحدد لذلك وبعد إذن أخي جعفر يجب استبدال exit sub إلى DoCmd.Quit للخروج النهائي من البرنامج
  22. جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا
  23. جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا
  24. جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا
  25. جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا
×
×
  • Create New...