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

أ / محمد صالح

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

  • Posts

    4477

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

  • Days Won

    197

 نوع المحتوي 

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

  1. أ / محمد صالح
    هذا التعليق منذ 2004
  2. أ / محمد صالح
    يفضل إرفاق الملف للتعديل عليه الأكواد موجودة المهم طريقة توظيفها
  3. أ / محمد صالح
    بارك الله أخي الكريم الملف يتم تحميله بدون مشاكل وكذلك فك الضغط عنه ولا أدري ما المشكلة عندك؟ ويبدو أن جهدي في تنفيذ المطلوب بالكود لم يعجب سيادتكم فكلنا بانتظار حلول الأصدقاء بالمعادلات وفقنا الله وإياكم لكل خير ينبغي تغيير عنوان الموضوع ليدل على مضمونه: إحضار بيانات رأسية بصورة أفقية من شيت آخر
  4. أ / محمد صالح
    تسهيلا للعمل تم استبعاد أيام العطلات الأسبوعية من كشف الغياب وتم تحويل الملف لصيغة تقبل التعامل مع الأكواد حيث أنه يصعب عمل المطلوب بدون تدخل جراحي (أقصد كود vba ) فقط يلزمك الضغط على زر الغياب لتسجيل الغياب من شيت data إلى الكشف مع الانتباه إلى المتغيرات في الكود أما بالنسبة للتأخير والاضافي والانصراف المبكر فالمطلوب غير واضح هل يكتب حرف من الحروف في كل حالة أم يكتب محتوى الخلية في شيت البيانات؟ نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا a1mas_Time Sheet.rar
  5. أ / محمد صالح
    المطلوب غير واضح
  6. أ / محمد صالح
    شكرا لكلماتك العطرة أشتاذ ناصر وفقنا الله جميعا لكل ما يحب ويرضى
  7. أ / محمد صالح
    اعرض الملف استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع 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 الاقسام قسم الإكسيل
  8. أ / محمد صالح
    مزيد من المعلومات حول ""
    Well done for you
  9. أ / محمد صالح
    بعد إذن الأفاضل هذه دالة كنت قد صممتها لهذا الغرض قبل ذلك ربما ننتفع بها وبأكوادها المختصرة 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 لاستخراج النوع كنص نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا
  10. أ / محمد صالح
    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أسعد الله اوقاتكم احبتي في الله حوار من القلب إلى القلب هل جزاء الإحسان إلا .............. كلنا يعرف الكلمة المحذوفة من الآية الكريمة ولكن هل كلنا يطبقها؟! يقتطع الكثير من الأصدقاء جزءا من وقتهم وجهدهم للرد على استفسارات الأعضاء سواء بالتعديل على ملف أو إعطائه خلاصة خبرته أو بتسجيل فيديو للحل فهل استفاد أحدنا من هؤلاء الأصدقاء؟! أكيد نعم هل فكرت في مكافئتهم؟! ورد جميلهم؟! بصورة لا تجعلك تدفع ولا جنيه واحد؟! الجواب: أرجو أن أكافئهم ولكن كيف ؟! الجواب: عدم استعمال مانع الإعلانات add plock لأن مكسب صاحب المدونة أو القناة أو الموقع في ظهور الإعلانات والضغط عليها وفتحها (الضغطة = ١٠٠ ظهور) حتى إذا أغلقتها بعدها. لنا أن نتصور ماذا سيكون شعور الصديق المشارك في حل المشكلات التي تواجه أعضاء الجروب إذا وجد أن أصدقاءه يحاولون أن يفيدوه قدر استطاعتهم كما أفادهم بالطبع سيجتهد أكثر في الوقوف معهم وحل مشكلاتهم ويكون الإحسان من الطرفين دائما لا ينقطع إن شاء الله هل جزاء الإحسان إلا الإحسان ؟؟!!
  11. أ / محمد صالح
    في الشرح لم تظهر أي رسائل خطأ أستاذ ناصر أكيد حضرتك لم تنفذ الخطوات بصورة صحيحة كما وردت في الشرح وخصوصا في الجزء الخاص بفك ضغط الملف المرفق بانتظار ردك بعد تنفيذ الخطوات بصورة صحيحة
  12. أ / محمد صالح
    بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح طريقة تنفيذ إجراءين بزر أمر واحد 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
  13. أ / محمد صالح
    شكرا لك المرفق مضغوط ويجب فك الضغط عنه أولا حتى يتم فتحه في برنامج إكسل
  14. أ / محمد صالح
    وفقنا الله وإياكم لكل ما يحب ويرضى
  15. أ / محمد صالح
    شكرا لمروركم الكريم ربنا يبارك فينا جميعا
  16. أ / محمد صالح
    الشكر لله حبيبنا الغالي ولا تنس مشاركة هذا الموضوع في كل مواقع التواصل الاجتماعي
  17. أ / محمد صالح
    عدد سطور الكود في مشاركتي 45 سطرا بينما في المشاركة الثانية 53 سطرا أعتقد كنت تقصد الإطالة أكثر أستاذ سليم جل من لا يسهو وعلى فكرة يمكن اختصاره إلى أقل من 45 سطرا وفقنا الله جميعا لكل خير
  18. أ / محمد صالح
    ولإثراء الموضوع يمكن اختصار الأكواد قليلا إلى هذا Option Explicit Option Base 1 Sub My_Calandar() If ActiveSheet.Name <> "Salim_Calendar" Then Exit Sub Dim t As Date, i As Byte Dim Arab_day(), m% Dim EnG_day(), rows_count As Byte Dim col As Byte Dim r As Byte Dim search_day As Date rows_count = Range("b4").CurrentRegion.Rows.Count + 3 Range("b4:H" & rows_count).ClearContents Range("b5:h10").Interior.ColorIndex = 0 '''''''''''''''''''''''''Conditions for working'''''''''''''''''' If Not IsNumeric([b1]) Or Not IsNumeric([b2]) _ Or [b1] < 1 Or [b2] > 12 Or [b2] < 1 Then MsgBox "Type Valid Numbers in cell(B1) & cell(B2)": Exit Sub End If ''''''''''''''''''''''''' End of Conditions for working'''''''''''''''''' r = 5 '''''''''''''''''''''''''Conditions for Special Day'''''''''''''''''' If Not IsNumeric([g1]) Or [g1] > Day(Application.EoMonth(t, 0)) _ Or [g1] < 1 Then [g1] = 1 Else [g1] = Int([g1]) End If '''''''''''''''''''''''''End of Conditions Special Day'''''''''''''''''' search_day = DateSerial([b1], [b2], [g1]) Arab_day = Array("الأحد", "الإثنين", "الثلاثاء", _ "الأربعاء", "الخميس", "الجمعة", "السّبت") ' EnG_day = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") Range("b4").Resize(, 7) = Arab_day For i = 1 To 31 t = DateSerial([b1], [b2], i) m = Weekday(t) + 1 Cells(r, m) = t Cells(r, m).Interior.ColorIndex = IIf(t = search_day, 3, 35) If Month(t + 1) > [b2] Then Exit For r = IIf(m + 1 > 8, r + 1, r) Next Erase Arab_day End Sub نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا
  19. أ / محمد صالح
    ما شاء الله إبداع أخي سليم وخاصة التأكد من قيم الخلايا التي يدخلها المستخدم وفقنا الله وإياكم لكل ما يحب ويرضى
  20. أ / محمد صالح
    أعتقد حضرتك غير صاحب السؤال أخي الكريم ووصلت لنفس النتيجة!!! على العموم الكود يعمل 100% ربما يكون الخطأ في الخطوات فقل لنا ما قمت به خطوة خطوة وسنصل بإذن الله لتفادي الخطأ في الخطوات وفقنا الله وإياكم لكل خير
  21. أ / محمد صالح
    مرحبا بكم أخي الكريم الكود يعمل بكفاءة عالية ويرسل البريد 100% لنتعرف المشكلة ونصل للحل إن شاء الله يلزمنا معرفة ما قمت به خطوة بخطوة
  22. أ / محمد صالح
    جميل بارك الله فيك لكن أعتقد الصوت يحتاج لبعض الاهتمام وفقننا الله وإياكم لكل ما يحب ويرضى
  23. أ / محمد صالح
    شكرا لمروركم العطر أستاذ صالح وفقنا الله جميعا لكل خير
  24. أ / محمد صالح
    وفيكم بارك أخي الكريم وفقنا الله جميعا لكل خير شكرا لمروركم العطر أستاذنا رد عليك من هو أفضل مني قائلا: آمين ولك مثلها إن شاء الله
  25. أ / محمد صالح
    بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel فتابعونا. شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel؟ نبدأ أولا بمعرفة القواعد النظرية الرياضية التي اعتمد عليها الشرخ. الحدث application.ontime يستخدم في تنفيذ إجراء معين في وقت معين. مثال: تنفيذ الإجراء masclock بعد ثانية من الآن Application.OnTime Now + TimeSerial(0, 0, 1), "masclock" نأتي للساعة العقارب تعتمد على أن عثرب الساعات يمشي 30 درجة في الدائرة 360 درجة كل ساعة من خلال المعادلة التالية ثم نحسب زوايا الساعات والدقائق والثواني = 6 * عدد الثواني وهكذا ثم نوزع الضرب على الجمع ونختصر فتكون ونتعرف أيضا على: استدعاء ماكرو عند فتح مصنف إكسل ماكرو يستدعي نفسه ويكرر نفسه طريقة ونظرية برمجة عقارب الساعة رياضيا حساب إحداثيات نقطة بدلالة زاوية وطول الضلع على محور السينات X axis ومحور الصادات Y axis إضافة خلفية الرسم البياني Char إظهار محتوى خلية في شكل تلقائي auto shape كتابة معادلة في الشكل التلقائي لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 الملف المستعمل في الشرح في المرفقات ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك mas digital and analog clock.rar
×
×
  • اضف...

Important Information

  I accept