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

تفضل على السريع يمكنك بناء تقاريرك على الجدول tbl1 db4.mdb

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

code Private Sub UserForm_Initialize() Dim lrc, lrb, My_Formula lrc = Sheets("Sheet1").Cells(Rows.Count, 3).End(3).Row lrb = Sheets("Sheet1").Cells(Rows.Count, 2).End(3).Row My_Formula = "=SUM(C2:C" & lrc & ")-SUM(B2:B" & lrb & ")" My_Formula = Evaluate(My_Formula) Me.TextBox1 = My_Formula End Sub

وعليكم السلام Dim i1, i2 As Double Dim i3 i1 = 129 \ 30 i2 = 129 Mod 30 i3 = i1 & "أشهر" & " " & "و" & " " & i2 & "أيام" MsgBox i3

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

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

انا كتبت لك الصيغة واظهرت لك رسالة حتى ترى النتيجة وللتطبيق فمثلا في الاستعلام اذا اعتبرنا حقل القيمة اسمه total imonths:[total]\30 idays : [total] Mod 30 dayess.mdb

حضرتك مش ممكن رائع بارك الله فيك استاذ سليم حضرتك فعلا رجل عظيم اشكرك

هدية للموقع برنامج الجمعيات الخيرية الرقم السرى 1515 جنتى المعدل بنك الدم.rar

أولا- أخي الأمر الذي تستخدمه لنسخ نص الي الذاكرة المؤقته لحين لصقه بموقع آخر ثانيا- أعذرني فلم أفهم مطلبك بالتحديد هل تريد تصدير التقرير مثلا الي word أو pdf مثلا -أم أنك تريد طابعة التقارير علي ورق باستخدام الـ printer كلام حضرتك أُشكل علي من فضلك حدد ما تريد بمزيد من التوضيح.

هذا طبيعي في التعامل مع الأرقام ولكن جرب هذا مع الصفوف الثلاث الأولي وأكمل أنت علي نفس المنوال Average10Items.accdb

مرفق ملف به الكود يارب يكون هو ده المطلوب انا عملت الكود على وجه السرعة لانى كنت مشغول جدا .... اتمنى ان يكون المطلوب مدين دائن الزهراء.xlsm

جرب هذا العمل الكود يبحث في جميع الصفحات الا صفحة التقرير 2020 الحسابات (1).xlsm

عليكم السلام، تفضل: Private Sub ValidateEnglish() Dim I As Long Dim txtBuff As String Dim CheckChars As String CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 " txtBuff = TextBox1.Text For I = 1 To Len(CheckChars) txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "") Next I If txtBuff = "" Then 'Only characters in CheckChars found MsgBox "English." Else MsgBox "Non-English." End If End Sub Private Sub TextBox1_Change() ValidateEnglish End Sub

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

الكود يحتاج الى تهديل ليتوافق مع ما تطلبه Private Declare Function ActivateKeyboardLayout Lib _ "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long 'define your desired keyboardlanguage 'find your desired language at [URL="http://www.trigeminal.com/frmrpt2dap.asp"][COLOR=#000088]http://www.trigeminal.com/frmrpt2dap.asp[/COLOR][/URL] Private Const MKD = 1071 'macedonian keyboard language layout Private Const eng = 1033 'english(united states)keyboard language layout Private Sub A_Enter() Call ActivateKeyboardLayout(MKD, 0) End Sub Private Sub A_Exit(Cancel As Integer) Call ActivateKeyboardLayout(eng, 0) End Sub

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

لم تنقل الدالة صحيحة الى ملفك كما اخبرتك لا يمكنني التجربة لان جهازي يعمل على 32 بث تم اظافة الكود السابق لملفك على الفورم1 ويشتغل على جهازي بكفاءة جرب الملف وان لم يشتغل نتمنى من لديه نظام 64 تقديم المساعدة برنامج صلاحيات المستخدمين اصدار (3).xlsm

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

طيب جرب الثلاث مواد الاولى واعلمنا بالنتيجة علما ني غيرت بعض مسميات مربعات النص لسهولة كتابة الكود 1 (2).rar

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

أرجو أن يوافق هذا مرادك Database1.accdb

هذا برنامج للجمعيات الخيرية وبه حل كتابة الرقم القومى وتحويله للتاريخ هل هذا ماتريد كلمة السر 1515 جنتى المعدل بنك الدم.rar

الحقيقة ليتك قمت بفتح موضوع جديد بما انك ستعمل على قاعدة بيانات مختلفة منعا لمخالفة قوانين المنتدى يلزمنا الآن تعديل الكود مرة اخرى وما ينطبق عليه لا ينطبق على ما سبق الوحدة النمطية الجديدة Option Compare Database Option Explicit Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) + 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) + 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) + 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) + 1 End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function وهذا في الاستعلام يوم D: CalcAgeD([from];[too]) شهر M: CalcAgeM([from];[too]) سنة Y: CalcAgey([from];[too]) باليوم والشهر.rar تحياتي

السلام عليكم هذا الشرط لا بد منه لأنك تريد أحدث تاريخ لكل نوع... والمعادلة التي وضعتها في الملف المرفق لا تختلف تماما عن المعادلة التي وضعتَها في ردك السابق... والمعادلة هي معادلة صفيف مما يعني أن تأكيدها يتم بالضغط في آن واد على : CTRL+SHIFT+ENTER وليس فقط بالضغط على ENTER نموذج تاريخ.xlsx

يا جماعة الموضوع الاصلى عرض على الشاشة

على العموم دى فكرة بسرعة ☺️ تم تعديل المرفق لتلافى مشكلة عدم وجود صوت ضمن اعدادت الويندوز Waiting Role.zip

السلام عليكم هذا الملف المطلوباللجان الانتخابية في كويت اليوم.xlsx

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

بعد تنفيذ المعادلة يجب ان تضغط هنا

فيديوووو جميل وشيق في هذا الفيديو شرح تقييم وحساب المكافاة بثلاث طرق علشان لازم تعرف كذا طريقة وهانتعلم في الدرس ده معادلة IF - VLOOLUP - INDEX - MATCHكيفية عمل تقييم وحساب المكأفاة بثلاث طرق باستخدام IF - VLOOLKUP - INDEX - MATCH.xlsx

إلى كل أحبابي في الله الطلبة والطالبات والمعلمين والمعلمات واولياء الأمور يسعدني أن أقدم الحل الأمثل لحفظ كلمات الإنجليزية English vocabulary وذلك بمناسبة شهر رمضان المبارك أعاده الله علينا جميعا بالخير والبركات. هذه أكبر مشكلة تواجهنا في تعلم اللغات الأجنبية، ولكن بفضل الله مع هذا التطبيق، أصبح تعلم اللغة الإنجليزية متعة. وذلك بشهادة كل من جربه من الطلاب والمعلمين وأولياء الأمور. والحل في برمجة تطبيق يعمل على الموبايلات بنظام أندرويد وهو أول تطبيق لي يعتمد على قواعد البيانات بانتظار آرائكم وتعليقاتكم الحل الأمثل لحفظ كلمات الإنجليزية English vocabulary الجميل في الموضوع أن التطبيق يحتوي على قواميس لجميع الصفوف في المرحلة الابتدائية: الصف الأول الابتدائي الصف الثاني الابتدائي الصف الثالث الابتدائي الصف الرابع الابتدائي الصف الخامس الابتدائي الصف السادس الابتدائي تابع معي مميزات التطبيق من مميزات تطبيق English4primary سهل الاستخدام واجهة رسومية مناسبة لجميع الأعمال يعمل على جميع الأجهزة بنظام أندرويد Android يعمل بنظام اختبارات الاختيار من متعدد وكذلك كتابة الكلمة كاملة (للمستوى المتقدم) يمكن السؤال عن الكلمة باللغة العربية والاختيارات انجليزية أو العكس (السؤال بالانجليزية والاحتيارات باللغة العربية) وهذه الصورة تشرح استخدامات الأزرار والمكونات الموجودة في شاشة التطبيق وغيرها الكثير من المميزات اكتشفها بنفسك والآن مع رابط تحميل التطبيق اضغط هنا أو هنا أو من المرفقات وفي الأخير لا ينقصن سوى دعاؤكم لوالدي بالرحمة والمغفرة ولنا جميعا بالخير في الدنيا والآخرة ومشاركة هذه الصفحة مع جميع أصدقائكم انتظرونا فالقادم أفضل بإذن الله في رعاية الله وحفظه ولا تنس تقييم المنشور English4primary.rar

بارك فيكم اخواني جميعاً و بعد اذنكم اساهم معكم في الحل تم تغيير اسم الجدول و الحقول الى الانجليزية ليسهل التعامل معها ... و تم حذف حقلي تاريخ الميلاد و النوع من الجدول و عمل استعلام يظهرهما بحقول محسوبة تاريخ الميلاد : BirthDate النوع : Gender بالتوفيق للجميع قاعدة البيانات2.rar

شكرا للأخ العزيز آخر الارض المطلوب استخراج تاريخ الميلاد من الرقم نفسه هذا الرابط يتحدث عن ذلك http://www.officena.net/ib/topic/43015-استخراج-تاريخ-الميلاد-من-الرقم-القومي-عنوان-معدل/#comment-247895 والمنتدى مليء بمثل هذا فقط اكتب في خانة البحث كلمة : الرقم القومي

الدّالة Vlookup تعمل من اليمين الى اليسار باللغة العربية والعكس باللغة الأجنبية امّا الدّالة Match فتعمل بالاتجاهين معاً

السلام عليكم جزاك الله كل خير استاذ عبدالله ولإثراء الموضوع هذه طريقة اخرى الكود في حدث الفورم Private Sub UserForm_Activate() Dim Nm As Variant Dim Nm_Cl As New Collection Dim Tr_Nm As Variant Nm = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value On Error Resume Next For Each Tr_Nm In Nm Nm_Cl.Add Tr_Nm, Tr_Nm Next Tr_Nm On Error GoTo 0 For Tr_Nm = 1 To Nm_Cl.Count ComboBox1.AddItem Nm_Cl(Tr_Nm) Next Tr_Nm End Sub

السلام عليكم ورحمة الله أخي الكريم، للتقييم يمكن أيضا استعمال المعادلة التالية في R10 ثم سحبها إلى الأسفل: INDEX({"U";"C";"C+";"B";"B+";"A";"A+"};MATCH(Q10;{0;50;60;70;80;90;95;1000};1)) أخوك بن علية

السلام عليكم هذا شرح مبسط للموضوع معاك معادلات في ورقة معينة لجدول فرضا تبدا من الصف 5 وتنتهي بالصف 1000 متجاورة او غير متجاورة على الصف تنسخ هذه المعادلات وتضعها على صف في بداية الورقة مثلا 2 وتقوم باخفاء هذا الصف عمل الكود يتلخص في الاتي: يقوم بتشغيل هذه المعادلات في الصفوف التي عينتها في الكود ويبقي قيمتها فقط . وممكن تكرر هذا الاجراء على اي اوراق تريدها ويشغلها الكود دفعة واحده لكل الاوراق التي عينتها في الكود مثال kh_cFormula Range("ورقة1!$D$2:$G$2"), 5, 1000 Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long) ' MyRng : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة ' iRow : اول صف للبيانات ' Lastrow : آخر صف للبيانات ارجوا ان يكون الشرح واضح موجود في المرفق في المشاركة 1 تطبيق الكود في امان الله

في البدايه احب اقدم جزيل الشكر لكل من ساهم وساعدني للانتهاء من عمل هذا البرنامج كما احب اقدم لاساتذتي الكرام تحيه وشكر خاص جداٌ 1- المهندس طارق محمود 2- ابوعبدالله 3- يحيى حسين 4- هشام شلبي 5- احمد زمان 6- خبور خير 7- الحسامي 8- عبدالله المجرب 9- احمد حمور واسف لمن لم اذكره نبذه عن البرنامج: البرنامج خاص بقسم الجوده بمكن من خلاله اضافة جميع عمل القسم من انتاجيات او اخطاء . مايشمله البرنامج :- *يوجد شاشه خاصه بالمشرفين وتمشمل:- الادخالات تخص الاقسام وليس الموطفين التقارير يشمل من خلاله طلب التقرير الخاص بأي قسم ومتابعة سير العمل الرقم السري امكانية اضافة او تعديل او حدف المستخدمين البحث امكانية البحث والتعديل على ادخالات الموظفين كما يستطيع الوصول الى قاعدة البيانات الخاصه بالملف برقم سري خاص يوجد شاشه خاصه بالمستخدمين تشمل:الادخالات وليس الاقسام البحث امكانية البحث فقط والاطلاع. والان ارفق لكم عملي واسف على الاطاله كما ارجو من الله سبحانه وتعالى ان ينال اعجابكم كما اود افادتكم بأنه مفتوح المصدر لمن لديه اي اقتراح اويرغب ان يضيف او يعدل وجزاكم الله كل خير هذا اسم المستخدم وكلمة السر عبدالعزيز الغامدي 1 محسن العمودي 2 خالد قدوري 3 محمد العماري 4 عبدالملك سيف 5 أحمد فريد 6 محمد عواد 7 على بن شهاب 8 عماد شراب 9 احمد تبريزي 10 عبدالرحمن العمودي 11 علي الغامدي 12 Admin pass123 Data base 123 وتقبلو كل الحب والتقدير ------ -V1_The quality of service (1).zip

السلام عليكم الملف المرفق قمت بعمله وإستعماله سابقا وأرفقته فقط كمثال لك وللإستفادة من المعادلات به يتم تقييم الأداء علي ثلاث أسس كمثال وتستطيع زيادتها وتغييرها كما تشاء ووضعت فيه نقاط (وزن) لكل نقطة منها مثل أ - الإنتاجية - 60 نقطة ب - التكلفة - 30 نقطة ج - الإلتزام بالحضور - 25 نقطة وهكذا ، الإجمالي من 115 نقطة ستجد مثلا ان الموظف الأول في نقطة الإلتزام بالحضور أو الأول في نقطة تقليل التكلفة ليس بالضرورة أن يكون الأول علي الإطلاق ستجد المعادلات بسيطة إن شاء الله وبالملف أيضا تنسيق شرطي يبين أوتوماتيكيا لون مختلف لكل من الأول والثاني والأخير في كل نقطة علي حدي (أخضر - أصفر - أحمر) راجع الملف ولو عندك اسئلة لاتتردد ولاتنسي الدعاء لمصر تقييم الاداء.rar