الـعيدروس

السلام عليكم ارشيف العهد الاعمدة الرقمية Amount و VAT و Total Amount صحيح و Invoice # وهذا هل تكتبه بشكل يدوي ام توليد ارقام بخصوص كشف الحساب ماهي اعمدة الشرط واي اعمدة التي تريد عرض بياناتها بكشف الحساب هذي الجزئية وضحها وان شاء الله خير

السلام عليكم جرب هذا التعديل 2009(3).xlsm

هذه بيانات الطالب

نفس الكود انا بملفي فقط حطيت تجاوز الحقلين التي بتكتب عليهم الارقام لاجل لايعتمدو ضمن الحلقة التكرارية Private Sub CommandButton1_Click() Dim i As Integer Dim x As Integer Dim z As Integer Dim Tx As Control x = CInt(TextBox1.Text) z = CInt(TextBox2.Text) For i = x To z If TypeOf Me.Controls(i) Is MSForms.TextBox Then Me.Controls(i + 2).Text = i End If Next i End Sub او كالتالي عداد خاص للترميز للحقول البقية Private Sub CommandButton1_Click() Dim i As Integer Dim x As Integer Dim z As Integer Dim C Dim Tx As Control x = CInt(TextBox1.Text) z = CInt(TextBox2.Text) C = 3 For i = x To z If TypeOf Me.Controls(C) Is MSForms.TextBox Then Me.Controls(C).Text = i C = C + 1 End If Next i End Sub

جرب المرفق تجربه.xlsm

يعتمد على الرقمين التي تحطها في الحقلين TextBox1 و TextBox2 اذا اكثر من الحقول الموجودة بيعطيك خطأ طبيعي

السلام عليكم اظن كالتالي Private Sub CommandButton1_Click() Dim i As Integer Dim x As Integer Dim z As Integer x = CInt(TextBox1.Text) z = CInt(TextBox2.Text) For i = x To z If TypeOf Me.Controls(i) Is MSForms.TextBox Then Me.Controls(i).Text = i End Select End If Next End Sub

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

روابط اليوتيوب يظهر الفيديو خاص غير متاح

السلام عليكم اسعد مساك اخي سعد عابد كيف صحتك ان شاء الله تكون بصحة وسلامه بالامكان عبر هذه المعادلة المعرفة Function Ali_Sp(D) Dim A Dim i, x, E A = Sheets("الاسعار").Range("B6:D500").Value For i = LBound(A, 1) To UBound(A, 1) If A(i, 2) = D Then E = A(i, 3) E = Split(A(i, 3), "-") x = UBound(E) Ali_Sp = E(x) Exit For End If Next i End Function او عبر هذا الكود Sub Ali_S() Dim A Dim x, i, E, R A = Sheets("الاسعار").Range("B6:D500").Value For i = LBound(A, 1) To UBound(A, 1) For R = 5 To Cells(Rows.Count, "B").End(xlUp).Row If A(i, 2) = Cells(R, "B") Then E = A(i, 3): E = Split(A(i, 3), "-") x = UBound(E): Cells(R, "C") = E(x) End If Next R Next i End Sub

جربت من عندي لامشكلة احتمال في اشكاليه في ملفك الاصلي لمدى البحث او ماشابه عموما حسب ضني استبدل هذا الكود بالموجود في ملفك الاصلي Public Sub Fltr() Dim Sh As Worksheet With My_Rnge Set Sh = Sheets("Sheet1") For Each R In Sh.Range("a4:a" & Split(Sh.UsedRange.Address, "$")(4)) If R <> "" Then If My_Rnge Is Nothing Then Set My_Rnge = R Else Set My_Rnge = Union(My_Rnge, R) End If End If Next End With Filtr_My "" End Sub

السلام عليكم بارك الله فيك استاذ سليم استخدام رائع للـ Regex بالامكان نستخدم كودك الرائع كمعادلة Function SPLIT_ME(c, Optional pttrn As String = "\D+-\d+-\d+\s+?\d+:\d+") With CreateObject("VBscript.RegExp") .Pattern = pttrn: SPLIT_ME = .Execute(c.Value)(0) End With End Function تقبل تحياتي وشكري

السلام عليكم وبالامكان الاستعانه بدالة معرفة كالتالي Function Ali_Splt(F, Optional S As String = " ") Dim x, c x = Split(Mid(F, 7, Len(F)), S) For i = LBound(x) To UBound(x) If i <= 1 Then c = c & S & x(i) Next i If Len(F) > 0 Then Ali_Splt = c End Function

السلام عليكم جرب المرفق هل هذا ماتريد 2009 2.xlsm

وعليكم السلام ورحمة الله وبركاتة شاهد التعديل فقط على اي حدث تستدعي فيه الـ ListBox 2009.xlsm

اخي ابو عيد سبق وان جربت هذه الطريقة اولا تفتح الواتس من جوالك وتتركه مفتوح عند البدء بتطبيق الكود ثانيا تسجيل الدخول على واتس الويب https://web.whatsapp.com/ عبر المتصفح وتقراء الباركود من جوالك "واتس ويب" لاعتماد دخول الواتس من نفس الجهاز وتسجيل الاسماء او الارقام في القائمة اذا سجلت اسماء ضروري تسجل نفس الاسم المسجل في جوالك يقوم الكود بفتح رابط الواتس عبر المتصفح والبحث عن الاسم او الرقم ويرجع ينسخ الرسالة ويحطها بمربع كتابة الرسائل وينقر ارسال وهكذا يكرر العملية اذا سجلت اكثر من اسم

السلام عليكم تفضل بعد اختيار نوع الفاتورة من ComboBox انقر دبل كليك على النتيجة في ListBox فاتورة3 .xlsm

السلام عليكم جرب المرفق المكملون مع الدرجة Ali_1.xlsm

السلام عليكم لو تلاحظ يااستاذ بن عليه عند الاستعلام عبر Debug.print تظهر نتائج StrReverse الكلمات صحيحة الا بعض احرف مثل الـ ي و لـ لا تظهر بعلامة ؟ فقط

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

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

السلام عليكم تفضل جرب المرفق امل ان به ماتريد المخالفات1.xlsm

انا لله وانا اليه راجعون عظم اجركم واحسن عزاكم الله يرحمه ويسكنه فسيح جناته

السلام عليكم جرب المرفق Ali_2تعديل فورم.xlsm

السلام عليكم تفضل فاتورة1.xlsm