نجوم المشاركات

تفضل .... التسلسل في الليست بوكس.accdb

أحسنت استاذ مجدى جزاك الله كل خير ورحم الله والديك

وعليكم السلام-تفضل محل_هانى.xlsm

تفضل لك ما طلبت طرح خانه بها تاريخ ووقت.xlsx

وعليكم السلام-لك ما طلبت وذلك بمعادلة AVERAGEIFS دالة حساب متوسط نسبة لقيم.xlsx

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

وعليكم السلام-على الرغم ان هذه المشاركة مخالفة لتعاليم ومبادىذ المنتدى -لأننا تقوم بالتنيه مئات المرات انه لا تكتمل المشاركة الا برفع ملف مدعوم بشرح كافى عن المطلوب والا سوف تحذف مشاركتك لأن هذا يعتبر اهدار للوقت كما انه لا يمكن العمل دائما على التخمين ولكن سأخبرك عن طلبك فلو افترضنا ان الرقم القومى موجود بالخلية A2 وتريد الفصل مثلا بالخلية B2 فتكون المعادلة كالتالى =RIGHT(A2,7)

وعليكم السلام دالة =TODAY() يتم كتابتها هكذا فقط وهى بدورها تقوم بجلب تاريخ اليوم بالضبط أما دالة Date لا يمكن كتابتها مثل دالة Today () هكذا فلابد من احتواء دالة Date على 3 بنود لكى تتم المعادلة بمعنى لابد ان تحتوى ونقوم انت بنفسك بكتابة السنة والشهر واليوم بها مثل =Date(Year,Month,Day) 'أى تكون المعادلة بهذا الشكل فى النهاية =Date(2018,03,27)

فورم ترحيل بيانات من داخل الاكسل الفيديو

اخي الكريم استخدم هذا الامر Private Sub TextBox1_Change() Range("a1").Value = TextBox1.Value End Sub ليكن مثلا ان قيمة التكست المطلوب مرتبطه بالخلية A1 ,G;L HGA;V

AL-Mohanad وهذا هو ملف الخط للتحميل al-mohanad.rar

تم معالجة الامر BOOOk.xlsx

وجود الخلايا المدمجة في الصفوف 26/27/28 و 30 يعيق عمل المعادلات لذلك رجاء لا تقم بدمج الخلايا حتى تحصل على النتيجة المطلوبة (تم ازالة الدمج) الملف مرفق Takem.xlsx

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

السلام عليكم عند ضغط زر من لوحة المفاتيح يكون الترتيب كالتالي: KeyDown KeyPress KeyUp الحدث KeyPress يكون عند وجود رموز مطبوعة للزر كالكتابة في مربع نص مثلاً. بينما بقية الأزرار التي ليس لها نتيجة مطبوعة فتقتصر أحداثها على الأول و الأخير.

ملف العمل موجود فى رابط الفيديو الم تلاحظه ؟!

تفضل بعد اذن الأستاذ محمد يمكنك استخدام هذه المعادلة لذلك =IF(ISNUMBER(SEARCH("شحم",B3)), "15%", IF(ISNUMBER(SEARCH("زيت",B3)), "10%","")) نسبة بدلالة كلمة فى البيان.xlsx

وعليكم السلام-تفضل 2شيت.xlsm

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله

تمام يادكتور ,,, ممتاز الله ينور عليك , هذا المطلوب و اكثر , واكثر منكذا روحك العالية واخلاقك الكريمة اذ تحملتني و علمتني , الف الف مليون شكرا

بنفس النظام صديقي

السلام عليكم تم عمل ماكرو يقوم بما تريد لكن ليس بالانتقال من الصف إلى الصف الذي يليه بل بتغيير قيمة من عمود مساعد (عمود إضافي -العمود E مثلا-)... لم اجد حيلة غيرها... بن علية حاجي شيت 2.xlsm

وعليكم السلام-اخى الكريم كان عليك لزاما استخدام خاصية البحث فى المنتدى قبل رفع المشاركة فهناك العديد من الموضوعات تخص طلبك ومنها https://www.officena.net/ib/topic/85708-قوائم-فصول/?tab=comments#comment-543448

1- برنامج محاسبة شركات http://www.mediafire.com/file/ujwyko1qiao3tz6/account_Prog_new2020_test.accde/file 2- برنامج ادارة محل جوالات (شراء - بيع - صيانة ) http://www.mediafire.com/file/r0pj4f2nub4z63t/%D8%A7%D8%AF%D8%A7%D8%B1%D8%A9_%D9%85%D8%AD%D9%84_%D8%AC%D9%88%D8%A7%D9%84%D8%A7%D8%AA_2019_%D8%A7%D9%84%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1_%D8%A7%D9%84%D8%AB%D8%A7%D9%84%D8%AB.accde/file 3- برنامج ادارة الشقق ( تأجير وتحصيل الاجرة الشهرية ) http://www.mediafire.com/file/24531uui72xhqcj/%D8%A7%D8%AF%D8%A7%D8%B1%D8%A9_%D8%A7%D9%84%D8%B4%D9%82%D9%82_.accde/file 4- برنامج ادارة مشتل زراعي 5- برنامج ادارة مكتب محامي 6- برنامج ادارة المدارس الخاصة ورياض الاطفال برنامج ادارة المدارس الخاصة الاصدار الثالث.rar برنامج ادارة مكتب المحامي مع ارشفة الصور.rar برنامج مشاتل زراعية الاصدار الثالث.rar

احسنت استاذ عبد اللطيف بارك الله فيك وجعله الله فى ميزان حسناتك

استاذ f16 أين الإعجاب ؟

مشكور جدا استاذ احمد وبارك الله فيك

ضيف موظفين في صفحة اسماء الموظفين تسمع بباقي الاوراق جدول غياب.xlsm

تفضل أخي ابو عبدالله Database1 (3).rar

انت رائع استاذ سليم باسلوبك المهذب لتوصيل المعلومة جزاكم الله خير الجزاء

جيد استاذ وجيه نفس الماكرو بدون هذا الكم المتكرر من IF و ELSE Sub TEST() Dim RESULT$ For i = 6 To 30 Select Case Cells(i, 4) Case Is >= 14: RESULT = "امتياز" Case Is >= 8: RESULT = "جيد جد" Case Is >= 6: RESULT = "جيــــد" Case Is >= 4: RESULT = "مقبول" Case Is >= 2: RESULT = "ضعيف" Case Else:RESULT = vbNullString End Select Cells(i, 9) = RESULT Next End Sub

جرب هذا Archivé Mobile V 1.001(1).rar

يعطيك العافية يا بش مهندس نفس المشكلة بعد تثبيت المكتبة المرفقة من قبلكم نفس الخطأ *** هل تسمح بتعديل البار الذي تم ارفاقه: - الحجم لا يمكن التحكم - اللون :: تحياتي

مشكور أستاذى الكريم عبد اللطيف بجرب البرنامج وبرد عليك خبر الله يجزيك الخير

برنامج رائع أخي عبداللطيف

Me.KeyPreview = True من غيرها الزراير مش هتشتغل و ممكن تنفيذها بدون كود من خصائص النموذج اختار مفتاح معاينة بدلا من لا نجعلها نعم أما بانسبة KeyCode = 0 اذا كان الزرار مثل F1 يظهر نعليمات Help لن تظهر التعليمات

تمام ده اشتغل عقبال الباقى استاذنا صالح حمادي ايهما اشتغل .. انا الثانى فقط اما الاول كما هو

خلاص أخي قررت أدفع بيك شكوة لمحكمة لاهاي الدولية ليش مخبي كل هذا الإبداع لقد اشتغل البرنامج بشكل ممتاز

تفضل جرب هذا توزيع عشوائى للموظفين.xlsm

بعد اذن استاذنا الكبير سليم تفضل تصحيح معادلة-1.xlsx

من فضلك قم بشرح وافى لما تريد طالما لم أفهم ما تقدمت به من تساؤل ووضحه على ملفك

تفضل اخى الكريم تقسيم الخلية الى عدة أعمدة.xlsm

تفضل اخى الكريم مخازن 1.xlsm

أخى الكريم اهلا بك فى المنتدى الكريم اين الملف الذى تريد العمل عليه -من الأفضل رفع الملف تجنبا لمضيعة وقت الأساتذة والخبراء حتى لا يتم عدم الإلتفات الى طلبك فهو مبهم للجميع الى الأن جزاك الله كل خير

بارك الله فيك وجعله الله فى ميزان حسناتك

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

تفضل fgh-1.xlsx

عمل دفتر 5 سلوك الكترونيا بالاكسل المشكة لا أظنها فى عمل الدفتر المشكلة من سيفرغ غياب الطلاب يوميا فى البرنامج

فكرة جميلة جداً أخ أيمن ممكن ترفق ملف بالشكل المطلوب لبدء العمل عليه أخوك أبو البراء