رجب جاويش

أخى الفاضل / عصام كل عام وأنتم بخير وعذرا أخى لهذا السهو تفضل التعديل Sales1.rar

الله الله الله للإبداع فى هذا المنتدى عنوان واضح واسم محدد وهو الأستاذ / عبد الله باقشير حفظك الله وبارك فيك

تفضل أخى Sales1.rar

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

أستاذى الحبيب / عبد الله باقشير فكرة جميلة ورائعة وقد استغرق الأمر وقتا لاستيعاب كل جزء فى الكود وقمت بالتدريب على الفكرة بعمل فكرة مشابهة لكن عن طريق متغير من النوع variant كما فى الكود التالى Sub ragab() Dim test As Variant test = """عربى""" & "," & 30 & "," & 40 & ";" & """انجليزى""" & "," & 40 & "," & 50 & "" ghada_array = Evaluate("{" & test & "}") Range("A1").Resize(UBound(ghada_array, 1), UBound(ghada_array, 2)) = ghada_array End Sub وهو موضح فى المرفق ولكن لى طلب صغير أستاذى الحبيب حتى يتعمق الفهم وهو القاء المزيد من الضوء على دالة evaluate فى هذا الكود وأيضا وظيفتها عموما فى vba 3.rar

شكرا جزيلا أخى فضل وجزاك الله كل خير

أخى فضل السلام عليكم ورحمة الله وبركاته كل عام وأنتم بحير تفضل أخى ما تريد Sub ragab() Application.ScreenUpdating = False [H3:K100].ClearContents For i = 2 To Range("A" & Rows.Count).End(xlUp).Row cl = Trim(Cells(i, 1)) If cl = [H2] Then cll = Trim(Cells(i, 2)) x = UBound(Filter(Split(MyArr, ","), cll)) + 1 If x = 0 Then MyArr = MyArr & Trim(cll) & "," End If Next MyArr = Left(MyArr, Len(MyArr) - 1) ii = 3 For Each c In Split(MyArr, ",") Cells(ii, 8) = c ii = ii + 1 Next For y = 3 To 15 For t = 2 To 37 If Cells(t, 1) = [H2] And Cells(t, 2) = Cells(y, "H") Then Cells(y, "H").Offset(0, 1) = Cells(t, 3): Exit For End If Next Next For y = 3 To 15 For t = 2 To 37 If Cells(t, 1) = [H2] And Cells(t, 2) = Cells(y, "H") Then Cells(y, "H").Offset(0, 2) = Cells(t, 3) Cells(y, "H").Offset(0, 3) = (Cells(y, "H").Offset(0, 2).Value - Cells(y, "H").Offset(0, 1).Value) + 1 End If Next Next Application.ScreenUpdating = True End Sub استخراج اقسام المدرسة وارقام الجلوس لكل قسم .rar

أخى الحبيب / فضل أخى الحبيب / محمود شكرا جزيلا وجزاكم الله كل خير

أخى فضل السلام عليكم ورمة الله وبركاته تفضل أخى ما تريد وكل عام وأنتم بخير Sub ragab() For Each cl In [b2:b32] If [h6].Value = cl Then r1 = cl.Row If [i6].Value = cl Then r2 = cl.Row Next Range("G10").Value = WorksheetFunction.CountIf(Range("C" & r1 & ":C" & r2), "ناجح") Range("H10").Value = WorksheetFunction.CountIf(Range("C" & r1 & ":C" & r2), "دور ثان") Range("I10").Value = WorksheetFunction.CountIf(Range("C" & r1 & ":C" & r2), "راسب") End Sub New ورقة عمل Microsoft Excel.rar

أخى عصام تم التعديل ليتم تعديل جميع التكرارات بضغطة واحدة أرجو التجربة وابلاغى بالنتيجة Sales1.rar

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

أخى / عصام أعتذر منك جدا على تأخيرى عليك فى الرد تفضل طلبك أرجو التجربة وابلاغى بالنتيجة وأى تعديل أنا معاك ملحوظة : هناك ملحوظة صغيرة يجب الضغط على زر حفظ التغيرات بعدد مرات التكرار حتى يتم التعديل على كل المكرر وان شاء الله يتم التعديل فى أقرب وقت ليتم التعديل على كل المكرر بضغطة واحدة Sales1.rar

أخى الحبيب / عبد الله المجرب تقبل أرق وأجمل تحياتى هذا المنتدى يجعلنى أتعلم الجديد والجديد كل يوم فأنا لم أكن أعلم قبل ذلك عن وجود دالة iif فى vba وبعد البحث وجدت كل المعلومات الخاصة بها واسمحلى أن أشيد بشرحك الصحيح تماما فدالة iif تعتبر بديل عن جملة If...Then...Else وشكل الدالة يكون كالآتى IIf(Expression As Boolean,TruePart As Object,FalsePart As Object) As Object 1- الشرط 2- النتيجة فى حالة true 3- النتيجة فى حالة false مثال : عند استخدام if العادية If 10 > 9 Then MsgBox("True") Else MsgBox("False") End If أما عند استخدام iif يكون تركيبها كالاتى MsgBox(IIf(10 > 9, "True", "False")) أجمل وأرق تحية لكل من الأستاذ / عبد الله المجرب العالم الكبير / عبد الله باقشير اللذين نتعلم منهم الجديد والمفيد كل يوم وكل مشاركة لهم وكل عام وأنتم بخير

أخى الحبيب / عبد الله المجرب بالنسبة للدالة الشرطية ( if ) لماذا كتبت بحرفين ii هكذا ( iiF )

أستاذى الحبيب / عبد الله باقشير كود رائع وعبقرى كما هو متوقع دائما من عالمنا الجليل / عبد الله باقشير وأسمح لى أستاذى باستفسار صغير فى الجزئية الخاصة بالرسالة التالية MsgBox IIf(i, "عدد نتائج البحث : " & i, "لا توجد نتائج للبحث "), 524288 + 1048576, "النتيجة" أرجو توضيح هذه الجزئية الخاصة بالـ msgbox والتى تحتوى على رسالتين اذا كان المتغير i له قيمة تظهر الرسالة الأولى التى تحدد عدد نتائج البحث واذا كان المتغير i ليست له قيمة تظهر الرسالة الثانية التى توضح أنه لا توجد نتائج للبحث فأنا أريد شرح كيفية التنفيذ وخاصة الجزء iif الموجود قبل قوس الرسالة والأرقام 524288 + 1048576 وكل عام وأنتم بألف خير وسعادة

أخى الفاضل / amfouad555 جرب الكود التالى بس معلش كود طويل شوية المبيعات 2.rar

عند حق أخى عمرو فأنا لم أر هذا الشرط وهو ربط الصنفين معا وإن شاء الله سوف أقوم بتعديل الكود

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

أخى الحبيب محمود هذا هو الكود المطلوب أرجو أن يفى بالغرض لأخى / amfouad555 وأى تعديل عليه أخبرنى وأنا معك Sub Ghada_ragab() For i = 2 To 11 Dim ghada As Integer Select Case Cells(i, "H").Value Case 0.76 To 0.8: ghada = 500 Case 0.81 To 0.99: ghada = 800 Case 1: ghada = 1000 Case 1.01 To 1.2: ghada = 1200 Case 1.21 To 1.4: ghada = 1400 Case 1.41 To 1.6: ghada = 1600 Case 1.61 To 1.8: ghada = 1800 Case Is >= 1.81: ghada = 2000 Case Else: ghada = 0 End Select Cells(i, "I").Value = ghada Next End Sub المبيعات 2.rar

أجمل وأرق تحية لأخى الحبيب محمود على تفانيه فى مساعدة الغير بدون كلل أو ملل قضى الله حاجتك فى الدنيا والآخرة كما ساهمت فى قضاء حوائج إخوانك

أخى الحبيب / أبو أنس حاجب جرب هذه الفكرة عند اضافة عميل الى التصفية طبعا يتم ذلك من خلال الكمبوبوكس لكن عندما تريد حذف عميل من التصفية لابد أن يتم ذلك من العمود الأول ( A ) وليس من الكمبوبوكس بهذه الطريقة سوف يعمل الكود بطريقة صحيحة والسبب فى ذلك أنه عند حذف العميل من الكمبوبوكس يترك مكانه فارغا دون أن يتم تحديث المدى الديناميكى الخاص بمدى المعيار criteria2 هذا الفراغ هو الذى يتسبب فى المشكلة وبالتالى نتغلب على المشكلة بحذف العميل من العمود الاول لكى يتم تحديث المدى الديناميكى للمعيار criteria2 عذرا للأطالة أخى هذا ما توصلت له ولعل أحد الأساتذه الكبار يتوصل الى حل أفضل ملحوظة : مرفق فيديو صغير يوضح فكرة الحل test8.rar

تفضل أخى FORM.rar

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

أخى وأستاذى الفاضل / عبد الله المجرب شكرا جزيلا على هذا المرور العطر والكلمات الطيبة