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

السلام عليكم اخوانى ورحمة الله وبركاته اليوم أقدم لكم كودا تستطيع من خلاله حماية الشيت ( بكلمة سر أو بدون ) مع ترك نطاق محدد مسموح للمستخدم بتعديله الطريقة التى أعتمد عليها AllowEditRanges والتى تسمح لمستخدمى اكسل التعديل فى نطاقات محددة رغم وجود حماية على الشيت لاحظ أيضا أنه يمكن عمل رقم سرى خاص بالنطاق المسموح بالتعديل عليه بخلاف الرقم السرى الخاص بحماية الشيت ان وجد . الكود وعليه الشرح وبعض الملاحظات : Sub ProtectSheetExceptRange() ' Protect ActiveSheet , but allow user edit Range("A1:A4,B1:D1") ' By Mokhtar 11/10/2015 On Error Resume Next ' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى ' تحديد اسم الزر المشغل للكود فى حالة حماية الشيت النشط With ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters If .Text = "Protect ActiveSheet Except" Then .Text = "UnProtect ActiveSheet " ' حذف النطاق الاول المسموح بالتعديل فيه فى الشيت ActiveSheet.Protection.AllowEditRanges(1).Delete ' تحديد اسم و مدى النطاق المراد التعديل فيه أثناء حماية الشيت ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=Range("A1:A4,B1:D1") ' فى حالة الرغبة فى حماية النطاق المراد التعديل عليه برقم سرى بخلاف الرقم السرى الخاص بحماية الشيت ' ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=Range("A1:A4,B1:D1"), Password:=123 ' حماية الشيت بدون كلمة سر ActiveSheet.Protect ' حماية الشيت بكلمة سر ' ActiveSheet.Protect Password:=123 ' تعريف المستخدم بالنطاق المسموح بالتعديل فيه With ActiveSheet.Protection.AllowEditRanges.Item(1) MsgBox "ActiveSheet is Protecting" & vbNewLine & "Except Range : " & .Range.Address & vbNewLine & vbNewLine & "Regards ...Mokhtar " End With Else ' اذا لم يكن هذا فان ' فك حماية الشيت المحمى بدون كلمة سر ActiveSheet.Unprotect ' فى حالة فك حماية الشيت المحمى بكلمة سر ' ActiveSheet.Unprotect Password:=123 ' اسم الزر المشغل للكود فى حالة عدم حماية الشيت النشط .Text = "Protect ActiveSheet Except" End If End With End Sub تفضلوا المرفق وأتمنى أن تستفيدوا به فى أكوادكم وبرامجكم . تحياتى Protect Sheet Expect Range .rar

السلام عليكم ورحمة الله أستاذنا الغالى طريقة الموضوع تعجبنى فهى تجعل الطالب يبحث عن المعلومة والاستاذ يقيم و اسمح لى أستاذى بأن أشارك بهذه الطريقة : ضع الكود الكود التالى فى ملف الأستاذ سليم اللى هو 5 ميجا Option Explicit Sub ExcelDiet() Dim j As Long Dim k As Long Dim LastRow As Long Dim LastCol As Long Dim ColFormula As Range Dim RowFormula As Range Dim ColValue As Range Dim RowValue As Range Dim Shp As Shape Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each ws In Worksheets With ws 'Find the last used cell with a formula and value 'Search by Columns and Rows On Error Resume Next Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) On Error GoTo 0 'Determine the last column If ColFormula Is Nothing Then LastCol = 0 Else LastCol = ColFormula.Column End If If Not ColValue Is Nothing Then LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column) End If 'Determine the last row If RowFormula Is Nothing Then LastRow = 0 Else LastRow = RowFormula.Row End If If Not RowValue Is Nothing Then LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row) End If 'Determine if any shapes are beyond the last row and last column For Each Shp In .Shapes j = 0 k = 0 On Error Resume Next j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column On Error GoTo 0 If j > 0 And k > 0 Then Do Until .Cells(j, k).Top > Shp.Top + Shp.Height j = j + 1 Loop If j > LastRow Then LastRow = j End If Do Until .Cells(j, k).Left > Shp.Left + Shp.Width k = k + 1 Loop If k > LastCol Then LastCol = k End If End If Next .Range(.Cells(1, LastCol + 1), .Cells(.Rows.Count, .Columns.Count)).EntireColumn.Delete .Range("A" & LastRow + 1 & ":A" & .Rows.Count).EntireRow.Delete End With Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub احفظ الملف بصيغة xlsb شوف حجمه ستجد أنه نزل للنصف تقريبا ثم افتح الملف وشغل الكود السابق ثم احفظ الملف واقفله شوف حجم الملف ستجد أنه 32 كيلو بايت اللى حصل هنا أن اكسل أعاد حساب النطاقات الغير مستخدمه فى الملف وحذفها تحياتى

الاخوة الكرام بحمد الله تعالى وفضله قطعاً شوطاُ كبير فى شروحات الفورم على الرابط التالى http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/ والان فى صورة عباره عن أسئله للاختبار ارجوا من المهتمين بالموضوع الاجابه عليها حتى يتثنى لنا معرفه هل الشروحات كافيه ؟ هل هى مبسطه ؟ هل يوجد متابعين للموضوع ؟ ما هو مدى الاستفاده مما يقدم ؟ وكمان الفائده الاهم هو انك تشتغل بنفسك وتقوم بالتطبيق على ما قرأته علشان تثبت المعلومه وبعدين الاختبار اوبن بوك ههههههههههههه يعنى نظام تعليم حديث وكل واحد مذاكرته فى دماغه و مسطردته فى ايده و سندوتشاته فى كيسه و مطوته فى جيبه اللى يقولك غششنى قطعه ومحدش يبص فى ورقة زميله ترسل الاجابات على ص ب منتدى اوفيسنا قسم الاكسيل تسلم ليد العضو الصقر والفائز له رحلة عمره (((( اتمنى بجد لو واحد بس اهتم بالموضوع وجاوب صح وقتها هحس انى الشروحات دى لها قيمة وهكمل حتى لو كان واحد بس مستفيد والا يأما أنا فشلت فى الشرح أو ان الموضوع مش ذو اهميه وكدا يبقى اعتذر لكم لما سببته من ازعاج فى هذه الشروحات وراح اطلب من الاداره حذف الموضوع )))) دلوقتى هنوزع ورقة الاسئله وعايز الحل بالطرقتين 1- من خلال الخصائص اثناء التصميم 2- من خلال الاكواد عند فتح الفورم قم بعمل ملف اكسيل جديد وفى الشيت 1 اكتب البيانات كما هى بالعمود D و E ثم قم بتصميم فورم كما هو مبين بالصورة بنفس التنسيق وابدأ الشغل فهل من مشمرون ؟؟؟ اتمنى لكم التوفيق وتقبلوا تحياتى جميعا

استاذى الحبيب / ابويوسف جزاكم الله خيرا فهذا ليس بغريب عليك فأنت دائما وابدا قدوة لنا وصحاب همه عاليه فهى همة الرجال اشكرك مره تانية من اعماق قلبى ولكن اسمح لى بتصحيح الواجب يا غالى انا معنديش رحمه يوجد عشر اسئله كل سؤال بدرجه المطلوب 1:- الدرجة نصف ( صحيح 50% ) لماذا دا سطر الكود الخاص بالتنسيق للتاريخ TextBox1.Text = Format(TextBox1.Text, " yyyy mmm ddd") وطبقا للطلب اللى بالصورة يكون كالتالى TextBox1.Text = Format(TextBox1.Text, " ddd mmm yyyy") لاحظ الفرق بنفسك المطلوب 2:- الدرجة 0 ( لم يتم تنفيذه) لماذا لم تقم بعمل حماية على التكست بوكس ؟؟ المطلوب 3:- الدرجة 1 ( صحيح 100% ) المطلوب 4 :- الدرجة 1 ( صحيح 100% ) المطلوب 5 :- الدرجة 1 ( صحيح 100% ) المطلوب 6 :- الدرجة 1 ( صحيح 100% ) المطلوب 7:- الدرجة 0 ( لم يتم تنفيذه) المطلوب 8:- الدرجة 0 ( لم يتم تنفيذه) المطلوب 9:- الدرجة 0 ( لم يتم تنفيذه) المطلوب 10:- الدرجة 0 ( لم يتم تنفيذه) ملحوظه صغيره هو حضرتك عامل ليه فى الخاصيه ControlSource الخلية d2 ما الفائده منها ( انت عارف دى هتسبب مشكله فين ؟ ) الدرجة النهائيه يا ابويوسف هى 4.5 ( اربعه ونصف فقط ) منتظرك تكمل بكره الباقى هنتظرك ضرورى تقبل تحياتى واحترامى وتقديرى لشخصك الكريم

بسم الله الرحمن الرحيم { يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ } صدق الله العظيم فبداية أسأل الله العظيم رب العرش العظيم ان ينفعنا واياكم العلم والعمل الصالح مشكلتي واظنها مشكلة اغلب العاملين في مجال البرمجة واكواد الماكرو وغيرها انه اعتمادي دائما عل اكواد منقوله عن الاخوة الكرام المتواجدين في هذا المنتدي الكريم نشكر لهم جهودهم في تلبية واجابة وحل مشاكل الاعضاء فانا لا اريد ان يقتصر عملي علي اكواد اجبر بها برنامجي ان يكون محدود او في نطاق لا يخرج عنه بالعكس اريد برنامج ابتكر له اكواد تلبي جميع احتياجاتي من هنا اريد او معظمنا يريد طريقة توليد اكواد او ابتكار اكواد طريقة تجلعني وتجعلنا نقوم بانشاء برامجنا بدون قيد او اكواد تعيقنا اثناء انشاء برامجنا الخلاصة مذكرات شروحات دروس دورات ايا كانت هي ارجو وضعها هنا لزيادة خبرتنا في هذا المجال الواسع الذي مهما تعلمنا يظل به الكثير والكثير لنعرفه مع خالص تحياتي: ياسر العربي

السلام عليكم جرب هذا الكود ان شاء الله يفي بالغرض Sub Ali_Sort_Tble() Dim Tb As ListObject On Error Resume Next For Each Tb In ActiveSheet.ListObjects With Tb .Range.Sort key1:=.ListColumns(1), order1:=xlAscending, _ Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With Next On Error GoTo 0 End Sub

ما رايكم لو اختار المستخدم بنفسه النطاق الذي يسمح به بالكتابة Unprotect Only Choosen Range.zip

إخواني الكرام إليكم الملف يعمل على النسختين 32 بت و 64 بت أرجو أن تستفيدوا منه .. تقبلوا وافر تقدير واحترامي Codes Library v1.9.7.rar

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

أخي الغالي م ح م (مختار حسين محمود) تميز بكل جديد كعادتك دائماً والأكثر روعة هو تقديم شرح للكود مما يسهل على الأعضاء التعديل فيه وفهم كيفية عمل الكود والاستفادة منه بارك الله فيك وجزاك الله خير الجزاء

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

السّلام عليكم و رحمة الله و بركاته ....ونِعْمَ الهدايا أستاذي القدير مختار حسين محمود .. و روعة المفاجآت بارك الله فيك .. جزاك الله خيرًا وزادها بميزان حسناتك ..تشكر يا غالي خالص إحتراماتي

اخى مختار ايه الجمال والحلاوه دى دائما ما تاتى بموضوع مفيد تقبل تحياتى

كود ممتاز اخى الحبيب مختار حسين محمود مشكور على الموضوع .. بس انا خايف لا يقفش عشان انا عارف الصعايده كويس

أخى مهند السلام عليكم برجاء تغيير اسم الظهور لديك الى اللغة العربية لسهولة التواصل الشرح : If Not Application.Intersect(Target, Range("B7:B106,F7:F106")) Is Nothing Then If Target.Offset(, 1).Value < CVDate(Date) Then اذا تم تحديد أى خلية فى النطاقين B7: B106 و F7: F106 وكانت قيمة الخلية اللى جنب الخلية المحددة أقل من تاريخ اليوم فإن ........... يعنى مثلا لو كانت الخلية المحددة هى B7 بنشرط شرط وهو أن الخلية اللى جنبها وهى C7 لو التاريخ فيها أقل من تاريخ اليوم فتحدث الحماية واذا لم يتحقق الشرط فان الاكسل يتراجع عن التعديل بالجملة Application.undo طالما أن التاريخ فى C7 أقل من تاريخ اليوم و التعديل لا يكون الا بكلمة السر 123 هتسألنى ازاى أحدد الخلية اللى جنب خلية أخرى : A1 مثلا الخلية التى جنبها B1 ازاى نكتب B1 من غير ما نجيب سيرتها فى الكود : Range("A1").OFFSET(0,1) الجملة دى = B1 , ومعناها ازاحة بمقدار عمود واحد وبدون تغير فى عدد الصفوف للزيادة ابحث عن OFFSET

السلام عليكم هي محاولة مني فاعذرني على تقصيري بقي أن أجعل هذه الكمبوبوكس مقفلة ولأن دوامي يكاد ينتهي آثرت تقديمه على هذه الحال..وكذلك كود العميل.. هي محاولة بدائية تحبو كالطفل الرضيع. والسلام عليكم.eagle

الحمدلله على هذه النعمة وهي حب الجميع للمهندس احمد ان شاء الله احاول التواصل معه وطمأنتكم عنه

حديث لرسول الله -صلى الله عليه وسلم-، يقول: عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم راحل عنا امس العلامه القدير الاستاذ عماد الدين الحسامى وترك لنا علم ينتفع به حبيب اذكركم ببعض ما ترك لنا من اعمال وعلم ينتفع به أسال الله تعالى ان تكون جميع اعماله فى ميزان حسناته ممكن حضرتك تدخل على مكتبه الاستاذ عماد ونشوف اعماله من صفحته الشخصيه بالمنتدى الحسامى.zip الحسامى 2.zip شرح الفورم.zip نظام الحسامي للمخازن.zip واجهه كنترول للاستاذ الحسامي.zip شجرة الحسابات-عماد الحسامي.zip

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

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

تفضل اخي اضغط الزر الذي لديك في الورقه اضافة بيانات جديدة2.rar

أخي الكريم ياسر العربي أهلاً بك في المنتدى بين إخوانك ونورت المنتدى بهذا الموضوع المتميز لي رجاء : يرجى تغيير اسم الظهور للغة العربية بالنسبة لطلبك .. هذا الموضوع يكثر فيه الحديث ولكن خلاصة القول ..أنك ما دمت نويت التعلم فستظل في رحلة تعلم مستمرة لا تنتهي عند حد معين فعندما التحقت بالمنتدى في بداية معرفتي بالإكسيل .. كنت أجد الأكواد ألغاز صعبة الفهم لدرجة أنني اعتقدت أن من يكتب الكود ليس من البشر وفي الحقيقة أن التدرب والاستمرارية والمتابعة الجيدة والإطلاع على الكتب والمنتديات الأخرى إلى آخر تلك الطرق للتعلم ستوصلك إلى نتيجة مرضية في النهاية لقد تمرست في المجال من سنوات وإلى اليوم أتعلم كل يوم ما هو جديد في هذا العالم .. ولا مانع على الإطلاق الاستفادة من الأكواد التي يقدمها الآخرون ..بالعكس هذا ما يجب عليك الاقتداء به ، اعمل بالحكمة التي تقول : ابدأ من حيث انتهى الآخرون قم بدراسة الأساسيات في هذا العلم أولاً بشكل جيد حتى إذا تمكنت من الأساسيات انتقل للتعامل الفعلي مع الأكواد وبداية كتابة الكود وعند مرحلة التأليف لا تيأس . لا تيأس .. لا تيأس .. فالفشل سيكون قرينك دائماًَ والفشل ليس بعيب إنما هو دافع للتعلم أكثر والمحاولة أكثر واجعل شعارك : حاول وافشل ثم حاول وافشل ثم كرر المحاولة مئات المرات إذا تطلب الأمر وافشل مئات المرات ، ولا تيأس أبداً .. لابد أنك ستصل إلى بغيتك يوماً ما من فترة قمت بعمل دورة للمبتدئين .. قد لا ترقي الدورة إلى مستوى الكتب التي تقدم أو مستوى الدورات التي قدمت وتقدم ، ولكني تعمدت فيها البساطة قدر الإمكان ومحاولة التحبيب لهذا العلم (الذي يراه البعض أمراً صعباً أو مستحيلاً) وإليك رابط الدورة عله يفيدك وإن شاء الله تكون نجماً ساطعاً في سماء الوطن العربي وتقدم ما يفيدك ويفيد الآخرين من هنا رابط الدورة تقبل وافر تقديري واحترامي

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

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

الملف الذي تم نسخه ياختي في فولدر ال Bakaup واسف انا اتحدث من الموبيل كنت عدلت لك علي المرفق

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " الصّقر " على السلسلة الموسوعة القيّمة .. جزاك الله خيرًا و زادها بميزان حسناتك .. لمسات علميّة بسيطة في طرحها فائقة الجودة في محتواها .. زادك الله من علمه و فضله .. ألف تحية تقدير واحترام للأستاذ العزيز المحترم محمد حسن المحمّد .. محاولة طيبّة منك سيّدي الكريم تشكر عليها .. فقط كملاحظة أستاذي الفاضل " الصّقر " بالنسبة لموضوع الكومبوبوكس بسلسلة "علّمني كيف أصطاد" أرجو أن تنّونا بما أنعم الله عليك في هذه الجزئيّة الخاصّة ب :ROWSOURCE قمت بعمل كومبوبوكس لإظهار قائمة اسمية وزر أمر بالشيت 1 .. فكانت النتيجة حسب الصورة الآتية : طيّب .. نقلتُ زر الأمر إلى الشيت 3 فكانت النتيجة بكومبوبوكس فارغة : لو تكرمت أستاذنا القدير فضلاً لا أمرًا أن تكمل لنا الدواء الناقص بهذه الوصفة بكيفية إضافة اسم الشيت بهذا الكود للتمييز بين الشيتات ليكتمل الموضوع بأذهاننا على أكمل وجه : لو كان الأمر من نافذة الخصائص ..فهذا أمر بسيط لأنّ اسم الشيت سيكون مكتوب : فائق احتراماتي

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

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

اخى محمد تنمنى من الله عز وجل ان يمدنا ويرزقنا بما ينفعنا تقبل تحياتى اخى سعد بتغيب تغيب وتظهر على فترات ياريت متسبناش كتير عايزين نستفيد من خبراتك تقبل تحياتى

تسلم حبيبي صلاح المصري كتاب رائع فعلا به اساسيات وهذا ما نريده في جميع الكتب نفعك الله بالعلم والعمل الصالح مع خالص شكري اخوك : ياسر العربي

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

السلام عليكم جرب اضافة هذا السطر في البداية Application.ScreenUpdating = False وهذا في النهاية Application.ScreenUpdating = True تحياتي

وعليكم السلام . تذكر لما سألتك: . ولا يهمك تريد شئ ثاني قبل ما اقفل الدكان جعفر

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

يا كبير انزل بالدرامز متشوقناش اكتر من كدا كان هناك مشاركه بنفس الموضوع قبل كدا والاخ المهندس احمد قدم فيديو للحل وانت كمان كان ليك حل اخر الرابط هو http://www.officena.net/ib/topic/59193-ملف-فارغ-354-ك-ب/ تقبل تحياتى

وعليكم السلام أختي انا عملت لك 3 استعلامات ، على اساس الحوارات اللي دارت بينك وبين الاستاذ رمهان رجاء تتأكدي من النتائج جعفر 236.‫tajera3.mdb.zip

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

السلام عليكم أخي الحبيب إبراهيم أبو ليله المحترم: كم كنت أتمنى أن أراجع دراسة هذا الشرح الرائع والمتميز مرات ومرات تعلمنا من حضرتك أن الحلقة التكرارية تغنينا عن كتابة كل خلية حسب موقعها ضمن الكود كما أتمنى أن يكتب الكود يوماً ما بالعربية، ألا يكتب الإنكليز بلغتهم والصينيون بلغتهم والهنود أيضاً فلم لا يكون لنا استقلالنا بكل شيء فنكتب مثلاً - وهو حلم نود لو تحقق ذات يوم: تقبل تحياتي.. Sub enterdata_for1() Dim h As Integer For h = 23 To 26 Cells(h, 8) = h - 22 Next End Sub كود إدخال_بيانات_لأجل1() تعريف h كعدد صحيح لأجل h =23 إلى 26 الخلايا (h,8)=h-22 التالي نهاية الكود

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

تفضل اخي التعديل حسب 26 سجل او اقل. Both_Database.rar ابو عارف

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

والله ليك وحشه يا غالى اتمنى ان تكون بخير وصحه وعافيه وان تكون بيننا فى القريب العاجل

السّلام عليكم و رحمة الله و بركاته فعلاً .. ملف على المقاس .. بارك الله فيك وجزاك الله خيرًا إحتراماتي

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

وانا انشاء الله سابدا باعادة تصميمه ارجو ان ترسل بقية الملاحظات ان وجدت وانا بخدمتك

اقصد في اي نموذج لا اتذكر وجود جدول فيه حقل اقساط

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح .. Codes Library v1.9.6.rar

السلام عليكم ورحمة الله وبركاته أخواني الفضلاء تقبل الله منا ومنكم وبعد وبمناسبة دخول الدور الثاني فهذا البرنامج قمت بتطويره لنعمل به في مدرستنا وحبيت اشاركم اياه لعله يفيد احدكم برنامج كشوف مناداة الدور الثاني + _ارقام الجلوس _ للصف الأول والثاني الاعدادي [الاصدار الثاني] اهم مميزات البرنامج 1 ) بالنسبة لكشوف المناداة - توزيع اللجان تلقائي - يقبل توزيع حوالي 500 طالب - يسع لعدد 33 طالب لكل لجنة - اسفل كشف كل لجنة احصائية لعدد الطلاب الراسبون في كل مادة في اللجنة 2 ) ارقام الجلوس - يوجد برقم الجلوس لكل طالب خلية بها مواد الدور الثاني للطالب - ورقة الطباعة بها 10 ارقام والان اترككم مع البرنامج وعند وجود اقتراحات أو اخطاء انا في خدمتكم والسلام عليكم ورحمة الله وبركاته كشوف مناداة الدور الثاني + _ارقام الجلوس _ للصف الأول والثاني الاعدادي.rar

أخي العزيز / عبد الله بلال ضع المعادلة التالية في الخلية (F33) =IF(OR(AND(C10="متزوج";E10=0;M9="ماكثة / بطال");AND(C10="متزوجة";E10=0;M9="ماكثة / بطال"));5.5;IF(OR(AND(C10="متزوج";E10>0;M9="ماكثة / بطال");AND(C10="متزوجة";E10>0;M9="ماكثة / بطال"));800;IF(OR(AND(C10="متزوج";M9="عاملة / عامل");AND(C10="متزوجة";M9="عاملة / عامل");AND(C10="أعزب";C10="عزبة"));0;0))) لكن يجب الإنتباه لتسمية القوائم في الخلايا المحددة للشروط لأنها لم تظهر لإرتباطها بنطاقات غير موجودة في الملف المرفق خاصة الخلية (C10) والخلية (M9) فعلى سبيل المثال في الخلية (M9) التي تحدد وضعية الزوج والزوجة جعلتها مشتركة (ماكنة/بطال) كذلك جعلتهاأنا في الشرط الثاني (عاملة/عامل) أرجو الإنتباه لذلك والتعديل على ما هو مكتوب عندك بالضبط حتى تكون النتائج مضبوطة واإن شاء الله يكون هو المطلوب وإذا في أي خطأ ممكن الإشار إليه لتصحيحه والعفو كشف.rar

هذا الشرح و المثال للأخ فيصل الحربي: ========================= طريقة إخفاء شاشة الأكسس السلام عليكم ورحمة الله وبركاته إليكم طريقة إخفاء شاشة الأكسس نهائيا بعد فتح النموذج المطلوب 1- انشئ قاعدة بيانات جديده 2- انسخ الكود التالي ثم الصقه في وحده نمطيه جديدة وسمها أي اسم ترغب به الكود =============================================== Option Compare Database Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) 'Usage Examples 'Maximize window: ' ?fSetAccessWindow(SW_SHOWMAXIMIZED) 'Minimize window: ' ?fSetAccessWindow(SW_SHOWMINIMIZED) 'Hide window: ' ?fSetAccessWindow(SW_HIDE) 'Normal window: ' ?fSetAccessWindow(SW_SHOWNORMAL) ' Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then 'no Activeform If nCmdShow = SW_HIDE Then 'MsgBox "Cannot hide Access unless " _ & "a form is on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then 'MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then 'MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If fSetAccessWindow = (loX <> 0) End Function =============================================== 3- انشئ نموذج جديد وسمه اي اسم ترغب به 4- غير خصائص النموذج الى pop up=yes modal=yes منبثق = نعم = pop up شكلي او مشروط = نعم = Modal 5- ضع زر امر لإغلاق النموذج مع الأكسس 6- ضع في حدث عند الفتح الكود التالي الكود ============================================== fSetAccessWindow (SW_SHOWMINIMIZED) fSetAccessWindow (SW_HIDE) ============================================== 7- من قائمة أدوات اختر بدء التشغيل ثم حدد النموذج لكي يفتح في بدء التشغيل 8- إحفظ عملك ثم قم بإنهاء القاعدة . 9- شغل القاعدة وسوف ترى ان خلفية الأكسس مختفيه تماما ما عدا النموذج الذي اخترته من قائمة بدء التشغيل . 10 -دعواتكم لنا بالتوفيق مرفق مثال على الطريقة hideaccesswindow_Faisal.zip