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

الاخ أستيكا ضع هذا الكود في موديل ثم قم بتنفيذه لاظهار اي ورقة مخفية Sub Show_All_Sheets() ' For x = 1 To Sheets.Count Sheets(x).Visible = xlSheetVisible Next ' End Sub

السلام عليكم جرب أخي المرفق المصنف2.rar

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود لاخفاء المعادلات تم ارفاق كود الحل من الفاضل _ رحمه الله/ الحسامي _ عبدالله المجرب _ mahmoudfoxmam كود اخفاء المعادلات_HOSSAMI).rar كود اخفاء المعادلات (ABDALLAH).zip اظهار و اخفاء المعادلات (MAHMOUD).rar و كذلك المشاركه الهامه إخفاء المعادلات في الاكسل بدون حماية الورقة وبها مجموعة اكواد هامه لهذا الموضوع مهمه للساده / أبو حنــــين Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub و الفاضل / ياسر خليل أبو البراء Private Sub Workbook_Open() 'إخفاء المعادلات عن طريق حماية ورقة العمل ، قم بتحديد كل خلايا الورقة '[Locked] كليك يمين ثم تنسيق خلايا وأزل علامة الصح بجانب الخيار المسمى 'حدد الخلايا المراد عمل حماية لها والتي تحتوي المعادلات المراد حمايتها '[Locked] كليك يمين عليها ثم تنسيق خلايا وضع علامة صح بجانب الخيار المسمى '[Protect Sheet] ثم الأمر [Review] قم بعمل حماية لورقة العمل من خلال التبويب 'قم بوضع الكود التالي في حدث المصنف لتتم الحماية عن طريق عدم تمكين المستخدم 'من اختيار أو تحديد الخلية المحمية وبذلك يتم حمايتها وإخفائها من العبث '--------------------------------------------------------------------------- Worksheets("Sheet1").EnableSelection = xlUnlockedCells End Sub و الطريقه التقليديه بحماية الورقه طريقة بسيطة لإخفاء المعادلات في ورقة العمل و الفاضل / سليم حاصبيا Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False If Target.HasFormula = True Then Application.DisplayFormulaBar = False ActiveSheet.Protect Application.ScreenUpdating = True Exit Sub Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If Application.ScreenUpdating = True End Sub و اخر Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With With ActiveSheet .Protect .EnableSelection = xllockedCells End With End If End Sub و اخر Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect '================== For Each cel In Target.Cells Application.EnableEvents = False If cel.HasFormula Then cel.Locked = True cel.FormulaHidden = True With ActiveSheet .Protect .EnableSelection = xllockedCells End With GoTo 1: Else ActiveSheet.Unprotect End If Next 1: Application.EnableEvents = True End Sub و لا تنسونا من صالح الدعاء تحياتى Restrict Cursor Movement To Unprotected Cells_YASSER.rar

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

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

الاخ عذاب الزمان شاهد المرفق Omar_1.rar

الاخ احمد بن ابراهيم شاهد المرفق Omar_1.rar

مرحبا جرب المرفق 3حذف و لصق.rar

ما شاء الله تجميعة ممتازة من عمالقة المنتدى الكبار .... حفظ الله الأحياء ورحم الله الأموات

تم فك الدمج لكي يعمل الكود تفضل المرفق فلترة الاسماء بظهور ثلاثة صفوف(1).rar

السلام عليكم شكراً لك استاذ ابو خليل سأحاول الاستفادة من مثالك المطروح. تحيااااتي لك على مبادرتك

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

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

ما شاء الله عليك اخ رمهان ... تمت التجربة بنجاح الله يجزاك خير على هالكود الجديد ترجم ترجم ... العلامات في الاكواد بلشششه

هلا بيك استاذ ابو خليل ... مشاغل الدنيا و العمل ... و الحمد لله على كل حال ...

اخي العزيز اشكرك جدا على هذا التعديل

الحمد لله الذي بنعمته تتم الصالحات .. جزيت خيراً أخي الكريم بمثل ما دعوت لي وفي انتظار المزيد من مشاركاتك بالمنتدى وأهلاً بك أخاً كريماً بين إخوانك وأحبابك في الله تقبل تحياتي

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

انسخ هذا الكود الى حدث الصفحة و اعطني رأيك Private Sub Worksheet_SelectionChange(ByVal Target As Range) '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Application.ScreenUpdating = False If Target.HasFormula = True Then Application.DisplayFormulaBar = False ActiveSheet.Protect Application.ScreenUpdating = True Exit Sub Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If Application.ScreenUpdating = True End Sub

استعمل هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) Range("C5").Formula = "=SUM(A:A)" End Sub

السلام عليكم ورحمة الله و بركاته الاخ العزيز الاستاذ / سعد عابد أضفت لحضرتك المرفق بعد تعديل أكواد الفورم حتى تتناسب مع برنامج حضرتك و بعد إذن حضرتك قمت باضافة صف لمسلسل العميل و هذا من وجهة نظري المتواضعة لابد من وجود مسلسل للعملاء وأضفت لك دالة لجعل المسلسل تلقائي و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته العملاء HaNcOcK.rar

السلام عليكم اخي سعد ارفقت لك طريقتين لنسخ الصفحة بكامل محتوياتها بمعادلاتهاواكوادها هناك كبستان لاضافة الحساب كبسة لكل طريقة ارجو ان تكون ما تطلب العملاء.rar