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

الاخوه بالمنتدى اليكم هذا الدرس البسيط ارجو مراعاة الفاصله العشريه كل حسب ما موجود فى جهازه اما , او منقوطه. تنسيق ارقام مسبوقه بالزيرو.rar

أخي الكريم نايف إليك الكود التالي عله يكون المطلوب Sub Test() 'تعريف المتغيرات Dim Ws As Worksheet, Sh As Worksheet, Cel As Range, LR As Integer 'تعيين قيمة للمتغير ليساوي ورقة العمل المراد الترحيل منها Set Ws = Sheets("mm") 'تعيين قيمة للمتغير ليساوي ورقة العمل المراد الترحيل إليها Set Sh = Sheets("nn") 'تعيين الخلية التي سيتم ترحيل قيمتها Set Cel = Ws.Range("A1") 'تحديد أول خلية فارغة في العمود الأول في الورقة المراد الترحيل إليها LR = Sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 'شرط لاختبار تكرار القيمة باستخدام دالة العد بشرط 'فإذا كان ناتج العد أكبر من أو يساوي 1 ، فذلك يعني أن القيمة موجودة If Application.WorksheetFunction.CountIf(Sh.Columns(1), Cel.Value) >= 1 Then 'طالما أن القيمة موجودة تظهر رسالة تفيد بأن القيمة مكررة MsgBox "القيمة مكررة في العمود", 64 Else 'إذا لم تكن القيمة موجودة من قبل في الورقة المراد الترحيل إليها 'يتم وضع القيمة في أول خلية فارغة في العمود الأول بعد آخر خلية بها بيانات Sh.Range("A" & LR).Value = Cel.Value End If End Sub تقبل تحياتي

السلام عليكم هذه محاولة ملاحظة : 1/ العمود F به معادلات يحسب 8 ساعات للوردية الواحدة 2/ اكتب وقت الدخول في العمود E وسيعطيك وقت الخروج في F 3/ في العمود H حدد الوردية أمام كل موظف ثم اختر الوردية التي تريد ترحيلها من الخلية الصفراء واضغط زر الترحيل تحياتي shift1.rar

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

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

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

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

السلام عليكم بالاضافة الى فيديو الاخ سعيد ، انا كنت عامل مثال في هذا الرابط: http://www.officena.net/ib/topic/65726-هدية-المدة-بين-تاريخين-،-و-اضافةخصم-سنوات-واشهر-وايام/ جعفر

كود راااااااااائع شكرا لك أستاذي الكريم شكرا أيضا للشرح المستفيض لأنني أتعلم منه

أخي الكريم عبد العزيز المدني الملف محفوظ بصيغة xlsx وهذا الامتداد لا يحتفظ بالأكواد ..عندما تضع الكود وتحفظ ستظهر رسالة فيها كلمة Yes و No و Cancel انقر No سيظهر معك مربع حواري تحدد من خلاله اسم الملف والمكان المطلوب حفظ المصنف فيه وأهم شيء هو امتداد الملف اختار xlsm أو Excel Macro Enabled يمكنك الإطلاع على الموضوع التالي لتدرك بدايات التعامل مع الأكواد http://بداية الطريق لإنقاذ الغريق

اخى الحبيب المحترم // ابو البراء السلام عليكم بداية بارك الله فيكم لصبركم و إصراركم على مساعدتى فى هذا الموضوع بشأن صفحة " القائمة العامة للمخازن " العمود B الخاص بالاصناف هذة الاصناف ثايته والمطلوب التعديل ليتم ترحيل الكمية الواردة وسعر الشراء بدلالة اسم الصنف ايا كان موقعه تقبل وافر احترامى مع قبول اعتذارى لهذا الخطأ الغير مقصود جزاكم الله خيرا

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

حياك الله اخي الكريم ضع هذا السطر في حدث عند التحميل للنموذج Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0) ameelnoinform= رقم العميل في النموذج ameelNointable = رقم العميل في الجدول Albianat = جدول البيانات . بالتوفيق

تفضل الفورم بدون اشرطة الذاتية الإدارية1.rar

تفضل اخي الفاضل كان فيه مشكلة غير ال64 او32 حاولت اتجنبها ببعض التعديلات تفضل لعلها تفيدك الذاتية الإدارية1.rar

السلام عليكم هذا الكود يوضع في وحدة نمطية جديدة Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function وفي النموذج الرئيسي للبرنامج نضع الامر التالي في حدث Form_Load SetProperties "AllowBypassKey", DB_BOOLEAN, False تحياتي

حياك الله اخي كامل شاهد هذا الفيديو هذا وان شاء الله فيه مايجيب على تساؤلك . https://www.youtube.com/watch?v=iJFYtqi-9sQ بالتوفيق

أخي الكريم لما لا تستخدم الدالة Index انظر المرفق التالي (لعل المرفق الخاص بك به مشكلة) Test.rar

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

مشكور اخي صلاح علي مجهودك واظن انه لا يوجد حل مباشر لطباعة الفورم لاندسكيب الا عن طريق التحايل علي البرنامج واليك طريقة انا لم اجرب لانه لايوجد لدي طابعه بالمنزل فلتجرب الطريقة وتبلغني الذاتية الإدارية1.rar

السلام عليكم ورحمة الله اليك الحل تصفية متقدمة.rar

حاولت العمل بعض الشيء وقدرت اني ادخل التاريخ بس دلوقتي انا عايز احمي الخليه بعد ادخال التاريخ بحيث لايمكن التعديل عليها او الحذف حاولت احمي الخليه بس لما احمي الخليه وادخل رقم الفاتوره ما بيدخل التاريخ فاتورة مبدئية.rar

أعتقد أن حل الأخ الحبيب عبد الله يفي بالغرض يمكن تطبيق المعادلات في الجدول الثاني وهكذا ترحيل بشرط.rar

حبيبي يا أبو خليل بس انا ملاحظ انه كود وليس ماكرو

للرفع

ارجو ان يساعدني احد الخبراء توجد فكرة جديدة بعمل دفتر 5 سلوك الكترونيا بالاكسل و فية عمود لاسماء الطلبة و عمود للفصل و عمود لحالة القيد وبعد ذلك خانات فارغة عن النقر عليها يظهر علامة اكس او التاريخ( دليلا على غيابة في هذا اليوم ) و الصف العلوي بايام الشهر و يوجد ارتباط يجمع عدد ايام الغياب و من يتجاوز 10 ايام يتم طباعتهم زي الشهادات و كيف اجعل الصفحة الاولى فارغة الا من عنوان ( غياب الطلبة ) ثم غياب الصف الاول ثم غياب الصف الثاني ثم غياب الصف الثالث

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

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

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

جزاكم الله خير ووفقكم الله

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

mehyo27 تدري إن كلمة مبدع قليلة عليك ما أقول إلا الله يجزاك كل خير