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

اخى الفاضل كما تفضل أ.ياسر بالحل باستخدام الدالة المعرفة او من الممكن ان تستخدم هذه المعادلة .. مع ملاحظة انها معادلة صفيف اى لابد من الضغط CTRL+SHIFT+ENTER =SUM(IF(FREQUENCY(IF(LEN(C1:C15)>0,MATCH(C1:C15,C1:C15,0),""), IF(LEN(C1:C15)>0,MATCH(C1:C15,C1:C15,0),""))>0,1)) مرفق الملف للتوضيح تحياتي المصنف1.rar

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

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

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

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

السلام عليكم ورحمة الله وبركاته اقدم اليكم معادلات لحالات متقدمه للداله SUM ارجو ان تكون مفيده ولها نفع لاتنسونا بصالح دعاؤكم حالات متقدمه للداله sum.rar

YasserKhalil شكرا لك فعلا مكتبة ثرية جدا ومفيدة نسأل الله لك الأجر والثواب ibn_egypt ألف شكر لك يا غالي تعجز الكلمات عن الشكر والتقدير لشخصكم الكريم أبدعت يا غالي فعلا هذا ما كنت أبحث عنه كل الشكر والتقدر لكم يا مبدعين

بارك الله فيك أخي الفاضل على كلماتك الرقيقة .. يبدو أنك شاعر .. وإليك أهدي الإصدار الأخير من المكتبة ... Codes Library v1.9.3.rar

تتسابق الكلمات وتتزاحم العبارات لتنظم عقد الشكر الذي لا يستحقه الا انت اليك يا من كان له قدم السبق في ركب العلم والتعليم اليك يا من بذلت ولم تنتظر العطاء اليك أهدي عبارات الشكر والتقدير.

أخي الفاضل أهلا ومرحبا بك بين إخوانك هناك بالمنتدى مكتبة الصرح ، يمكنك البحث فيها عما تريد ، فقد تجد مبتغاك فيها بإذن الله هذا هو رابط آخر إصدار من المكتبة http://www.officena.net/ib/index.php?showtopic=57935&page=9#entry371905 قم بتحميل الإصدار وفتح المكتبة ، وفي خانة البحث اكتب الكلمة [عد القيم] ستجد دالة معرفة تقوم بالمطلوب إذا لم يكن الشرح وافياً أو التبس عليك تطبيق المطلوب أبلغني في الحال ..

حبيبي استاذ ياسر اتمنى لكم التوفيق من اعماق قلبي والله يبارك فيك .تحياتي

السلام عليكم ورحمة الله حل آخر للمسألة مع تنسيقات شرطية للأخطاء... بن علية المرفق : Introduction and history 1st year.rar

السلام عليكم ورحمة الله يا ابو البراء بالاصرار والعزيمة حتوصلوا ان شاء الله الله يعينكم

لاحظ آخر عمود error ستجد فيه عدد الأخطاء الموجودة في كل سطر والخلايا الموجود بها الخطأ ستجدها باللون الأسود جرب المرفق Introduction and history 1st year2.rar

السلام عليكم بقي الطلب الأخير ( الأخطاء ) كيف تريد التعامل معها ؟ جرب المرفق Introduction and history 1st year1.rar

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

جزاك الله خيرا على هذه الاجراء المختصر فعلا. تجدر الملاحظة ان الاجراء RemoveDuplicates يزيل الاسطر المكررة بدون حذفها على العموم كتبت اجراء جديد مستفيدا من ماتفضلت به بحيث يصبح عام قدر الامكان بدون التقيد بابعاد الجدول لا ادري اذا كان من الافضل اضافة هذا الاجراء الى المكتبة او الحفاظ على بساطة الفكرة ووضوحها .. اترك القرار لك. تقبل شكري و تقديري مرفق مثال للتجريب Public Sub RemoveDuplicates(StartCell As Range, Optional Header As Boolean = False) Dim Table As Range Dim TotalCols As Long Dim ColArray As Variant Dim Col As Long If StartCell.Count > 1 Then Exit Sub Set Table = StartCell.CurrentRegion TotalCols = Table.Columns.Count ReDim ColArray(0 To TotalCols - 1) For Col = 1 To TotalCols ColArray(Col - 1) = Col Next Application.ScreenUpdating = False If Header Then Table.RemoveDuplicates Columns:=(ColArray), Header:=xlYes Else Table.RemoveDuplicates Columns:=(ColArray), Header:=xlNo End If Application.ScreenUpdating = True End Sub Remove Duplicates اجراء عام لازالة الاسطر المكررة.zip

مشكورين جميعا والشكر للأخ العزيز ياسر بارك الله فيك تمت التجربة وتعمل 100% في البداية لم اوضح بشكل جيد بارك الله فيك اخوي ياسر وجزاك الله خيرا

عموماً تفضل أخي الحبيب Least And Most Occurence V2.rar

جرب المرفق Merge Cells And Keep Formatting.rar

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

الأخوة الكرام .. إليكم الإصدار الجديد من المكتبة .. الأخ خالد الغالي أبا الحسن والحسين ابحث في مكتبة الصرح عن كلمة [إزالة] ستجد أكواد حذف الصفوف المكررة .. اطلع على الشرح أولاً واقرأ الشرح جيداً .. بالنسبة للكود الأول يتم تحديد عدد الأعمدة من خلال مصفوفة من 1 إلى 9 أي من العمود رقم 1 إلى العمود رقم 9 ، أي لكي يعمل معك الكود لابد من التعديل قليلاً عليه ، وإذا قابلتك أي مشكلة أبلغني في الحال Codes Library v1.9.1.rar

السلام عليكم ورحمة الله اخي الطيب ياسر خليل الكود البسيط لم يعمل معي ممكن تدعمه بمثال وجزاك الله خير اخي ياسر كنت متابع كل عملك من عام وانقطعت ثم رجعت بزخم 2009 جزاك الله خير يا يا يا يا طمًــــــــــــــــــــــــــــــــــــــــاع

جزيل الشكر لك أخي الحبيب أبو تراب يوجد بالمكتبة كود بسيط جدا يقوم بنفس المهمة ، مفتاح البحث [حذف] أو [إزالة] .. Sub DeleteDuplicateRows() Dim Rng As Range 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'تعيين النطاق المراد العمل عليه من العمود الأول إلى العمود التاسع Set Rng = Range("A1", Range("D1").End(xlDown)) 'إزالة الصفوف المكررة ، من خلال مصفوفة الأعمدة من العمود رقم 1 إلى العمود رقم 9 Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlNo End With End Sub وعموما سيتم إضافة رائعتك أيضاً لإثراء المكتبة بحلول وأكواد مختلفة

هلا و غلا باخي و استاذنا ياسر ...شكر الله لك كلماتك الطيبة ولا يهمك اي فكرة او معلومة ان شاء الله نشارك بها في المنتدى الغالي .Mr. Haridy لسة ما تعرفنا عليه

كود لحذف الاسطر المكررة شرح مختصر للكود الفكرة هى فحص السطر كاملا (و ليس خلية بخلية) عن طريق الدالة Join بما ان الدالة Join تقبل مصفوفة ذات بعد واحد و في نفس الوقت فان الكائن range يعيد مصفوفة دات بعدين البعد الاول هو من 1 الى 1 و البعد الثاني هو من 1 الى عدد الاعمدة في المدى هنا لتمرير بعد واحد فقط يمكننا استخدام الدالة Transpose. فللاعمدة يمكننا تمرير الدالة Transpose مرة و احدة بينما للاسطر فنحتاج لتمريرها مرتين Sub btnRemoveDuplicates() Const FirstRow As Long = 1 Dim LastRow As Long Dim LastColChr As String Dim Addr1 As String Dim Addr2 As String Dim i As Long Dim j As Long ' احصل على رقم الصف الاخير للجدول LastRow = Range("A" & Rows.Count).End(xlUp).Row ' استخلص اسم العمود الاخير للجدول LastColChr = Cells(1, Columns.Count).End(xlToLeft).Address LastColChr = Replace(Replace(LastColChr, "$", ""), "1", "") If Range("A1:" & LastColChr & LastRow).Rows.Count > 2 ^ 16 Then Exit Sub With Application For i = FirstRow To LastRow - 1 ' حدث عنوان السطر الحالي Addr1 = "A" & i & ":" & LastColChr & i ' حدث عنوان السطر التالي For j = i + 1 To LastRow Addr2 = "A" & j & ":" & LastColChr & j ' افحص تطابق السطرين If Join(.Transpose(.Transpose(ActiveSheet.Range(Addr1).Value)), Chr(0)) = _ Join(.Transpose(.Transpose(ActiveSheet.Range(Addr2).Value)), Chr(0)) Then ' احذف السطر و عد حسابات ابعاد الجدول Range(Addr2).Delete xlShiftUp j = j - 1 LastRow = Range("A" & Rows.Count).End(xlUp).Row End If Next j Next i End With End Sub Remove Duplicates حذف الاسطر المكررة.zip

بارك الله فيك أخي الغالي أبو تراب أكواد ودوال مميزة من شخص متميز .. ربنا ميحرمناش منك ويخليك للغلابة .. نطمع في المزيد ... لا تنعتني بالطماع ، لأني طماع بطبعي Greedy Very Greedy>> I'm Greedy Mr. Haridy .. Who's Mr. Haridy تقبل تحياتي

كود لاستخلاص حرف/حروف او اسم العمود من عنوان الخلية مثال مرفق للتوضيح Public Function GetColumnLetter(Cell As Range) As String Const NOT_SINGLE_CELL As Long = vbObjectError + 1001 Dim ColLetter As String ' تأكد ان المدى يمثل خلية واحدة فقط If Cell.Count > 1 Then GetColumnLetter = CVErr(NOT_SINGLE_CELL): Exit Function ' استخلص اسم العمود من عنوان الخلية ColLetter = Cells(1, Cell.Column).Address ColLetter = Replace(Replace(ColLetter, "$", ""), "1", "") GetColumnLetter = ColLetter End Function استخلص اسم العمود Get Column letter char.zip

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

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

هل هذا ما تريد ؟ جرب المرفقات Book1.rar

السلام عليكم ورحمة الله أختي الكريمة إيناس، معذرة على هذا الخلل، بالنسبة للملف تم عمل المطلوب بإضافة التسمية List على القائمة المنسدلة (المرتبة تصاعديا)... أرجو أن يكون هذا المطلوب... أخوك بن علية الملف المرفق : قائمة بدون تكرار.rar

السلام عليكم اخوانى هذا هو رابط تحميل الملف بعد التعديل https://www.mediafire.com/?1r7e0pp7oz3bke5 https://www.mediafire.com/?1r7e0pp7oz3bke5 https://www.mediafire.com/?1r7e0pp7oz3bke5

جرب أن تضع في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Application.Visible = True ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

اخى الفاضل عادل شخصيا انا بزبط اعدادات الماكرو عندي باختيار Enable all macros ولا اواجه مشكلة ابدا لا تقلق من شئ .. قم بالترقية ولو واجهتك اى مشكلة فتاكد انه لا مشكلة بدون حل .. تحياتي

يسعدنى مرورك أخى الفاضل على المصرى شكرا على مرورك الطيب

ممكن عن طريق تساوي اسم الأب ثلاثيا ً مثلاً أو اضافة الرقن القومي لأولياء الأمور وعمل شرط تساوي رقم القومي لولي الأمر والله أعلى وأعلم

وهذه نسخة 2003 Aziz2003.rar

شوف الملف المرفق ولو فيه اى حاجة قولى حساب الأقساط.rar

السلام عليكم ورحمة الله وبركاته بعد طول غياب أقدم لكم إخواني الكرام إخواني الأحباب ، الإصدار الأخير من مكتبة الصرح .. ورجاء أن تقوموا بتجربة الأكواد وإذا صادفتكم أي مشكلة من أي نوع رجاء الإبلاغ بها ، وإذا رأى منكم أحد أي خطأ في أي جزئية فليبادر بذكرها ، نريد تصحيح وتنقيح للعمل أولاً بأول لكي يظهر في نهاية الأمر (دا إذا كان له نهاية أصلاً .............) لكي يظهر بشكل يليق بمكانة المنتدى العريق ولكي ينفع به جموع المسلمين في كل مكان.. شكر خاص للأستاذ الكبير والأخ الغالي ابن مصر على إسهاماته وشكر خاص للعلامة باشمهندس المنتدى طارق محمود ومن أكثر الناس محبة لقلبي وشكر خاص لكل من ساهم في بناء المكتبة ولو بكلمة تشجيع فالمكتبة منكم ولكم ، منكم ولكم ، وأؤكد منكم ولكم وفي الختام أسأل المولى أن يجعل أعمالنا صالحة ولوجهه خالصة وأن ينفع بنا وأن يجمعنا في الفردوس الأعلى من الجنة إليكم الإصدار الأخير من مكتبة الصرح Codes Library v1.9.rar

أخي بالنسبة لتعلم الفيجوال بيسك فيه دورة للمبتدئين على هذا الرابط http://www.officena.net/ib/index.php?showtopic=56941 تقبل تحياتي

اخي الفاضل ممكن اعرف كيف سويت الفورم

شكرا للاخوة الافاضل علي المجهود الرائع .................. زادكم الله علما ونورا وتوفيقا

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

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