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

جرب هذا الكود Option Explicit Sub Separet_values() Dim Cel As Range Dim m%, st1, st2, My_val Range("E1").CurrentRegion.ClearContents For Each Cel In Range("A1").CurrentRegion.Cells m = Cel.Row If Cel.MergeCells Then st1 = Cel.MergeArea.Columns(1) st2 = Cel.MergeArea.Columns(2) My_val = IIf(IsEmpty(st1), st2, st1) Cells(m, "E") = My_val End If Next Cel End Sub الملف مرفق reda23.xlsm

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

تفضل -------->>>>>>> ex.accdb

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

بعد اذن الاخ علي معادلة احرى (تنسيق الخلايا Percent) =CHOOSE((S3="")+1,CHOOSE(OR(S3="وليد ",S3="سعيد")+1,0.14,0.1),"")

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

وعليكم السلام- يمكنك استخدام هذه المعادلة =IF(S3="","",IF(OR($S3="وليد",$S3="سعيد"),10%,14%)) Test1.xlsx

قد يكون الاخ عبدالعليم cckills2010 لم يأخذ النسخة الاخيرة من الملف ، من هنا : https://www.officena.net/ib/topic/63134-احضار-محتويات-فولدر-خارجى-الى-البرنامج/?do=findComment&comment=505661 فقد تم تعديل مجموعة اشياء فيه ، وكود الحصول على امتداد الملف يقرأ الاسم من النهاية بإستخدام الدالة InStrRev : FileExt = Mid(strFileNames(i), InStrRev(strFileNames(i), ".") + 1) . وصورة الملف الذي به خطأ ، الاسم ليس به نقاط ، مما يجعلنا ننظر الى امرين آخرين ، هل اسم الملف/المسار : 1. فيه الخطأ الموجود كما تم شرحه هنا : . 2. بسبب وجود مسافات فارغة في الاسم/المسار ، ولحل هذا الخطأ ، يجب علينا وضع المسار/الاسم بين "" ، هكذا : File_Path = chr(34) & File_Path & chr(34) حيث ان Chr(34) = " . جعفر

السلام عليكم و رحمة الله تعالى وبركاته نعاني دائما من تصدير البيانات إلى الوورد للتعديل عليها أو لأي غرض آخر و خاصة الجداول أقدم لكم هذا المثال البسيط الذي يقوم بتصدير البيانات لملف وورد معد مسبقا و يقوم بملئها في أماكنها و كلما زاد سجل زاد له سطر في جدول الوورد و هذا هو المثال فيه نسختين 2003 و نسخة 2010 التصدير لملف وورد معد مسبقا.rar

السلام عليكم 🙂 هذا المنتدى للتبادل العلمي ، حتى يستفيد منه الجميع ، وليس صاحب الموضوع / السؤال فقط 🙂 فيا ريت ان نضع الاجابة بالتفصيل في الرد (سواء الخطوات او الكود او صور من شاشة البرنامج) ، ولا نتوقف عند ارفاق المرفق الذي به الرد / الجواب ، والسبب هو ، حتى يستطيع الجميع رؤية الرد ومعرفته مباشرة ، دون اللجوء الى انزال المرفق وفهمه 🙂 نعم ، هذا عبء إضافي ، ولكن نتائجه ستكون مثمرة ان شاء الله 🙂 وتذكروا ، هذا مجرد طلب ورجاء ، وليس اجباري 🙂 شكرا جزيلا 🙂 جعفر

تفضل 🙂 1. اضفنا الزر ، وحقل آخر ، يأخذ استعلام الالحاقي بأخذ قيمته (اقرأ ملاحظات تفاصيل الكود ) : . 2. هذا كود الحدث على الزر : Private Sub cmd_Append_Click() 'نأخذ اكبر قيمة من الجدول B Me.Which_Invoice_no = DMax("[Invoice_no]", "A") 'نعمل مقارنة بين القيمتين ، ونأخذ الاكبر If Me.Invoice_no > Me.Which_Invoice_no Then Me.Which_Invoice_no = Me.Invoice_no End If DoCmd.SetWarnings False 'نضيف هذه القيمة والتاريخ الى الجدول A DoCmd.OpenQuery "qry_Append_to_tbl_A" 'نحذف هذا السجل من الجدول B DoCmd.OpenQuery "qry_Delete_from_tbl_B" DoCmd.SetWarnings True Me.Requery End Sub . 3. هذا استعلام الالحاقي الى الجدول A . 4. وهذا استعلام الحذف من الجدول B . ولكن اذا تأخذ رأيي ، فلا داعي لوجود جدولين ، واستعلام الحاقي وآخر حذف ، وكود وووو ، فقط استعمل جدول واحد ، مثلا الجدول A ، واضف اليه حقل جديد بإسم "هل تم التدقيق" ، نوع نعم/لا ، بحيث المدقق يعمل اشارة صح على السجل ، بأنه تم تدقيقه ، وبهذه البساطة 🙂 جعفر 1283.New Microsoft Access.accdb.zip

المعضلة في طريقة عملك السابقة ، هي السماح بأكثر من اختيار في حقل الكومبوبوكس ، وهو الامر والميزة اللي انت محتاج له ، وفي الواقع ، هذه احد مساوئ الاكسس ، بأن يعطون المستخدم طريقة عمل ، يكون فيها المشاكل في طريقة التعامل معها برمجيا !! لهذا السبب ، ان شاء الله بكرة انظر في الطريقة الجديدة ، وبقية طلباتك يمكن التعامل معاها عن طريق معايير في الاستعلام 🙂 جعفر

جرب هذا الملف 1-نطاق العمل من A1 الى A15 النطاق الأخضر 2- ننم القسمة على قيمة الخلية C1 واذا كانت نصاً أو فارغة تجتسب 1000 يمكن نعدبل C1 الى اي رقم تريد Time_1000.xlsm

1. سبب زحف الكائنات من مكانها ، وتغيير حجمها : اذا عندنا هذا النموذج : . وبعد تشغيله يصبح (لاحظ الزرين ليسوا في اماكنهم ، والزر اللي تحت صار حجمه اكبر) : . نشوف مكان تثبيت الزر العلوي ، ونلاحظ انه في اقصى يمين النموذج ، من الاعلى ، وبحجمه العادي : . بينما الزر الآخر ، نرى ان تثبيته في اسفل النموذج ، وفي منتصف النموذج ، وحجمه مسحوب : . علشان نرجعهم يعملوا مثل المكان اللي في وضع التصميم ، نختار جميع كائنات النموذج ، ونجعل تثبيتهم من اليسار الاعلى ، او اي شيء تراه مناسب : . 2. اما اذا اردت تغيير احجام الكائنات ليتناسب مع حجم الشاشة ، فالرابط التالي فيه مقصدك : جعفر

السلام عليكم 🙂 شوف هذا الموضوع ، ممكن نستفيد منه كهيئة عامة ، ونعمل على تفاصيله ليتناسب مع طلبك : . جعفر

شكرااااااااااااااااااااااااااااااااا جداااااااااااااااااااااااااا ربنا يبارك فيكم

هكذا مثلا تختار من الكومبوبوكس وتضغط زر اظهار الشيت الذي تختاره انت

اعد تصميم الفورم اضف اليه كومبوبوكس لاختيار الكشف الدي تريد

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

وعليكم السلام 🙂 الحل بأن تضع هذا الكود في حدث ، وبعد اخذ الرقم التالي مباشرة تحفظ السجل ، وعلى افتراض ان اسم الحقل هو Sinf ، يصبح الكود هكذا : بدلا عن =IIf(IsNull(DMax("[id]";"items")+1);1;DMax("[id]";"items")+1) استخدم if len(me.Sinf & "")=0 then me.Sinf = nz(DMax("[id]","items"),0) +1 docmd.runcommand accmdsaverecord end if . جعفر

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

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

اولا : كما قلت لك في مشاركة سابقة كود الدخول في الفورم له علاقة ب sheet3 واي ملف ليس فيه sheet3 ونفس البيانات في ("b1:c1") فلن يعمل معك تانيا: اي ملف اكسيل تريد تطبيق عليه الفورم تأكد من امتداده هل هو xlsm

جربي هذا الكود لمعرفة أرقام كل الألوان Option Explicit Sub get_colore_index() Dim i Cells(1, 1) = "Color Index" Cells(1, 2) = "Color" For i = 2 To 57 With Cells(i, 1) .Value = i - 1 .Offset(, 1).Interior.ColorIndex = i - 1 End With Next End Sub

المشكلة ليست بسبب طول الاسم وانما من الكود لان الكود المستخدم يبحث عن الدوت من اليسار وما بعد الدوت يعتبر امتداد صادف ان اسم الملف يحتوي دوت ايضا لذا حدثت المشكلة تم حل المشكلة بكود يبحث من اليمين PathExtension.rar

52vg5XSF.thumb.jpg.4e39402603118998220b1ca0d647ce70 59a55bd702e45_.thumb.jpg.7811a7a59e111653aa2da25ce8cbbbac

عمل رائع بارك الله فيك استاذ فتح وجزاك الله خير الثواب

جميل جدا شكرا جزيلا على الجهد المبذول وانا بانتظار اضافة التقارير للبرنامج 😁

انظر الى هذا الفيديو يوضح لك المعادلات التى بداخل الشيت Rec 0002.rar

مرحا مرحا استاذ جعفر ... طريقة ترقيم ثابتة بامتياز وايضا اعيد المثال بطريقتي السابقة ولكن بزيادة لمسة تنسيقية للرقم مثال2.rar

السلام عليكم وأخيرا اصبح الكمبيوتر امامي ومع الاعتذار لأخي أبوخليل للمداخلة تفضل هذه محاولتي: جعفر 107.zip