بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 04/21/24 in مشاركات
-
السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... كان يكفي أن تُنسخ المعادلات نفسها مع تغيير الشروط حسب ما وضعت في طلبك... new2.xlsx2 points
-
السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) كنت قد بحثت في المنتدى 🔍 (هنا) عن برامج لعرض مواقيت الصلاة ، وقد وجدت الكثير من المواضيع الجميلة والأفكار النيرة في المنتدى لأساتذة وأخوة بذلوا جهداً لا يوصف في مشاركاتهم بهذا الموضوع ، وإلى حد ما أكثرهم قرباً لضبط الأوقات كانت هذه المشاركة . اليوم الفكرة مختلفة قليلاً في هذا المشروع المتواضع والذي لا يحتوي تعقيدات يصعب قراءتها أو التعامل معها في الأكواد . حيث اعتمدت وتوجهت إلى البساطة من حيث عند النقل والدمج ( إلى / في ) أي مشروع . الآن شرح بسيط لبعض تفاصيل المشروع التي سيتم الإعتماد عليها :- سي سيتم الإعتماد على خطوط الطول والعرض بعد إجراء بعض التعديلات على طريقة احتساب الأوقات . وقد تمت المقارنة مع موقع ( مواقيت الصلاة ) للوصول إلى أقل فارق - إن وُجِد - في المواقيت . سيتم الإعتماد على تقويم أم القرى في أحدى مشاركات أستاذنا @ابوخليل . سيتم اعتماد إظهار الوقت المتبقي لكل موعد صلاة في الشاشة الرئيسية أو المصغرة ( ستضاف لاحقاً ) . سيتم منح الحرية للمستخدم بنوع التذكير لوقت الصلاة ( إشعار برسالة تنبيه داخل البرنامج ، إشعار فوق شريط Taskbar ) . سيتم أيضاً منح الحرية للمستخدم باختيار صوت التنبيه ( أذان كامل ، تكبير ، .... إلخ ) . المزيد من الأمور ستأتي لاحقاً تباعاً في تطويرات وتحديثات جديدة إن شاء الله . صورة لواجهة البرنامج حالياً ، والذي أسميته في الوقت الحالي " صلوات " 🤗 ، ما لم يتم اختيار اسم آخر تم التعديل بتاريخ 01/06/2024 وذلك لاضافة المرفق النهائى Salatak.zip1 point
-
السلام عليكم ورحمة الله وبركاته بريمج صغير لتقييم اداء الموظفين تم الاقتباس والاستفادة من برنامج استاذنا القدير خليفة .. من هنا لمن اراد الزيادة حرصت على اختصار الكائنات قدر الامكان ليسهل ادراجه ضمن برنامجك اخي الحبيب البرنامج عبارة عن نموذجين وتقرير واحد فقط النموذج الاول : للاطلاع على بنود التقييم مع امكانية الاضافة او الحذف النموذج الثاني : لعملية التقييم والحفظ وعرض التقرير والطباعة مع بعض الضوابط منها مثلا منع تكرار التقييم في السنة الواحدة للموظف اتمنى ان تجدوا فيه الفائدة والمتعة EvaluationEmployees.rar1 point
-
ألف شكر على تعبك ودائماً هذا ما تعودناه من حضرتك بتقديم العون والمساعدة لتلاميذك وإحبائك .. هذه أجمل إضافة من حضرتك .. كده تمام1 point
-
1 point
-
تفضل استاذ @2saad المرفق بعد التعديل بطلبك الاخير أضفت 2 زر لطباعة القوائم دفعة واحدة وكذلك الصفوف حسب ما فهمت . ووافني بالرد . New Microsoft3-2.rar1 point
-
السلام عليكم ورحمة الله تم عمل المطلوب مع بعض الإضافات المستحسنة (تحضير قائمة منسدلة للصفوف بالتسمية Liste من خلال معادلات في العمودين Z و AA من شيت ... ) new2.xlsx1 point
-
تفضل تبسيط للكود نموذج ادخال بيانات الحجاج داخل الشيت.xlsm1 point
-
1 point
-
تفضل اخي الكريم ارجو الاطلاع على الملف والرد وفقكم الله New Microsoft Access Database (5).rar1 point
-
1 point
-
تفضل أخي @waheidi2005 ، هذه محاولتي المتواضعة New Microsoft Access Database.accdb1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته ضع متغير باسم الصفحه التي تريد الترحيل لها هذه بدايه التغييرات ويمكنك اكمال باقي الترحيلات بنفس المنوال عذرا لانى اعمل بالموبايل Private Sub cmdAdd_Click() Dim WS As Worksheet SH As Worksheet Set SH = ThisWorkbook.Worksheets("Entry") Set WS = ThisWorkbook.Worksheets(Sh.Range("J4").text) Dim M As Integer M = WS.Range("B500").End(xlUp).Row + 1 WS.Cells(M, "B").Value = Sh.Range("G6").Value1 point
-
1 point
-
1 point
-
تم العمل على زري التنقل ( BtPrev و BtNext ) ولكني اعتقد انك تريد الفكرة على الرزنامة التي على اليسار ، هل هذا صحيح ؟؟.؟؟1 point
-
أخي @عبد اللطيف سلوم ، هل هذا ما تريده ؟ فلل السعودية.accdb1 point
-
@Foksh اخي واستاذي الفاضل فادي , اشكرك على مجهودك الرائع والمميز , وكما عرفناك لايوجد شيء صعب عندك ,, بارك الله بك وبارك الله في رزقك وزادك علما. 🌹1 point
-
أخي @Bshar جزاك الله خيراً على هذه الثقة 🥰 . اتمنى أن أكون قد وصلت الى حل مناسب ، انظر ماذا فعلت للوصول لطلبك :- 1. قمت بالتعديل على الاستعلام والذي هو مصدر سجلات للنموذج الفرعي ليصبح فقط لفلترة الاسم . بهذا الشكل SQL :- SELECT doc.name, tape.ID, tape.[code-work], tape.[t-namber], tape.type, tape.lincec, tape.color FROM doc INNER JOIN tape ON doc.ID = tape.[code-work] WHERE (((doc.name) Like "*" & [Forms]![add-tab]![xxf] & "*")); 2. انشأت مربع نص وأسميته Foksh 😁 ، وجعلت قيمته :- Me.Foksh = Foksh & "," & Me.xxc ' هو كومبوبوكس الألوان XXC حيث 3. انشأت دالة لتطبيق الفلترة :- Private Sub ApplyFilter() Dim filterCriteria As String Dim selectedValues() As String Dim i As Integer selectedValues = Split(Me.Foksh, ",") For i = LBound(selectedValues) To UBound(selectedValues) If selectedValues(i) <> "" Then filterCriteria = filterCriteria & "[tape].[color] = '" & Trim(selectedValues(i)) & "' OR " End If Next i If filterCriteria <> "" Then filterCriteria = Left(filterCriteria, Len(filterCriteria) - 4) End If Me.tape5.Form.Filter = filterCriteria Me.tape5.Form.FilterOn = True End Sub 4. في حدث بعد التحديث للكومبوبوكس XXC سيتم نقل القيم الى مربع النص Foksh والفصل بين القيم عند تغييرها بالفاصلة "," :- Me.Foksh = Foksh & "," & Me.xxc ApplyFilter Me.tape5.Requery وفي النهاية هذا هو الناتج tesst.accdb1 point
-
فى ظل امكاناتي المتواضعه وللحاجه وبعد مراجعة العديد من الحلول المتوفره على الويب التى لم اجد بها ضالتي اقدم لكم مربع التلوين هذا colorpicker حيث يقوم بتلوين خلفية النموذج بشرط تسميتها detail بالانجليزيه ورأس النموذج بشرط تسميته header وتذييل النموذج بشرط تسميته footer وكذلك مربعات التنسيق والتجميل rectangle بشرط ان يتم تسميتها box1 , box2 وهكذا وضعت وظائف التلوين فى حدث عند النقر المزدوج فى كل منها طبعا يمكن استخدام اسماء عناصر عربيه لكنها ستحتاج تعديل فى الجدول والكود ولا افضل ذلك المربعات الونيه يمكن تلوين حتى box9 اى تسع مربعات النموذج يحتوي اكثر من 400 لون معد سلفا منها 160 لون عشوائي تتغير بضغطة زر الى اخرى كل لون تختاره يمكنك التعديل عليه بتغيير قيم الالوان الاحمر والاخضر والازرق يوجد جزء خاص لضبط الخطوة فى + او - بقيم من 1 حتى 25 كما يوجد جزء خاص بتحديد سلوك تلوين الفورم فى المره القادمه التى سيفتح فيها وامامك 3 خيارات اما استخدام خياراتك الاخيرة للالوان واما استخدام الوان الجدول الافتراضيه وهى الوان رماديه يمكن تغييرها من الجدول فقط واما استعادة الوان الفورم عندما تم تصميمه ويتم التحكم فى كل جزء على حده اعلم انه بدائي لكنه يؤدي الغرض بفاعليه ونرحب بالافكار الجديده الكود متاح للجميع استخدامه شخصيا او تجاريا بشرط عدم ازاله شعار مؤسسة وعد الخيريه او كود الصوره اتمنى تزويدي بتعليقاتكم البرمجيه لتحسي الكود وتطويره لتعيين الصور كخلفيات يمكن التحميل من هنا mycolorpiker.zip1 point
-
شكرا لكم احبتي في الوقت الحاضر انا على جناح سفر ان شاء الله اذا عدنا وكتب الله لنا بقية من العمر .. ابشروا1 point
-
1 point
-
وعليكم السلام- تفضل بما انك لم تقم برفع ملف توضيحى للمطلوب يكل دقة Book.xlsx1 point
-
السلام عليكم ورحمة الله وبركاته وبها نبدأ عدل الفاصلة , الى الفاصله المنقوطه ; لتصبح معادله ابو احمد هكذا =IF(F8*0.0199<1.99;1.99;IF(F8*0.0199>2.99;2.99;F8*0.0199))1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
مشاركة مع استاذ @عبد اللطيف سلوم تفضل استاذ @soik225998 محاولتي بتعديل مرفقك بطلبك . ووافني بالرد . تجريبي_3.rar1 point
-
تفضل أخي قاعدة من تصميم أحد عمالقة المنتدى ومسامحة لم أتذكر الاسم . يعمل لدي بكفاءة ولايوجد به أخطاء . Backup.rar1 point
-
جميل جدا أخي الفاضل @حسونة حسين هذا العمل إبداع وهذه مساهمتي للبحث في موضوعات منتدى الاكسل ولكن في مجال الويب حتى يمكن البحث بسرعة بمجرد الكتابة ولو في الموبايل بدون الحاجة إلى برنامج الأوفيس https://officena.net/team/mas/excel.html بالتوفيق للجميع دعواتكم1 point