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

هذه الصفحة تحدث تلقائياً     

  1. الساعة الأخيرة
  2. كل شيئ عن VBA

    جزاك الله خيرا دمت مبدعاً
  3. Today
  4. Yesterday
  5. اشكركم جزيل الشكر اساتذتي الكرام على هذا المجهود الرائع بارك الله فيكم وزادكم الله من علمه ووفقكم دنيا وآخرة جاري تجربة ماتفضلتم به
  6. اي تلميح للحل؟ خاصة آخر سؤال
  7. أحسنت ياأستاذ مجدي عمل رائع بارك الله فيك
  8. السلام عليكم ورحمته الله وبركاته بداية جزاكم الله خيرا وبارك الله فيكم جميعا ورزقنا واياكم من حيث لانحتسب المرفق عبارة عن ثلاثة اوراق " الرئيسية - شرط اول - شرط ثانى" حيث تم نقل البيانات من الرئيسية اعتمادا على شرطينالشرط الاول لنقل البيانات من الورقة الرئيسية الى ورقة العمل " شرط اول" الاعمدة من 1 الى 5 + الاعمدة 7 و23 و18 و 45 اعتمادا على العمود رقم 16 الشرط الثانى لنقل البيانات من الورقة الرئيسية الى ورقة العمل " شرط ثانى" الاعمدة من 1 الى 5 + العمود 18 اعتمادا على العمود رقم 17 والسؤال كيف يمكن اضافة كود لفرز الاسماء أبجديا إعتمادا على العمودين C و D للورقتين شرط اول وشرط ثانى اثناء نقل البياناتتقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا فرز أبجدى لعدة أوراق.xlsb.rar
  9. شکرا لک استاذ @أبو إبراهيم الغامدي اتفضل اخي @sandanet الیک طريقة اخرى Dim strName As String Dim strFile As String Dim strPath As String Dim MyFileNam As String Dim SplFile MyFileNam = "*.jpg" strPath = "C:\Users\MyShiv\Desktop\Newfolder\" ' مسار الفولدر اللی بھا صور strFile = Dir(strPath & MyFileNam) Do While Len(strFile) > 0 SplFile = Split(strFile, "_") strName = SplFile(2) & ".jpg" ' لان عندنا فی اسماء الصور اثنين من ( _ ) ونريد اللي بعده Name strPath & strFile As strPath & strName strFile = Dir Loop واذا تريد راح ارفع لك القاعدة على ذلك لكن هناك ملاحظة : لا يجوز ان يكون هنالك اكثر من صور في اخره اي بعد ( _ ) الثاني بنفس الاسم او رقم
  10. أولا: أرجو الاطلاع على كل الخلايا والاقتراحات الملونة باللون الأصفر في الشيتات الثلاث. ثانيا: إن شاء الله سيكون لدي سفر يوم غد الثلاثاء لمدة أسبوع وقد لا أتمكن من المتابعة لعدم توفر النت في السفر إلا نادرا. فأرجو الصبر هذه المدة القصيرة وخلالها قد تجدين حلولا لبعض الإشكالات التي أشرت إليها. وإن تمكنت من الدخول خلال فترة السفر فسأبذل جهدي إن شاء الله. شكرا. ‏‏Form77-.rar
  11. فك باسورد ملف

    اخى الغالى ابا جودى هذا الملف خاص بالأخ الخيتوني طلب بالله فيه باسورد vba نبي نفك جزاك الله خيرا ‫‫MWO files .zip
  12. الاخ / عمرو المطري عمل جميل جدا وتنسيق في منتهي الروعة نرجو المزيد من هده الابداعات جعله الله في ميزان حسناتك
  13. كيفية إزالة جزء من اسم ملف عن طريق الكود

    قم بتعبئة البيانات في مرابعات السرد والتحرير قبل نقر زر التحميل وظلل البيانات في مربع السرد قبل قبل نقر زر التغيير
  14. اشكر لك تفاعلك وقد توصلت للمعادلة التالية لحل مشكلتي وفي قيد تجربة معادلتك من أجل الفائدة :) =IF(RIGHT(INT(C3);1)="0";C3;INT(C3/10)*10+10)
  15. استادنا / ابا جودي عمل رائع ودائما مبدع في افكارك والاجمل لو تم تصدير النمادج ايضا والاستعلامات وكل شئ يعني تصدير القاعدة كاملا جعله الله في ميزان حسناتك
  16. أخي الكريم المفترض انت من يضع المثال للتعديل عليه . لكن انظر المثال .... حاول التعديل على النموذج ثم قم بالتحديث ولاحظ الفرق Ka-Update.rar
  17. السلام عليكم ورحمة الله اكتب المعادلة التالية فى الخلية "R2" ثم اسحب نزولا =IF(Q2="تصنيع ";TODAY();"")
  18. مساء الخير بعملاقة الاكسس واسعد الله مسائكم بكل خير طلب صغير كيف ادارج تاريخ هجري وميلادي بمشروع اكسس معا ضروري والف شكر لكم - اخوكم ابو ميرال
  19. ارجو المساعده

    أخي الكريم سؤالك غير واضح بالمرة ولكن كرد عام مثل سؤالك العام نعم يوجد طريقة لعمل ذلك ============== لعلك لاحظت أن أسئلتك تظل فترات طويلة بلا إجابة ألا يعطيك هذا انطباع أن السؤال غير مكتمل الأفضل دائما ان ترفق ملف به ماتريد مثلا في سؤالك الحالي ملف به ورقة تحتوي علي الأقل ثلاث أعمدة من البيانات 1- إسم أو رقم ماكينه الانتاج 2- المكاسب 3- الخسائر ثم تضيف إن رأيت مايكفي من البيانات أرجو أن يتسع صدرك وتفهم ما أعني لابد ألا تكون بخيلا في إعطاء البيانات ليفهم أي أخ يريد المساعدة ماتريده بالتحديد
  20. إظهار حقل السعر

    أشكرك أخي عبد الرحمن ،، والله يوفقك ماقصرت
  21. ملاحظات على اول عمل لي ( دليل الهاتف )

    للرفع
  22. استاذي القدير ابو ابراهيم اتشرف بمشاركتك هذه واشكرك جزيل الشكر على الاستجابة .. المثال الذي ارفقته لم يعمل وتظهر رسالة خطأ عند الضغط على زر load file كما في الصور المرفقة
  1. Load more activity
×