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

=COUNTIF($C$5:C5,C5)+VLOOKUP(C5,{"اعدادي",19100;"ثانوي",19200},2,0)-1 السلام عليكم ورحمة الله استخدم المعادلة التالية فى العمود "D" =IF(C5="اعدادي";COUNTIF(C5:$C$5;C5)+19100;IF(C5="ثانوي";COUNTIF(C5:$C$5;C5)+19200;"")) استاذ ابراهيم تكفي هذا المعادلة =COUNTIF($C$5:C5,C5)+VLOOKUP(C5,{"اعدادي",19100;"ثانوي",19200},2,0)-1 مع مراعاة ( الفاصلة والفاصلة المنقوطة _حسب اعادادات الجهاز عنكم)

وعليكم السلام-اهلا بك في المنتدى تم عمل كود في الملف رقم 1 لتظليل الصف الذى به الخلية النشطة بدون الغاء لون الخلية القديمة ان وجدت اما بالنسبة للملف الثانى تم انشاء صفحة أخرى بداخل الملف Report لعمل اللازم بالمعادلات Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False If Cells(1040000, 1) <> "" Then Rows(1040000).Copy Rows(Cells(1040000, 1).Value).PasteSpecial Paste:=xlPasteFormats End If Rows(Target.Row).Copy Rows(1040000).PasteSpecial Paste:=xlPasteFormats Cells(1040000, 1) = Target.Row With Target .EntireRow.Interior.ColorIndex = 8 End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub 1.xlsm 2.xlsx

يمكنك استخدام هذه المعادلة فلو كان الرقم المطلوب معالجته وتقريبه مثلا في الخلية A2 , فتصبح المعادلة كالتالى =ROUNDUP(A2,2)

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

وعليكم السلام-اهلا بك في المنتدى -تفضل https://www.officena.net/ib/topic/49929-برنامج-لادارة-الأشتراكات-الشهرية-ضاحي-الغريب/page/5/?tab=comments#comment-457788

بارك الله فيك أستاذ محمد وزادك الله من فضله

بارك الله فيك وفى صاحب العمل ورحم الله والديكما

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

يمكنك استخدام هذه المعادلة =IFERROR(LOOKUP(99^99,--RIGHT(LEFT(B1,SEARCH(" عاماً",B1)-1),ROW($1:$15))),"") أو هذه =0+(SUBSTITUTE(RIGHT(SUBSTITUTE(LEFT(B1,FIND(" عاماً",B1)-1)," ",REPT(" ",99)),99),",","")) وهذه معادلة ثالثة أيضا يمكنك استخدامها =--TRIM(RIGHT(SUBSTITUTE(RIGHT(LEFT(B1,SEARCH(" عاماً",B1)-1),15)," ",REPT(" ",15)),15)) وهذه معادلة رابعة =LOOKUP(99^99,--("0"&MID(B1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},B1&"0123456789")),ROW($1:$10000)))) استخراج العمر 2.xlsx

جزاك الله كل خير أستاذ سليم عمل رائع ولإثراء الموضوع بعد اذن حضرتك هذا حل اخر بالمعادلات العادية فإذا كان مثلا الرقم القومى موجود بالخلية A2 فيمكنك استخدام هذه المعادلة مع السحب بباقى الأعمدة =MID($A2,COLUMN(A2),1) الرقم القومي.xlsx

جزاك الله كل خير استاذ سليم عمل ممتاز جعله الله فى ميزان حسناتك ووسع الله فى رزقك

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

فورم بحث سريع وترحيل بيانات لصفحة اخرى الفيديو الصور

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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير وملهمى و والدى الحبيب الاستاذ @jjafferr كان قد أشار على من فترة وجيزة بعدم استخدام الاحرف العربية مطلقا داخل محرر الأكود وسألته عن الرسائل كان قد أشار الى انه يمكن كتباتها داخل جدول مخصص وجلبها وقت الحاجة هذا المرفق ناتج عن تطبيق إرشادات معلمى الجليل وبعد ان توصلت لهذه النتيجة وبعد أن ملئنى السرور بعد تعب وتلاحق الأفكار لالية العمل بل وتغيير مجرى تفكيرى اصلا عند بدء التصميم اصابنى الاحباط فجأه بسبب حرف كنت قد كتبته بالخطأ فلم يجلب الرساله وعوضا عنها كانت رسالة فارغة وتلاحقت الأفكار تباعا بسبب هذه الغلطة الغير مقصودة - ماذا لو تم فقد الجدول الخاص بالرسائل لاى سبب ايا كان - ماذا لو تم حذف اسطر الرسالة من الجدول -ماذا لو تم تغير المعيار الذى استخدمه لجلب الرسالة -ماذا لو تم حذف السجل كاملا و الخاص بتلك الرسالة ... وماذا لو ولو ولو بلا بلا بلا بلا ولذلك فكرت بسد هذه الثغرات القاتلة بتلافى ذلك كله بوضع نفس محتوى الرساله بالانجليزية داخل محرر الأكواد ليتم عرضها فى حالة وجود اى خطأ ما عوضأ عن الرسالة العربية او اى مشكلة قد تطرأ بصراحة واجهت صعوبة بالغة فى التفكير وترتيب أفكارى بترتيب الكود لاصل الى مرادى وبعد تعب وعناء مريرين بفضل الله تعالى تم تقريبا سد كل الثغرات والتى خطرت على بالى بهذا الكود ولكن متعب لانه عند كل رساله لابد من كتابة هذه الاسطر السؤال : هل ممكن اختزالها بشكل ما او عمل كود فى موديول ليسهل الامر لمشاهدة النتيجة - غير اسم الجدول على اعتبار انه تم حذفه وجرب - غير المعيار aa من داخل الجدول - امسح كل اسطر الرساله من الحقول MsgLin1 و MsgLin2 و MsgLin3 و MsgLin4 و MsgLin5 محاور العمل تلافى مسح الجدول او تغيير اسمه المعيار المستخدم لجلب الرسالة التأكد من وجوده اولا داخل الجدول ان لا تكون اسطر الرسالة خالية ( على الأقل سطر واحد لتظهر الرسالة من واقع الجدول ) On Error GoTo ErrHandler If Len(DLookup("[MyCriteria]", "tbllvlUsefulData", "MyCriteria ='aa'") & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else strMyCriteria = "MyCriteria ='aa'" If Len(txtOfMesg & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else If Len(strMsgTitle & "") <> 0 Then MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin Else MyMesg (txtOfMesg), vbOKOnly, "NEW Title" & strUserLogin End If End If End If ErrHandler: If Err = 3078 Then Resume Next الرسائل من داخل جدول.mdb

تفضل تم عمل قائمة منسدلة بجميع الأسماء فى الخلية J2 ,فعند اختيار اى اسم سيظهر رقمه فى الخلية I2 ولكم منى جزيل الشكر 11.xlsm

تفضل 11.xlsm

جرب وضع الزر في راس النموذج تجده ينقل الصور

جرب الملف رقم 2 تم تعديله يمكنك إضافة ما تشاء من الأصناف وسوف تضاف مباشرة الى صفحة Report

هل جربت وضعت الزر في رأس النموذج ؟

اعتذر عن شرح الكود لضيق الوقت حصراً لكن لعل احد من الأعضاء الناشطين (الاستاذ علي مثلاً) يتولى هذه المهمة

وعليكم السلام أرى ان المعادلة تعمل تمام -شوف بنفسك النموذج.xlsx

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

استاذ سليم صار لازم نقلك بروفيسور انت رائع و شكرا كتير كتير كنت متخيل ان الموضوع ابسط من هيك "طبعا هوي بسيط بالنسبة لك ولكن بالنسبة الي شي كبير" لهيك بطمع كمان بشرح الكود منك اذا امكن وكان وقتك بيسمح وخاصة فرض المتغيرات يا راااائع انت

إذا كان هذا ما تريد

يمكنك التغيير قى البرنامج كما تشاء بالنسبة للعملة

وعليكم السلام 🙂 بما انك لم تعطنا معلومات كافية ، فاليك الطريقة ، وانت قم بالباقي: 1. نفترض ان اسم النموذج الذي فيه "معلومات الكتاب" اسمه frm_Letter 2. في النموذج الفرعي الذي في الصورة اعلاه ، اعمل حدث على "النقر المزدوج" على الحقل "رقم" (اول حقل على يدك اليمين في الصورة) ، والحدث يكون لفتح النموذج frm_Letter بالرقم الذي نقرت عليه: docmd.OpenForm "frm_Letter",,,"[رقم]=" & me.رقم رجاء تغيير اسماء الكائنات في الكود لتتطابق مع اسماء الكائنات في برنامجك 🙂 جعفر

جرب المثال المرفق مع رجاء التقيد بقواعد المشاركة فى الموقع 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... مع تمنياتي لك بالتوفيق test2.accdb

مثال اخر عن تنسيقات الخلايا في الملف المرفق 1- النطاق الأصفر يحتوي على بيانات (حدد اي خلية منه وانظر الى قيمتها في Formula bar) تنسيقه مخصص "Custom" كل خلية من خلاياه اذا كانت رقماً موجباً تكتب بشكل "OK" اذا كانت رقماً سالباً تكتب بشكل "Negative" اذا كانت صفراً تكتب بشكل "Zero" اذا كانت نصاً تكتب بشكل "Text" 2-النطاق الأخضر يقوم بضرب النطاق الأصفر بـــ 10 تنسيق الأخضر عادي "General" قم بتغيير القيم في النطاق الأصفر و انظر الى النتيجة كل هذا يحدث لان المعادلة تنظر الى محتوى الخلية وليس الى منظرها الخارجي Tansiq.xlsx

عمل ممتاز استادنا الجميل @kha9009lid بارك الله فيك وجزاك الله عنا كل خير فقط اضفت جزئية بسيطة وهي ربط رقم العقد حتي افصل الاصناف التابعة لكل عقد كل الشكر والتقدير استاذنا الجميل

جرب هذا الماكرو Option Explicit Sub my_sum_By_Chosen_Sheets() Dim s#, k%, t1%, t2% On Error GoTo Leave_me_Out t1 = Sheets(Sheets("mn").Range("a15").Value).Index t2 = Sheets(Sheets("mn").Range("b15").Value).Index For k = Application.Min(t1, t2) _ To Application.Max(t1, t2) s = s + IIf(IsNumeric(Sheets(k).Range(Sheets("mn").Range("C15"))), _ Sheets(k).Range(Sheets("mn").Range("C15")), 0) Next Sheets("mn").Range("d15") = s Exit Sub Leave_me_Out: MsgBox "Check Please the Addrees And The Sheet's Names" & Chr(10) & _ "In The Range(A15:C15)" End Sub الملف للمعاينة مرفق sum_from_multy_sheet.xlsm

وعليكم السلام و رحمة الله و بركاته تفضل اخي Database8.rar

تفضل

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

هذا ما أقوله لك يمكنك تجربة ملف كهذا -اسهل وأدق في التعامل من ملفات الجداول الجاهزة فقط يمكنك تغيير البنود والأصناف فهذا هو الأدق في عمل خروج ودخول الأصناف Stock.xlsm

ممكن توضحلى المشكلة بالضبط بالصور على الملف لأن صفحة Stock خاصة بك انت لم اقم بعمل اى حاجة بها فقط قمت بالعمل على صفحة In & Out كما أخبرتك

اتفضل شرح بسرعة - جرب اضافة ملفاتك الصوتية قبل فتح البرنامج الى المجلد المرفق باسم sound files يا عينى ع الدلع APP_Player.zip

يمكنك تحميل هذا البرنامج -هيساعدك في فك كلمة السر ان شاء الله Passware Passware Kit Forensic.v13.5.8557.x32-BRD تفضل هذا هو رابط البرنامج http://www.mediafire.com/file/dra8c3as8fb2dnf/Passware_Passware_Kit_Forensic.v13.5.8557.x32-BRD.rar/file

جرب هذا الماكرو Option Explicit Rem =====>> created by Salim Hasbaya 13/7/2019 Sub Get_Data_Please() '========================== Dim Source_Sh As Worksheet Dim Target_Sh As Worksheet Dim LRS%, LRT%, RG_S As Range, RG_T As Range Dim cel As Range, My_adrs As Range '========================== Set Source_Sh = Sheets("DATA") Set Target_Sh = Sheets("TAB") LRS = Source_Sh.Cells(Rows.Count, 2).End(3).Row LRT = Target_Sh.Cells(Rows.Count, 3).End(3).Row Set RG_S = Source_Sh.Range("b3:M" & LRS) Set RG_T = Target_Sh.Range("C4:E" & LRT) Target_Sh.Range("F4:H" & LRT).ClearContents On Error Resume Next For Each cel In RG_T On Error Resume Next Set My_adrs = RG_S.Find(cel, lookat:=1) On Error GoTo 0 If Not My_adrs Is Nothing Then cel.Offset(, 3) = Source_Sh.Cells(My_adrs.Row, 2) End If Next End Sub الملف مرفق ب جدول - Copy.xlsm

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

رائع أستاذ مجدى جزاك الله خير الثواب

أحسنت أستاذ مجدى أكرمك الله وزادك الله من فضله ورفع شأنك درجات وفرج عنك كربات يوم القيامة ووسع الله في رزقك برنامج جلب مواقيت الصلاة تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar *************** أعمال الأستاذ منير سعد دول وعواصم قارة اوربا - اسيا فيديو شرح كيفية استخدام برنامج دول وعواصم افريقيا برنامج دول وعواصم قارة اسيا دول وعواصم قارة اوربا - اسيا دول وعواصم اوربا - اسيا - امريكا الشمالية - امريكا الجنوبية عواصم العالم اختبار عواصم ودول العالم مع لعبة من سيربح المليون عواصم العالم نهائى

وعليكم السلام-بعد اذن الأستاذ محمد فؤاد لك ما طلبت بدون عمود مساعد حساب كميات الأسفلت لكل شهر.xlsx

بارك الله فيك وجزاك الله كل خير

ما شاء الله عليك فتح الله عليك وزادك من فضله

بارك الله فيك وجزاك الله كل خير

السلام عليكم أخي أبواحمد النت عندي تعبان ، فاسمح لي بسرعة اشارك انت محتاج جدول واحد فقط مثل ما قال أخوي ابوخليل : المسأئلة لها علاقة بالاستعلام الصحيح فقط ، وبتحديث النموذج (للمسئول Manager والموظف المسئول Clerk). الموظف: المسئول: الموظف المسئول: رجاء اعمل توقيت لتحديث نموذج (للمسئول Manager والموظف المسئول Clerk) ، كل خمس دقائق مثلا ، وسوف ترى النتائج :) جعفر 201.1.Electronic_Leaves.mdb.zip

عزيزي اباخليل ما رأيك بهذا المعيار بعمود التاريخ : >=DateAdd("d";1-Weekday(Date());Date()) And <DateAdd("d";8-Weekday(Date());Date()) فالعملية هي : احسب لي من الاحد الى الاحد ! اي هذا الاسبوع!! وما لنا شغل في الاسبوع والشهر والسنة !! تحياتي

جزيت خيرا تم ضم المشاركة الى الدروس المثبتة

مرفق المثال لحساب الفرق بين الاسابيع و أيضا بين تاريخين كفرق عادي سنين + شهور + أيام و كإجمالي لكل فترة علي حدة اي الفرق كشهور فقط أو أسابيع فقط أو ايام فقط أو سنين فقط ملاحظة : تم استخدام احدي دوال أبو هاجر ضمن الكود و موجودة فى موديول منفصل ضمن الكود Weeks_Diff.rar