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

الاخ الكريم طلبك غير واضح ... ياريت لو مثال كامل ولكن شاهد المرفق هل تقصد هكذا 2013-2003.rar

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

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

تحميل كتاب لحماية هويتك و اتخاذ الاجراءات اللازمة عند استخدام الأنترنت عنوان الكتــاب أسرارك و هويتك الالكترونية معروضة في ميدان عام مؤلف الكتـاب INTERNET SHOPPER لغة الكتاب العربية عدد الصفحات 07 صفحات حجـم الملـف بعـد الضغـط 392,67 كيلو بايت تحميل الكتاب

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

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

السلام عليكم ورحمه الله وبركاته قمت بعمل برنامج للمرتبات والكشف يكون من عدة صفحات والمجموع يكون في اخر صفحة . تتلخص المشكله في اني اريد ان يظهر مجموع كل صفحة في نهايتها وليس في نهاية الكشف فقط وجزاكم الله خيراً

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

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

الأستاذ/ ريان الكود مرفق في الأسفل نعم هو بالأساس مصمم لإصدار 2003 استاذ حماده عندما شغلت الكود ظهرت لي رسالة خطأ بالكود الأستاذ/ وليد نعم الرسالة تظهر ولكن بعد أداء الكود مهمته في حذف عناوين النطاقات الفارغة - يمكنك التغاضي عنها فليس لها تأثير عموما قمت بالتعديل حتي لاتظهر الرسالة - تفضل الكود الجديد : '========== Reduce File Size & Fix Blank UsedRange By Excel ============== 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) '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 j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column 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 Shp .Range(Cells(1, LastCol + 1).Address & ":IV65536").Delete .Range(Cells(LastRow + 1, 1).Address & ":IV65536").Delete End With Next ws Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تقبل تحياتي

السلام عليكم ارجو التفضل والاطلاع على الملف المرفق الذي يبين تفاصيل سؤالي ، والترحيل يكون على اساس رقم السيارة جزاكم الله خيراً والسلام عليكم اضافة وترحيل بيانات من القائمة الفرعية الى القائمة الرئيسية.rar

السلام عليكم اخي الكريم ان توفر الوقت سوف اعمل عليه ان شاء الله تحياتي

ارجو الافاده هل الملف أوفى المطلوب فى الانتظار

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

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

الأخ العزيز / aly3 mohamed بعد اذن الاستاذ / الشهابى هذا حل اخر لعله يفى المطلوب واثراء للموضوع تقبل فائق التحيات 2.rar

الأخ العزيز / aly3 mohamed هذا حل عن طريق أعمدة مساعدة تم تليونها باللون الأصفر حتى تتمكن من معرفتها إن شاء الله يكون هو مطلوبك والعفو تقبل تحياتي 1.rar

كنترول المرحلة الابتدائية للفصلين الدراسيين الاول والثاني حمل من احد الروابط التالية : http://www.m5zn.com/d/?15010412 http://www.4shared.com/rar/qVXMRA0U/___1_.html اسم المستخدم : لوجى باشا كلمة السر : 1964 والموضوع موجود فى منتدي الاكسل على هذا الرابط http://www.officena.net/ib/index.php?showtopic=49517&hl=

السلام عليكم ورحمة الله و بركاته أنا مستخدم جديد للأوتلوك وعندي سؤالين لاهل الخبرة س1/ عند القيام بإرسال رسالة لاي شخص مثلا aaa@gmail.com يقوم الاوتلوك بحفظ الايميل ، فاول ما اقوم بإرسال رسالة اخرى لشخص أخر يبدأ ب حرف a يظهر الايميل السابق و انا لا اريده ان يظهر اريد اخفاء او حذف بعض الايميلات نهائيا ؟ س2/ كيف اجعل الاوتلوك أن يفرز الرسائل المستلمة و المرسلة حسب الايميل المستلم او المرسل الى مجلدات مخصصه ؟ وشكرا

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

شاهد المرفق امرين بزر.rar

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

حذف السجلات Deleting Records ويروق لي أن اسمي هذا الموضوع بالحذف الحقيقي و الحذف الافتراضي. في غالب التطبيقات نجد من الضرورة ، أن نضيف في مكان ما من نماذجنا وحسب الحاجة زر أمر نقوم من خلاله بحذف السجلات التي نظن أنها لا تلزمنا أو لسبب ما لا بد من حذفها من قاعدة بياناتنا. ولسبب ما ( مرتبط بالتجربة الطويلة ولأسباب علمية وعملية) ينصح أهل الخبرة في قواعد البيانات ومن يعتبرون من المطورين المعول على كلامهم وتجربتهم ، أن عملية الحذف الحقيقي عملية مؤلمة ومكلفة في آن واحد ، فحين تقرر حذف سجل معين فإنك تقرر الاستغناء عن جزء من المنظومة المعلوماتية التي مرت على هذه القاعدة ، وبالتالي خسارتها للأبد ، ويزيد الامر تعقيدا حين نتعامل مع عملية الحذف المقترن بجداول مرتبطة ، نخسر فيها أطرافا متعددة من العناصر المعلوماتية. وهنا سأورد الرأي بتصرف مضيفا بعضا من خبرتي المتواضعة، فينتهي القول الى: بديل مناسب لعملية الحذف الحقيقي ، وتتمثل ببساطة بإضافة الحقول التالية للجداول الرئيسية التي ستتعرض لعمليات الحذف (الافتراضي ) وهي حقل نعم/لا ، وحقل تاريخ وحقل نصي ، وتتلخص العملية بأن تكون هذه الحقول الثلاثة هي محور الحذف الافتراضي ، فحين نقرر عدم حاجتنا للسجل ، ما علينا الا ان نغير قيمة (لا) الافتراضية في الحقل الاول الى (نعم) ، ونضيف عبر الكود التاريخ الى الحقل الثاني Now و اسم المستخدم للحقل الثالث. هنا طبعا يفترض اننا سنقوم بالاجمال باسناد مصادر السجلات في جميع نماذجنا ونبني استعلاماتنا على اساس افتراضي تكون فيه القيمة للحقل الاول هي (لا) حتى نتجنب السجلات المحذوفة افتراضيا. هذه العملية البسيطة قد لا تجدها مجدية او ذات اهمية وتتحمس للحذف الحقيقي ، ولكن : حين تتعرض لخسارة سجلات مهمة حذفت من قبلك عن طريق الخطأ او عن طريق اي مستخدم حين تمر السنوات على تطبيقك وياتي يوم تحتاج فيه لاحصاءات ومقارنات وتحليلات وتقارير تتعلق بتاريخ قاعدة البيانات ، سواء لحاجاتك انت او بطلب من ادارتك او عميلك ستتعرف لأهمية هذا الروتين البسيط. فحين تتعرض لطلبات لا يقوى عليها صاحب الحذف الحقيقي ، ستكون اجابتك (ممكن ... فكل شيئ متاح) اما البديل الخاص بالحذف الحقيقي ان صممت عليه فهو الكود: If Msgbox ("You are about to delete data, do you want to continue?", vbYesNo + vbCritical,"Confirm Delete") = vbYes Then CurrentDb.Execute "DELETE MyID FROM MyTable WHERE MyID = " & Me.MyIDControl, dbFailOnError End If مع ضرورة التنبيه قبل اجراء عملية الحذف لأنه .... حقيقي....!!! ..............

Capital letters للكتابة في الحقل باستخدام أحرف كبيرة Private Sub VinNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub