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

الصـقر

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1836

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

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

  • Days Won

    21

 نوع المحتوي 

كل منشورات العضو الصـقر

  1. الصـقر
    اخى الكريم جرب هذ ا الكود Private Sub UserForm_Activate() TextBox1.Value = Format(Sheet1.Cells(1, 1), "yyyy/mm/dd") End Sub تقبل تحياتى
  2. الصـقر
    اخى الكريم سيف الدين ضع هذا الكود ده فى حدث ورقة العمل المراد تظليل الصف النشط بها Private Sub Worksheet_SelectionChange(ByVal x As Range) ActiveSheet.Cells.Interior.ColorIndex = 0 x.EntireRow.Interior.ColorIndex = 4 End Sub تقبل تحياتى
  3. الصـقر
    اخى الكريم لو وقفت على الخلية اللى بها معادله التفقيط بالعربى ستجد هذه المعادله =tafket(T12;"جنيه";"قرش") قم بالتغيير بدلا من جنيه الى درهم او ريال او شئ زى ما تحب وكذالك القرش تقبل تحياتى
  4. الصـقر
    بارك الله فيك يا استاذ / طارق جعله الله فى ميزان حسناتك تقبل تحياتى
  5. الصـقر
    اخى الكريم حضرتك بتطلب تقريبا برنامج كامل ودا طبعا بيحتاج وقت ومجهود فمن فضلك قسم طلبك الى اجزاء ابداء بجزء ثم بجزء الخر الى ان تصل الى ما تصبو اليه دا رابط ممكن يفيدك فقط قم بتعديل اسماء عنواين الاعمده وتغييرات بسيطه وانا معك اذا كنت تحتاج اى تعديل http://www.officena.net/ib/index.php?showtopic=58797 تقبل تحياتى
  6. الصـقر
    بالفعل موضوع اكثر من رائع وذو اهميه اخى الكريم يمكنك وضع الكود التالى فى حدث تغيير التحديد بورقة العمل كما هو بالملف المرفق تحويل المعادلات الى قيم.zip
  7. الصـقر
    اخى الكريم الاستاذ / اسلام مرحبا بك فى اوفيسنا يرجى ارفاق ملف وتوضح به شكل المخرجات المطلوبه من البرنامج تقبل تحياتى
  8. الصـقر
    حبيبى أ/ احمد الغالى وما العبد الا قطره فى بحر علمكم وانت دائما سباق بالخير ولك بمثل ما دعوة به تقبل تحياتى
  9. الصـقر
    بناء على طلب الاخ لؤى الخزرجى تم تصميم الملف المرفق وحبيت انى اعمله بموضوع مستقل حتى يستفيد منه الجميع ودا رابط الموضوع الاصلى بكل مراحله http://www.officena.net/ib/index.php?showtopic=58642&hl= تقبلوا تحياتى اداره المخازن.zip
  10. الصـقر
    اخى الكريم طلبك غير واضح مش عارف انت عايز ايه بالظبط ومن فضلك قسم طلبك لعدة اجزاء بمعنى اطلب جزئية وبعد الانتهاء منها اطلب التانية الين يكتمل ملفك كما تريد تقبل تحياتى
  11. الصـقر
    اخى الكريم الكود بينسخ رءوس الاعمده لان مفيش بيانات ولتفادى ذالك قم باضافه هذه السطور فى اول الكود Dim ws As WorksheetFunction Set ws = WorksheetFunction If ws.CountA(Range("A3:A22")) < 1 Then MsgBox "لا يوجد بيانات للترحيل": Exit Sub تقبل تحياتى
  12. الصـقر
    اخى الحبيب اضف هذا السطر فى اول الكود Application.ScreenUpdating = False وقبل نهاية الكود اضف هذا السطر Application.ScreenUpdating = True تقبل تحياتى
  13. الصـقر
    اسالك الدعاء لى ولوالدى بظهر الغيب تقبل تحياتى
  14. الصـقر
    تفضل اخى الحبيب ودا ما تم اضافته بالكود لو حابب تتعلم Range("a3:A22").ClearContents Range("c3:e22").ClearContents Range("G3:h22").ClearContents تم تحديد النطاقات التى يتم مسح محتوها ومن ثم الاعمده اللى بها معادلات سوف تكون فارغه تقبل تحياتى 1.zip
  15. الصـقر
    اخى رفيع سعد اين هو الكود او الملف ؟؟
  16. الصـقر
    تفضل يا عم لؤى اى خدمه اداره المخازن.zip
  17. الصـقر
    اخى الحبيب فى البدايه اود ان أهنئك على هذا المجهود الرائع واتمنى منك الاستمرار فى هذا الابداع ارجوا من حضرتك ان تفتح موضوع جديد وتوضع به الملف وان شاء الله انا معك بالملف الى النهاية الين يصل الى ما تصبوا اليه تقبل تحياتى
  18. الصـقر
    تفضل الملف اداره المخازن.zip
  19. الصـقر
    اخى الكريم انظر المرفق هل هو طلبك اداره المخازن.zip
  20. الصـقر
    بعد اذن الاستاذ احمد وبناء على طلبه تم تحميل المرفق ونزلت بالخط المتقطع اللى باللون الازرق سطر واحد ظبط على الصفحات بعدها ( دا طبعا على اعدادات جهازى ) واليكم المرفق كود رقم الجلوس.zip
  21. الصـقر
    اخى الكريم على حسب ما فهمت جرب المرفق تقبل تحياتى اداره المخازن.zip
  22. الصـقر
    اخى الحبيب بخصوص طلبك الاول انظر المرفق بخصوص طلبك الثانى بصراحه مش عارف ايه وجه الارتباط بين نوع المركبة ورقم الشاصى حاولت فهم ما تريد للاسف مش فاهم بخصوص طلبك الثالث ان شاء الله بعمله بس الصبر انا مشغول جدا بشغلى دا غير فى اخوة غيرك بالمنتدى لهم طلبات زيك ( بس عايز اعرف كلفة الصيانه دى موجود فين او هتسجلها ازاى او اخلى الكود او المعادله تقراها من فين تقبل تحياتى اداره المخازن.zip
  23. الصـقر
    اخى الكريم مرحبا بك فى اوفيسنا بخصوص رفع الملفقم بضغط الملف اولا ببرنامج وينرار او زيب ثم ارفعه تقبل تحياتى
  24. الصـقر
    استاذى سعيد بيرم لفته طيبه من انسان خلوق يتصف بالنبل والشهامه والخلق الحسن أسال الله تعالى ان تكون الاستاذه ام عبدالله فى احسن صحه واحسن حال وأن تكون بالقريب العاجل بيننا بالمنتدى فهى من اعمده هذا الصرح تقبل تحياتى
  25. الصـقر
    اخى الكريم المرفق تم تعديل التنبية بخصوص عدم تسجيل الشاصى بخصوص كل التقرير لا تعمل ( كلها عندى تعمل تمام وشغاله) ادخل بيانات وجرب التقارير تقبل تحياتى اداره المخازن.zip
×
×
  • اضف...

Important Information

  I accept