اذهب الي المحتوي
أوفيسنا

الشهابي

الخبراء
  • Posts

    1,160
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

كل منشورات العضو الشهابي

  1. أخي العزيز / عيد مصطفى هذه محاولتي لعمل ما طلبته و إن شاء الله يكون هو المطلوب وضعت لك ثلاثة أكواد الكود الأول يقوم بتحديد الصفوف المكررة ويحدد ناحية الطباعة ثم يقوم بمعاينة الطباعة وعند غلق المعاينة يقوم بطباعة الصفحة الكود الثاني يتم أولا تعين عدد الموظفين المطلوب طباعة بياناتهم في الخلية [ AH1] رقم أول موظف وفي الخلية [ AH2] رقم آخر موظف يقوم بنفس عمل الكود الأول إلا أنه بعد عمل المعاينة وعند غلقها يطبع الموظف الأول ثم معاينة للموظف الثاني وعند غلق المعاينة يطبع صفحة ذلك الموظف ويعمل معاينة للموظف اللي بعده وهكذا حتى آخر موظف حددته في الخلية [ AH2] الكود الثالث يطبع مباشرة كل الموظفين حسب تحديدهما في الخليتين المشار إيهما سابقا للعلم عبارة عن كودين منقولين فقط قمت بمحاولة الدمج بينهما والله الموفق واعتذر لك أخي مرة أخرى مما بدر مني من غير قصد في موضوعك السابق Payroll Tax - 20111.rar
  2. الأخ العزيز / عيد مصطفى أعتذر لكم أخي لتسببي بتشعب الموضوع العفو منكم حيث ظننت أن مطلوبك ومطلوبي واحد أرجو ألاَّ تأخذ في خاطر مني وإن شاء الله تجد مطلوبك بارك الله فيك
  3. الأستاذ / مجدي يونس استمتعت كثيراً وجعلت البسمة تظهر عل شفاهنا كما هي عل شفتيك في الصورة بارك الله فيك وجزاك الله خير
  4. الأستاذ القدير / أبو أحمد عبد الله المجرب جزاك الله خير العفو منك ما أطلبه أنا فقط حماية خلايا معينة وليس كل الورقة المقصود من ذلك أنه عندي أوراق للتصفية المتقدمة وعند عمل تصفية متقدمة في تلك الأوراق تأتي رسالة تخير بأنه لا يمكن عمل ذلك في ورقة محمية والكود الذي أرفقته في المشاركة رقم 2 يقوم بالمهمة بس عيبه أنه إذا تم معرفة الخلية التي يتم وضع فيها True أو False يصبح غير ذو أهمية وهي في الكود الخلية[AG519] وصعب تذكرها بعد فترة فلا بد من الدخول في التعليمات البرمجية وأيضا إذاكان هناك شخص آخر لا قد يعرف موقع الخلية فكلمة السر سوف تكون حل مناسب ممكن التعديل بكلمة سر له توضع في الكود سوف يكون أفضل وجزاكم الله خير
  5. الأستاذ القدير / عبد الله أحمد باقشير إبداع وتميز لا حدود له فعلا دالة مهمة جداً وعملية وخاصة بالنسبة لنا كمعلمين بارك الله وجزاك الله خير وزادك علماً ورفعة
  6. الأستاذ / الكبير عبد الله المجرب والأستاذة إدارة ومشرفي أعضاء هذا المتدى العظيم أولا وبادي ذي بدء أتقدم إليكم وإلى الأمة الإسلامية جميعا بالتهنئة بمناسبة هذه الذكرى العظيمة على قلب كل مسلم ألا وهي ذكرى ميلاد الحبيب الأعظم صلى الله عليه وعلى آله وسلم ثانياً: لقد عاد اليوم النت إلينا بعد إنقطاع دام عدة أيام وأول ما فتحت موقعكم الكريم وتفاجأة بهذه الترقية " عضو فعال " في منتداكم واعتبرها هديه هذا اليوم العظيم وأنه لشرف لي وترقية حقيقية لي أن أكون عضوا خادماً لكم في هذا المنتدى الذي فضائله علينا وعلى كل عضو في هذا المنتدى جزيلة جم وجميع الأعضاء يدركون ذلك . وأنا والله لم أتوقع أي ترقية ولا خطر بالي شيء من ذلك وهذه الترقية إنما بسبب حسن ظنكم أنتم وسمو أخلاقكم بارك الله فيكم فجزكم الله خير جميعاً بارك الله فيكم إخواني الأعزاء على هذه التهاني الكثيرة التي تفاجأة بها مع الترقية بارك الله فيكم جميعاً أستاذنا القدير / مجدي يونس يشرقني أن تكون أول المهنئين جزاكم الله كل خير أستاذنا الكبير في عطائه / أحمد زمان أنه لشرف كبير لي تهنتك وفضائلك علينا كبيرة جزاكم الله كل خير أستاذي وابن بلدي بل وابن منطقتي / عبد الله أحمد باقشير تقديرك هو شرف لنا ولي برنامجي مدرسي هنا وضعت اسمك فيه تقديراً لما استفدته منك مباشرة أو غير مباشرة الإبداع والتميز لكم أنتم أستاذنا جزكم الله كل خير الأستاذ/ سعيد بيرم ألف مليون قبلة أزفها لشخصكم الكريم وافر تقديري لكم وجزاكم الله كل خير مشرفنا القدير / أحمد فضيلة إحترامي وتقدير لكم وألف تحية تقبلوها مننا أنت أهل الفضل والتقدير جزاكم الله كل خير الأستاذ القدير/ جمال الفأر النبل سمتكم وعطاؤكم النبيل في هذا المنتدى دليل على ذلك جزكم الله كل خير أخي العزيز/ aghanem أبسطك الله وفرحك ومزحتك مقبولة وشرف لي ردي على موضوعك جزاك الله خير أستاذنا الكبير / دغيدي شرف لنا مباركتكم لنا ورزقنا الله مثل أخلاقكم العالية جزكم الله كل خير أخي وحبيبي / فضل1 ذو الفضل والكرم صاحب العبارات الرنانة ثناءكم علينا هذا من فضلكم وأخلاقكم جزاكم الله كل خير أخي / Ahmed Elbhiry جزكم الله خير وعلى المزحة الجميلة التي أضحكتنا إلى الأمام إلى الأمام أنتم إن شاء الله جزاكم الله كل خير أستاذنا / abouelhssan احترامي وتقديري لكم أخي الحبيب وأنت تستاهل كل خير جزاكم الله كل خير أخي / القومي بارك الله فيك على التهنئة وجزاكم الله كل خير أستاذنا / سعد عابد تهنئتكم لنا سعادة لنا جزاكم الله كل خير أخي / jarwan شكراً على التهنئة وتستاهل أنت كل خير وجزكم الله كل خير أستاذنا القدير / أبو نصار التهنئة الحقيقية منكم هي عودتكم إلى المنتدى بعد الغياب عودة حميدة أستاذنا فرحنا بعودتكم جزاكم الله كل خير مشرفنا القدير / محمد يحياوي تهنئتكم لنا غالية على قلوبنا فرحت كثير بمروركم جزاكم الله كل خير الأستاذ المراقب العام / أبو خليل والله إنه لشرف عظيم أن تهنئون حزاكم الله كل خير وجزاء الله كل أعضاء هذا المنتدى من هنأ أو لم يهنئ الجميع أكن لهم المحبة والإحترام والتقدير والعفو منكم جميعاً إن قصرت في حق أحد منكم بالرد أو عدمه تقبلوا عذري واحترامي رأيت المنتدى شــموساً *** تضيء صــباحاً و مســاء تنير الطريق لكل ضـــالٍ *** شــــاء ذلــك أم لم يشـــاء
  7. موضوع ممتاز أخي عيد مصطفى أي حماية الخلايا حتى وإنك لم يتم حمايتها في المصنف من خلال حماية ورقة هذا كود حصلت عليه يوضع في حدث الورقة يقوم بحماية نطاقات معينة من الخلايا تحددها أنت من خلال إدراج زر عنصر تحكم نوذج صح أوخطأ على الزر للتعديل أو عدمه طبعا ممكن عدم وضع الزر وهذا ما فعلته وتحدد الخلية في الكود التي تضع فيها True أو False يدويا ولكن يمكن اكتشاف هذه الخلية ممكن لخبرائنا الأجلاء وضع كلمة سر على الكود من أجل السماح بالتعديل أو عمل كود آخر أفضل كما أشار زميلانا العزيز عيد مصطفى جزاه الله خير على هذا الموضوع وهذا هو الكود Private Sub Worksheet_Change(ByVal Target As Range) If Me.[AG519] Then Exit Sub If Not Application.Intersect(Target, Range("C2:AY2,C4:AY520")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "خلية لا يمكن تعديلها" End If End Sub
  8. أخي العزيز / فضل قمت بتسجيل ماكروا آخر لعمل تصفية متقدمة بنفس الطريقة تبعك بس تم تغير النطاق كما ستلاحظ لست أدري هل هذا هو مطلوبك أم لا وإذاكان مطلوبك آخر فانتظر رد الخبراء وعلى فكرة هناك فديو للأستاذ الكبير كيماس يشرح فيه التصفية المتقدمة وتسجيل ماكروا لها تعديل لكود لتحقيق المطلوب.rar
  9. هذه دالة للأستاذ / عبد الله ياقشير تقوم بتجزئة الأسم حسب ما تريد تجزئة الأسماء.rar
  10. أسلوب رائع أستاذنا جمال خدمة وفائدة تعليمية جزاك الله خير وبارك الله فيك
  11. الأستاذ / عبد الله باقشير زادك الله علماً ورفعة ووفقك الله دائماً لخدمة إخوانك جزاك الله خير
  12. أٍستاذنا الكبير / أحمد زمان ما شاء الله معادلات روعة ومختصرة جداً جزاكم الله خير بس عفواً يا جماعة ما الفرق بين معادلات الصفيف وغيرها ولماذا نضغط على shift+ctrl+entr بعد وضع الدالة أرجو أن توضحوا لنا ذلك والعفو منكم
  13. ما شاء الله أستا ذنا طارق حل بالمعادلات جميل جداً وأستاذنا المايسترو حل بالأكواد ولا أجمل قمت بتطبق المعادلات أستاذنا طارق في الصف الثامن ونفس نتائج الكود
  14. ممكن ذلك من خلال سحبه من الملف test إلى الملف test2 في محرر الأكواد Vba أو ممكن عمل زر في test2 وتعين الكود له من شريط المطور في شريط المهام من خلال الدخول في وحدات الماكرو ومن ثم سوف يظهر لك الكود وتقوم بتحديده بس في هذه الحالة يلزمك أن يكون الملف test مفتوح دائما قالطريقة الأولى أفضل لإنها تقوم بنقل الموديول إلى الملف المستهدف وهذا شرح فديو يوضح الطريقة نقل موديول من ملف إلى ملف آخر.rar
  15. أستاذنا الكبير أبو أحمد كود جميل وفائدة جديدة ممكن أوضح هنا مافهمته من الكود وما لم أفهمه MyArr = MyArr & Trim(Cells(i, 15)) & " " ' MyArr1 = MyArr1 & Trim(Cells(i, 16)) & " " MyArr2 = MyArr2 & Trim(Cells(i, 17)) & " " في هذه الأسطر تم تحويل النطاقات الموجودة في الخلايا المحددة إلى مصفوفات بواسطة الدالةTrim وعلى فكرة اسمها مثل اسم مدينتنا تريم For Each c In Split(MyArr, " ") Cells(1, A) = c A = A + 1 Next هنا تم تجزئة المصفوفة الأولى في الخلايا المحددة بواسطة الحلقة التكرارية For Each مع مساعدة الدالة Split بس عندي استفسار حول وضع الفراغ , " " فقد قمت بتشغيل الكود من غيرها والنتيجة واحدة وهذه الدالة Split غير موجودة في دوال الأكسل Case "كان وأخواتها": هنا ما فائدة النقطتين فوق بعض : وبهذا الكود أعطيتنا جواب حول وضع قيم نصية مختلفة بواسطة الحلقة التكرارية For Each ممكن من غير كلف توضيح للحلقات الأخرى وبالنسبة Sub foreach() Dim cb As Range i = 5 For Each cb In [J5:J7] cb.Value = [j3] i = i + 1 Next cb End Sub حيث قمت بتطبق شرحك وفهمت من عدم حاجة المتغير i هنا هو أن نفس النتيجة سوف تتكر في الخلايا المحددة فلا داعي إذا لوضع متغير وأما في الشرح هناك عمل تسلسل رقمي وبالتالي النتائج سوف تختلف فكان لا بد من إضافة متغير كما في الكود السابق عفواً : إذا كان هناك خطأ في توضيخ ما فهمته فضلا يتم تصحيحه المهم أنكم رجال بمعنى الكلمة وجزاكم الله خير
  16. أستاذنا العزيز / محمد يحياوي الله يحي قلبك بنور الإيمان جزاك الله كل خير
  17. أخي m_shehatta_14 الملف فاضي ارفع الملف مرة أخرى
  18. أستاذنا الكبير عبد الله المجرب أولا: اعتذر عن تأخري عن الرد وذلك بسبب إنقطاع النت في مدينتنا بسب قطع في إحد الكبيلات ولم أتوقع عودته هذا اليوم ولكن بحمد الله عاد وتوقعت عندما دخلت الموقع أنني سوف أرى ردوداً كثيرة وربما أكون الأخير في الرد ثانيا: الحمد لله استطعت أن أتوصل للحل ولكن عكيت شوية خاصة في السؤال الأول ولكن كما يقال بالمثل الحضرمي ( كل دقسة بتعلومة ) ثالثا: عندي بعض الاستفسارات 1- هل ممكن أن تعطي الحلقات التكرارية نتائج نصية مختلفة في الخلايا المحددة لتنفيذ الحلقات فيها 2- في السؤال الأول كيف ممكن عمل مصفوفة من نطاق معين حاولت ذلك من خلال الكود الأخير المسمى (abinshehab) ولكن لم استطع في الختام جزاكم الله خير تعلمنا منكم الكثير وما استفدناه من الدورة الكثير والكثير الشكر لكل من ساهم في هذه الدورة والعفو منكم الملف المرفق حل الأسئلة الثانية من الدورة.rar
  19. أستاذي القدير / عبد الله المجرب إخواني الأعزاء أعضاء هذا المنتدى الكريم اعذروني على تطفلي على الموضوع ولست أدري هل أنا مخالف لقواعد الدورة أم لا ولكنني وجدت في هذا المنتدى مشاركة للأستاذ الكبير عماد الحسامي متعلقة بهذا الجزء من الدورة فأحببت أن أضع رابط الموضوع للفائدة وعفواً أساتذتي الكرام على مابدر مني من تطفل الرابط هو : http://www.officena.net/ib/index.php?showtopic=32470&st=0 الرابط مرة أخرى لا أدري ماذا حصل للمنتدى اليوم كما قال أستاذنا خبور خير تظهر طلاسم http://www.officena.net/ib/index.php?showtopic=32470&st=0
  20. الأخ saad.abu أولاً :مرحباً بك في هذا الصرح الكبير ثانيا: لا يوجد ملف مرفق لإرفاق ملف قم بضغطه أولا بواسطة أحد برامج الضغط ثم قم بإرفاقه ثالثاً : هذا كود من عمل الأستاذ الكبير خبور خير يقوم بإخفاء الصفوف الفارغة عندما تكون خلية معينة في الصف فارغة في نطاق تحدده تضعه في حدث الورقة Private Sub Worksheet_Activate() Dim MyRng As Range Dim Col As Range Range("C16:C515").EntireRow.Hidden = False For Each Col In Range("C16:C515") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else _ Set MyRng = Union(MyRng, Col) End If Next If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True End Sub
  21. أخي العزيز messboub جزاك الله خير وبارك الله فيك أخي جاري التحميل
  22. أخي العزيز / عيد مصطفى جزاك الله كل خير في انتظار الجزء الثاني إن شاء الله
  23. الأستاذ القدير أبو أحمد عبد الله المجرب لا أدري لماذا في البداية لم يعمل معي الكود ولكن عند إرفاق الكود العكسي عمل معي بس عكسياً الكود الأول يحول الأرقام الهندية إلى عربية والثاني يحول العربية إلى هندية جزاك الله خير أستذنا القدير والعفو منكم
×
×
  • اضف...

Important Information