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

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى وأحبابي في الله أقدم لكم اليوم ملف به أكواد ..تقوم الأكواد بالشعور في حالة فك حماية محرر الأكواد .. فإذا تم الفك يقوم الكود بمسح الأكواد الموجودة وكأن شيئاً لم يكن .. فتضيع الأكواد بسبب فك الحماية لمحرر الأكواد الطريقة أيضاً لها حل ويمكن الإطلاع على الأكواد ... ولكن ستفيد الطريقة بشكل كبير مع فئة كبيرة من الناس خصوصاُ من ليس لديهم خبرة في التهكير .. كلمة السر لمحرر الأكواد 123 أقدم لكم الملف للتجربة وأرجو أن ينال إعجابكم بعد التجربة سأقوم بوضع الأكواد المستخدمة تقبلوا وافر تقديري واحترامي الملف من هنا

اتفضل استاذنا الحبيب ابوالبراء اليك حلا متواضعا بسيطا بجانب ماقدمه الاساتذه تقبلوا منى تحياتى {=INDEX($A$1:$A$10;SMALL(IF(LARGE(LEN($A$1:$A$10);ROW($A1))=LEN($A$1:$A$10);ROW($A$1:$A$10);"");1))}

الســـــــــــــلام عليكم ورحمة الله تعالى وبركاته اولا انا اول مرة اشارك فى هذا القسم وهذا بسبب جهلى فى الاكسل ولكن اعجبنى العنوان فقررت الدخول من باب حب الاستطلاع ولكـــــــــــــــــــــــــــــــــن Module1 Option Explicit Public IdleTime As Date Private Sub DeleteAllVBA() 'NOTE: The Following Procedures Run Every 5 Seconds, So We Want Execution Time 'To Be As Short A Time As Possible So That They Doesn't Interfere Unduly With Normal 'Workbook Operation, So Delete All Comments, Indenting, And Blank Lines In These 'Three Procedures When Finished. '------------------------------------------------------------------------------------ With ThisWorkbook If Sheet1.[A1] = "123" And .BuiltinDocumentProperties("Comments") = "123" Then 'In This Case Both Passwords Are Entered Correctly, So 'The Timer And The Rest Of This Procedure Are Redundant Run "DisableTimer" Exit Sub Else If .VBProject.Protection = 0 Then 'Unlocked Run "DisableTimer" 'Use Late Binding So No GUID Reference Is Needed Dim Component As Object 'Delete All VBA For Each Component In .VBProject.VBComponents With Component.CodeModule .DeleteLines 1, .CountOfLines End With Next Component 'Save And Close To 'Fix' The Changes .Save MsgBox "Sorry! An Incorrect Password Was Entered - All VBA Code Deleted - Re-enter Password To Check...)" Workbooks.Open (.FullName) '< Open 2nd Instance Of Saved Book .Close '< Close The 1st Instance Else 'Restart The Timer If The Project's Locked Run "StartTimer" End If End If End With Exit Sub End Sub Private Sub StartTimer() 'This Procedure Interferes With Work In The VBE If Accidentally Set Running, 'So We Disable It So The Developer Can Work There Uninterrupted... If Sheet1.[A1] = "123" And ThisWorkbook.BuiltinDocumentProperties("Comments") = "123" Then Exit Sub '<< Set Your Own Idle Time Below >> IdleTime = Now + TimeValue("00:00:05") Application.OnTime IdleTime, "DeleteAllVBA" End Sub Private Sub DisableTimer() On Error Resume Next Application.OnTime EarliestTime:=IdleTime, Procedure:="DeleteAllVBA", Schedule:=False End Sub ThisWorkbook Option Explicit Private Sub Workbook_Open() 'Test To Ensure Access Is Allowed (For 2002 Onward) If Application.Version > 9 Then Dim VisualBasicProject As Object On Error Resume Next Set VisualBasicProject = ActiveWorkbook.VBProject If Not Err.Number = 0 Then MsgBox "Your Current Security Settings Do Not Allow The Code In This Workbook " & vbNewLine & _ " To Work As Designed And You Will Get Some Error Messages." & vbNewLine & vbNewLine & _ "To Allow The Code To Function Correctly And Without Errors You Need" & vbNewLine & _ " To Change Your Security Setting As Follows:" & vbNewLine & vbNewLine & _ " 1. Select Tools - Macro - Security." & vbNewLine & _ " 2. Click The 'Trusted Sources' Tab" & vbNewLine & _ " 3. Place A Checkmark Next To 'Trust Access To Visual Basic Project.'" & vbNewLine & _ " 4. Save - Then Close And Re-open The Workbook", vbCritical End If End If 'Disable The Esc Key And Start Timer Application.EnableCancelKey = xlDisabled Run "StartTimer" End Sub 'All Subs And Event Procedures Should Have Run "DisableTimer" At The Head 'Of The Code And Run "StartTimer" At The End As Per The Examples Below. Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "DisableTimer" End Sub

اعذروني إخوتي ..أنفقت رصيد إعجاباتي ..حقكم أن يتم الإعجاب بمشاركاتكم القيمة..عذرا لا بخلا والسلام عليكم.

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

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

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

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

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

جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى الأغر .. أقدم لكم كود في منتهى الروعة ، يقوم بعمل خريطة (ليست الخريطة التي في مخيلتكم .. أنا معلم لغة إنجليزية ولست معلم دراسات اجتماعية) الكود يعتمد على إنشاء ورقة عمل جديدة .. لبدء العمل فيها بناءً على ورقة العمل النشطة التي يتم تنفيذ الكود بها .. ورقة العمل الجديدة تحتوي على خلايا ملونة وداخلها رموز .. للتعرف على القيم الرقمية والنصوص والمعادلات الموجودة داخل ورقة العمل النشطة .. 'وتلوينها باللون الأصفر[N]يتم ترميز الخلايا التي تحتوي على قيم رقمية بالرمز ' وتلوينها باللون الأخضر[T]يتم ترميز الخلايا التي تحتوي على قيم نصية بالرمز 'وتلوينها باللون الأحمر[F]بالرمز[Formulas]يتم ترميز الخلايا التي تحتوي على معادلات ويوضع الكود داخل موديول بهذا الشكل Sub QuickMap() If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub 'Create object variables for cell subsets إنشاء متغيرات للكائنات التي تمثل مجموعات الخلايا On Error Resume Next Set FormulaCells = Range("A1").SpecialCells _ (xlFormulas, xlNumbers + xlTextValues + xlLogical) Set TextCells = Range("A1").SpecialCells(xlConstants, xlTextValues) Set NumberCells = Range("A1").SpecialCells(xlConstants, xlNumbers) On Error GoTo 0 'Add a new sheet and format it إنشاء ورقة عمل جديدة وعمل تنسيق لها Sheets.Add With Cells .ColumnWidth = 2 .Font.Size = 8 .HorizontalAlignment = xlCenter End With Application.ScreenUpdating = False 'Do the formula cells التعامل مع الخلايا التي تحتوي على معادلات If Not IsEmpty(FormulaCells) Then For Each Area In FormulaCells.Areas With ActiveSheet.Range(Area.Address) .Value = "F" .Interior.ColorIndex = 3 End With Next Area End If 'Do the text cells التعامل مع الخلايا التي تحتوي على نصوص If Not IsEmpty(TextCells) Then For Each Area In TextCells.Areas With ActiveSheet.Range(Area.Address) .Value = "T" .Interior.ColorIndex = 4 End With Next Area End If 'Do the numeric cells التعامل مع الخلايا التي تحتوي على قيم رقمية If Not IsEmpty(NumberCells) Then For Each Area In NumberCells.Areas With ActiveSheet.Range(Area.Address) .Value = "N" .Interior.ColorIndex = 6 End With Next Area End If End Sub فائدة الكود تكمن في إمكانية التعرف على الأخطاء التي يمكن أن تتواجد في ورقة العمل .. . لنفترض أن لديك عمود به معادلات ، وعن طريق الخطأ تم إدخال قيم ثابتة في هذا العمود .. باستخدامك لهذا الكود سيكون بإمكانك وضع يدك على الخلايا التي بها قيم ثابتة في العمود الذي يحتوي على معادلات .. أتمنى أن ينال الملف المرفق رضاكم ، وأن تستفيدوا منه إن شاء الله عزوجل تقبلوا تحياتي القلبية ، ودمتم على طاعة الله Quick Map VBA.rar

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

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

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

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

أخي الكريم سعد عابد مشكور على مرورك الكريم بالموضوع وجزاك الله خيراً وعليكم السلام أخي الحبيب أبو يوسف بارك الله فيك وجزيت خيراً على مرورك العطر بالموضوع ، والمميز هو مرروك أخي الغالي

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

بعد اذن اخى الحبيب كرار صبري _ أبو جنى جرب هذا الحل ووافنى بالنتيجة يا استاذ Hadi22 Database5_update.rar

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

تفضل ... Database5.rar

السلام عليكم إن صح عملي بنصيحتك يكون الكود على الشكل التالي: "والله أعلم" Sub SortByLEN() Application.ScreenUpdating = False With Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row) .FormulaR1C1 = "=LEN(RC[-1])" Range("A1:B" & Cells(Rows.Count, "A").End(xlUp).Row).Sort Key1:=Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row), Order1:=xlDescending, Header:=xlNo .ClearContents End With Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو البراء وهذا كود آخر بحثت عنه وأضمه إلى باقتكم العطرة لكنني أود مراجعة آخر نقطة وقفت عنها لأنني لم أدركها ولم أستطع تطبيقها ... Sub kTest() Dim Rng As Range Application.ScreenUpdating = 0 Columns(1).Insert: Rows(1).Insert [a1] = "temp": [b1] = "texts" Set Rng = Range("a1", Range("b" & Rows.Count).End(xlUp)) With Rng .Offset(1).Resize(.Rows.Count - 1, 1).Formula = "=len(b2)" .Sort .Cells(2, 1), xlDescending, Header:=xlNo .Columns(1).Delete .Rows(1).Delete End With Application.ScreenUpdating = 1 End Sub

بارك الله بإخوتي الكرام الذين شاركونا هذا الموضوع ...الحمد لله ...الخير بأمة محمد إلى يوم القيامة... والسلام عليكم.

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

الأخت الفاضلة رشا .. يحبذ دائماً طرح أي طلبات جديدة في موضوع مستقل .. عموماً إليكي الكود التالي عله يفي بالغرض .. يقوم الكود بنسخ الجدول الأساسي ثم استخراج القيم التي في كلا الجدولين (الجدول الأول والثاني) .. الكود بسيط جداً ويمكن فهمه بسهولة Sub Test() Dim Sh As Worksheet: Set Sh = Sheets("Sheet1") Dim Lr As Long: Lr = Sh.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False With Sh .Columns("N").Resize(, 5).Clear .Range("A2:C" & Lr).Copy .Range("N2") .Range("Q2:R2").Value = Array("Total Issued1", "Total Issued2") .Columns("P").Copy: .Columns("Q:R").PasteSpecial Paste:=xlPasteFormats .Columns("N").Resize(, 5).AutoFit With .Range("Q3:Q" & Lr) .Formula = "=IFERROR(INDEX(G:G,MATCH(O3,F:F,0)),"""")" .Value = .Value End With With .Range("R3:R" & Lr) .Formula = "=IFERROR(INDEX(K:K,MATCH(O3,J:J,0)),"""")" .Value = .Value End With End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub أرجو أن يكون المطلوب ويفي بالغرض .. Compare Two Tables With Main Table YasserKhalil.rar

بارك الله فيك وفى أهلك أخى الفاضل الكريم أبو يوسف

قال الحسن البصري رحمه الله: “قرأت في تسعين موضعا من القرآن أن الله قدر الأرزاق و ضمنها لخلقه ، وقرأت في موضع واحد : الشيطان يعدكم الفقر . فشككنا في قول الصادق في تسعين موضعاً.. و صدقنا قول الكاذب في موضع واحد . "لا يؤخر الله أمراً .. إلا لخير ولايحرمك أمراً .. إلا لخير ،ولا يبكيك اليوم .. إلا لخير ، ولا ينزل عليك بلاء .. إلا لخير ، لذا لاتحزن .. فكل الأمور خير ..فالحمدلله الذي بيده الخير وهو على كل شيء قدير ... ثم تذكر :أن سعَآدةُ آلٱنسآن . في :ٱلشّگرُ عَلى ٱلعَطيّة . . وٱلصَبر عَلى ٱلبليّة .. و ٱلٱسّتغفآر عند ٱلخَطيئَة . . ٱسٱل ٱلله ٱن يُسعدْ قُلوبگم بما تتمنون في مايرضي الله .. أسعدكم الله بكل خير

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً أخي الحبيب أبو جودي على حسن ظنك بنا ...نِعْمَ الصاحب الساحب إلى الرضى والقبول إن شاء الله تعالى. أرجو أن يكون لنا جميعاً حظاً وسعداً في الصحبة الطيبة ...وأنا أيضاً وكما قال الإمام الشافعي رحمه الله أحب الصالحين ولست منهم -"أرجو أن نكون من الصالحين الناصحين"- لعلي أرتجي منهم يوم القيامة شفاعة... وفرق شاسع بين حامل المسك ونافخ الكير والسلام عليكم ورحمة الله وبركاته

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

دورة برنامج Excel فيديو وصوت ( عربي )

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله .. روابط الموضوعات للأسابيع الماضية : ************************* نتابع معكم للأسبوع الرابع موضوع البحث ، موضوعنا اليوم بإذن الله كيفية ترتيب الأسماء أو القيم في نطاق بحيث تكون القيمة الأطول (من ناحية عدد الأحرف أي السلسلة النصية) القيمة الأطول في البداية يليها الأقل منها وهكذا .. مثال للتطبيق عليه : ضع القيم التالية في النطاق A1:A10 Hi Yasser Mohammed Khaledy Salah Baraa Khalil KAL Huda Nader Said Monalizaa المطلوب أن تكون النتيجة بهذا الشكل: Baraa Khalil Nader Said Monalizaa Mohammed Khaledy Yasser Salah Huda KAL Hi لو قمنا بالاستعانة بعمود مساعد ووضعنا الدالة Len لعرفنا طول السلسلة النصية لكل اسم .. الحلول يمكن أن تكون بعمود مساعد أو بدون عمود مساعد ، لا أريد تقييد البحث بشيء محدد ..أطلقوا العنان للأفكار والإبداع وتقبلوا وافر احترامي

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

غالى وهدايك ثمينه يابوالبراء مستنين الشرح ياغالى متحرمناش منه بطريقتك جزاك الله كل خير

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

تحية طيبة للاخ / محمد الريفي علي الحل الرائع اثراءا للموضوع حل اخر باستخدام الاكواد مع اضافة الجمع التلقائي كما في الطلب الاخير البيع بالتقسيط2.xlsm_H.rar

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

دي خريطة تانية .. خريطة الوطن العربي! خريطة ايه اللي اتكلمت عليها .. أنا مش فاكر ! فكرني عشان عندي زهايمر

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

جرب اخى الكريم هذا حل اخر ب advanced fillter البيع بالتقسيط2.rar

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

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

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

انت وضعت جدولا للغياب فأين جدول الحضور ؟ الحضور والانصراف من اساسيات برامج الموظفين وحتى لو لم تضمن الحضور والانصراف في البرنامج فان طريقة تصميم جدول الغياب غير صحيحة يجب ان يتم رصد الغياب يوميا يكفي في الجدول حقل التاريخ والرقم المعرف وحقل بعذر اولا

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

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

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

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

لديك اغلاق و التالي و السابق ....

Private Sub comb1_AfterUpdate() Me.Filter = Nz(comb1, "id") & " Like ""*" & textfind & "*""": Me.FilterOn = True End Sub

الاخ عبد السلام الاخ والاستاذ حماده باشا اسمح لى المشاركه مرفق كود يقوم بعمل ذلك ايضا اتمنى الاستفاده لك تشغيل البرنامج مع بدأ تشغيل النظام.rar