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

تفضل .... التسلسل في الليست بوكس.accdb

أحسنت استاذ مجدى جزاك الله كل خير ورحم الله والديك

وعليكم السلام-تفضل محل_هانى.xlsm

تفضل لك ما طلبت طرح خانه بها تاريخ ووقت.xlsx

وعليكم السلام-لك ما طلبت وذلك بمعادلة AVERAGEIFS دالة حساب متوسط نسبة لقيم.xlsx

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

وعليكم السلام-على الرغم ان هذه المشاركة مخالفة لتعاليم ومبادىذ المنتدى -لأننا تقوم بالتنيه مئات المرات انه لا تكتمل المشاركة الا برفع ملف مدعوم بشرح كافى عن المطلوب والا سوف تحذف مشاركتك لأن هذا يعتبر اهدار للوقت كما انه لا يمكن العمل دائما على التخمين ولكن سأخبرك عن طلبك فلو افترضنا ان الرقم القومى موجود بالخلية A2 وتريد الفصل مثلا بالخلية B2 فتكون المعادلة كالتالى =RIGHT(A2,7)

وعليكم السلام دالة =TODAY() يتم كتابتها هكذا فقط وهى بدورها تقوم بجلب تاريخ اليوم بالضبط أما دالة Date لا يمكن كتابتها مثل دالة Today () هكذا فلابد من احتواء دالة Date على 3 بنود لكى تتم المعادلة بمعنى لابد ان تحتوى ونقوم انت بنفسك بكتابة السنة والشهر واليوم بها مثل =Date(Year,Month,Day) 'أى تكون المعادلة بهذا الشكل فى النهاية =Date(2018,03,27)

فورم ترحيل بيانات من داخل الاكسل الفيديو

اخي الكريم استخدم هذا الامر Private Sub TextBox1_Change() Range("a1").Value = TextBox1.Value End Sub ليكن مثلا ان قيمة التكست المطلوب مرتبطه بالخلية A1 ,G;L HGA;V

AL-Mohanad وهذا هو ملف الخط للتحميل al-mohanad.rar

تم معالجة الامر BOOOk.xlsx

وجود الخلايا المدمجة في الصفوف 26/27/28 و 30 يعيق عمل المعادلات لذلك رجاء لا تقم بدمج الخلايا حتى تحصل على النتيجة المطلوبة (تم ازالة الدمج) الملف مرفق Takem.xlsx

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

السلام عليكم عند ضغط زر من لوحة المفاتيح يكون الترتيب كالتالي: KeyDown KeyPress KeyUp الحدث KeyPress يكون عند وجود رموز مطبوعة للزر كالكتابة في مربع نص مثلاً. بينما بقية الأزرار التي ليس لها نتيجة مطبوعة فتقتصر أحداثها على الأول و الأخير.

ملف العمل موجود فى رابط الفيديو الم تلاحظه ؟!

تفضل بعد اذن الأستاذ محمد يمكنك استخدام هذه المعادلة لذلك =IF(ISNUMBER(SEARCH("شحم",B3)), "15%", IF(ISNUMBER(SEARCH("زيت",B3)), "10%","")) نسبة بدلالة كلمة فى البيان.xlsx

وعليكم السلام-تفضل 2شيت.xlsm

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله

تم التعديل على الماكروات كما يلزم (فقط اضغط على الزر بحث) Option Explicit Sub cop() Dim R1%, R2% R1 = Range("b8").CurrentRegion.Rows.Count R2 = Range("A10000").CurrentRegion.Rows.Count If R1 > R2 Then Range("A10000").CurrentRegion.ClearContents Range("B8").CurrentRegion.Copy Range("A10000") End If End Sub Private Sub Worksheet_Activate() FIL_data_val End Sub '++++++++++++++++++++++++++++++++++++++ Sub new_filter() cop Dim i As Byte, k As Byte Dim LX%, RO%, x Dim arr() Dim st1, st2 Dim Rg As Range: Set Rg = Targt.Range("C5:F5") Dim Frg As Range: Set Frg = Range("A10000").CurrentRegion RO = Frg.Rows.Count k = 4: x = 0 On Error Resume Next If Frg.AutoFilterMode Then Frg.ShowAllData: Frg.AutoFilter End If On Error GoTo 0 Targt.Range("b8").CurrentRegion.ClearContents For i = 1 To k If Rg.Cells(i) <> "" Then x = x + 1 ReDim Preserve arr(1 To x): arr(x) = Rg.Cells(i) & "*" & i + 1 End If Next i On Error Resume Next LX = LBound(arr) If LX = 0 Then Frg.Copy Targt.Range("B8") Frg.ShowAllData: Frg.AutoFilter GoTo End_Me End If On Error GoTo 0 For i = LBound(arr) To UBound(arr) st1 = Val(Split(arr(i), "*")(1)) st2 = Split(arr(i), "*")(0) Frg.AutoFilter Field:=st1, Criteria1:=st2 Next i Frg.SpecialCells(2, 23).Copy Targt.Range("B8") On Error Resume Next End_Me: If Frg.AutoFilterMode Then Frg.ShowAllData: Frg.AutoFilter End If End Sub '++++++++++++++++++++++++++++++++++++ Sub FIL_data_val() Dim RGs As Range Dim Coll As Object Dim Rs%, Rt%, i%, k% Set RGs = Range("a10000").CurrentRegion Rs = RGs.Rows.Count Set Coll = CreateObject("System.Collections.Arraylist") For i = 2 To 5 With RGs.Columns(i).Offset(1).Resize(Rs - 1) For k = 1 To Rs - 1 If Not Coll.contains(.Cells(k).Value) Then Coll.Add .Cells(k).Value End If Next k End With Coll.Sort With Targt.Cells(5, "c").Offset(, i - 2).Validation .Delete .Add 3, Formula1:=Join(Coll.toArray, ",") End With Coll.Clear Next i End Sub 15_20.xlsm

السلام عليكم تم عمل ماكرو يقوم بما تريد لكن ليس بالانتقال من الصف إلى الصف الذي يليه بل بتغيير قيمة من عمود مساعد (عمود إضافي -العمود E مثلا-)... لم اجد حيلة غيرها... بن علية حاجي شيت 2.xlsm

بما انك لم ترفق ملف للعمل عليه اتفضل هذا الملف لعله يفى بالغرض القيمة الاخيرة في نتائج دالة vlookup.xlsm

ماشاء الله أستاذ / محمد البرناوي عمل رائع مشكور وجزاك الله خيراً

يا أخي القائمة المنسدلة تتجدد كلما أضفت اسماً الى اللائحة

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

هلا يا غالي وعليكم السلام ورحمة الله وبركاته تأكد من وجود طابعة افتراضية

مشكور جدا استاذ احمد وبارك الله فيك

تم معالجة الامر فقط اختر الاسم المناسب من الخلية الصفراء والكود يقوم بعمله Record 1_1.xlsm

تفضل أخي ابو عبدالله Database1 (3).rar

جرب هذه المعادلة =IF(OR(NOT(ISNUMBER(G6)),G6=""),"",VLOOKUP(G6*100,{0,"ضعيف";50,"مقبول";65,"جيد";75,"جيد جدا";85,"ممتاز";100,0},2)) الملف مرفق tartib_st.xlsx

السلام عليكم ورحمة اللة وبركاته موضوع قديم ولكني عملت هذا الكود لأحد أولادي فأحببت ان يستفيد منه من يحب الفكرة تعتمد علي التحقق من صحة ارقام التاريخ ( من الثاني وحتى السابع، من اليسار ) ولكن بطريقة رقميه بعيدا عن مشاكل فورمات التاريخ اي التأكد من ان الرقم الثاني و الثالث الخاص بسنة الميلاد يقع بين الارقام ( من صفر حتي 99 ) و التأكد من ان الرقم الرابع و الخامس الخاص برقم الشهر يقع بين الارقام ( من 1 حتي 12) و التأكد من ان الرقم السادس و السابع الخاص برقم اليوم يقع بين الارقام ( من 1 حتي 31) ثم التأكد من الرقم الرابع عشر وهو خاص بوزارةالداخلية للتحقق من صحة الرقم القومي يقع بين الارقام ( من 1 حتي 9 ) المرفقات !_Check_National_Number_التحقق من صحة الرقم القوميOffceina.xls

جرب هذا Archivé Mobile V 1.001(1).rar

جرب هذا الماكرو Option Explicit Private Sub Worksheet_Activate() FIL_data_val End Sub '++++++++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("C5:F5")) Is Nothing And Target.Count = 1 Then new_filter End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++ Sub new_filter() Dim i As Byte, k As Byte Dim LX%, RO%, x Dim arr() Dim st1, st2 Dim Rg As Range: Set Rg = Targt.Range("C5:F5") Dim Frg As Range: Set Frg = Source.Range("b8").CurrentRegion RO = Frg.Rows.Count k = 4: x = 0 On Error Resume Next If Source.AutoFilterMode Then Source.ShowAllData: Frg.AutoFilter End If On Error GoTo 0 Targt.Range("b8").CurrentRegion.ClearContents For i = 1 To k If Rg.Cells(i) <> "" Then x = x + 1 ReDim Preserve arr(1 To x): arr(x) = Rg.Cells(i) & "*" & i + 1 End If Next i On Error Resume Next LX = LBound(arr) If LX = 0 Then Frg.Copy Targt.Range("B8") GoTo End_Me End If On Error GoTo 0 For i = LBound(arr) To UBound(arr) st1 = Val(Split(arr(i), "*")(1)) st2 = Split(arr(i), "*")(0) Frg.AutoFilter Field:=st1, Criteria1:=st2 Next i Frg.SpecialCells(2, 23).Copy Targt.Range("B8") On Error Resume Next End_Me: If Source.AutoFilterMode Then Source.ShowAllData: Frg.AutoFilter End If End Sub الملف مرفق My_filter_new_1.xlsm

أخى محمد احمد لطفى وزيادة فى الفائدة جرب إختراع أخى العزيز ابا جودى فى هذه الوحدة النمطية التى لا تكتفى بإزالة المسافات أول وآخر الجملة ولكن أيضا المسافات الزائدة بين الجمل Update -12.mdb

أخى خالد هذه المشاكل من عندك انت فالبرنامج يعمل مع الجميع بكل كفاءة

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

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

تفضل هذا به شرح ما تريد https://www.officena.net/ib/topic/95810-شرح-كيفية-عمل-شاشة-دخول-للاكسل-بصورة-جمالية/

الحمد لله تعالى الذى تتم بنعمته الصالحات الحمد لله الذى هدانا وما كنا لهتدى لولا ان هدانا الله عزوجل سبحانك لا علم لنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك هذا فضل الله تعالى Database6 (3).accdb والله عملتها كده وحصل شئ غلط مش فاكر ايه

تفضل الملف مرة اخرى-حاول هذه المرة فهو يعمل عندى -1توزيع عشوائى للموظفين.xlsm

تفضل جرب هذا توزيع عشوائى للموظفين.xlsm

ممكن توضيح اكثر لو سمحت واعطاء نتيجة لما تريد

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

تفضل اخى الكريم statistic-1.xls

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

أخى الكريم جزاك الله كل خير وجعل الله هذا العمل فى ميزان حسناتك

تفضل fgh-1.xlsx

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

خصائص التقرير/لسان التبويب :تنسيق اجعل القيمة : اتجاه = من اليسار الى اليمين نعم ممكن وانظر المثال المرفق ما قبله2.rar