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

السلام عليكم ورحمة الله وبركاته لدي نموذج لتسجيل بيانات عدد من الشركاء واعتمدت في اخراجه على التنسيق الشرطي ارجو المساعدة في عمل التالي في SHEET1 اذا كانت خلية المسلسل فارغة لا يظهر الصفر المقابل لها في خانة السحب والايداء والرصيد وفي SHEET2 اذا كانت خليلة المسلسل فارغة لا يظهر الصف المقابل لها وجزاكم الله خيرا توزيع الارباح.rar

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

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

أخواني واخواتي أعضاء صرحنا العظيم اوفيسنا **************** وجد ان موضوع مستحقات نهاية الخدمة بالاخص في السعودية يشغل بال الكثيرون من المهتمين بالمجال نظرا لما فيه من حقوق واعباء ففكرت في عمل النموذج حتي لا تضيع الحقوق علي اصحابها نتيجة خطأ في تطبيق قاعدة في قانون العمل او لائحة الشركة راعيت في النموذج قوانين مكتب العمل التي نظمت حقوق العامل عند نهاية العقد او الاستغناء عنه او الاستقالة بحالتها المختلفة 1- اذا كانت فترة العامل اقل من سنتين 2- اذا كانت فترة العامل مابين السنتين والخمس سنوات 3- اذا كانت فترة العامل مابين 5 :10 سنوات 4- اذا كانت فترة العامل اكبر من عشر سنوات وكذلك في الادخال بما يتناسب مع سياسة الشركة اوعقد العامل مثال علي ذلك بدل السكن ( بعض الشركات لاتدخله) ضمن راتب المكافأة وشركات اخري تحسبه بما يقابل راتب شهرين عن سنة واخري تحسبه بما يقابل ثلاثة شهور وكذلك راعيت بدل الاجازة السنوية (30 يوم عن كل سنة لكامل الفترة ) او( 21 يوم للخمس سنوات الاولي ومازاد عنها 30 يوم ) طرق ادخال التاريخ عن طريق الفورم لعدم الاخطاء استخدام التقويم الميلادي او الهجري - ام القري في الحساب تم تخصيص ملاحظات تحت كل حساب يظهر العمليات والقوانين التي اتبعت في الحساب وتناولت الموضوع بفكرة جديدة *********** فورم اخري اسميته الادخال السريع ********************* لضمان عدم الاخطاء في الادخال حيث ان كل مرحلة في الفورم لابد من تعبئتها ليمكنك الانتقال للخطوة التالية الي جانب طباعة النموذج بشكله النهائي الشكل الاخير بعد معالجة المدخلات كالتالي انا جعلت موضوع الفورم جزء من قاعدة شئون الموظفيين الجديدة بشكل جديد ان شاء الله قريبا سوف يتم طرحها لكم وارفقت قوانين العمل حسب مكتب العمل السعودي لتكون مرجع في حالة عدم وجود مرجع ثابت او لائحة منظمة لذلك داخل الشركة ويمكنك الاطلاع علي شروط واحكام الحساب عند ضغطك علي خيار " أحكام حساب المستحقات باسفل الفورم ) كما ان بعض الشركات لاتقوم بابرام عقود للعمال فيكون المرجع الاساسي (قانون مكتب العمل ) أدعوا الله سبحانه وتعالي ان اكون وفقت في عملي هذا (( وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ )) الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب مستحقات نهاية الخدمة.rar

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

السلام عليكم ورحمة الله وبركاتة الاخوة الاعضاء والمشرفين بالمنتدى أليكم هدية متواضعة ولكنها فكرة جيدة وجديدة للهايبر لينك ان لم يكن يعرفها احد ولكنى احببت ان اتشاركها معكم وللأمانة هى كانت فى فيديو شرح لاحد الاخوة على يوتيوب ( محمود حمودة ) انا فقط قمت بتنفيذها على مثال اخر ولكم جزيل الشكر صرح اوفيسنا التعليمى هايبر لينك متقدم.rar

الموقع يحوى 119 كتاب عن الورد http://www.kutub.inf...ary/category/48

السلام عليكم مع اقتراب شهر رمضان الفضيل، أحببت أن أقدم لكم هذا العرض والذي يحتوي على أهم أخطاء الصائمين في رمضان.. علماً بأن هذه المعلومات مأخوذة من موقع إسلام ويب، قسم واحة رمضان: http://islamweb.net/ramadan/index.php أسأل الله تعالى أن يبلغنا وإياكم هذا الشهر الكريم إنه سميع مجيب تحميل نسخة بوربوينت 2010 - 2013 بحجم 1.41 ميجابايت من هنا تحميل نسخة بوربوينت 2003 بحجم 1.63 ميجابايت من هنا

الاساتذة الافاضل قمت بعمل كود يعمل علي عدد 20 صفحة والصفحات بنفس الشكل والترتيب للاعمدة ولكن تختلف فيها عدد الصفوف وقمت انا بعمل الكود لاخفاء الاعمدة ولكن كما سترون في الكود سيكون الكود طويلا جدا فانا اريد كود مختصر ليجعل التنفيذ اسهل ... والكود بالفعل يعمل بالطريقة التي اريدها تماما ... ولكن ما يتعبني فيه طول الكود حيث قمت بعمله لعدد 2 شيت وكان طويل جدا فما بالكم بعدد 20 شيت =============== شرح آليه الكود عند فتح الملف يظهر فورم اختار منه الشهر من شهور السنة فيقوم الكود باخفاء اعمدة الشهور الاخري ويبقي علي الشهر المختار وطبعا مع عمود الكود وعمود البيان والسابق والاجمالي ويتم ذلك في كل الصفحات والتي عددها 20 شيت =============== ارجو منكم وضع كود اسهل واقصر لتنفيذ المطلوب ام ان الكو يعمل بالشكل الطبيعي ولا يمكن تغييره اليكم الكود ثم الملف المرفق الرقم السري لحماية الاوراق : 1 Private Sub CommandButton1_Click() On Error Resume Next For i = 3 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i Sheets("Sheet1").Range("B1").Value = ComboBox1.Value Application.ScreenUpdating = False '========= 'اكواد لاظهار كافة الاعمدة اولا قبل اخفاء المطلوب 'ويجب وضعها باسم كل صفحة كما يلي '========= Sheets("ta3lem").Select Columns("B:U").Select Selection.EntireColumn.Hidden = False Sheets("Amnn").Select Columns("B:U").Select Selection.EntireColumn.Hidden = False '************************ 'اكواد لاخفاء الاعمدة حسب الشهر المطلوب 'ويتم وضعها لكل شهر في كل حساب او ورقة '========= If Sheets("Sheet1").Range("B1").Value = "يوليو" Then Sheets("ta3lem").Select Columns("D:N").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اغسطس" Then Sheets("ta3lem").Select Columns("E:N").Select Selection.EntireColumn.Hidden = True Columns("C:C").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "سبتمبر" Then Sheets("ta3lem").Select Columns("C:D").Select Selection.EntireColumn.Hidden = True Columns("F:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اكتوبر" Then Sheets("ta3lem").Select Columns("C:E").Select Selection.EntireColumn.Hidden = True Columns("G:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "نوفمبر" Then Sheets("ta3lem").Select Columns("C:F").Select Selection.EntireColumn.Hidden = True Columns("H:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ديسمبر" Then Sheets("ta3lem").Select Columns("C:G").Select Selection.EntireColumn.Hidden = True Columns("I:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يناير" Then Sheets("ta3lem").Select Columns("C:H").Select Selection.EntireColumn.Hidden = True Columns("J:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "فبراير" Then Sheets("ta3lem").Select Columns("C:I").Select Selection.EntireColumn.Hidden = True Columns("K:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مارس" Then Sheets("ta3lem").Select Columns("C:J").Select Selection.EntireColumn.Hidden = True Columns("L:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ابريل" Then Sheets("ta3lem").Select Columns("C:K").Select Selection.EntireColumn.Hidden = True Columns("M:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مايو" Then Sheets("ta3lem").Select Columns("C:L").Select Selection.EntireColumn.Hidden = True Columns("N:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يونيو" Then Sheets("ta3lem").Select Columns("C:M").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If If Sheets("Sheet1").Range("B1").Value = "الاجمالي السنوي" Then Sheets("ta3lem").Select Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '*********************************************** '*********************************************** If Sheets("Sheet1").Range("B1").Value = "يوليو" Then Sheets("Amnn").Select Columns("D:N").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اغسطس" Then Sheets("Amnn").Select Columns("E:N").Select Selection.EntireColumn.Hidden = True Columns("C:C").Select Selection.EntireColumn.Hidden = True Columns("O:O").Select Selection.EntireColumn.Hidden = True Columns("P:P").Select Selection.EntireColumn.Hidden = True Columns("R:R").Select Selection.EntireColumn.Hidden = True Columns("S:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "سبتمبر" Then Sheets("Amnn").Select Columns("C:D").Select Selection.EntireColumn.Hidden = True Columns("F:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "اكتوبر" Then Sheets("Amnn").Select Columns("C:E").Select Selection.EntireColumn.Hidden = True Columns("G:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "نوفمبر" Then Sheets("Amnn").Select Columns("C:F").Select Selection.EntireColumn.Hidden = True Columns("H:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ديسمبر" Then Sheets("Amnn").Select Columns("C:G").Select Selection.EntireColumn.Hidden = True Columns("I:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يناير" Then Sheets("Amnn").Select Columns("C:H").Select Selection.EntireColumn.Hidden = True Columns("J:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "فبراير" Then Sheets("Amnn").Select Columns("C:I").Select Selection.EntireColumn.Hidden = True Columns("K:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مارس" Then Sheets("Amnn").Select Columns("C:J").Select Selection.EntireColumn.Hidden = True Columns("L:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "ابريل" Then Sheets("Amnn").Select Columns("C:K").Select Selection.EntireColumn.Hidden = True Columns("M:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "مايو" Then Sheets("Amnn").Select Columns("C:L").Select Selection.EntireColumn.Hidden = True Columns("N:N").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '============= If Sheets("Sheet1").Range("B1").Value = "يونيو" Then Sheets("Amnn").Select Columns("C:M").Select Selection.EntireColumn.Hidden = True Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If If Sheets("Sheet1").Range("B1").Value = "الاجمالي السنوي" Then Sheets("Amnn").Select Columns("O:P").Select Selection.EntireColumn.Hidden = True Columns("R:S").Select Selection.EntireColumn.Hidden = True Range("A5").Select Sheets("Sheet1").Select Range("A1").Select End If '**************************************** '**************************************** On Error Resume Next For i = 4 To Sheets.Count Sheets(i).Select [c6:n3285].Locked = False ActiveSheet.Protect "1", True, True Next i '============= Application.ScreenUpdating = True Sheets("Sheet1").Select End End Sub اعتذر عن الاطاله ولكني احببت توضيح الصورة لكم كما اراها واريدها انا تلميذكم الصغير جدا Copy of sssssss.rar

ما الفرق بين الدالتيىن round ، fixed

ممكن طريقة فصل الناجحين في شيت والناجحين بنون في شيت و الناجحين بنات في شيت والدور الثاني في شيت والدور الثاني بنون في شيت والدور الثاني بنات في شيت ياريت يكون فية شرح ولكم جزيل الشكر كلمة السر بسم الله الملف في المرفقات الصف الأول.rar

شكرا احبابي اتمنى حذف الموضوع فقد عرفت الطريقة افيسنا.zip

السلام عليكم بعد ما تحذف الصفوف استخدم الكود هذا لحذف الازرار التي ارتفاعها صفر Sub ragab() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Height = 0 Then shp.Delete Next End Sub تحياتي

أخى الفاضل ولا يهمك أنا معك لن أمل حتى تصل الى ما تريد نفذ الكود التالى Sub ragab() Range("A1") = ActiveCell.Top End Sub قم بالوقوف على أى خليه تريدها بالماوس ( المراد معرفة الـ TOP لها ) ونفذ الكود السابق سوف تجد مكتوب فى الخليه A1 قيمة الـ TOP الخاصة بالخلية المحددة

السلام عليكم الاخ الكريم / mazen323 بارك الله فيك اولا لا عليك من كثرة الطلبات فنحن هنا جميعا لنتعلم ونعلم بعضنا البعض واي طلب يكون علي قدر علمي ومعرفتي ( ان شاء الله ) لن أتأخر عن اي طلب ابدا وبالنسبة للملف شاهد المرفق تم عمل اللازم ... علي حسب فهمي للطلب في انتظار ردك ... جزاك الله خيرا محاسبة-منتدى+-+.rar

السلام عليكم جميعا ارجو المساعدة حيث انني ارغب في اخاء او اظهار البيانات بناء على المحددات المختارة بحيث انني اذا اخترت محدد يظهر جدوله فقط ولا يظهر باقي الجاول للمحددات الاخرى حيث انني ارغب في عمل نموذج في الشركة وتعبئته بحسب الحالة الموجودة عندنا لمقدم الطلب ولكم مني خالص الدعاء بالتوفيق Abu Yousef.rar

الرجاء عمل ملف اكسيل للمعاش المبكر جدول 9

نيابة عن اخي اسامة ان سمح لي : البرنامج مفتوح ادعوا لاخيكم اسامة نوري فواتير مبيعات.rar

السلام عليكم لغيت الأعمدة المساعدة وقللت طول المعادلات قليلا وهذا هو الكود بعد التعديل Private Sub CommandButton1_Click() On Error Resume Next For i = 3 To Sheets.Count Sheets(i).Select ActiveSheet.Unprotect ("1") Next i Sheet1.[B1].Value = ComboBox1.Value Application.ScreenUpdating = False mnth = Sheet1.[B1].Value ' تسجيل إسم الشهر ' حلقة للورقتين 3،4 أي ' ta3lem,Amnn For sh = 3 To 4 With Sheets(sh) .Columns("B:U").EntireColumn.Hidden = False ' لاظهار كافة الاعمدة اولا 'اكواد لاخفاء الاعمدة حسب الشهر المطلوب For cc = 3 To 16 ' أرقام أعمدة الشهور If .Cells(5, cc) = mnth Or cc = 15 Then GoTo 10 Cells(5, cc).EntireColumn.Hidden = True. 10 Next cc End With Next sh '**************************************** On Error Resume Next For i = 4 To Sheets.Count Sheets(i).Select [c6:n3285].Locked = False ActiveSheet.Protect "1", True, True Next i '============= Application.ScreenUpdating = True Sheet1.Select Me.Hide End Sub وهذا المرفق ، تفضل sssssss.rar

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

السلام عليكم ورحمة الله أخي الكريم، جرب الملف المرفق حيث تم إضافة ثلاثة أكواد لإخفاء الجداول حسب الاختيار.... أرجو أن يفي بالغرض... أخوك بن علية الملف المرفق: Abu Yousef.rar

تم التعديل أخي الفاضل : Database7.rar

لابأس إرسله وإن كان به خصوصيات للعمل إرسله علي الخاص tarekmahmoud_2@hotmail.com

السلام عليكم الاخ الكريم / mazen323 بارك الله فيك بالنسبة للطلب الاول تم تنفيذه كما طلبت بالنسبة للطلب الثاني تم تنفيذه ولكن عن طريق كتابه رقم الكود ليظهر الاسم .. وليس بقائمة منسدلة هل هذا ما تريد .... جرب وابلغني بالنتائج ... وعذرا علي التأخير نظرا لبعض الظروف جزاك الله خيرا محاسبة-منتدى++.rar

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

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

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

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

طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل (((( الدرس الثاني )))) نتعرف في هذا الدرس علي عمل بعض اللمسات علي الفورم لنجعل طريقة عمله احترافية بعض الشئ ووضع الكود لتكست بوكس البحث واظهار النتائج في الليست بوكس وزر لاظهار الفورم وكود زر الاغلاق ..... الخ وبالطبع مع شرح الكود المستخدم سطر سطر كما تعودنا دائما مع استخدام اسهل وابسط الاكواد لعمل المطلوب مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه والكود المستخدم بالشرح اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) أضغط هنا لتحميل الملف والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة تصميم فورم بحث عن طريق لست بوكس22.rar

بسم الله الرحمن الرحيم طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة (((( الدرس الاول - الجزء الثاني )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة في المساركة السابقة اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا

بسم الله الرحمن الرحيم طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة (((( الدرس الاول - الجزء الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة تصميم فورم بحث عن طريق لست بوكس11.rar 1.rar