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

السلام عليكم ورحمة الله وبركاته بعد الحمد لله والصلاة والسلام على رسول الله وبعد وبعد نزول الاصدارالثالث وقيام بعض التعديلات عليه وطلب بعض الاخوة جزاهم الله خيراً بطلب بعض التعديلات قررت مستعينا بالله ان انزل الاصدار الرابع اهم المميزات الاصدار الرابع 1 ) تعديل بعض الاخطاء البسيطة التي كانت في احد الورقات 2 ) بناءأً على طلب الاخوة اضفت ورقة شهادات للدور الثاني والان اترككم للتصفح وانا في انتظار ارائكم والسلام عليكم ورحمة الله وبركاته للعلم جميع المعلومات عن هذه المرحلة وما يخصها من درجات والقرارات الوزارية ماخوذة من الاستاذ //ahmed alimer فله الشكر كما اشكر كل من ساهم في امدادي ببعض المعلومات ومنهم الوالدة الفاضلة // أم عبد الله الاستاذ الفاضل // اسامة عطاالله الاستاذ الفاضل // حسين شاكر وعند وجود اي أخطاء ارجو الابلاغ لتعديلها واتمنى لمن هو مهتم بهذا الشيت ان يتابع اخر مشاركات لهذا الموضوع من حين لاخر فربما نجد اخطاء ويتم تعديلها.. والسلام عليكم ورحمة الله وبركاته.. شيت النقل للتعليم الفني 20 مادة تضاف للمجموع + 2 مادة لا تضاف للمجموع _الاصدار الرابع-السبت _12-4-2014.rar

بعد إذن أخى الحبيب ( محمد أبو البراء ومجهوداتة الرائعة هذا حل أخر لعله المطلوب تقبلوا تحيات أخيكم مشروع ملاحظة.rar

أستخدم هذه المعادلة ستحقق لك المطلوب =--LEFT(C2;FIND(" ";C2))*D2 ثم إسحبها لأسفل تقبل تحياتى

أليكى أختى ماطلبتى tel num 2.rar

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

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

بصراحة أخى أحمد مكون المعادلة مش دقيق لكن طالما يحقق ماتريدة وترغب فى إزالة علامة الخطأ وكتابة كلمة " صنف جديد " أ ستحدم هذه المعادلة وأسحبها لأسفل وإن كانت المعادلة الأخيرة فى المشاركة رقم ( 8 ) أدق من حيث طلبك =IFERROR(IF(LOOKUP(9.9999999999E+307;1/($E$2:$E$2=E2);$G2:$G2)="";" ";LOOKUP(9.9999999999E+307;1/($E$2:$E$2=E2);$G2:$G2));"صنف جديد") تقبل : تحياتى

تفضل أخى معادلة لمعرفة أخر سعر_2.rar

تفضل أخى المطلوب البحث عن القيم التى تناسب الفترة.rar البحث عن القيم التى تناسب الفترة 2.rar

بعد إذن أخوتى طريقة أخرى لأثراء الموضوع tel num.rar

إلى حضرتك المطلوب أخى وقد أضفت ميزة البحث بين تاريخين سعر فائدة المركزي.rar

تعلم أكسس 2007 | الفصل الأول : بدء العمل مع أكسس

بسم الله الرحمان الرحيم السلام عليكم برنامج دليل الهاتف هذا ليس الاول الذي يطرح في المنتدى يعني الفكرة ليست جديدة لاكن ,,,,,,,,, المغزى من تصميمي لهذا البرنامج هو الجانب الجمالي اكثر منه الجانب التقني كما يعلم الجميع ان امكانيات VBA ليست بالكبيرة من ناحية التصام الخاصة بالفورم شخصيا سأمت من الفورمات والازرار الكلاسيكية مع هذا البرنامج ستكتشفون التقنية الازمة لجعل شكل الفورم مميز وجذاب الى اقصدى الحدود ا ابدأ اولا مع تعريف البرنامج جعلت الملف ملف Setup يثبت على الجهاز كأي برنامج بالطريقة المعروفة لدى الجميع بعد تثبيت البرنامج ستجد ايقونته على سطع المكتب واجهة البرنامج هذا هو الفورم الذي اتحدث عنه أولا لاضافة البيانات اضغذ على زر جديد ثم اختر مجموعة ثم املئ البيانات الازمة ومن صورة ادراج صورة اختر الصورة التي تريد اراجهاط حفظ ثانيا للتعديل ابحث عن بيانات الشخص التي تريد تعديلها بواسطة مربعات البحث حيث تتوفر اربع خيارات للبحث حسب الاسم او اللقب او الهاتف او البريد اما قائمة المجموعات تجلب لك جميع الاسماء المدرجة تحت المجموعة المختارة بعد ايجادك للبيانات التي تريد تعديلها اضغط عليها من اليست لكي تضهر البيانات في التكسات عدل ماتريد وكدالك يوجد امكانية تعديل الصورة بعد اتمامك التعديل اضغط حفظ ثالثا للحدث نفس الامر كما التعديل وانما اضغذ حذف رابعا اضافة او تعديل مجموعة لاتمام ذالك اضغط على الايقونة الجرارة بجانب ليست المجموعات ليضهر لك الفورم التالي لتعديل اضغط على المجموعة تضهر لك امبوبوكس اكتب الاسم الجديد ثم اوك للا ضافة اضغط اضافة تضهر امبوبوكس اكتب فيها اسم المجموعة الجديدة ثم اوك ولمن يسأل عن الطريقة للوصول الى هذا الشكل الامر بسيط اولا قم بتصميم واجهة البرنامج باي برنامج تجيده كالفوتو شوب مثلا شخصيا استعملت الاكسل في التصميم ثم اجعله كخلفية للفورم الخاص بك ومن اجل الحواف والانحناءات ,,,, شاهد هذا الموضوع حركة جديدة (اجعل الفورم يأخذ اي شكل تريده) ولتفعيل عجلت المواس كما هو في هذا البرنامج شاهد تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس يبقى الخاصية التي استعملتها مع الازرار وهي كالاتي اولا قم جميع بتصميم الازرار الازمة للبرنامج ثم ادرج ImageList في المشروع الذي تعمل عليه وخن جميع صور الازرار فيه وهذا الكود المستعمل لجعل Image تأخد الصورة التي نريد ان تأخذها Me.Image1.Picture = ImageList1.ListImages(1).Picture ملاحضة عندما تكون في وضع الفورم وتريد العودة الى ملف الاكسل اضغط Alt+B الرقم السري 1111 اترككم مع المرفق و ارجو ان لا أكون قد اطلت عليكم كما ارجو ان ينال البرنامج اعجابكم وتن تستفيدومنه ولاي استفسارات أنا في الخدمة تحياتي للجميع اخوكم في الله (شوقي ربيع) البرنامج بصيغة الملف التنفيذي Telephone book.rar البرنامج بدون صيغة الملف التنفيذي Telephone book Excel.rar نسخة متوافقة مع جميع انظمة التشغيل للاخوة التي ظهرت عندهم مشكلة مع البرنامج بتاريخ اليوم 2014/04/16م نسخة متوافقة لجميع نظم التشغيل.rar

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

عليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله الاستاذ محمد أبو البراء بجد عمل أكثر من رائع بس كان لي بعض الملاحظات وليست تعديل لا سمح الله بصفحة بيانات المدرسة يمكنك اضافة رسالة للتنبيه عند مسح البيانات صفحة جدول الامتحانات مفتاح الزيادة والنقصان ومفتاح التنقل السريع والرئيسية متحركين من اماكنهم صفحة كشوف المناداة اخفي الصفوف من ( AB:AE) ليس لاخفاء المعلومة ولكن خوفا من اي يقوم احد بمسح ما بها من بيانات والكشوف مبنيه عليها صفحة ارقام الجلوس التخصص ورقم الجلوس سواء كان يوجد اسماء للطلبة او لا يوجد يتم ظهورهم يمكنك اظهارهم في حالة وجود اسم فقط صفحة الشيت بالنسبة للرصد سواء على الجلوس أو السري يمكنك أيضا أن تجعل قبل الاتمام في عملية الرصد التاكيد برقم سري خفا ان يقوم أح بالعبث بالشيت اثناء غياب المسئول عن الكنترول صفحة نتيجة نصف العام خانة ترتيب الطالب بالعمود (AA) الدالة المكتوبة هي =IF(C10="";"";RANK(X10;$X$10:$X$501;0)) لاحظ أنك تقارن رقم الخلية بعمود الدرجات ولكن انت مش جايب كل الدرجات لانك وبتقار لغاية الصف رقم ( 501 ) وأنت شغال لغاية الصف رقم ( 503 ) صفحة شهادات اخر العام عند كتابة رقم جلوس ليس له اسم أو درجات تظهر بالخانة الشكل ( #N/A ) ويمكنك طبعا الاستغناء عنه باضافة دالة ( IFERROR) بالبداية صفحة له دور ثان بنهاية الصفحة أنت تحددي مواد الرسوب اتمني ان تراجع المعادلة الخاصة بمواد الرسوب وهي =IF(OR(E16="";AF15="");"";IF(OR(AF15="غ";AF15<$AF$14);"راسب";"ناجح")) لاحظ معي انك محدد الصف رقم 15 وانت بالصف رقم 16 صفحة نتيجة الدور الثاني عمود حالة الطالب يوجد به هذه المعادلة =IF(E9="";"";IF('له دور ثان'!HB15="";'له دور ثان'!HB16;'له دور ثان'!HB15)) ليه محدد لو خلية المادة الثانية هي لو فارغة تبقي خلية حالة الطالب فارغة ( ملحوظة :- انا ليس لدي علم بقوانين التعليم الصناعي ) اما بخصوص انت بتقول في المعادلة السابقة لو الخلية رقم ( HB15 ) بصفحة له دور ثان فارغة يبقه اكتب القيمة الموجودة بالخلية رقم ( HB16 ) طيب الخلية ( HB15 ) بصفحة له دور ثان اساسا فارغة وليس بها اي معادلات يعني كده او كده هيعطي الشرط الثتني بدالة IF وهي الخلية ( HB16 ) وهكذا لباقي العمود صفحة شهادات الدور الثاني يوجد علامة ( #REF ) خطا فاتمني ان تراجعها وتعدل المرجع الخاص بها وأخير أتمني أن تتقبل كلام ومرة أخرى ليس تعديل عليك لا سمح الله ولكن هذا الكلام حتي يخرج عملك على أكمل وجه والكمال لله سبحانه وتعالي لك كل تحيه وتقدير

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

السلام عليكم =INDEX(Data_01;MATCH($D$10;INDEX(Data_01;0;5);0);COLUMN()) المرفق 2003 smr.rar

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

أنظر أخى هذا الروابط أعتقد بها ماتريد http://www.officena.net/ib/index.php?showtopic=47784 http://www.officena.net/ib/index.php?showtopic=49775 http://www.officena.net/ib/index.php?showtopic=47288 http://www.officena.net/ib/index.php?showtopic=50205 تقبل : تحياتى

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

وعليكم السلام ورحمة الله وبركاته استاذ // زيد رغم ان الملف لم يتضح مقصودك تماما ولكن تفضل قمت بعمل احصائية لمادة العربي لعدد الغياب وهي كالتالي بالنسبة للذكور =SUMPRODUCT((الشيت!L7:L200="ذكر")*(الشيت!S7:S200="غ")) وبالنسبة للاناث =SUMPRODUCT((الشيت!L7:L200="انثى")*(الشيت!S7:S200="غ")) احصاء_braa.rar

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله و بركاتة اخواني الكريم اريد من حضرتكم برنامج لمحل بيع الهواتف الخلوية او المساعدة في بناء البرنامج ما اريده من النظام: 1. تسجيل حركات البيع للزبائن.-هنا احتمال ان يشتري الزبون اكثرمن جهاز في و قتين مختلفين-. 2. تسجيل الدفعات المقبوضة من الزبائن. 3. حساب المبلغ المتبقي على الزبون . الجداول التي عملتها: 1. الاصناف. 2. الزبائن. 3. المبيعات. 4. المناطق. 5. تفاصيل المبيعات. وبارك الله فيكم جميعا

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

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

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

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

اخي الفاضل حماده --------حفظك الله اكرمك الله احبك الله مثل ما احببتني جزاك الله خرا تقبل تحياتي وشكري

السلام عليكم استاذ ومعلم الجميع / عبد الله باقشير لم اجرب الكود وليس لي علاقة بالموضوع ولكن احب كل ردودك وكل موضوعاتك فالاكيد انني ساستفيد منها ومعجب جدا بعلمك والاكثر منه حسن خلقك فعلا وحبك لمساعدة الغير جزاك الله عنا وعن هذا المنتدي كل الخير ان شاء الله آسف علي الدخول للموضوع ...ولكن اعذروني

سعيد جدآ اخى/ على رعد بمبادرتك الطيبة والى اللقاء قريبآ مع أسئلتك التى نحن كلنا فى إنتظارها

اكتب : (9999)_9999_999 (99)_9999_999 New 2.rar