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

اكتب كلمة ptrsafe قبل كلمة function وكررها في كل المستند

=SUMPRODUCT(--($G$10:$P$24=C10))

بعد اذن اخي علي ليس هناك من حاجة لهذا المسلسل من IF رجاء ملاحظة الملف التالي mosalsal.xlsx

تفضل بعد اذن الأستاذ عبدالله الرقم المسلسل.xlsx

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

اخوي خالد اعطاك كود طويل ، خليني اعطيك كود اقصر 🙂 =[n1] & [n2] & [n3] & [n4] & [n5] & [n6] اذن يصبح الكود اعلاه: ="0" & [n1] & [n2] & [n3] & [n4] & [n5] & [n6] & "0" جعفر

بارك الله فيك تمت التجربه ونجحت لك جزيل الشكر

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

لا حاجة لعدد من الزرار يساوي عدد الشيتات الكود Option Explicit Sub get_Eleves_Names(ByVal my_SHEET As String) Rem ====>>>> Created By Salim Hasbaya On 27/6/2019 '================================ Dim y%, SH As Worksheet Dim ss%: ss = 0 For y = 1 To Sheets.Count If Sheets(y).Name Like "*#*" Then ss = ss + 1 End If Next '============================ Dim m As Worksheet: Set m = Sheets("Main") Dim Fst As Worksheet: Set Fst = Sheets(my_SHEET) Dim Ar(4), Ar_Fasl(1 To 9) Dim t: t = Sheets(my_SHEET).Index Dim lrA%: lrA = m.Cells(Rows.Count, "A").End(3).Row Dim lrF%: lrF = m.Cells(Rows.Count, "F").End(3).Row Dim mal$: mal = "ذكر" Dim fem$: fem = "انثى" Dim i% Dim Start_row_B%: Start_row_B = 10 Dim Start_row_H%: Start_row_H = 10 Fst.Range("b10").Resize(500, 11).ClearContents With m For i = 2 To lrA Ar(0) = .Cells(i, "H"): Ar(1) = "" Ar(2) = .Cells(i, "G"): Ar(3) = .Cells(i, "A") Ar(4) = .Cells(i, "C") If .Range("B" & i) = mal Then Fst.Cells(Start_row_B, "B").Resize(, UBound(Ar) + 1) = Ar Start_row_B = Start_row_B + 1 ElseIf .Range("B" & i) = fem Then Fst.Cells(Start_row_H, "H").Resize(, UBound(Ar) + 1) = Ar Start_row_H = Start_row_H + 1 End If Next For i = 4 To 12 Ar_Fasl(i - 3) = CStr(Fst.Cells(5, i)) Next Fst.Range("c10").Resize(Start_row_B - 10) = _ Application.Transpose(Ar_Fasl(t - 1)) Fst.Range("I10").Resize(Start_row_H - 10) = _ Application.Transpose(Ar_Fasl(t - 1)) Fst.Range("K1") = ss End With Set m = Nothing: Set Fst = Nothing Erase Ar: Erase Ar_Fasl End Sub '================================================== Sub EXTACCT_NAME() Dim Impt Dim x% Impt = InputBox("Please Give_me the sheet's name to transfer data" & _ Chr(10) & "Write the sheet's name Without Cotes") If Impt = "Main" Then MsgBox "I can't Change the values of Principal Sheet" Exit Sub End If On Error Resume Next x = Len(Sheets(Impt).Name) If x = 0 Then On Error GoTo 0 MsgBox "The Sheet: " & Impt & " Not Existes" Exit Sub End If Call get_Eleves_Names(Impt) End Sub يكفي زر واحد و الماكرو يطلب منك اسم الشيت التي تريد الترحيل اليها مثل هذه الصورة(كتابة اسم الشيت بدون الأقواس) الملف مرفق للمعاينة وابداء الرأي Mes_Eleves_new.xlsm

وعليكم السلام-اهلا بك فى المنتدى تفضل مخازن12.xlsm

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

السلام عليكم لست أدري أن كان هذا ما تريد أم لا وعلي كل جرب هذا ووافنا بالنتائج Photo2.rar

تطوير بسيط على الكود ليكون بشكل أسرع بكثير معتمداً على الفلتر وليس الحلقات التكرارية المملة والمرهقة للبرنامج و اضافة الى ذلك ترقيم تلقائي للطلاب Option Explicit Sub get_Eleves_Names(ByVal my_SHEET As String) Rem ====>>>> Created By Salim Hasbaya On 27/6/2019 Application.ScreenUpdating = False '================================ Dim SH As Worksheet Dim ss% For Each SH In Sheets If SH.Name Like "*#*" Then ss = ss + 1 End If Next Set SH = Nothing '============================ Dim m As Worksheet: Set m = Sheets("Main") Dim But_Sheet As Worksheet: Set But_Sheet = Sheets(my_SHEET) But_Sheet.Range("K1") = ss: ss = 0 Dim Ar(4), Ar_Fasl(1 To 9) Dim t: t = Sheets(my_SHEET).Index Dim Start_row_B%: Dim Start_row_H% Dim mal$: mal = "ذكر" Dim fem$: fem = "انثى" Dim i% But_Sheet.Range("B10").Resize(500, 5).ClearContents But_Sheet.Range("H10").Resize(500, 5).ClearContents '======================================= Dim Filtred_rg As Range: Set Filtred_rg = m.Range("a1").CurrentRegion Dim FinaL_row%: FinaL_row = Filtred_rg.Rows.Count For i = 4 To 12 Ar_Fasl(i - 3) = CStr(But_Sheet.Cells(5, i)) Next With Filtred_rg .AutoFilter 2, mal .Columns(8).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("B10") .Columns(7).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("d10") .Columns(1).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("e10") .Columns(3).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("f10") End With '======================================= With Filtred_rg .AutoFilter 2, fem .Columns(8).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("h10") .Columns(7).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("j10") .Columns(1).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(12).Copy But_Sheet.Range("k10") .Columns(3).Offset(1).Resize(FinaL_row - 1, 1) _ .SpecialCells(xlCellTypeVisible).Copy But_Sheet.Range("L10") End With Start_row_B = But_Sheet.Cells(Rows.Count, "B").End(3).Row Start_row_H = But_Sheet.Cells(Rows.Count, "H").End(3).Row But_Sheet.Range("c10").Resize(Start_row_B - 9) = _ Application.Transpose(Ar_Fasl(t - 1)) But_Sheet.Range("i10").Resize(Start_row_H - 9) = _ Application.Transpose(Ar_Fasl(t - 1)) But_Sheet.Columns("A:L").AutoFit '================================ If Sheets("Main").FilterMode Then _ Sheets("Main").ShowAllData: Filtred_rg.AutoFilter Set m = Nothing: Set But_Sheet = Nothing Erase Ar: Erase Ar_Fasl Application.ScreenUpdating = True End Sub '================================================== Sub EXTACCT_NAME() Dim Impt Dim x% Impt = InputBox("Please Give_me the sheet's name to transfer data" & _ Chr(10) & "Write the sheet's name Without Cotes") If UCase(Impt) = "MAIN" Then MsgBox "I can't Change the values of Principal Sheet" Exit Sub End If On Error Resume Next x = Len(Sheets(Impt).Name) If x = 0 Then On Error GoTo 0 MsgBox "The Sheet: " & Impt & " Not Existes" Exit Sub End If Call get_Eleves_Names(Impt) End Sub الملف من جديد Mes_Eleves_Super.xlsm

شوف اذا هذا صحيح 🙂 للأسف ، الكلمات العربية قلبت الكود ، فما ممكن نقرأه بالطريقة الصحيحة !! . . جعفر 1105.Database2 - Copy.accdb.zip

وعليكم السلام 🙂 يا ريت تخبرنا كيف تم الحل ، علشان يستفيد منها بقية الاعضاء 🙂 جعفر

اضف حقل غير منضم وفي مصدر البيانات ضع التعبير التالي n تساوي اسم الحقل ورتب الحقول حسب رغبتك في ظهور النتيجة =[n1] & "" & [n2] & "" & [n3] & "" & [n4] & "" & [n5] & "" & [n6] اوضع مثال ليتم تعديله

جرب هذا الملف My_search.xlsm

عدل اسم الملف فى الكود وملف الاكسيل ليكون : Sheet.xlsx

نعم ، الكل سيحصل على نفس الرقم المكرر ، ولتلافي هذا ، يجب حفظ السجل بعد عملية اخذ الرقم التالي مباشرة ، مثلا: me.ID=Nz(DMax("[id]";"monsrf";"Month([c_date])=Month(date())"))+1 docmd.runcommand accmdsaverecord . بهذه الطريقة ، سيكون هناك فاصل زمني بين نقر زر كل مستخدم ، حتى ولو بجزء من الثانية ، والبرنامج تلقائيا سيعطي الارقام بدون تكرار 🙂 جعفر

ابداع استاذ علي Ali Mohamed Ali بارك الله فيك وفي استاذنا استاذ أكواد الترحيل الاستاذ سليم حاصبيا وجعله الله في موازين حسناتكم استاذ سليم حاصبيا جزاك الله خيراً وبارك الله لك وجعله الله في ميزان حسناتك ودائماً مبدع ويعجز اللسان عن الشكر بارك الله فيك

استاذى kha9009lid تسلم ايدك كانت تايهة عنى اتى اجعل حقل رقم الايصال مساوى لمربع النص الغير منضم خالص الشكر

مشاركة بسيطة مني عسى تنفع..لكن لم اعتمد النص الغير منظم وانما نفس الحقل القديم HANY_OK(1).accdb عذرا ...لم انتبه لمشاركة الاستاذ جعفر

جرب المرفق بدون اجراء اي تعديل فقط اسندت قيمة الايصال في الجدول للحقل الغير منظم في النموذج HANY_OK.accdb

السلام عليكم توصلت بهذا الحل وتعميما للفائدة أتقاسمه معكم: Option Explicit Dim tablo, tabloR() Dim i&, iR&, j& Sub SupprimerLesVides() tablo = Range("X10:AP48") ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2)) For j = 1 To UBound(tablo, 2) If j <> 5 And j <> 10 And j <> 15 Then iR = 1 For i = 1 To UBound(tablo, 1) If tablo(i, j) <> "" Then tabloR(iR, j) = tablo(i, j) iR = iR + 1 End If Next i End If Next j Range("X10:AP48").ClearContents Range("X10").Resize(UBound(tabloR, 1), UBound(tabloR, 2)) = tabloR End Sub

يمكن عمل Recordset بإستعمال اي من المكتبتين ADO او DAO ، ولكنك هنا استعملت مكتبة DAO 🙂 جعفر

ارفع صورة للخطأ

تصحيح المعادلة كي لا يفلت اي رقم =INT(A1)+INT((MOD(A1,1)+0.01)*100)/100

في هذا الملف يوجد ما طلبته بالضبط حول الرقام 2.4841 >>>>> 2.49 25.36457 >>>>> 25.37 87.324 >>>>> 87.33 24.6359 >>>>> 24.64 85.5635 >>>>> 58.56 المعادلة =ROUND(A1,2)+IF(MID(ROUND(A1,2),FIND(".",A1)+1,2)+0<50,0.01,0) CREASY_ROUND.xlsx

السلام عليكم تفضل Bookf.xls

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

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

صديقي هشام هذه فكرة رائعة لتغيير المنظر الخارجي للخلية فقط وليس قيمتها (المنظر الخارجي 2.67 لكن قيمتها بقيت 2.666666) القيمة الحقيقية يمكن ان تراها (بعد تحديد الخلية) في Formula Bar لتأكيد ذلك اكتب هذه المعادلة في اي مكان و اسحب نزولاً ثم انظر الى النتيجة =D5*1000 2666.666 / 2555.555 وهكذا و ليس 2670 / 2560 (بمعنى اخر اي عملية حسابية على الخلية ،اكسل يعتبرها 2.66666) لان المعادلة تنظر الى محتوى الخلية وليس الى منظرها الخارجي (التنسيبق) هناك طريقة اخرى لتطبيق فكرتك (بيقى ذلك ضمن التنسيق وليس تغيير القيمة)

العفو أخي الكريم وإن كنت ليس بأستاذ في هذا المجال فقط مهتم إليك كيفية ذلك بالفيديو رقمين وراء الفاصلة.rar

الملف مع المعادلة celing_fuction.xls

لنفرض ان الرقم عندك في الخلية A1 اكتب هذه المعادلة (للتقريب الى الاعلى) =IF(ISNUMBER(A1),CEILING(A1,0.05),"") و هذه المعادلة (للتقريب للاسفل) =IF(ISNUMBER(A1),FLOOR(A1,0.05),"")

pdf النسخة التي لديك لا يدعم اللغة العربية والسلام

كل عام وانت بخير وصحه وعافيه وكل افراد الاسره يالغالي

الله عليك يابشمهندس الله لقد عمل تمام معي طمني عن صحتك بعد رجوعك من المستشفي .اللهم بحق هذه الايام المباركة الكريمة ان يعفو عنك وان يتم عليك الصحة والعافية باذن الله العجيب يااخي انك عرفت اني حولت الملف يدويا بالتحايل كيف عرفت؟ اريد ان اهمس في اذنك باني اتحمل ما يجري لي لاني(لم اسمع نصيحتك في مشاركة قراءة النصوص العربيية ) وقمنا بالنطق من جوجل علي اي حال سوف ابحث عن برنامج للتحويل من mp3 الي wav بارك الله فيك وفي صحتك وفي عائلتك وكل الاحترام والتقدير

الكود ده حتى يعمل لابد ان تكون صيغ الملفات صوتــــية المستــخدمة wav ولان يا دكتور حضرتك بتستخدم ملف صوتى صيغته mp3 وانت حاولت التحايل وقمت بإعادة تسمية لـ wav. يدويا لذلك لن يعمل معك لابد من استخدام برنامج ليحول لك صيغة mp3 الى صيغة wav انا حولتهولك جرب فقط استبدال هذا الملف بدلا من الاصلى عندك وسيعمل ان شاء الله B1.rar

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

وعليكم السلام ورحمة الله وبركاته أخي الحبيب محمد "أبو جودي" المحترم جزاكم الله خيراً على هذا العمل الرفيع الذي أرجو الله تعالى أن يجعله بميزان حسناتكم أسأل الله العظيم ربّ العرش العظيم أن يشفيك شفاء لا يغادر سقماً اللهم اشف أنت الشافي لا شفاء إلا شفاؤك شفاء لا يغادر سقماً والسلام عليكم ورحمة الله وبركاته

بسم الله عليك وما تشوف شر ان شاء الله 🙂 وان شاء الله، الله يدفع عنك البلاء بهذه الصدقة التي تصدقت بها للجميع 🙂 جعفر

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

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

اساتذتى الاعزاء طبيعه عملى هى محاسب -مراجع لعده اماكن 10 محلات للملابس الجاهزه +شركه لاستيراد الملابس الجاهزه ايضا +شركه لتوزيع المواد الغذائيه وكنت استخدمت الاكسيل فى البدايه ولكن بفضل دعائكم ازداد حجم اغلب تلك الوحدات التى اقوم باداره حساباتها تقريبا -ونظرا لان معظم مالكى تلك الوحدات يعتمدون على وظيفه المحاسب ليس فقط لمراجعه حساباتهم والارشاد للطرق الافضل فقط ولكن كمركز للبيانات والمعلومات فقد من الممكن ان يتصل بى احدهم ليسأل عن معلومه او حساب من 3سنوات سابقه فبحثت على النت عن وسائل افضل من الاكسيل ووجدت الاكسيس ولكن عرفت بعد ذلك انه لا يسع لاكثر من 2G فقط وانا اريد ان اخصص لكل منهم قاعده بياناته الخاص وهنا تتجسم المشكله فى شركتى استيراد الملابس الجاهزه وتوزيع المواد الغذائيه فحجم البيانات بهم اكثر من الطبيعى فبيانات شركه الاستيراد تعدت ال 2Gفى خلال عام واحد فقط وفى دخول العام الجديد اردت حلا جديدا فما هو اعزائى وكيف يمكن استخدامه خاصه وانى احمل الملفات على هارد usb ولا اريد حفظها على جهاز معين خوفا من عبث اى احد قد لا يدرى ماذا يفعل مما يترتب عليه فقدان البيانات او حدوث اخطاء بها فهل يوجد ما يشبه الاكسيس ولكن يوفر ميزه المساحه الاكبر ويمكن وضعه معى على الهارد المتنقل بحيث يمكن ان افتح ملفاتى من اى جهاز دون التقيد فقد اكون فى مكان ما ويتصل بى احد الاماكن الاخرى للاستفسار عن شىء حيث اتفاقى معهم انى غير مقيد بساعات عمل بشرط حصولهم على اى معلومه بشكل فورى فى اى وقت (ملحوظه انا لا املك لاب توب ) وانما اعمل من خلال اجهزتهم او الجهاز خاصتى فى المنزل

اسمحلى استاذ محمد ترتيب الاوائل غير ذلك بمعنى الاعلى فى الدرجات الاول ثم الذى يليه فى الدرجات الثانى وهكذا ولكن ماذا لو تساوت الدرجات يكتب الاول والاول مكرر او الثانى والثانى مكرر وهكذا

تفضل انظر المرفق db1.rar

السلام عليكم هناك حلقات مفقودة هى اذا كانت الخلية a4 فاضية و b4 ......( أكمل ) اذا كانت الخلية b4 فاضية و a4 ......( أكمل ) إذا كانت a4 و b4 كلاهما غير فارغ حتى تضبط المعادلة و جرب هذه المعادلة مؤقتا =IF(AND(A4="";B4="");"غائب";IF(A4="";"لم يتم تسجيل الدخول";IF(B4="";"لم يتم تسجيل الخروج";"")))