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

=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

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

كنوع من رد الجميل لهذا المنتدى الرائع والقائمين عليه اقدم هذا البرنامج هدية مجانية لعل وعسى يستفيد منه أحد الرقم السري لفك الضغط 12345 شرح سريع للبرنامج دعواتكم لوالدي بالرحمة والمغفرة برنامج تحصيل الايجارات من الشقق - الاصدار الاول.rar

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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير وملهمى و والدى الحبيب الاستاذ @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

تم التعديل على الملف كما تريد ان تظهر الارقام يرجى اعادة التحميل

الحمدلله انك توصلت لما تريد إذا نتمنى لك التوفيق أخ محمد

عسى ان ينال الاعجاب هذا الملف Rakm_Dirassi.xls

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

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

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

اجابة حلوة من عندك رحمة الله والديك / اشتغل طبيعي : اشكرك

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

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

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

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

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

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

وعليكم السلام 🙂 هذه المعلومة محتاجة الى خبير اوراكل ، وانا لست منهم 🙂 بحثت في الانترنت وحصلت على الكثير من الروابط ، واخترت لك هذه: https://www.oracle.com/technetwork/database/migration/access-084991.html https://stackoverflow.com/questions/5020991/what-would-be-the-best-method-to-migrate-oracle-database-to-ms-access-using-java جعفر

وعليكم السلام 🙂 بما انك لم تعطنا معلومات كافية ، فاليك الطريقة ، وانت قم بالباقي: 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

أنا لم أفهم وجود زر امام كل صورة ذهب ذهني نسخ كل صورة لوحدها إلى مجلد (4 12 ) من مجلد ( 3 12 ) فوجدت برنامج قديم لدي يؤدي نفس الغرض الذي طلبت فوضعت لك الكود مع تغير بعض الشي حتى يتناسب مع الصور بالاسماء أنت تريد نقل كل الصور جميعا دفعة واحدة إذا ما اهمية الأزرار أمام كل صورة لماذا كل صورة أمامها زر ؟ وضعت لك زر في الأعلى لنقل المجلد (3 12 ) كامل إلى المجلد ( 4 12 ) أتمنى أن يكون هذا يسهل عليك بعض الأمر لم أراجع كثيرا فقم بالمراجعة والله ولي التوفيق Worker.mdb

جرب هذا الماكرو 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

اتفضل شرح بسرعة - جرب اضافة ملفاتك الصوتية قبل فتح البرنامج الى المجلد المرفق باسم 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

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

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

وعليكم السلام-بعد اذن الأستاذ محمد فؤاد لك ما طلبت بدون عمود مساعد حساب كميات الأسفلت لكل شهر.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