-
Posts
833 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
5
محي الدين ابو البشر last won the day on مايو 14
محي الدين ابو البشر had the most liked content!
السمعه بالموقع
739 Excellentعن العضو محي الدين ابو البشر

البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
ENG
اخر الزوار
-
اريد كود تصفية كلمة من عبارة في الخلية
محي الدين ابو البشر replied to aburajai's topic in منتدى الاكسيل Excel
xlsاوفسينا.xls -
اريد كود تصفية كلمة من عبارة في الخلية
محي الدين ابو البشر replied to aburajai's topic in منتدى الاكسيل Excel
لا أدري ما المشكلة عندك على كل اتبع ما هو هو مكتوب في المرفق اوفسينا.xlsm -
اريد كود تصفية كلمة من عبارة في الخلية
محي الدين ابو البشر replied to aburajai's topic in منتدى الاكسيل Excel
تفضل اوفسينا.xlsm -
اريد كود تصفية كلمة من عبارة في الخلية
محي الدين ابو البشر replied to aburajai's topic in منتدى الاكسيل Excel
حل آخر Sub test2() Dim a Dim i&, c& a = Sheets("sheet1").Cells(5, 1).Resize(Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row - 4) For i = 1 To UBound(a) If a(i, 1) <> "" Then If IsNumeric(Application.Match("جميلة", Split(a(i, 1)), 0)) Then Sheets("جميلة").Cells(c + 1, 1) = a(i, 1) c = c + 1 End If: End If Next End Sub -
اريد كود تصفية كلمة من عبارة في الخلية
محي الدين ابو البشر replied to aburajai's topic in منتدى الاكسيل Excel
عليكم السلام ربما Sub test() Dim a Dim i&, c& a = Sheets("sheet1").Cells(5, 1).CurrentRegion.Columns(1) With CreateObject("VBScript.RegExp") .Global = True .Pattern = "جميلة" For i = 1 To UBound(a) If .test(a(i, 1)) Then Sheets("جميلة").Cells(c + 1, 1) = a(i, 1) c = c + 1 End If Next End With End Sub -
محتاج معادلة أو كود لاستخراج تاريخ الغياب
محي الدين ابو البشر replied to ehabaf2's topic in منتدى الاكسيل Excel
بارك الله -
محتاج معادلة أو كود لاستخراج تاريخ الغياب
محي الدين ابو البشر replied to ehabaf2's topic in منتدى الاكسيل Excel
عليكم السلام عسى غياب يومية.xlsm -
محي الدين ابو البشر started following سنتر لادارة المجموعات , محتاج كود لتلوين اسماء الشيتات , مساعدة فى الترحيل و 4 اخرين
-
فنان.xlsm
-
عليكم السلام وبالاذن ربما Book111_1.xlsm
-
محتاج كود ترحيل يكون سهل وبسيط ( ترحيل بشرط )
محي الدين ابو البشر replied to Wael Hamed_1975's topic in منتدى الاكسيل Excel
حل آخر Sub test() Dim a Dim i& a = Sheets("DATA").Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) If a(i, 3) = Sheets("RESULT").Cells(1, 5) Then If Not .exists(a(i, 1)) Then .Add a(i, 1), Array(a(i, 1), a(i, 2), a(i, 3)) End If Next a = Application.Index(.items, 0, 0) End With With Sheets("RESULT").Cells(1).CurrentRegion.Offset(1) .ClearContents .Resize(UBound(a), 3) = a End With End Sub -
السلام عليكم ممكن حل آخر Sub test() Dim a Dim i& a = Sheets("Form Responses 1").Cells(4, 1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) If a(i, 3) = Cells(2, 3) Then If Not .exists(a(i, 3) & a(i, 1)) Then .Add a(i, 3) & a(i, 1), Array(a(i, 3), a(i, 5), a(i, 6), a(i, 7), a(i, 8), a(i, 10), a(i, 15), a(i, 17), a(i, 19)) End If: End If Next a = Application.Index(.items, 0, 0) End With With Sheets("Report").Cells(4, 2).Resize(UBound(a) - 1, 9) .ClearContents .Value = a End With End Sub
-
مساعدة في كود حذف صف من شيت عن طريق اليوزرفورم
محي الدين ابو البشر replied to شبل ليث's topic in منتدى الاكسيل Excel
Omar_1.Range("A" & i & ":R" & i).Delete or Sheets("الملاك").Range("A" & i & ":R" & i).Delete -
ترتيب الارقام تصاعدي حسب التاريخ
محي الدين ابو البشر replied to sabah2022's topic in منتدى الاكسيل Excel
سلمك الله -
ترتيب الارقام تصاعدي حسب التاريخ
محي الدين ابو البشر replied to sabah2022's topic in منتدى الاكسيل Excel
-
الحمدلله