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

تفضل الحلول Microsoft Excel Worksheet جديد.rar

شرح UserForm Spreadsheet تحياتي إلى الجميع شرح UserForm Spreadsheet هذه الأداة تسمح بنسخ كامل ورقة العمل او مدي محدد منها الي الفورم مع التحكم في الجزء المنسوخ بالتسيق للصفوف والأعمدة والتلوين واشياء كثيرة اخري هذه الاداة UserForm Microsoft Spreadsheet Control ActiveX من ادوات Control ActiveX وهي تتوفر لمستخدي اوفيس 11 و 14 أي لمستخدمي اوفيس 2003 و 2010 بدون اى مشاكل ================================================== اما مستخدمي اوفيس 2007 اما تركيب owc11 Office Web Components الخاصه بأوفيس 11 بدلا من Excel Services ورابط تحميلها من Microsoft موجود بالمرفقات_1 او فأذا لم تعمل الاداة يجب تنفيذ التعليمات التاليه وهي طريقتين بالرابط التالي رابط التعليمات بالمرفق_2 ================================================== المرفقات_1.rar المرفقات_2.rar يتبع اظهار الاداة لمستخدمي اوفيس 2003 و 2010 سوف نتبع كل السبل المتاحه لإظهر الادة الطريقة الاولي اتبع الصور من 1 - 4 في محرر الاكواد الطريقة الثانية اتبع الصور من 5 - 6 في محرر الاكواد بعد اضافة المكتبتين نفذ ما في الصور من 1 الي 4 اذا لم تجد هاتين المكتبتين لا عليك قم بتحميل المرفق_3 ستجد بداخله ملف اكسيل بأسم Add_Reference اضغط علي الزر لتنفيذ ماكرو يعمل علي اضافة هاتين المكتبتين بعد اضافة المكتبتين عن طريق الماكرو نفذ ما في الصور من 1 الي 4 ================================================== المرفقات_3.rar يتبع

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

جرب هذا الملف copy sheet.rar

هذا أحد الحلول تفضل Microsoft Excel Worksheet جديد.rar

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام ..أحبابي في الله أقدم لكم اليوم كودين ، تعتمد الفكرة فيهما على تجميع القيم التي يتم إدخالها ، مع كل إدخال جديد في المرفق ستجد ملفين .. الملف الأول باسم Single Cell Accumulator أي التجميع للقيم في خلية واحدة فقط ويظهر الناتج في نفس الخلية .. قم بإدخال أي قيمة في الخلية A1 وليكن 5 ثم سهم لأسفل واكتب القيمة 4 ستجد أن ناتج الخلية أصبح 9 ، اكتب 3 ثم سهم لأسفل ستجد الناتج أصبح 12 وهكذا .. أعتقد أن فكرة الكود قد وصلتكم الآن .. لإعادة ضبط عملية التجميع قم بمسح محتويات الخلية A1 أو وضع نص بها .. الكود في الملف الأول بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) = "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator = dAccumulator + .Value Else dAccumulator = 0 End If Application.EnableEvents = False .Value = dAccumulator .Select Application.EnableEvents = True End If End With End Sub الملف الثاني باسم Two Cell Accumulator وفي هذا الملف تتم عملية الإدخال في الخلية A1 بينما تظهر النتائج في الخلية B1 ، ففي كل إدخال رقمي يتم تجميع القيمة إلى القيمة الموجودة في الخلية A1 ، وهنا إذا تم مسح محتويات الخلية A1 أو كتابة نص بها ، فإن الناتج في الخلية B1 يظل كما هو ، ولإعادة ضبط عملية التجميع من جديد قم بمسح محتويات الخلية B1 والكود في الملف الثاني يظهر بهذا الشكل (في حدث ورقة العمل) Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("B1").Value = Range("B1").Value + .Value Application.EnableEvents = True .Select End If End If End With End Sub أرجو من الله أن يجعل أعمالنا صالحة ، ولوجهه خالصة .. دمتم في رعاية الله حمل الملف من هنا

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

السلام عليكم بعد اذن اساتذة المنتدى الكرام هذه اول مشاركة لى بملف على هذا المنتدى العظيم .قمت يالتعديل والأضافة على بعض الشيتات الخاصة بالكنترول للصف الثانى الثانوى لما وجدت من بعض القصور فقمت ببعض الأضافات وأهمها ( ضم القسم العلمى والأدبى بكل فروعهم فى شيت واحد - كما ضميت كذلك طلبه المنازل ) ( تقريب الكسور فى المجموع الكلى للدرجة ) واتوجة بالشكر الى كل الأساتذة الموجودين بالمنتدى الذين تعلمت منهم الكثير وأخص بالذكر الأستاذ رجب جاويش على افكارة الرائعة فى الشيت كنترول الخاص بالثانوى العام التى اخذت منها الكثير واضفته للبرنامج وكذلك الأستاذ سامى الهادى وكذلك الأستاذ العلامة عبدالله باقشير الذى افادنى كثيرا فى تفقيط مجموع الطالب وهذه نسخة اولية ارجو التفضل بابداء ملاحظاتكم عليها. كلمة السر 123 ونظرا لكبر حجم الملف قمت بوضعه على هذا الرابط http://www.mediafire.com/download/l4lg47ckt7zobb8/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89.rar

السلام عليكم ورحمة الله بعد تسمية النطاقين المعادلة تصبح: =IF(P3="";"";INDEX(RangDate;MATCH(P3;Rang;0);7)) بن علية

اجابة السؤال الأول بالفعل العمود لابد من استخدامه فى sum if على حد علمى أما اجابة السؤال الثانى فبعد كتابة المعادله يجب ان تضغط CTRL+SHIFT+ENTER لانها معادله صفيف

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته تحياتي إلى الجميع تكملة شرح UserForm Spreadsheet قبل عمل ال TextBox لنستخدمه في البحث او الفلترة سنقوم بعمل بعض التحابيش الجماليه لل Spreadsheet وهي اخفاء لبعض الاشرطه والادوات من ال Spreadsheet لتبدو لنا مثل ListBox تماما كما في الصوره التاليه سيتم اخفاء كل الاشرطة والادوات التي تم تميزها باللون الاحمر ويتم ذلك بأستخدام اجراء تنشيط UserForm وهو UserForm_Activate وتكون الاكواد كالاتي ================================================== Private Sub UserForm_Activate() ' '================================================================== With Spread .DisplayToolbar = False ' اخفاء شريط الادوات With .ActiveWindow .DisplayWorkbookTabs = False ' اخفاء تاب اوراق العمل .EnableResize = False ' اخفاء تاب التحكم في حجم ورقة العمل .DisplayHeadings = False ' اخفاء ترقيم الصفوف و الاعمدة .DisplayHorizontalScrollBar = False 'اخفاء شريط التمرير الافقي .DisplayVerticalScrollBar = False 'اخفاء شريط التمرير الرأاسي End With End With '================================================================== ' End Sub ================================================== والان نكمل المثال بعد تم عرض كامل الدتا داخل Spread 1 - سنقوم بعمل زر للخروج طور الفورم 2 - سنعمل عدد 2 TextBox احدهما للبحث او الفلترة والثاني لمجموع مبالغ المكافئة 3 - سنعمل عدد 2 OptionButton الاول للفلترة من بداية الاسم والثاني للفلترة بأي جزء من الاسم وتكون الاكواد كالاتي في حدث TextBox1_Change كالاتي عند ادراج اى حرف في TextBox1 يبدأ تنشيط هذا الحدث ================================================== Private Sub TextBox1_Change() ' On Error GoTo End_Me Spread.Rows("1:" & Rows.Count).ClearContents 'حذف محتويات ال Spread بالكامل ' '/============================================================= Search_Text = TextBox1 & "*" 'في حالة تنشيظ ال OptionButton1 'توجيه محتوي ال TextBox1 الى المتغير Search_Text 'واضافة علامة النجمة له في نهايته ليكون البحث او الفلترة بجزء من بداية الاسم If OptionButton2 Then Search_Text = "*" & TextBox1 & "*" ' اما في حالة تنشيظ ال OptionButton2 'توجيه محتوي ال TextBox1 الى المتغير Search_Text 'واضافة علامة النجمة له في البداية و النهايته ليكون البحث او الفلترة بأي بجزء من الاسم ScreenOn Sh_Data.Range("A1").AutoFilter Field:=2, Criteria1:=Search_Text 'في ورقة العمل الرئيسية عمل تصفية تلقائية على العمود الثاني (الاسم) 'بمحتوي متغير الفلترة المتغير Search_Text '/============================================================= Sh_Data.AutoFilter.Range.Copy 'بعد الفلترة نسخ ناتج الفلترة من ورقة العمل الرئيسية الي الذاكرة With Spread With .Range("A1") .Paste 'لصق ناتج الفلترة الي ال Spread .Select End With End With '/============================================================= Total = Sh_Data.Range("M1").Value TextBox2 = CStr(Format(Total, "0.00")) 'نسج خلية المجموع ( M1 ) من ورقة العمل الرئيسية الي TextBox2 في الفورم '/============================================================= End_Me: ScreenOn On Error GoTo 0 ' End Sub ================================================== ملحوظة بعد عمل الفلترة على الفورم يمكن التبديل بين بداية الاسم و أي جزء الاسم الملف موجود بالمرفقات_6 تم تجربة المثال علي كل من أوفيس 11 / 2003 و أوفيس 14 / 2010 بدون أي مشاكل وبذلك ينتهي شرح UserForm Spreadsheet والي لقاء قريب بإذن الله مع شرح اداة ثانية نادرة الاستخدام مغمورة مطمورة ================================================== المرفقات_6.rar تحياتى لكم جميعا

السلام عليكم ورحمة الله وبركاته اخوانى الاحبه كل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال وجدت موضوع به 101 مثال مفتوح المصدر للفيجوال فاحببت ان اشارككم اياهم لتعم الفائده بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أثناء تصفحي لموقع مايكروسوفت وجدت 101 مثالا مفتوحي المصدر لبرنامج الفاجوال بيزك 2005 طبعا بعد تحميل الملف الذي يضمهم كلها , يكون على شكل ملف Setup حمله واختر المسار أو يمكنك أن تقوم بتحميل كل على حدى .. وتشمل الأمثلة عدة أقسام : Base Class Libraries - Group 1 :download: Changing ACL (Access Control Lists) on files Console Enhancements including buffer control, simple animations and colors Downloading files using FTP (File Transfer Protocol) Network Programming including PING, UDP, and TCP network statistics Using the new Stopwatch class to measure time Compressing and decompressing files in the GZip format Retrieving Drive Information Using Generic Collections Creating Regular Expressions to parse text Base Class Libraries - Group 2 Samples :download: Building a tracing infrastructure to track errors and application performance Controlling cache policies with the new System.Net.Cache namespace Creating a process viewer Creating a Windows service manager Using the data protection API Encrypting and decrypting data Using platform invoke to access legacy or unmanaged code from within managed code Building in support for localization Using the NGEN utility Using the new SecureString class Using new socket class methods Using serial ports with the new Port class Working with the file system Working with threads to manage multiple tasks simultaneously Building a simple web server with HTTPListener Data Access Samples :download: Asynchronous Queries Attaching a database with your application Creating and using User Defined Types with SQL Server 2005 DataReader vs. DataSet comparision DataSet and DataTable Enhancements Performing Batch Updates and Data Paging Performing Bulk Updates Reading and Writing Images from a Database Using Factory Classes Using Managed Stored Procedures and User Defined Functions with SQL Server 2005 Using Multiple Active Result Sets with SQL Server 2005 Using Notifications with SQL Server 2005 Using the XML data type with SQL Server 2005 XPath and XSLT Transformations Enhancements Web Development Samples :download: Using SQLCacheDependency for caching DataBinding using the ObjectDataSource, SqlDataSource, and XmlDataSource objects Create a Master/Details view using the DataGridView and DetailsView controls Basic Master Pages, Nested Master Pages, and Browser-specific Master Pages Using the new membership controls including the LoginStatus, LoginName, LoginView, CreateUserWizard controls Using the Menu and SiteMapPath controls Using Profiles to store user properties Using the Membership and Roles API for custom roles Using the TreeView control dynamically and responding to TreeView events Creating a custom portal using Web Parts Windows Forms Samples :download: Running Asynchronous Tasks Storing Custom Client Settings Creating Master/Detail Forms Playing, Looping, and asynchronously using Sounds Using BindingNavigator for static and dynamic data Using BindingSource for static and dynamic data including objects Extending ClickOnce to programmatically check for updates Customizing the DataGridView control with different column control types Using LayoutPanels Using the MaskedTextBox control for built-in data types and custom data types Controlling a simple rich texteditor using the Menus, StatusStrips and ToolStrips controls Using My for application, computer, settings information and more. Note: This sample is only available for Visual Basic Using the SplitContainer control WebBrowser control basics and using the WebBrowserControl HTMLDocumentModel for Form-to-browser two-way communication. Visual Studio Tools for Office Samples :download: Creating custom menus in Outlook Creating smart tags in documents Creating custom toolbars Data islands and caching Integrating Windows forms into Outlook Using bookmarks in Word Using managed controls in Excel Using VBA and VSTO together Working with charts in Excel Working with contacts and tasks in Outlook Working with InfoPath 2003 Working with named ranges in Excel Working with the In Box Working with XML in Excel Working with XML in Word Using the List object Tablet PC Samples :download: Utilizing the back of pen erase feature Creating a content enabled form Working with drawing attributes Enabling gestures An ink-enabled text box Creating power aware applications Simple text recognition Speech recognition .NET Compact Framework Samples :download: Creating a setup CAB Creating a data-centric application Creating a data-centric application (part 2) Using the date/time picker feature in the month calendar Document list Embedded resources Handling the screen orientation Handling the hardware button screen orientation Help and notifications Registry sample Creating a SQL CE result set Using Microsoft Message Queue (MSMQ) Web browser sample هذا كل ما في المجموعة ولمزيد من المعلومات يمكن زيارة للتحميل اضغط هنا ولزيارة صفحة الامثله https://msdn.microsoft.com/en-us/vstudio/aa718334.aspx منقول للامانه من الفريق العربى للبرمجه تقبلوا تحياتى العطره بذكر الله اخوكم احمد

السلام عليكم ورحمة الله المطلوب غير مفهوم... ها هو الملف غير محمي وقم بما تريده من تعديلات... بن علية tdawe4_المعدل.rar

جرب الكود التالى Sub NEWSH() On Error Resume Next ActiveSheet.Copy After:=ActiveSheet ActiveSheet.Range("C9:V300").ClearContents ActiveSheet.Name = [G5] End Sub

ما تفضل به خبيرنا أستاذ/ رمهان Function CalcAge(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAge = vDays & " يوم, " & vMonths & " شهر, " & vYears & " سنة" End Function

ده شرح ممتاز وتفصبلى لدالة VLOOKUP دالة VLOOKUP

جرب هذا الملف hospital_facture.rar

ابحث عن حساب العمر بالتوفيق

بسم الله الرحمن الرحيم تكملة لما سبق انجازه من برنامج المرتبات العام السابق 2014 م لقد قام بتحديث البرنامج اخى وصديقى / الاستاذ عبدالجابر اسماعيل غنام برنامج المرتبات 2015 م وقد ابلى فيه بلاءا حسن جعله الله فى ميزان حستانه .... امين ******* مميزات البرنامج ( يحسب السنة المالية 2015م /2016 م آلى ) 1- البرنامج يحتوى على 12 شهرا من يناير الى ديسمبر ،كل ما عليك هو كتابة البيانات فى شهر يناير فقط والبرنامج يقوم بتوزيع البيانات على باقى الشهور الى ديسمبر واذا وجد تعديل بيانات فى شهر ما تدخل على الشهر الذى تريد التعديل به وهكذا 2- تحديد البنوك من صفحة الرئيسية كما تريد 3- حساب الاجور السنوية وحساب التكملة ثم تصفيرها عند بلوغ الحد الاقصى للاجور وبالتالى لا يكون لك متبقى تحصل عليه من قسم الاجور بديوان الادارة التعليمية 4- حساب المكافأة السنوية 5- حساب انتقالات الامتحانات 6- صفحة للدفع الالكترونى للعاملين الذين يستخدموا الفيزا كارت *******أنواع الطباعة : (يوجد ازرار للطباعة آلى ) 1- طباعة المرتبات على صفحات A3 وتسليمها لديوان الادارة وخلف اخر ورقة طباعة المرايا 2- طباعة كشوف الترحيل يسمى " طباعة الميزان" 3- طباعة اوراق التأمين والنعاشات 4- طباعة المقترضين للبنوك 5- طباعة الاقساط والاستقطعات 6 - طباعة الاجور الشهرية 7- استمارة مفردة 8- مفردات مرتب للموظف البرنامج يحسب مرتبات المنتدب و نصف المدة او نصف الاجر واوائل الخريجين اختار مدرس كى يتعامل مثل الادارى والسلام عليكم ورحمة الله وبركاته لاتنسوا دعواتكم لنا بحسن الخاتمة تحميل البرنامج

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

اخوي قم باضافه مربع نص الى التقرير وضع مصدر بياناته =1 ثم من خصائصه اذهب الى تاب البيانات او data وجعل خاصيه Running sum تكون Over Group كما ذكرت لك لا تجعل مصدر بيانات هذا المربع هي الرقم التلقائي في الجدول بل اجعلها =1 aشوف المثال المرفق db1.zip