احمدزمان

الحمد لله رب العالمين fff.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏‏‏‏الاحد‏، 1‏/1‏/1430هـ. الموافق ‏28‏/12‏/08م اخي الفاضل جرب الرابط المرفق ان شاء الله يكون به حل لطلبك عدد مرات تكرار نص لكن بشرطين وبين تاريخين http://www.officena.net/ib/index.php?s=&am...st&p=125471 نسأل الله العلي العظيم ان يكون العام الهجري الجديد عام خير وبركة على جميع المسلمين

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏‏‏السبت‏، 29‏/12‏/1429هـ. الموافق ‏27‏/12‏/08م استاذي aah_aah2008 الف الف شكر وتقدير جزاك الله كل خير وهذه فكرة اخرى ارجو ان تنال رضاكم Invoice2.rar

السلام عليكم استاذي القدير الفاضل الفالف مليون تحية وتقدير اعمالكم دائما رائعة و مميزة جزاكم الله كل خير

آسف جدا Book3.rar

[f

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏الاربعاء‏، 26‏/12‏/1429هـ. الموافق ‏24‏/12‏/08م Book2.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏الاربعاء‏، 26‏/12‏/1429هـ. الموافق ‏24‏/12‏/08م استاذي الفاضلtofimoon4 مع التحية و التقدير _____2ay.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏الاربعاء‏، 26‏/12‏/1429هـ. الموافق ‏24‏/12‏/08م الأخ galal_mk تم تغيير الأرقام بكلمات من صفحة تفقيط غير امام كل رقم ضع ماتريد عربي انجليزي عبري فرنسي روسي ......... اي شيء وسوف يظهر معاك امام اي اسم ay________________.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏الاربعاء‏، 26‏/12‏/1429هـ. الموافق ‏24‏/12‏/08م اخي الفاضل شكرا لك على كلماتك الجميلة سبق حل طلبك هذا بطلب مشابه و بـ 3 طرق مختلفة على الرابط التالي http://www.officena.net/ib/index.php?s=&am...st&p=125447 آمل الإطلاع علية في حال لم تستطع حل طلبك يمكنك اختيار الطريقة الأفضل واعلامي هنا لنقوم سويا بعملها تحياتي و تقديري

الله يوفقك دائما

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏الثلاثاء‏، 25‏/12‏/1429هـ. الموافق ‏23‏/12‏/08م اخي الفاضل tofimmon4 بعمل رايت كليك على زر المتبقي (زر النقل ) تختار تعيين ماكرو الشاشة التي تظهر تختار منها الماكرو الذي يبدأ بـ khb??_trheel ((لأن الكود منقول من احد اعمال الأستاذ خبور)) ثم موافق بعمل رايت كليك على زر زر( عمل ملخص بيانات ) تختار قص Cut فقط مع التحية و التقدير

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏الثلاثاء‏، 25‏/12‏/1429هـ. الموافق ‏23‏/12‏/08م تم استخدام الكود For E = 11 To Rows.Count If Cells(E, 4).Value <> "" Then With Sheets("&Icirc;&aacute;&Ccedil;&Otilde;&aring;") N = .Cells(.Rows.Count, "c").End(xlUp).Row + 1 .Cells(N, 3) = Cells(E, 4) .Cells(N, 4) = Cells(E, 11) .Cells(N, 5) = Cells(E, 3) End With End If Next Sheets("&Icirc;&aacute;&Ccedil;&Otilde;&aring;").Select تم تعيين المتغير E من الصف 11 الى آخر صف اذاكنت قيمة الخلية الصف E العمود الرابع لاتساوي فراغ اذاً مع صفحة الخلاصة عين المتغير N اول صف فاضي في العمود C الخلية في الصف N للعمود 3 تساوي الخلية في الصف E للعمود 4 و هكذا آمل ان يكون واضح شاهد الحل المرفق هل هذا المطلوب _____2ay.rar

اخي الفاضل اعتقد و الله اعلم ان الماكرو يعمل على الأمر التنفيذي للخلية التي يتم الكتابة فيها حاليا لذلك يجب تعديل الماكرو بحيث يعمل على الخلايا التي تحددها للعمل هذا بالتقريب حسب مافهمت من السؤال الأفضل ان تضع الماكرو في ملف وترفقة هنا ليتمكن احد المختصين في الفيجول بيزك بتعديلة و عمل اللازم مع التحية و التقدير

اخي الفاضل tofimmon4 هل المطلوب عمل الكود على نموذج 2 بحيث كل اسم موجود في قائمة الوكلاء يتم نقلة الى ورقة الخلاصة آمل التوضيح السريع

اخي الفاضل صباح الخير ماهي المشكلة ممكن توضحها بمثال

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م اخي الفاضل aah_aah2008 استاذي الفاضل خبور الف تحية وتقدير البرنامج جدا رائع و ممتازة ويكفية شرفا انة صادر من قبل اثنين من الأساتذة الكبار في المنتدى بعد استخدامي للملف وددت ان اطلعكم على اضافة بسيطة الى الملف لكي يكون اكثر فائدة لقد تم عمل تعديل على معادلات المجموع بحيث تقوم بحسابات اخرى غير الجمع يمكن للمستخدم تحديدها حسب رغبتة بتبديل كلمة المجموع الى مايختارة من القائمة و لكما كل التقدير و الإحترام Dinamic_Lable_ay.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م في الملف المرفق يتم تحديد الفترة يدويا من تاريخ الى تاريخ ويتم تحديد الإعمدة من الى يدويا ايضا ثم يتم اختيار نوع العملية المطلوبة مثل المتوسط الخلايا الغير فارغة اعلى قيمة اصغر قيمة مجموع ويتم تلقائيا الحساب للمدى الذي حددته وحسب نوع العملية التي اخترتها آمل ان يكون فية الفائدة للجميع ay_____________________________.rar

و هكذا افضل New_Microsoft_Excel_Worksheet.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م هذا مرفق ملف منقول عن المشرف الفاضل ابو عبدالله به جميع انواع وحالات التحويل جزاه الله كل خير _________________________________________________________________________________________________.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م اخي الفاضل الحل في المرفق New_Microsoft_Excel_Worksheet.rar

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م اخي الفاضل الملف الذي ارسلته هو نفس ملف الأستاذ القدير ابو تامر وبكل صراحة لم استطع التعديل علية ولكن لي وجهة نظر اخرى اذاكانت بيانات الطلاب كلهم في صفحة واحدة فانه يمكن استخدام كود بحث وادراج بيانات منقول عن الإستاذ القدير خبور خير سبق ان استخدمته و عدلت علية وهذا مثال مرفق kh_surch.rar

بعد اذن اخي الفاضل justice اخي ميمو المسميات بالعربي format cells = تنسيق خلايا Custom = مخصص مع التقدير

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م طيب اخي الفاضل ليكون الحل اشمل انت عندما تعمل يدويا كيف تعرف درجة النجاح من درجة الرسوب بمعنى ماهو الشرط لدرجة النجاح و ماهو الشرط لدرجة الرسوب او تريد ان يعتمد الحل على اللون فقط آمل التوضيح مع التحية و التقدير جزاك الله خيرا

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏الاحد‏، 23‏/12‏/1429هـ. الموافق ‏21‏/12‏/08م اخي الفاضل اضغط Alt+F11 تظهر صفحة الفيجوال بيزك دبل كليك على الصفحة التي تريدها ان يعمل بها الماكرو بمجرد الدخول اليها اكتب في السطر الأول Private Sub Worksheet_Activate() ضع الكود الذي تريدة ثم End Sub وباضافة كود الأستاذ القدير عادل يصبح الكود كاملا كالتالي Private Sub Worksheet_Activate() Range("K4:K111").Sort Key1:=Range("K4"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("L4:L111").Sort Key1:=Range("L4"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub مع التحية و التقدير