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

أبوعيد

الخبراء
  • Posts

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

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

  • Days Won

    2

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

  1. السلام عليكم تفضل
  2. السلام عليكم أخي زاكي منتدى الإكسل غير معنى بما تريده فهو مختص بالإكسل يعني عند فتح ملف الإكسل يبدأ العمل وبإمكانك أن نطلب الحل في منتدى آخر لكن هناك حل انتبه معي أنت لا تريد من الأشخاص الآخرين أن ينسخوا الملف وأي عملية نسخ لا بد أن تكون بإذنك هذه العملية لا صلة لها ببرنامج الإكسل ولكن هناك حل الحل هو أن أي شخص يستطيع أن بنسخ الملف ولكنه لا يستطيع تشغيله على جهاز حاسوب آخر ( الملف يشتغل فقط على جهاز واحد) عند نقل الملف إلى جهاز آخر لن يعمل الملف ولكن سيطلب من المستخدم كلمة مرور فإن كتبها صحيحة فإن الملف سيعمل وإلا فلا بعض المستخدمين يقومون بتعطيل وحدات الماكرو حتى يتجاوزوا كلمة المرور ولكن تعطيل وحدات الماكرو سيحرمهم من الاستفادة من أوامر الفيجوال في البرنامج الخلاصة أن أي شخص يستطيع نسخ الملف ولكنه لن يستطيع تشغيله على جهاز آخر أي شخص يريد أن يشغل الملف على جهاز آخر فلابد عليه أن يتصل بك لتعطيه كلمة المرور كلمة المرور تكون متعيرة وليست ثابتة كل جهاز يتم وضع الملف فيه ستتغير كلمة المرور وأنت الوحيد الذي تستطيع معرفة كلمة المرور لأي جهاز هل هذا ما تريده يا أخي ؟ تحياتي
  3. السلام عليكم أنا استخدم الطريقة السابقة في طباعة الشهادات الوزارية للطلاب آخر العام تأتي الشهادات مسطرة من الوزارة ويطلب من كل مدرس تعبأتها يدويا وقد قمت ببرمجتها بالإكسل كالتالي : أفتح صفحة وأجعل ارتفاعات الأسطر والأعمدة مقاسها 5 بكسل × 5 يكسل ثم أقوم بدمج الخلايا واضبط مكانها بحيث تعطيني النتيجة في المكان المناسب في الشهادة أجرب الطباعة مرات ومرات على ورقة بيضاء ثم أخيرا أضع المعادلات والأكواد
  4. السلام عليكم بالنسبة للأسماء المركبة مثل عبدالله وعبدالرحمن , فهذه أمرها سهل ولكن بالنسبة لأسماء أخرى مثل محي الدين , صلاح الدين , المعتصم بالله ...... فيمكن أن نجعلها كاسم واحد وذلك بإضافة نصف مسافة بين الاسمين ليكون اسما واحدا كالتالي : صلاح الدين = صلاح‌الدين محيى الدين = محيي‌الدين المعتصم بالله = المعتصم‌بالله تحياتي
  5. السلام عليكم شكرا أخ جمال إبداع ماشاء الله وهذه مشاركة منى وهي عبارة عن تعديل في العمود G اكتب الرقم في الخلية G1 ولاحظ عمل الدالة وفيه إيضا حل لمشكلة الأسماء المركبة التي سأل عنها الأخ جلال حفظ الله الجميع نجياتي استخراج عدة اسماء (فكرة جديدة).rar
  6. السلام عليكم افتح Private Sub CommandButton6_Click() ستجد هذا السطر Call balance_reports وقد بحثت عن الماكرو balance_reports في مشروعك فلم أجده ربما يكون هذا هو الخطأ حاول تعديل VAL(BALANCE.TextBox2.Value) = xx إلى BALANCE.TextBox2.Value = xx والله أعلم
  7. السلام عليكم هذه محاولة ما عليك الا فتح صفحة البحث فقط فعند تفعيل الصفحة سيتم البحث الاذون1.rar
  8. السلام عليكم أخي إيهاب قبل البرمجة جرب أولا هذه الطريقة http://arabteam2000-forum.com/index.php/topic/164270-i%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D9%85%D9%86%D8%B9-%D8%A7%D9%84%D9%85%D8%B3%D8%AA%D8%AE%D8%AF%D9%85-%D9%85%D9%86-%D8%AA%D8%BA%D9%8A%D8%B1-%D8%B3%D8%A7%D8%B9%D8%A9-%D8%A7%D9%84%D9%86%D8%B8%D8%A7%D9%85/
  9. السلام عليكم إن شاء الله يمكن وقد بدأت بتطبيق الفكرة لكني انشغلت ولا زلت مشغولا ولكن سأطرح الفكرة وأرجو من الأخوة الخبراء المساعدة في برمجتها طريقة الاستخدام أن يتم فتح البرنامج بكلمة مرور بحيث يتم تشغيل البرنامج من قبل المسؤول (وهو أنت) في بداية الدوام ويغلق أيضا بكلمة مرور بحيث يتم إيقاف البرنامج من قبل المسؤول (وهو أنت) في أي وقت تختاره الطريقة بالتفصيل : التلاعب بساعة الحهاز يكون في حالة إقفال البرنامج وهذا يعني أنه إذا كان البرنامج مقفلا فإن الموظف يستطيع تغيير الساعة ثم فتح البرنامج وتسجيل حضوره وحتى نسد هذه الثغرة سنجعل برنامج شغال دايم يعنى الموظف يدخل اسمه ويضغط حضور ويذهب ويأتي الموظف الآخر ويسجل حضوره ويذهب وهكذا والبرنامج شغال لوحاول احد الموظفين إقفال البرنامج عن طريق الزر x الموجود أعلى الفورم فستظهر رسالة في (inputbox) ,وليس (msgbox) تفيد بأنه لا يمكنه إقفال البرنامج كيف يتم إقفال البرنامج ؟ عن طريق كلمة مرور يعني أن أي موظف سيقفل البرنامج ستظهر له رسالة (inputbox) ولأنه لا يعرف كلمة المرور فلن يستطيع إقفاله المسؤول فقط (وهو أنت ) يستطيع إقفال البرنامج عن طريق كلمة المرور كل دقيقة يتم تسجيل الوقت عن طريق الكود wait في أحد الخلايا داخل البرنامج @ كل موظف يسجل حضوره سيتم مقارنته بـ wait ( يجب أن الحضور أكبر من wait) وبحضور الذي قبله ( حضور1 < حضور2 < حضور3 ......) فإذاا تحقق الشرط في @ فإن البرنامج سيستمر في العمل وإذا اختل الشرط فإن البرنامج يغلق مباشرة وإذا حاول الموظف تشغيله فلن يستطيع لأنه كما قلنا لا يعرف كلمة المرور الذي سيشغله فقط هو المسؤول ( وهو أنت ) معنى أنهم سيطلبون حضورك لتشغيل البرنامج وأنت قبل أن تفتح البرنامج ستعلم أولا أنه تم التلاعب بساعة الجهاز ثانيا ستعدل من الساعة وتفتح البرنامج بعد كل هذا كيف سيتم يغيير الساعة ؟ تحياتي
  10. السلام عليكم باقي مشكلة التلاعب بساعة الجهاز كيف الحل ؟
  11. تفضل مع العلم أنه يوجد خطأ من عندك في بيانات الاسم الثاني Time1.rar
  12. السلام عليكم تفضل أخي Book21.rar
  13. السلام عليكم إذراج جدول أكسل في الوورد.rar
  14. السلام عليكم الأخ فهد بن سعد لحل مشكلتك نحتاج لمعرفة الآتي موظف راتبه 6000 تأخر عن الدوام 3 ساعات 15 دقيقة فكم سيكون الخصم من راتيه ؟ موظف راتبه 2000 تأخر عن الدوام 5 ساعات و30 دفيفة فكم سيكون الخصم من راتيه ؟ من خلال الإجابة عن السؤالين أعلاه سيتم عمل الدالة المطلوبة تقبل تحياتي
  15. السلام عليكم يوجد حل لمشكلتك ولكن ليس بالشرح الذي ذكرته وإنما بشكل آخر راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=51337&hl=%2B%D8%A7%D9%84%D8%AD%D9%85%D8%A7%D9%8A%D8%A9+%2B%D8%A8%D8%B1%D9%82%D9%85+%2B%D8%A7%D9%84%D9%87%D8%A7%D8%B1%D8%AF+%2B%D8%AF%D8%B3%D9%83
  16. السلام عليكم أرجو أن ترفق ملفا يكون فيه أسماء كما طلبت وبعد ذلك سيتم التعديل عليه فهذه أفضل طريقة تحياتي
  17. السلام عليكم أخي العزيز هذا هو طلبك في المرفق ولكن أرى أنه يمكن أن نعالج مطلوبك بشكل أفضل مما طلبت فكم من مشارك طرح مشكلته وكان يظن أن الحل هو الذي يفكر فيه فإذا بالأعضاء هنا يتفاعلون معه ويحلون له مشكلته بشكل أيسر وابسط مما كان يتوقعه صاحب المشكله أرجوا أن تضعنا في صلب مشكلتك إن أردت فقد يكون لمشكلتك حل أيسر مما تفكر فيه وإرفاق الملف يسهل العمل تحياتي New Microsoft Excel Worksheet (2)1.rar
  18. السلام عليكم تم معالجة المشكلة التي كانت في يوم الجمعة تفضل الاضافى3.rar
  19. السلام عليكم طريقة الاستخدام افتح الورقة (مثال) ويمكنك التغيير في الأعمدة الصفراء فقط اضغط (نقل خلايا) وانتظر النتيجة سيقوم الزر بثلاث عمليات 1/ نسخ البيانات من الورقة (مثال) إلى الورقة (الخلاصة) 2/ نقل بيانات الخلايا للأعلى 3/ حذف الأسطر المكررة تحتاج العملية هذه إلى دقيقة ونصف إذا كان جهازك سريعا تحياتي نبات2.rar
  20. السلام عليكم تم العمل على حساب سعيد فقط فإذا نجحت التجربة يمكن نسخ المعادلات إلى حساب حسين جرب المرفق وقل لي إذا كان يوجد خطأ ملاحظة : الأعمدة الصفراء تحوي معادلات الاضافى2.rar
  21. السلام عليكم شكرا أخي وليد فتحي شكرا أخي حمادة عمر على المشاركة في حل المشكلة ولكن لي وجهة نظر أقدمها لكم وبالأخص لصاحب المشاركة الأخ إيهاب ممدوح 1/ بما أن البرنامج يسجل وقت الحضور للموظف فلا حاجة لأن يختار الموظف الفترة الصباحية أو المسائية ولكن عن طريق المعادلة يستطيع البرنامج حدد إذا كان وقت الحضور قبل الساعة 12 ظهرا فتكون الفترة الصباحية وإذا كان بعد الساعة 12 ظهرا فتكون الفترة مسائية 2/ أقترح أن يضاف أيضا عن طريق المعادلة خانة لتحديد ما إذا كان الموظف متأخر عن الدوام أم لا وذلك بتحديد أقصى وقت يسمح فيه للموظف بالتأخر مثلا أذا كان حضور الموظف بعد الساعة 8 صباحا فيكون متأخرا أما قبل 8 فلا يعد متأخرا 3/ إذا كان عدد الموظفين قليل ( مثلا أقل من 50 موظف ) فأقترح بأن يضاف أسماءهم في قائمة combobox بحيث توفر على الموظف الكتابة يعنى أن الموظف سيختار أسمه من بين أسماء الموظفين ثم يضغط حضور وهذا يجعلك تتفادى الخطأ في كتابة الأسماء فمثلا الموظف أحمد قد يكتب اسمه ثلاثيا وقد يكتبه يوما من الأيام ثنائيا وقد يكتبه بوجود مسافات إلى غير ذلك تحياتي
  22. السلام عليكم شكرا لكم أخواني على مشاعركم الطيبة وأتمنى أن أكون عند حسن ظنكم بي فعند انضمامي إليكم كانت معلوماتي ضئيلة للغاية وقد مررت بتجربة ناجحة مع الأكسل ثم بعد مرور الأيام ازدادت المعرفة بفضل الله تعالى أولا وآخرا ثم بفضل الأخوة في المنتدى اللذين يقدموا لنا الجديد كل يوم تحياتي للجميع
  23. السلام عليكم تفضل التحكم بالأزرار3.rar
  24. السلام عليكم طريقة الاستخدام اضغط على (نفذ) سيعرض لك مربع حوار أكتب رقم الموظف بداخله اضغط موافق ستخرج البيانات من الطابعة بدون أن ترى البيانات على الشاشة تحياتي مسح خلية1.rar
  25. السلام عليكم عذرا أخي على تاخر الرد لان الرد يحتاج إلى أن أفهم الموضوع أولا وأرجو أن يكون هذا هو طلبك خصوصا انك لم ترفق ملفا للتعديل عليه فيكون العمل نظري بدل من العملي لأن العملي يحتاج إلى إرفاق ملف هذا كود الأنتظار في الفيجوال Application.Wait (Now + TimeValue("0:00:01")) 1 ففي الكود أعلاه ينتظر التطبيق ثانية واحدة قبل أن يواصل عمله إذا اردت البرنامج ينتظر دقتين وخمس ثواني مثلاغير الارقام إلى التالي Application.Wait (Now + TimeValue("0:02:05")) 1 تحباتي
×
×
  • اضف...

Important Information