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

أنس دروبي

الخبراء
  • Posts

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

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

  • Days Won

    1

كل منشورات العضو أنس دروبي

  1. السلام عليكم ورحمة الله وبركاته أخي وأستاذي محمد الريفي بارك الله فيك عمل أكثر من رائع ولكن كما قال أخي ياسر خليل علمني كيف اصطاد ولاتعطيني سمكة صراحة قمت بتحليل كل خلية وكل شي موجود في الملف ولكن لم أعرف كيف كانت طريقة الزيادة في الرسم البياني لو سمحت وتفضلت نرجو منك توضيح الامر تقبل تحياتي ومروري
  2. السلام عليكم ورحمة الله أرجو أخي الكريم أن يكون الملف المرفق هو الذي طلبته الطريقة: أفتح الملف المرفق على أي جهاز تريده وعند الفتح تظهر رسالة ترحيب "أن هذه النسخة مفعلة على جهاز واحد فقط" وعند نقل الملف الى جهاز أخر وفتحه لن يعمل معك وسوف تظهر رسالة تقول "أن هذه النسخة مفعلة على جهاز أخر وسوف يغلق الملف تلقائياً ولن يعمل ابداً" طريقة الحماية هذه هي معرفة الرقم التسلسلي للوحة الأم الخاصة بجهاز الكمبيوتر وحفظه في ملف الأكسيل تقبل تحياتي ومروري حماية متميزة لملف أكسل.rar
  3. السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله
  4. أخي وحبيبي ياسر خليل بارك الله فيك وجزاك الله كل خير أنت أستاذي علمتني الكثير البرنامج حالياً يعمل على كافة الانظمة وخاصة ويندوز 8 يعمل بشكل يفوق الخيال وبدون اي مشاكل وان شاء الله سوف أقوم بحل مشكلة التوقف في القريب تقبل تحياتي ومروري
  5. بارك الله فيك أخي وحبيبي حسام على المشاركة انتم أساتذتنا تعلمنا منكم الكثير بالنسبة لسؤال أخي علي سنبل حول وقوف الويندوز هو وقوف سطح المكتب للحظات استخدم مفتاح alt+tab لحل هذه المشكلة أظن أن هذه المشكلة ظهرت على ويندوز 7 وهي سببها تحويل ملف اكسل الى ملف تنفيذي بصيغة exe جاري حل المشكلة وتحديث الروابط
  6. السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله
  7. السلام عليكم ورحمة الله أعتذر عن التأخير في الرد نظراً لقطع الانترنت المفاجئ بارك الله فيك أخي "اخوكم في الله" كود جميل جداً وكان سريع في الاداء والتنفيذ اخي "ياسر خليل" الحبيب أين أنت منذ زمن لم نشاهد ابداعاتك وتحفك الفنية بارك الله فيك وجزاك كل خير كان الكود سريع نسبياً في الاداء والتنفيذ أتمنى أن أخذ من وقتك بضع ثواني ودقائق لأن العمل الكامل متوقف صراحة على هذا الموضوع في الرابط التالي: http://www.officena.net/ib/topic/68912-الطريقة-المثالية-للتنقل-بين-الخلايا-ايقونة-السابق-والتالي/ أخي وحبيبي "أخوكم في الله" كان دائماُ استاذنا ياسر خليل ينصحني بتغيير أسم الظهور لدي الى اللغة العربية فإقتداءاً باستاذنا ليس أجبار ولاكرها وإنما فضول أن تغيير الاسم لأنه صراحة جميعنا أخوة في الله ههههه تقبل تحياتي ومروري
  8. السلام عليكم ورحمة الله أصدقائنا واخواني الكرام بعد البحث الطويل في مواقع الانترنت الاجنبية ومنها العربية حول فكرة تعبئة "قائمة في يوزر فورم" من بيانات مفلترة في ورقة العمل الطرق كانت في المواقع كثيرة وجميلة ومتميزة ولكن اكثرها كانت تعتمد على مبدأ الفلترة وبعدها نسخ البيانات المفلترة ولصقها في مكان اخر وجعل مصدر القائمة في اليوزر فورم "البيانات الملصقة" وكانت هناك طريقة أخرى تعبئتها عن طريق استخدام دالة for و next الذي اريده هو طريقة اخرى قصيرة في التنفيذ لان البيانات ضخمة في الملف وأصبحت هذه الطرق تأخذ وقت طويل في التنفيذ والاداء نرجو منكم عرض الافكار والاراء حول الفكرة لإثراء الموضوع قائمة منسدلة من بيانات مفلترة.rar
  9. السلام عليكم ورحمة الله اخواني هل من مجيب حول الموضوع والفكرة الذي طرحتها
  10. بارك الله وجزاكم الله كل خير أخي الحبيب صراحة لم يكن قصدي أن نقوم بالكتابة داخل "تكست البوكس الاول" وعدها النقر على الازرار ويكون التنقل في هذه الحالة القصد كما في ملفي المرفق في المشاركة الاولى أن يكون "التكست بوكس" فقط لعرض "قيمة الرقم" بناء على النقر على الاسهم الموجودة ولكن هذا التنقل يكون بناء على معياريين وليس معيار واحد مثال للتوضيح يوجد لدينا في العامود"A" الارقام التالية "1-1-2-2-2-3-4-5-6-6-6-7" كل رقم من هذه الارقام موجودة في خلية في العامود "A" ويوجد لدينا العامود"B" توجد فيه مقابل كل خلية من العامود "A" الكلمة "مبيع-شراء" الذي اريده التنقل وعرض الخلايا بناء على قيمة"المبيع" مثلاً عند النقر تعرض قيمة الرقم المقابل فقط للمبيع يعني بالمختصر نظام الفرز والتصفية "بناء على المبيع أو الشراء "ولكن طبقته أصبح الكود بطئ بعض الشي في التنفيذ أتمنى أن تكون الفكرة واضحة عندي حدث في قلبي أن الشرح طويل بعض الشئ هههه ثانياً أتشرف أن تشاهد وتعطيني رأيك في البرنامج الذي نشرته في المشاركة الاولى تقبل تحياتي
  11. السلام عليكم ورحمة الله أخواني الكرام هل من أفكار وأراء جديدة حول الموضوع
  12. بارك الله فيك اخي الكريم هذا هو المطلوب بكل ماتقوله الكلمة من معنى وجزاكم الله كل خير على الملف الذي قدمته صراحة فيه كودات متميزة وخاصة الكود المرتبط ب"combobox" فيه ميزة "عدم التكرار" كانت سريعة جداً في الاداء قمت بتجربتها على ملف كبير جداً فيه لايقل عن "200 الف خلية متكررة" وكانت سرعته خيالية نظراً لبرنامج أكسل بارك الله فيك مرة أخرى وأتشرف أن تكون من أول المجابين على هذا الموضوع
  13. السلام عليكم ورحمة الله بارك الله فيك وجزاك الله كل خير اخي وحبيبي علئ هذا الفورم المتميز والسريع في الاداء والقوة في التنفيذ اخي الكريم ملفك يصلح لعمل كامل انا كان طلبي بسيط جدا وهو التعديل فقط علئ كود الاستاذة حمادة عمر بارك الله فيك مرة اخرئ ولكن ملفك يصلح معي في اشياء اخرئ الذي اريده هو التعديل علئ نفس الكود في المشاركة نظرا لربط الكود في البرمجة باشياء اخرئ وهي تكست بوكسات وليبيل وايضا ليست بوكس اشكرك مرة اخرئ علئ تعبك وتمضية الوقت الكثير في انشاء البرنامج
  14. السلام عليكم ورحمة الله بارك الله فيك وجزاك الله كل خير اخي وحبيبي علئ هذا الفورم المتميز والسريع في الاداء والقوة في التنفيذ اخي الكريم ملفك يصلح لعمل كامل انا كان طلبي بسيط جدا وهو التعديل فقط علئ كود الاستاذة حمادة عمر بارك الله فيك مرة اخرئ ولكن ملفك يصلح معي في اشياء اخرئ الذي اريده هو التعديل علئ نفس الكود في المشاركة نظرا لربط الكود في البرمجة باشياء اخرئ وهي تكست بوكسات وليبيل وايضا ليست بوكس اشكرك مرة اخرئ علئ تعبك وتمضية الوقت الكثير في انشاء البرنامج
  15. السلام عليكم ورحمة الله أخواني وعلمائننا الافاضل هل من جديد حول المطلوب
  16. السلام عليكم ورحمة الله أخواني الكرام هل من أفكار وأراء جديدة حول الموضوع
  17. السلام عليكم ورحمة الله منذ فترة ليست ببعيدة كنت قد عرضت برنامج بسيط وجميل وهو برنامج"دليل حسابات بعدد لانهائي من المستويات" في هذا الرابط برنامج دليل حسابات بعدد لانهائي من المستويات وكانت فكرة البرنامج جديدة وجميلة في الطرح نظراً لأنه تستطيع اضافة عدد غير محدود من الحسابات حتى لو وصل العدد الى 10000 حساب وحتى المستوى 20 وكان يوجد فيه فكرة التنقل بين الحسابات لعرضها في الفورم وذلك كما في الصورة التالية (الاسهم الخضراء التي في اسفل الصورة) ولكن كود التنقل كان بطئ بعض الشي في التنفيذ والأداء علماً الكود بالطريقة البرمجية صحيح مئة بالمئة .... ففي الملف المرفق أنشاءت فورم شبيه للصورة ولكن نريد التنقل بناء على معيارين شاهدو الملف المرفق يوجد الشرح بشكل اوضح وأجمل بارك الله فيكم الطريقة المثالية للتنقل بين الخلايا.rar
  18. نعم هذا المطلوب المربع الاول مربوط بجدول النوع في الورقة (عامود b) والمربع الثاني مربوط بجدول الترقيم (عامود A) ولكن التعديل يكون على الكود نفسه نظراً لبساطته واداءه السريع
  19. السلام عليكم ورحمة الله وبركاته اخواني الكرام واساتذتي أتيت لكم اليوم "بفورم بحث قديم ومتميز لأستاذنا الكبير حمادة عمر" طلبي هو نفس الطلب الاول ولكن على هذا الكود لغاية التنويع وعرض الافكار الجديدة والمبتكرة قمت بوضع "تكست بوكس" جديد مربوط بقائمة "النوع" ومن ثم البحث في "التكست بوكس الاول" بناء على القيمة الموجودة في "تكست بوكس النوع" المطلوب هو مثل الطلب الاول ولكن على كود برمجي أخر بارك الله فيكم وجزاكم الله كل خير نتمى عرض الافكار والأراء حول الموضوع طريقة تصميم فورم بحث عن طريق لست بوكس.rar
  20. السلام عليكم ورحمة الله وبركاته أولاً أعتذر وأتأسف منكم على عدم مشاهدة الموضوع والمشاركات من قبل وذلك لعدم تواصلي مع الاصدقاء والاحباب وعدم الجلوس امام الكمبيوتر وذلك لمرضي الشديد الذي دام لمدة شهرين متواصلين والحمد لله على الصحة والعافية من المرض اصبحنا في الايام الماصية القريبة في احسن حال وصحة نسأل الله عزوجل ان يشفي كل مكروب وكل مريض من الامة الاسلامية ثانياً: بارك الله في أدارة الموقع التي جعلتني في موقع مسؤولية وتحمل وان نكون عند حسن ظنهم في نشر العلم والمعرفة لجميع الاعضاء والاصدقاء وجزاكم الله كل خير احبتي في الله واساتذتي في العلم بارك الله فيكم جميعا ً وفي رسائلكم المحفزة للتقدم والطموح بإذن الله سوف نقدم لكم في القريب اشياء جديدة ومتميزة على مستوى احترافي ذلك كله من اعمالكم وافكاركم وانما تجميع بشكل جديد وجميل والسلام عليكم اخوكم طالب العلم الصغير الفقير لله أنس دروبي
  21. السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي وحبيبي ومعلمي اخي الصقر على سرعة الرد والحل الاكثر من رائع لم كنت اتوقع السهولة في الحل تكتفي في إضافة هذا الامر البرمجي البسيط If ComboBox1.MatchFound = False Then GoTo 1 If ComboBox1.Value = .Cells(R, 2) Then بارك الله فيكم وجزاكم كل خير على الخدمات التي تقدموها لطلاب العلم في هذا المجال وبالنسبة للترقية بارك الله فيكم على نشر الرسالة صراحة لم انتبه للموضوع الذي نشر حول ذلك الامر أن شاء الله نكون عند حسن أدارة الموقع ونكون في خدمة طلاب العلم والمعرفة الموضوع اصبح الأن مجاب بشكل كامل بارك الله فيكم
  22. السلام عليكم ورحمة الله اخواني الكرام بعد مدة طويلة من الغياب عنكم وعن ابداعاتكم وافكاركم المتميزة وذلك نظراً لمرضي الذي دام اكثر من شهرين متواصلين ولله الحمد على الصحة والعافية من المرض أتيت لكم بطلب صغير وبسيط ومتواضع بالنسبة لعلمكم المعطاء . طلبي هو يوجد في الملف المرفق فورم بحث متقدم بشكل متميز لأحد من أساتذتنا في هذا الصرح العملاق الفورم يقوم بأعطاء نتيجة البحث بناء على الاختيار من قائمة البحث وادخال التواريخ قمت بإضافة خيار اخر للبحث وهو قائمة "النوع"بحيث يكون البحث أولا بناء على اختيار المطلوب من قائمة (النوع) ثانيا وبعدها الاختيار من القائمة الاخرى ثالثاً ومن ثم التاريخ أريد التعديل على نفس الكود الموجود نظراً لأداءه المتميز والأكثر من رائع في السرعة وجدت طرق قديمة ولكن لم تنفع نظراً لكثرة البيانات الكبيرة التي عندي أرجو أن يكون الشرح واضح بارك الله فيكم ملف بحث بفورم ممتاز.rar
  23. السلام عليكم ورحمة الله بارك الله فيك أستاذي ومعلمي رجب جاويش كود رائع وبسيط وأداء متميز وأكثر من رائع بارك الله فيك مرة اخرى وجزاك الله كل خير
  24. بارك الله فيك أخي وحبيبي أبو البراء الكود اصبح صحيح بالفعل وينقل الأعمدة المنسوخة الى الورقة رقم (5) بالترتيب بارك الله فيك مرة أخرى وجزاك الله كل خير
  25. السلام عليكم ورحمة الله الله الله أكبر على هذا الكود الجبار والرائع والاحترافي في الأداء هذا هو المطلوب بكل ماتقوله الكلمة من معنى 1. Set C = .Rows(1).Find(What:=Ctrl.Caption, LookAt:=xlWhole) 2.On Error GoTo 0 3.If Not C Is Nothing Then 4.LR = .Cells(Rows.Count, 1).End(xlUp).Row 5.Intersect(.UsedRange, .Range(.Cells(C.Row, C.Column), .Cells(LR, C.Column))).Copy 6.Worksheets("5").Cells(1,Columns.Count).End(xlToLeft).Offset(0, 1) اخي واستاذي أبو البراء الكود فهمت منه بعض الامور لو سمحت وتكرمت عليي بشرح السطر رقم(1و5و6) ماهيي فائدة ميزة (Intersect) وشيء أخر أنه عندما قام الكود بنسخ الاعمدة المحددة بناء على خانات الاختيار قام بتغيير ترتيب الاعمدة في الورقة رقم(5) لاحظ ذلك قام بوضع عامود (تاريخ انتهاء العمل)قبل عامود (رقم الاقامة) فهل يوجد تصحيح للكود لجمالية التنفيذ
×
×
  • اضف...

Important Information