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

هذه اداة لعمل خطوط رسم البيانى والموسيقى والانجليزى فى الورقة Graph Paper Printerعمل رسم بيانى.rar

السلام عليكم كلا العبارتين تعملان .. والنتيجة نفسها من فترة هممت ان ابحث عن الفرق أو عن الأصح منهما .. سأبدأ البحث في منتدانا .. ابحث في علم الخبراء هنا

اختيار من متعدد بطريقة جديده multiselectform.accdb

استاذي @ابوخليل نعم في الاستعلامات يعملان أما في محرر الأكواد (If Not IsNull(DLookup("", "", "")) Then) فقط تعمل .

سؤالك جميل للغاية ..سيجعلني اعيد دراسة المصفوفات (Matrix) من جديد ..بعد انقطاع 36 سنة لكن احب ان اعرف ..لماذا تحتاج لهذا ؟ هل يمكنك ان تعطينا مثالا عمليا للحاجة لمثل تلك العملية الحسابية انا شغوف لمعرفة ذلك ..

بارك الله فيك أداة رائعة ومجانية وهذا إصدار 4.03 وإليكم الإصدار الأحدث 4.21 بالتوفيق

تم تصحيح كود التعديل فقط بعد تعديل اسماء التكست بوكس على ما اظن ان النسخة الاحدث منى 4 قد تم تعديل وتصحيح الاكواد بها .استغرب لما تقوم بحدف التعديلات دائما واعادة رفع نفس الملفات Dim SH As Worksheet: Set SH = ActiveSheet Dim X As Long Application.ScreenUpdating = False If Me.TextBox1.Value = Empty Then: Exit Sub X = Application.Match(Val(TextBox1.Value), SH.Columns("C"), 0) If Not IsError(X) Then For i = 1 To 35 SH.Cells(X, i + 2).Value = Controls("TextBox" & i).Value SH.Cells(X, i + 2).Value = SH.Cells(X, i + 2).Value Next i End If For R = 1 To 35 Me("Textbox" & R) = "" Next R Me.Recherche = "" SH.Range("C11").Value = 1 SH.Range("C11:C" & Range("E" & Rows.Count).End(xlUp).row).DataSeries , xlDataSeriesLinear مني 3.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته المشكلة ليست في الحل اخي سعد طلبك ليس بالسهل يجب ان تعلم ان عكس اظهار البيانات على الليست بوكس يتطلب تعديل اكواد الترحيل والتعديل والحذف ...وهدا يلزمه بعض الوقت . Dim Col(), WSData, Largeur(), MyRng, ligne, F, ColSearch(), J Private Sub UserForm_Initialize() Dim A, B, C, D ' اسماء الجداول A = [Tableau1]: B = [Tableau2]: C = [Tableau3]: D = [Tableau4] ' التعامل مع ورقة العمل النشطة Set WSData = ActiveSheet ' نطاق البيانات Set MyRng = WSData.Range("C10:M" & WSData.[C65000].End(xlUp).Row) F = WSData.Range("C10:M" & WSData.[C65000].End(xlUp).Row).Value ' ترتيب الاعمدة الظاهرة على الليست بوكس Col = Array(11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1) ' عرض الاعمدة Largeur = Array(60, 50, 60, 80, 65, 75, 75, 80, 170, 50, 15) Me.ListBox2.ColumnCount = UBound(Col) + 1 Me.ListBox2.ColumnWidths = Join(Largeur, ";") ' اظهار البيانات على الليست بوكس On Error Resume Next Me.ListBox2.List = Application.Index(MyRng, Evaluate("Row(1:" & MyRng.Rows.Count & ")"), Col) On Error GoTo 0 'اعمدة خاصة بفلترة الليست بوكس ColSearch = Array(11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1) ' تم تحديد عمود اسم الطالب (يمكنك تعديله) J = UBound(ColSearch) + 1 'عناوين الليست بوكس Transférer Me.ListBox1.Visible = False Me.Show_file.Caption = "إظهار ملف العمل" ' رقم الصف ligne = WSData.[C65000].End(xlUp).Row + 1 Me.N_Row = ligne ' عدد الصفوف على الجداول NbLigne = [Tableau1].Rows.Count + [Tableau2].Rows.Count + [Tableau3].Rows.Count + [Tableau4].Rows.Count If Me.ComboBox1.Value = Empty Then Counter.Caption = "المجموع" & " / " & NbLigne Else Counter.Caption = Me.ComboBox1.Text & " / " & ListBox2.ListCount + 0 End Sub '******************************* Sub Transférer() On Error Resume Next i = 0 For Each C In Col i = i + 1 Me("MH" & i).Caption = MyRng.Offset(-1).Item(1, C) Next End '****************************** Sub Search() students_name = "*" & Me.TextBox12 & "*" Dim Tbl(): n = 0 For i = 1 To UBound(F) If F(i, 3) Like students_name Then ' فلترة باسم الطالب n = n + 1: ReDim Preserve Tbl(1 To J, 1 To n) C = 0 For Each k In ColSearch C = C + 1: Tbl(C, n) = F(i, k) Next k End If Next i If n > 0 Then Me.ListBox2.Column = Tbl Else Me.ListBox2.Clear End Sub محمد_3.xlsm

وعليكم السلام . كان لابد من رفع ملف للتوضيح ولكن يمكنك استخدام هذه المعادلة =IF(A1<=21000,0, IF(A1<=30000,(A1-21000)*2.5%, IF(A1<=45000,(A1-30000)*10%+225, IF(A1<=60000,(A1-45000)*15%+225+1500, IF(A1<=200000,(A1-60000)*20%+225+1500+2250, IF(A1<=400000,(A1-200000)*22.5%+225+1500+2250+28000, IF(A1<=600000,(A1-400000)*25%+225+1500+2250+28000+45000, IF(AND(A1>600000,A1<=1200000),(A1-400000)*25%+225+1500+2250+28000+45000+IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025}),0), IF(A1>1200000,((A1-1200000)*27.5%)+300000,0) ))))))))

هل تصوري لمطلوبك صحيح ؟؟؟؟؟

السلام عليكم اللي بعرفه ان IS NOT NULL تستخدم في لغة الاستعلام NOT IS NULL تستخدم في لغة البرمجة تحياتي

شكرا على الطريقة الجديدة

وعليكم السلام -تفضل بما انك لم تقم برفع ملف فسيتم الرد بهذا الفيديو فبه طلبك وشكراً

السلام عليكم ورحمة الله إذا كانت القيمة المراد تقريبها موجودة في الخلية A2 (مثلا) فيمكن استعمال المعادلة التالية (في أي خلية أخرى): =IF(MOD(A2;100)<=50;100*INT(A2/100);100*(INT(A2/100)+1)) أو =IF(MOD(A2,100)<=50,100*INT(A2/100),100*(INT(A2/100)+1)) والله أعلم

اعتذاي لك وها هو الملف . test-2.rar

بارك الله فيك

تفضل أخي ووافني بالرد . test-1.rar

تفضل أخي محاولتي . DD401Test.rar

وعليكم السلام أهلا وسهلاً بك بالمنتدى , كان لابد من رفع ملف لتوضيح المطلوب بكل دقة وتجنباً لإهدار وقت كل من يود مساعدتك .. ولكن عموماً بإفتراض ان الرقم المراد تقسيمه الى سنوات وشهور وأيام موجود بالخلية A2 فستكون المعادلات كالتالى =INT(A2/360) 'الشهور =INT(MOD(A2,360)/30) 'الأيام =MOD(A2,30)

لا أدري لماذا لم توجد صراحة حالة كون الرقم 50 على العموم للتقريب لأقرب 100 يمكنك استعمال هذه المعادلة =mround(a2,100) على افتراض أن العدد المراد تقريبه في الخلية A2 ويمكن تغيير التقريب إلى أي رقم حتى لو رقم عشري بالتوفيق

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

بعد اذن الأخوة المشاركين في الوصول للحل المطلوب محالف للمرفق أعتقد المطلوب البحث في جدول 2 عن الرقم القومي الموجود في جدول 1 وكتابة المرتب من العمود L إلى العمود E في نفس الشيت الأول وإذا كان هذا المطلوب فعلا فيكطم استخدام معادلة بحث عادية vlookup أبسطها =IFERROR(VLOOKUP(B3,$I$3:$L$15,4,0),0) بالتوفيق البحث.xlsx

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