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

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... بن علية حاجي badj excel 01.xlsx

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

رابط استعراض البرنامج واستخدامه مع التحميل في الوصف https://youtu.be/rfbtBiWwOAY

اتفضل طلبك اهو لا تنسانى بالدعاء بالخير :) البحث الطلاب-اضافة بحث.rar

اكثر من رائع لكن ارجو تقبل هذه الملاحظة: عدم استعمال كلمات محجوزة للـــ VBA كأسماء للمتغيرات مثلاً كلمة Count هي احداها لذلك يمكن استعمال بديل مثلاً Cont على العموم انا افضل المصفوفات في هذه الحالة لانها أسرع انت تستطيع ان تجمع كل المعطيات في مصفوفة واحدة وتلصقها رأسًا في النطاق اللازم و في النهاية تقوم بمسح محتويات المصفوفة Erase ARR لتحرير الذاكرة منها جرب هذا الكود Sub B() Dim ARR(), k%: k = 0 Range("B10", Range("B9").End(4)).ClearContents For i = 2 To 7 For j = 1 To 6 k = k + 1 ReDim Preserve ARR(1 To k) ARR(k) = "'" & (j & " / " & Cells(i, 1)) Next j Next i Range("b10").Resize(k) = Application.Transpose(ARR) Erase ARR End Sub

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

وعليكم السلام تفضل-تم فك حماية الملف , فالملف الأن بدون حماية 1معادلات.xlsx

وعليكم السلام-من الأفضل دائما لإتمام المشاركة وعدم اضاعة الوقت رفع ملف مدعوم بشرح كافى عن المطلوب ولكن سوف اجيبك على طلبك وهو عن طريق Data Validation وذلك كما بالصورة

يمكنك مشاهدة هذا https://www.linkedin.com/pulse/how-why-use-xlookup-wyn-hopkins وهذا فيديو https://www.youtube.com/watch?v=IQghQNgxZh4

تفضل تم التعديل ويحدث ذلك معك لكثرة الإرتباطات الخارجية بالملف Book1.xlsm

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

لا يمكن ذلك بمعادلة vlookup

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

فورم تعديل البيانات والصور فيديو 11 الفيدو

أخي @محمد احمد لطفى في تعديل التالي جعلت تقريرين مرتبط بمصدر سجلاتهما Q1 بمعيار تاريخ و Q2 بدون معيار ، اجعل مصدره اية استعلام او جدول بشرط عدم وضع معيار في الاستعلام ستحصل على نفس نتيجة كما هو في ملفك ، في تعديلات سابقة كان مصدر سجلات تقرير استعلام Qr فقط حتى مع تغير مصدر يدويا و الان يعمل على حسب مصدر المحدد في خاصية مصدر سجلات. و سبب ضرورة ارتباط هو اسخراج عدد سجلات وفق معيار المحدد و ذالك لتوزيعهم في صفحات ولكن ادخال معيار من خلال باراميترا الاستعلام ، التقرير غير قادر عد سجلات بعد فتحه. طريقة النموذج.mdb

فورم بحث بكتابة اول حرف فيديو 12 الفيديو

وعليكم السلام طالما انك لم تقم برفع ملف على الرغم اننا نبهنا اكثر من مرة على هذا الأمر فقد تعرض مشاركتك للحذف اذا لم تنتبه مرة ثانية لهذا الأمر فيمكنك استخدام هذا الكود -ومعنى جعل الشيت للقراءة فقط اى عمل حماية له Sub ToggleSheetProtection() With ActiveSheet If .ProtectContents Then .Unprotect Else .Protect "", True, True, True, True End With End Sub او يمكنك ايضا بهذا الكود بوضعه فى حدث This WorkBook Private Sub Workbook_Open() If Application.UserName <> "YourUserName" Then ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly End If End Sub او يمكنك بهذه الخطوات بدون أكواد كما بملف الوورد الشرح.docx

أحسنت استاذي الكريم .. جزاك الله خيرآ

فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة الفيديو الصور

هو مشروط بسم العميل واسم العميل المفروض لا يتكرر واذا كان كما تقول اعمل زر اخر وبدل زايد اجعلها ناقص

عليكم السلام ورحمة الله انظر تعديل في قاعدتين طريقة النموذج - Copy.mdbطريقة النموذج.mdb

احسنت استاذ على ما شاء الله عمل رائع

انا مشيت على ملفك الاول كان الشرط الاسم مثل اسم الجدول الاخر اتفضل التعديل DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ntak SET ntak.knaw = ntak.knaw+[Forms]![نموذج1]![end]" & vbCrLf & _ "WHERE (((ntak.esm)=[Forms]![نموذج1]![نص611]));" DoCmd.SetWarnings True Microsoft_Access_قاعدة_بيانات_جديد (1).accdb

اتفضل DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ntak, ntak1 SET ntak.knaw = ntak.knaw +[Forms]![نموذج1]![end] " & vbCrLf & _ "WHERE (((ntak1.esm)=[Forms]![نموذج1]![نص611]));" DoCmd.SetWarnings True

وعليكم السلام تفضل اخي البحث الطلاب.rar

Nouveau Microsoft Access Base de données (2).rar

شؤؤن الموضفين.rar

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

استاذى الحبيب استاذ سليم بعد اذنك واثراء للموضوع جرب هذا الملف اسماء الفصول.xlsm

انظر الى هذا الملف aaشيت.xlsm

استعمل هذه المعادلة في DATA VALIDATION CUSTOM =AND(OR(LEFT(C4,1)*1=1,LEFT(C4,1)*2=2),SUM(IF(ISNUMBER(--(MID(C4,ROW($2:$12),1))),1,0))=11) الملف مرفق مع المطلوب Aziz_data_val.xlsx صديقي علي المعادلة التي وضعتها لا تفي بكل الشروط فانها مثلاً تسمح بان يكون اول رقم غير 1 او 2 او ان تحتوي حرف وليس فقط ارقام

أخي الكريم إليك الكود فيه حل للمشكلة Sub Store_ActiveCell_In_Variable_Go_Back_At_The_End() Dim c As Range Set c = ActiveCell 'Your Macro Application.Goto Range("K35") Application.Wait Now + TimeValue("00:00:03") Application.Goto c End Sub

شرح كيفية عمل شاشة دخول للاكسل بصورة جمالية الفيديو

جرب هذا الماكرو الاسم المطلوب في الخلية A1 تم تغيير اسماء الشيتات الى source_sh و target_sh لحسن عملية نسخ الكود ونقله بحيث لا تظهر حروف غريبة Sub Find_Recorde() Rem Created By Salim Hasbaya On 24/9/2019 Dim S As Worksheet: Set S = Sheets("source_sh") Dim T As Worksheet: Set T = Sheets("target_sh") Dim Nam: Nam = T.Cells(1, 1) Dim My_RG As Range Dim Saerch_Rg As Range T.Cells(3, 1).CurrentRegion.Clear Dim col%, Ro%, Actual_ro% Set Saerch_Rg = S.Columns(5).Find(Nam, lookat:=1) If Saerch_Rg Is Nothing Then MsgBox _ "This Name Dos not exit or Wrong Name" Exit Sub End If Ro = Saerch_Rg.Row + 1 col = S.Cells(Ro, Columns.Count).End(1).Column Actual_ro = S.Cells(Ro, 1).End(4).Row - Ro + 1 With T.Cells(3, 1).Resize(Actual_ro, col) .Value = S.Cells(Ro, 1).Resize(Actual_ro, col).Value .Borders.LineStyle = 1 .NumberFormat = "[$-,10A] ddd d mmm yyyy" .Interior.ColorIndex = 24 .Font.Bold = True End With End Sub الملف مرفق Record.xlsm

بارك الله فيك وزادك الله من فضله

تفضل اخى الكريم استعلام عن صنف .xlsx

من الأفضل استاذى الكريم رفع ملف وشرح ما تريده عليه بالتفصيل بارك الله فيك -وكل عام وانتم بخير

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

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

وعليكم السلام اخى الكريم-وانتم بالف صحة وسعادة تفضل لك ما طلبت تشغيل -1.xlsx

من فضلك اخى الكريم قم بتغيير هذه المعادلة كالمعادلة التى أرسلتها اليك بارك الله فيك

لا اخى الكريم بنفسك المعادلة تعمل عندى

لاحظ بنفسك ان تنسيق الرقم مختلف فى الصفحتين انظر من فضلك الى الصور وستكتشف بنفسك الفرق بينهما-فلابد ان لا يكون هناك اختلاف بين تنسيق الرقم فى ورقتين الشيت اتمنى ان يكون الأمر قد وضح لك

تفضل اخى الكريم -طبعا بعد اذن استاذى الكبير محمد صالح-له منا كل المحبة والإحترام mas_السيرة الدراسية.xlsx

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

تفضل اخى الكريم -1نموذج فحص.xlsx

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

وعليكم السلام اخى الكريم هل لغة جهازك مضبوطة مع اللغة العربية ام لا ؟

اخي الفاضل ضع هذه المعادلة فب الخلية B1 بفرض ان الرقم المراد تقريبه سيكون في الخلية A1 =IF(OR(TRUNC(A1;2)-TRUNC(A1;1)>=0.05;TRUNC(A1;1)-TRUNC(A1;0)>=0.5);TRUNC(A1;0)+1;TRUNC(A1;0))