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

جرب هذا الملف تلوين كلمات.xlsm

اخي الكريم راجع المرفق التالي https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=140547

اكتب هذا تحت زر الدخول Private Sub log_Click() Me.WebBrowser0.Document.Forms(0).Save.Click End Sub

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

@أبو عبير 2005 تفضل Database3.accdb

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

في الغالب لديك مشكلة مع اعدادات اللغة في الجهاز

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

هو لن يتعرف على الحقل الا بوجود المصدر داخل الاستعلام وهذا لن يتم الا اذا ادرجناه داخل الاستعلام الرئيس وحتى تتخيل النتيجة هذه صورة الاستعلام الفرعي منفردا يمكنك ان تعلن عن المعيار ضمن الوحدات العامة فتظهر لك هذه النتيجة وسيتبادر الى ذهنك سؤال : اين الموظف الآخر ؟ والجواب : السنا حددنا العرض بـ 3 سجلات ولكنها ستظهر في الاستعلام الرئيس لانه يعرض الجميع مع اخذه بالاعتبار لشرط الاستعلام الفرعي( الثلاث قيم الكبرى )

اخى الكريم ارفق المثال مرة اخرى فهو لا يعمل يخبرنى بعطب فى الارشيف

إخوتي الأحبة الملف المرفق به عدة صفحات لخيارات مختلفة لمعالجة النصوص في إكسل قمت بسحبة من هذا المندى الرائع .. كان قد رفعه أحد الأخوة في المنتدى لا أذكر من هو ( وفقه الله ... كائنا من كان ) ووفقكم الله أردت رفعه لتعم الفائدة لكم حبي معالجة النصوص.xls

السلام عليكم ورحمة الله استخدم هذا الكود Sub AddRows() Dim x As Integer, i As Integer Application.ScreenUpdating = False x = Sheets("ورقة1").Range("D7") - 2 For i = 1 To x Sheets("ورقة1").Range("A13").EntireRow.Insert Next Application.ScreenUpdating = True End Sub

السلام عليكم مرحبا بك فى المنتدى الكريم هذا الملف لضريبة كسب العمل- من تصميم خبيرنا فى الإكسيل :الأستاذ محمد الريفى كل السلام والتحية له ضريبة كسب العمل.xlsx

المرفق الاول يستخرج اسماء الحقول وتفاصيل الصفحة ويضعها في جدول او في ملف csv لو اعطيتنا رابط الصفحة والحقول المطلوب العمل عليها

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

تفضل سؤالين في التصفية في الاستعلام1.accdb

استبدل هذا: Expr1: DSum("[Rest_leave]","vacations","[EmpID]=" & [EmpID] & "") بهذا: Expr1: Nz(DSum("[Rest_leave]","Vacations","Nz([EmpID],0)=" & Nz([EmpID],0) & "AND Nz([ID],0)<=" & Nz([ID],0)),0) اجازات الموظفين.rar

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

حنعمل ايه يا اخى ابو زاهر

تفضل أخى الكود والشرح فصل الناجح والراسب.rar

السلام عليكم ورحمة الله أخي الكريم، وإضافة إلى حل أخي الحبيب عبد الله "أبو أحمد" أقدم لك الملف المرفق مع بعض التغييرات وإضافة دوال صفيف تم المطلوب... أخوك بن علية suppliers required.rar

جزاك الله كل خير وبارك لك وربنا يجعلنا دائما عند حسن ظنكم