اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4486

  • تاريخ الانضمام

  • Days Won

    198

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    إذا تم إرفاق ملف في السؤال يسهل التعديل عليه
  2. أ / محمد صالح
    نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا ولا تنسوا مشاركة الموضوع
  3. أ / محمد صالح
    هل ما زلنا لم نصل لسر ترتيب الأرقام بهذه الطريقة؟؟!!
  4. أ / محمد صالح
    وفي الحالتين يلزمك حفظ الملف بعد تنسيقه ووضع الكود المطلوب فيه كقالب template xltm – Excel macro-enabled template
  5. أ / محمد صالح
    شكرا لكلماتك الطيبة لايوجد تغيير في الكود فقط اختصار الدالة ChaingeLanguage "Arabic" إلى مضمونها وهو هذا السطر LoadKeyboardLayout "00000401", 1 ويمكن الاستغناء عن الدالتين الموجودين في الموديول ويتبقى فقط الإعلان declare في الموديول
  6. أ / محمد صالح
    ممكن تستعمل الكود الموجود في الملف السابق مع تعديل العمود إلى 4 If Target.Column = 4 Then LoadKeyboardLayout "00000401", 1 Else LoadKeyboardLayout "00000409", 1 End If سيجعل اللغة العربية في العمود d والانجليزية في غيره
  7. أ / محمد صالح
    أين رابط الصفحة التي بها الأسعار؟
  8. أ / محمد صالح
    يا ريت توضح أكتر هل الكود يقوم بتنسيق الملف الجديد؟ أم أنك تريد الملف الجديد يحتوي على بعض الأكواد التي تحتاجها دائما؟ وفي الحالتين يلزمك حفظ الملف كقالب template
  9. أ / محمد صالح
    هذا أسهل كود ويمكنك توظيفه كما تشاء مثلما فعل الأستاذ فتحي البنا في الملف المرفق من الأستاذ علي محمد علي
  10. أ / محمد صالح
    هذا التعليق منذ 2004
  11. أ / محمد صالح
    يفضل إرفاق الملف للتعديل عليه الأكواد موجودة المهم طريقة توظيفها
  12. أ / محمد صالح
    بارك الله أخي الكريم الملف يتم تحميله بدون مشاكل وكذلك فك الضغط عنه ولا أدري ما المشكلة عندك؟ ويبدو أن جهدي في تنفيذ المطلوب بالكود لم يعجب سيادتكم فكلنا بانتظار حلول الأصدقاء بالمعادلات وفقنا الله وإياكم لكل خير ينبغي تغيير عنوان الموضوع ليدل على مضمونه: إحضار بيانات رأسية بصورة أفقية من شيت آخر
  13. أ / محمد صالح
    تسهيلا للعمل تم استبعاد أيام العطلات الأسبوعية من كشف الغياب وتم تحويل الملف لصيغة تقبل التعامل مع الأكواد حيث أنه يصعب عمل المطلوب بدون تدخل جراحي (أقصد كود vba ) فقط يلزمك الضغط على زر الغياب لتسجيل الغياب من شيت data إلى الكشف مع الانتباه إلى المتغيرات في الكود أما بالنسبة للتأخير والاضافي والانصراف المبكر فالمطلوب غير واضح هل يكتب حرف من الحروف في كل حالة أم يكتب محتوى الخلية في شيت البيانات؟ نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا a1mas_Time Sheet.rar
  14. أ / محمد صالح
    المطلوب غير واضح
  15. أ / محمد صالح
    شكرا لكلماتك العطرة أشتاذ ناصر وفقنا الله جميعا لكل ما يحب ويرضى
  16. أ / محمد صالح
    اعرض الملف استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع national id info فتابعونا. شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع national id info نبدأ أولا بمعرفة دلالات أرقام بطاقة الرقم القومي المصري. لكن هل يمكن استخراج تاريخ الميلاد والمحافظة والنوع ذكر أو أنثى من الرقم القومي بصورة آلية؟؟!! تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: أبسط معادلات للحصول على تاريخ الميلاد والمحافظة والنوع من الرقم القومي أكواد المحافظات في الرقم القومي اقتصاص عدد معين من حروف الكلمة كيف سيكون الرقم القومي في المستقبل سنة 2100 ؟ تحويل النص إلى تاريخ معادلات if المتداخلة معادلة البحث lookup معرفة الرقم الزوجي والفردي عن طريق الدالة mod التعامل مع فهارس المصفوفات array في vba إنشاء دالة معرفة user defined function في إكسل والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 10 فبر, 2018 الاقسام قسم الإكسيل
  17. أ / محمد صالح
    مزيد من المعلومات حول ""
    Well done for you
  18. أ / محمد صالح
    بعد إذن الأفاضل هذه دالة كنت قد صممتها لهذا الغرض قبل ذلك ربما ننتفع بها وبأكوادها المختصرة Function mas_n_id_data(myid As Variant, Optional stype As Byte = 1) As Variant If myid = "" Then mas_n_id_data = "": Exit Function Dim n As Byte, governrate As Variant If stype = 1 Then mas_n_id_data = DateSerial(IIf(Left(myid, 1) = 2, 19, 20) & Mid(myid, 2, 2), Mid(myid, 4, 2), Mid(myid, 6, 2)) ElseIf stype = 2 Then governrate = Array("01-القاهرة", "02-الإسكندرية", "03-بورسعيد", "04-السويس", "11-دمياط", "12-الدقهلية", "13-الشرقية" _ , "14-القليوبية", "15-كفر الشيخ", "16-الغربية", "17-المنوفية", "18-البحيرة", "31-البحر الأحمر", "32-الوادى الجديد" _ , "19-الإسماعيلية", "21-الجيزة", "22-بني سويف", "23-الفيوم", "24-المنيا", "25-أسيوط", "34-شمال سيناء", "35-جنوب سيناء" _ , "26-سوهاج", "27-قنا", "28-أسوان", "29-الأقصر", "33-مطروح", "88-خارج مصر") For n = 0 To 27 If Mid(myid, 8, 2) = Left(governrate(n), 2) Then mas_n_id_data = Right(governrate(n), Len(governrate(n)) - 3) Exit For End If Next Else mas_n_id_data = IIf(Mid(myid, 13, 1) Mod 2 = 0, "أثنى", "ذكر") End If End Function وطريقة استعمالها في الاستعلام أو في خلايا الإكسل =mas_n_id_data("00000000000000", 2) حيث أن الأصفار هي الرقم القومي أو الحقل أو الخلية التي تحتوي عليه والرقم الثاني 1 أو يترك خاليا لاستخراج تاريخ الميلاد كتاريخ 2 لاستخراج المحافظة كنص 3 لاستخراج النوع كنص نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا
  19. أ / محمد صالح
    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أسعد الله اوقاتكم احبتي في الله حوار من القلب إلى القلب هل جزاء الإحسان إلا .............. كلنا يعرف الكلمة المحذوفة من الآية الكريمة ولكن هل كلنا يطبقها؟! يقتطع الكثير من الأصدقاء جزءا من وقتهم وجهدهم للرد على استفسارات الأعضاء سواء بالتعديل على ملف أو إعطائه خلاصة خبرته أو بتسجيل فيديو للحل فهل استفاد أحدنا من هؤلاء الأصدقاء؟! أكيد نعم هل فكرت في مكافئتهم؟! ورد جميلهم؟! بصورة لا تجعلك تدفع ولا جنيه واحد؟! الجواب: أرجو أن أكافئهم ولكن كيف ؟! الجواب: عدم استعمال مانع الإعلانات add plock لأن مكسب صاحب المدونة أو القناة أو الموقع في ظهور الإعلانات والضغط عليها وفتحها (الضغطة = ١٠٠ ظهور) حتى إذا أغلقتها بعدها. لنا أن نتصور ماذا سيكون شعور الصديق المشارك في حل المشكلات التي تواجه أعضاء الجروب إذا وجد أن أصدقاءه يحاولون أن يفيدوه قدر استطاعتهم كما أفادهم بالطبع سيجتهد أكثر في الوقوف معهم وحل مشكلاتهم ويكون الإحسان من الطرفين دائما لا ينقطع إن شاء الله هل جزاء الإحسان إلا الإحسان ؟؟!!
  20. أ / محمد صالح
    في الشرح لم تظهر أي رسائل خطأ أستاذ ناصر أكيد حضرتك لم تنفذ الخطوات بصورة صحيحة كما وردت في الشرح وخصوصا في الجزء الخاص بفك ضغط الملف المرفق بانتظار ردك بعد تنفيذ الخطوات بصورة صحيحة
  21. أ / محمد صالح
    بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button فتابعونا. شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button نبدأ أولا بمعرفة القواعد النظرية التي اعتمد عليها الشرخ. لتنفيذ ماكرو أو مجموعة أوامر vba يتم تعيين ماكرو لشكل تلقائي وهكذا مع كل ماكرو لكن هل يمكن أن ننفذ إجرائين بالضغط على زر أمرواحد أو شكل تلقائي auto shape واحد؟؟!! تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: إدراج شكل تلقائي في الشيت تغيير نص الشكل التلقائي بصورة عادية وبالكود vba إدراج وحدة نمطية module استدعاء تنفيذ إجراء macro من داخل إجراء آخر إخفاء عمود / أعمدة في إكسل بالكود والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 رابط الملف المستعمل في الشرح ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك لا تنس تقييم المنشور two macros by one button.rar
  22. أ / محمد صالح
    شكرا لك المرفق مضغوط ويجب فك الضغط عنه أولا حتى يتم فتحه في برنامج إكسل
  23. أ / محمد صالح
    وفقنا الله وإياكم لكل ما يحب ويرضى
  24. أ / محمد صالح
    شكرا لمروركم الكريم ربنا يبارك فينا جميعا
  25. أ / محمد صالح
    الشكر لله حبيبنا الغالي ولا تنس مشاركة هذا الموضوع في كل مواقع التواصل الاجتماعي
×
×
  • اضف...

Important Information

  I accept