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

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

أخي الحبيب سليم بارك الله فيك وجزاك الله كل خير بينما كنت تقدم الحل لأخونا محمد السباعي كنت منهمك في الكود التالي (الذي تعدى معي حد الجنون ..!! أكثر من ساعة ونصف وربما ساعتين في هذا الكود) هو كود مجنون بحق .. حاولت فيه بقدر المستطاع أن أجعله كون مرن يصلح لأي موضوع شبيه بهذا الموضوع (خصوصاً أن هذا الموضوع يتكرر في كثير من الأحيان) وهو أن يكون هناك ورقة عمل رئيسية بها عمودوالمطلوب ترحيل القيم في هذا العمود إلى الورقة المناسبة ، وأضفنا إليه من قبل إمكانية إنشاء ورقة عمل إذا لم تكن موجودة .. الكود المجنون من العيار الثقيل وأرجو أن يبدي الأعضاء أي ملاحظات عليه لتطويره بحيث يصلح لهذه المشكلة أياً كان شكلها وحجمها وأبعادها ... الكود بالشكل التالي Sub Transfer_Data_Using_Filter_By_List() 'Author : YasserKhalil 'Release : 01 - 09 - 2016 '------------------------ Dim dictPerson As Object, dictSheet As Object, mtx(), isFound As Boolean Dim I As Long, v1 As Variant, v2 As Variant, arr As Variant, arrCol As Variant Dim rng As Range, arrHeader As Variant Dim cnt As Integer, counter As Integer Dim Rc As Long, Gc As Long, Bc As Long '=========================================================================================== 'Column Number To Be Filtered Const iCol As Integer = 5 'Sheet Name (The Source Sheet) Const sSheet As String = "DATA" 'Data Range Including Header Set rng = Sheets(sSheet).Range("A5:E" & Sheets(sSheet).Cells(Rows.Count, iCol).End(xlUp).Row) 'Row Number For Destination Sheets (5 = Row 5) Const destRow As Integer = 5 'Column Number For Destination Sheets (1 = Column A) Const destCol As Integer = 1 'Column Widths For Output Sheets arr = Array(14, 50, 15, 14) 'Columns Order To Be Copied. So Column 4 In Data Sheet To Be Copied To Column 1 To Destination Sheet arrCol = Array(4, 3, 1, 2) 'Columns Order To Be Copied. So Column 4 In Data Sheet To Be Copied To Column 1 To Destination Sheet arrHeader = Array("القيمة", "البيان", "التوجيه المحاسبي", "التاريخ") '=========================================================================================== Application.ScreenUpdating = False mtx = rng.Value Set dictPerson = CreateObject("Scripting.Dictionary") For I = 2 To UBound(mtx, 1) If Not dictPerson.Exists(mtx(I, iCol)) Then dictPerson.Add mtx(I, iCol), mtx(I, iCol) Next I Set dictSheet = CreateObject("Scripting.Dictionary") For I = 1 To Worksheets.Count If Not dictSheet.Exists(Worksheets(I).Name) Then dictSheet.Add Worksheets(I).Name, Worksheets(I).Name Next I dictSheet.Remove (sSheet) For Each v1 In dictPerson isFound = False For Each v2 In dictSheet If v1 = v2 Then isFound = True Exit For End If Next v2 If Not isFound Then If MsgBox(v1 & " Does Not Exist." & vbCrLf & "Create This Sheet ? ", vbOKCancel) = vbOK Then Worksheets.Add After:=Sheets(sSheet) ActiveSheet.Name = v1 ActiveSheet.DisplayRightToLeft = True Else dictPerson.Remove v1 End If End If Next v1 For Each v1 In dictPerson Sheets(v1).Cells.Clear rng.AutoFilter Field:=iCol, Criteria1:=v1 With rng.Offset(1) For counter = LBound(arrCol) To UBound(arrCol) .Columns(arrCol(counter)).SpecialCells(xlCellTypeVisible).Copy Sheets(v1).Cells(destRow + 1, destCol + counter).PasteSpecial xlPasteValues Sheets(v1).Columns(destCol + counter).NumberFormat = .Columns(arrCol(counter)).NumberFormat Next counter Sheets(v1).Cells(destRow, destCol).Resize(1, UBound(arrHeader) + 1).Value = arrHeader End With With rng(1, 1) Rc = .Interior.Color Mod 256 Gc = Int(.Interior.Color / 256) Mod 256 Bc = Int(Int(.Interior.Color / 256) / 256) Sheets(v1).Cells(destRow, destCol).Resize(1, UBound(arrHeader) + 1).Interior.Color = RGB(Rc, Gc, Bc) End With With Sheets(v1) With .Cells .ReadingOrder = xlRTL .Font.Name = "Arial" .Font.Size = 11 .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter .RowHeight = 19 .ColumnWidth = 9 End With With .Cells(destRow - 1, destCol) .Offset(1).CurrentRegion.Borders.Value = 1 .Value = v1 .Resize(1, UBound(arrHeader) + 1).Interior.Color = vbYellow .Resize(1, UBound(arrHeader) + 1).HorizontalAlignment = xlCenterAcrossSelection End With With .Rows(destRow - 1).Resize(2) .RowHeight = 25 .Font.Bold = True .Font.Size = 13 End With For cnt = LBound(arr) To UBound(arr) .Columns(destCol + cnt).ColumnWidth = arr(cnt) Next cnt Application.Goto .Range("A1") End With Next v1 Application.Goto Sheets(sSheet).Range("A1") rng.AutoFilter Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub فمت بوضع التعليقات باللغة الإنجليزية (معلش تعود مش أكتر) سأقوم بشرحها لمن يهمه الأمر أول سطر في التعليق يتعلق برقم العمود الذي يحتوي على القيم التي سيتم فلترتها السطر التالي يكتب اسم ورقة العمل التي تحتوي على البيانات (الورقة الرئيسية) السطر التالي نطاق البيانات المراد العمل عليها السطر التالي رقم الصف المراد وضع البيانات فيه السطر التالي رقم العمود المراد وضع البيانات فيه .. مثال لو أردنا وضع البيانات في الخلية H3 هذا يعني أن رقم الصف هو 3 ورقم العمود هو 8 السطر التالي عرض الأعمدة في المخرجات ..بما أننا تعاملنا في المخرجات مع 4 أعمدة فيكتب 4 أرقام ..يمكنك ببساطة زيادة أو نقصان العدد السطر التالي ترتيب الأعمدة وهذا السطر مهم للغاية ..فقد لاحظت أن الترتيب ليس بالضبط كترتيب الورقة الرئيسية وهذا ما دفعني إلى كتابة الكود في الحقيقة .. المهم هنا الرقم 4 هو رابع عمود في ورقة البيانات ، والرقم 3 هو ثالث عمود في ورقة البيانات ، والرقم 1 أول عمود في ورقة البيانات ، والرقم 2 هو ثاني عمود في ورقة البيانات ، وسيتم ترحيلهم بنفس الترتيب إلى الأوراق الجديدة السطر التالي هو خاص بالعناوين التي ستوضع في الأوراق الأخرى والتي سيتم ترحيل البيانات إليها ، وقد قمت بذلك أيضاً لأنني لاحظت أن هناك تغيير في العناوين (العمود "مدين" يسمى في المخرجات باسم "القيمة") المهم الأربعة سطور الأخيرة يجب أن يكون كل منها محتوي على 4 عناصر حسب عدد الأعمدة المطلوبة في المخرجات أسأل الله العظيم أن يكون الكود مفيد لكم وأعتذر عن الإطالة .. ولكن كان لابد من التوضيح التام لما هو مهم في الكود لتتمكنوا من استخدامه بسهولة ويسر .. لتجربة الكود بشكل أعمق اختر في الخلية E12 ايصال تسوية ، وهي ورقة عمل غير موجودة لتشاهد ورقة العمل وهي تنشأ وتوضع فيها البيانات .. ولك الحرية في تلك النقطة (لك أن تنشيء ورقة العمل أو تلغي ... لابد أن يكون هناك مرونة) تقبلوا وافر تقديري واحترامي رابط الملف المرفق من هنا

الرجاء المساعدة في جمع الارقام في تقرير اكسس بحسب لون الرقم مرفق المثال وشكراً لكم الجمع حسب لون الرقم في التقرير.rar

السلام عليكم ورحمة الله وبركاته اكتب هذه المعادلة فى الخلية H3 =IF(OR($D3:$G3="ح");"ح";IF(OR($D3:$G3="غ");"غ";SUM($D3:$G3))) ثم اضغط على CRTL + ALT + SHIFT ثم اسحب نزولا

هذا الكود يقوم بتحويل الفقرات الموجودة داخل الخلية الواحدة ، الي فقرة ( سطر ) واحد فقط . لكي يتنسق معك الصفوف بشكل جميل . بدل ما يكون عندك سطر ارتفاعة كثير لوجود فقرات فية . كما هو في الصورة المرفقة . Sub RemoveCarriageReturns() Dim MyRange As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each MyRange In ActiveSheet.UsedRange If 0 < InStr(MyRange, Chr(10)) Then MyRange = Replace(MyRange, Chr(10), "") End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub هذا الكود للفائدة . فقط .. وخلاصة الكود ( داخل الشرط If ) . الكود منسوخ من موقع غير عربي .

الحمد لله أن تم المطلوب على خير أخي الكريم حسين55 ما تغير الرقم وخليه لقب .. عشان نقفشك ونبلغ عنك

بارك الله في الجميع الاستعلام يكون للعرض فقط فهل يمكننا الاستفادة من المعادلة السابقة في الاستعلام-استعلام1- وبناء نمودج يظهر المطلوب فيه عند كل عملية ادخال جديدة والسؤال كان لهذا الغرض وهو عند كل عملية ادخال للوارد او للصادر يظهر الرصيد

غير في العمود I أولا ثم في العمود J جرب المرفق قائمة منسدلة.rar

المرفق تالف اخي الكريم

تفضل اخي الكريم الحل موجود في الاستعلام total.rar

ربما يكون الحل هنـا transfer salim.rar

السلام عليكم بارك الله فيكم جميعا المطلوب هو حل للمشكلة وبأي طريقة المهم أن يكون الحل حسب ما طلبت نأمل إيجاد حل

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

17 hours ago, ياسر خليل أبو البراء said: الموضوع منذ أيام ولم أراه سوى الآن .. ولا أجد أي عضو يلفت النظر للسائل بأن العنوان غير مناسب ساعدوني بارك الله فيكم ..... تعبت من كثرة توجيه الأعضاء للالتزام بالتوجيهات .. من المعروف أن الكتاب بيبان من عنوانه كذلك موضوعات المنتدى .. وإلا أصبح المنتدى مسخ بالعناوين الفارغة الغير معبرة والغبر مناسبة أرجو الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى (والكلام موجه للجميع) الاخ ياسر خليل أبو البراء تحياتي لك ارجو ان تتقبل نصيحتي المنتدي به من الاخوة الاكفاء و ذو الخبرة الجيدة امثال الاخ سليم حاصبيا و الاخ أبو حنــــين و الاخ جلال الجمال_ابو أدهم وغيرهم كثر ربما لم الحظهم ولكنك تعرفهم خيرا مني فلماذ لا تتم ترقيتهم الي مشرفين حي يساعدو في عملية الاشراف لا تخبرني ان التدرج بالترقيات يتم اليا حسب المشاركات قديما تم ترقيات من هم اقل منهم خبره ويمكنني ذكر اسمائهم ان احببت للتذكره وتأكد ان المنتدي سيعج بالنشاط والانضباط فلا يجوز ان تقوم بكل شئ يجب ان تتفرغ للأمور اخري كفصل ودمج وحذف المشاركات والموضوعات وامور اخري لا مجال لذكرها هنا ملحوظه هامة انا خارج هذه الترقيات لأسباب منها علي سبيل المثال لا الحصر اولا شبعت ترقيات قديما ثانيا انا اقوم بإختيار موضوعاتي التي استجيب لها (( عدم وجود اي نوع من الحماية - عدم حذف اي من اشرطة الادوات - التنسيق الجيد - وجود داتا كافية للتجربه عليها - واخيرا الموضعات الجديدة او ذات جهد معين )) فلا يجوز لي الاشراف لأني لن اكون عادلا مع الاخوة الاعضاء واعتقد ان الكثير من الاخوة الاعضاء يوافقون علي ترشيحاتي ارجو ان تتقبل نصحي بصدر رحب

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

السلام عليكم محاولة اتمنى ان يكون المطلوب واتمنى من الاخوة ان يبسط المعادلة المصنف1.rar

جرب هذا الماكرو Sub conctenate() m = 2 Do Until Cells(m, 1) = "" Cells(m + 3, 2) = Cells(m, 2) & " " & Cells(m, 1) & " " & Cells(m + 1, 2) & " " & Cells(m + 1, 1) m = m + 6 Loop End Sub

جرب هذا الماكرو Sub insert_word() Dim Sh As Worksheet Dim Th As Worksheet Dim My_rg As Range Set Sh = Sheets("الفهرس"): Set Th = Sheets("1000") Set My_rg = Th.Range("i7") For i = 8 To 100 My_rg.Activate my_word = Sh.Range("a" & i).Offset(0, 1) ActiveCell.Value = my_word Set My_rg = ActiveCell.Offset(44, 0) Next End Sub

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

ربنا يطمنا على حضرتك وارجو ان تكون بخير

مرحب بيك اخي عمر تفضل المرفق به الدالة وجمع القيم من صفحة اخرى كما يرجى قراءة توجيهات المنتدى لسهولة التعامل داخل المنتدى sumif.rar

بارك الله فيك أخي الكريم محمد إليك السطر التالي يفي بالغرض (والعرب بردو عندهم إمكانيات) Sub Test() Cells.Replace What:=Chr(10), Replacement:="" End Sub

مو مشكلة ابو جودي عدلي علي القاعدة الي انت رفعتها لي و انا ارجع انقل الأكواد أدرب نفسي واتعلم بالنسبه لعناصر القائمة ان يكون رئيسي و فرعي مثلا لو اخترنا الرياضه تفتح تحتها مجموعه اختيارات يتم ادخالها يدوي مثلا السباحة - الجري - الكورة - الخيل يعني الرياضه تنقسم الي جري سباحة خَيل ان شاء الله اكون وفقت

اخي الكريم يرجى تغيير اسم الظهور للغة العربية وكما يرجى توضيح ودعم المطلوب بملف مرفق لمعرفة شكل المطلوب ومبدأيا انظر لهذا الموضوع لعله يفيدك https://www.officena.net/ib/topic/70163-تصميم-برنامج-لبطاقات-دخول-الموظفين/?page=1

اثراءً للموضوع هذه المعادلة تكتب في الخلية B2 و تسحب نزولاً =MATCH(A2,{42522;42527;42547;42552})

اكتب هذه المعادلة في الخلية المناسبة =الفهرس!$B$8

لا اعرف لماذا كل هذه التعقيدات فقط استعمل الدالات الثلاث التالية =DAY(A2) =MONTH(A2) =YEAR(A2)

ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfdEh5d29sZTlqT0U/view?usp=sharing

حكمة من رجل عجوز

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

مرحبا اخي الاختصار يكون كالتالي =SUM(B3:B26)-SUM(A3:A26)

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

جزاك الله خيرا على هذا الكود الممتاز

جاري التجربة ......

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

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

1 - عناصر التقييم ابي يكون داخلها مجموعة رئيسية و فرعية مثلا ما يكون منتدي رئيسي وفيه اقسام فرعية بصراحة مش قادر افهم قصد حضرتك ممكن توضح لى بعد اذنك علشان اقدر افهم فكما تعلمت من اساتذتى الكرام فهم السؤال نصف الاجابة 2- الوقت محتاج يكون الوقت ثابت في جميع الجداول يستند علي وقت الادخال للمعلومات لا اريد ان أقوم باضافته بيدي اريد جعلة الي او اتوماتيك مربع النص الخاص يالوقت باسم time_text نضع فى القيمة الافتراضية له الاتى فى التبويب =Now() ولا ننسى تعين التنسيق الخاص بالوقت كما فى الصورة الاتية يتبع ......

الاخ ابوصلاح شاهد المرفق Omar_1.rar

الذكر في العشر الأول من ذي الحجة الشريعة الغراء جعلت حياة المسلم كلها مشمولة بالذكر، قال _تعالى_: "الَّذِينَ يَذْكُرُونَ اللَّهَ قِيَاماً وَقُعُوداً وَعَلَى جُنُوبِهِمْ" (آل عمران:191)، وحثت على كثرة الذكر في مواضع كثيرة وأحوال عديدة، من أهمها مواسم الخيرات، ومنها العشر الأول من ذي الحجة. فما أهمية أيام العشر؟ ولماذا خصت بالذكر وبغيره من الأعمال الصالحة؟ هذه الأيام أيام عبادة عظيمة هي أحد أركان الإسلام الخمسة، تستحضر فيها معاني التوحيد، وهو ما يستدعي كثرة الذكر بالقلب واللسان والقيام بالأعمال الصالحة التي تناسب عظمة هذه الأيام، قال ابن حجر في الفتح: "السبب في امتياز عشر ذي الحجة لمكان اجتماع أمهات العبادة فيه، وهي الصلاة والصيام والصدقة والحج، ولا يأتي ذلك في غيره". وقد ذكر الله _تعالى_ هذه الأيام في كتابه الكريم، قال _تعالى_ : "وَيَذْكُرُوا اسْمَ اللَّهِ فِي أَيَّامٍ مَعْلُومَاتٍ عَلَى مَا رَزَقَهُمْ مِنْ بَهِيمَةِ الْأَنْعَامَِ" (الحج:27، 28) . قال ابن عباس: "أيام العشر" . وقال _سبحانه_: "وَالْفَجْرِ وَلَيَالٍ عَشْرٍ وَالشَّفْعِ وَالْوَتْرِ وَاللَّيْلِ إِذَا يَسْرِ" (الفجر:1-4)، قال ابن عباس: "هي ليالي العشر الأول في ذي الحجة". وقوله _تعالى_: "وَالْفَجْرِ" خصه بعضهم بفجر يوم النحر. قال النيسابوري: "إقسام الله _تعالى_ بهذه الأمور ينبئ عن شرفها وأن فيها فوائد دينية ودنيوية". وفي أيام العشر يومان عظيمان، يوم عرفة ويوم النحر ، فأما يوم عرفة فهو ركن الحج الأعظم ، وقد ورد في فضله عن عائشة _رضي الله عنها_ أن النبي _صلى الله عليه وسلم_ قال: "ما من يوم أكثر من أن يعتق الله فيه عبيداً من النار من يوم عرفة، وإنه ليدنو ثم يباهي الملائكة، فيقول: ما أراد هؤلاء". ويتأكد صيام يوم عرفة لغير الحاج، قال _صلى الله عليه وسلم_: "أحتسب على الله أن يكفر السنة التي قبله والسنة التي بعده" رواه مسلم. وأما يوم النحر فقد ذهب بعض العلماء إلى أنه أفضل أيام السنة على الإطلاق، حتى من يوم عرفة. قال ابن القيم: "خير الأيام عند الله يوم النحر ، وهو يوم الحج الأكبر"، وقيل يوم عرفة أفضل منه. الفائدة التي يجنيها المسلم من معرفة فضل هذه الأيام العظيمة: أولا: تعظيم هذه الأيام: وتعظيم ما عظمه الله _تعالى_ عبادة من العبادات ودليل على التقوى، قال _تعالى_: "ذَلِكَ وَمَنْ يُعَظِّمْ شَعَائِرَ اللَّهِ فَإِنَّهَا مِنْ تَقْوَى الْقُلُوبِ" (الحج:32). ثانياً: الحذر من ارتكاب معصية فيها؛ لأن المعصية فيها أشد من غيرها من الأيام، فقد جعل الله _تعالى_ لبعض الأماكن حرمة، وخصها بأحكام، كالمسجد الحرام، ومن الأزمنة أزمنة خصها بالفضل والتعظيم، وارتكاب مخالفة فيها يكون أشد من المخالفة في غيرها، كهذه الأيام العشر وغيرها. ثالثاً: الاجتهاد في الأعمال الصالحة: من صدقة وصلاة وصيام، ففي مثل هذه الأوقات تضاعف الحسنات، وقد بين الله _تعالى_ لنا الأيام والأوقات التي يحبها ليتقرب إليه المسلم فيها ليفوز برحمته وثوابه وعفوه. عن ابن عباس _رضي الله عنه_ قال رسول الله _صلى الله عليه وسلم_ : "ما العمل الصالح في أيام أفضل من هذه العشر" قالوا: ولا الجهاد ؟ قال: "ولا الجهاد ، إلا رجل خرج يخاطر بنفسه وماله فلم يرجع بشيء" رواه البخاري. رابعاً: استثمار الوقت بالذكر ، وهو ما غفل عنه كثير من الناس، فما ترى إلا القليل من الناس الذي يقيم هذه السنة، ويجتهد فيها ، بل أكثر الناس تمر عليهم هذه الأيام كسائر الأيام، ولا يتنبهون لفضلها وحاجتهم إلى الإكثار من الذكر فيها والذي هو من أخف العبادات جهداً وأكثرها ثواباً، وقد جاء في السنة الحث على كثرة الذكر في هذه الأيام ، فعن ابن عمر _رضي الله عنه_ قال: قال رسول الله _صلى الله عليه وسلم_: "ما من أيام أعظم عند الله _سبحانه_ ولا أحب إليه العمل فيهن من هذه الأيام العشر، فأكثروا فيهن من التهليل والتكبير والتحميد" رواه الطبراني في المعجم الكبير، فحري بالمسلم أن يشتد شوقه لمثل هذه الأوقات، حتى إذا جاءت اجتهد فيها ليري الله _تعالى_ فيها ما يكون سبباً لنيل رحمته وفضله. الأذكار التي يسن الإكثار منها في العشر من ذي الحجة: الأذكار والأدعية بكل أنواعها مشروعة، يكثر المسلم منها قدر ما يستطيع، ليكون قريبا من ربه _سبحانه وتعالى_ على الدوام، وهذه الأيام العشر وردت فيها أذكار سن رسول الله _صلى الله عليه وسلم_ الإكثار منها، قال _صلى الله عليه وسلم_: "ما من أيام أعظم عند الله _سبحانه_ ولا أحب إليه العمل فيهن من هذه الأيام العشر، فأكثروا فيهن من التهليل والتكبير والتحميد". أولا: التهليل: وهو قول: "لا إله إلا الله"، وهي شهادة الإسلام وعنوان التوحيد، والمناسبة في الإكثار منها في العشر من ذي الحجة ظاهرة، فهي أيام الحج التي يتوجه فيها الناس إلى ربهم متجردين من الدنيا وزينتها موحدين طائعين منيبين راجين رحمته خائفين من عذابه، فكان من أكثر الأذكار مناسبة في هذه الأيام التهليل، وفي فضل التهليل وردت نصوص كثيرة ، منها قوله _صلى الله عليه وسلم_: "من قال: لا إله إلا الله وحده لا شريك له، له الملك وله الحمد وهو على كل شيء قدير في يوم مئة مرة، كتبت له مئة حسنة، ومحيت عنه مئة سيئة، وكانت له حرزاً من الشيطان يومه ذلك حتى يمسي، ولم يأت أحد بأفضل مما أتى به إلا رجل قال مثل ما قال أو زاد" رواه البخاري ومسلم، وفي الحديث : "خير الدعاء يوم عرفة، وخير ما قلت أنا والنبيون من قبلي: لا إله إلا الله وحده لا شريك له، له الملك، وله الحمد، وهو على كل شيء قدير" ثانياً: التكبير: أي بإكثار قول: اللّه أكبر ، والتكبير يدل على التعظيم، فهو إقرار بأن الله _تعالى_ أعظم وأكبر من كل شيء، ومن ثم فهو المستحق وحده للعبادة، وفيه دلالة على التوحيد الذي هو من أعظم مقاصد الحج. وأصح الصيغ الواردة في التكبير في أيام العشر من ذي الحجة، هو ما رواه عبد الرزاق عن سلمان بسند صحيح قال: "كبروا . الله أكبر الله أكبر كبيراً". وعن عمر وابن مسعود: "الله أكبر، الله أكبر، لا إله إلا الله، والله أكبر، الله أكبر، ولله الحمد". قال البخاري : كان ابن عمر وأبو هريرة _رضي الله عنهما_ يخرجان إلى السوق في أيام العشر يكبران فيكبر الناس لتكبيرهما. وكان ابن عمر يكبر بمنى تلك الأيام، وخلف الصلوات، وعلى فراشه، وفي فسطاطه، ومجلسه، وممشاه، تلك الأيام جميعاً. والتكبير نوعان: التكبير المطلق: يبدأ من أول شهر ذي الحجة، إلى آخر أيام التشريق، غير مقيد بوقت معين، والتكبير المقيد: في أدبار الصلوات المفروضة، وقال الحافظ في الفتح: " أصح ما ورد فيه عن الصحابة قول علي وابن مسعود أنه من صبح يوم عرفة إلى عصر آخر أيام منى". قال بعض العلماء: من أعظم أسرار التكبير في هذه الأيام أن العيد محل فرح وسرور وكان من طبع النفس تجاوز الحدود لما جبلت عليه من الشره تارة غفلة وتارة بغياً شرع فيه الإكثار من التكبير لتذهب من غفلتها وتكسر من سورتها. ثالثاً: التحميد: وهو قول: الحمد لله مرة بعد أخرى، والحمد عبادة يؤديها المسلم، سواء حدثت له نعمة أو لم تحدث؛ وذلك لأن الحمد المطلق إنما يستحقه الله _عز وجل_ لكماله وصفاته، كما يحمد المسلم ربه _سبحانه_ على كل نعمة وفي كل حال، أما بخصوص هذه الأيام فأعظم نعمة ظاهرة فيها أنه _عز وجل_ بلغ العبد هذه الأيام الفاضلة التي تضاعف فيها الحسنات، وتغفر فيها الذنوب، فحري بالمسلم في مقابل هذا أن يكثر التحميد. وفي التحميد وردت أحاديث كثيرة تدل على فضله وثوابه، قال النبي _صلى الله عليه وسلم_:" كلمتان خفيفتان على اللسان ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله العظيم وبحمده، سبحان الله العظيم" رواه البخاري ومسلم. وهنا ينبغي التنبه لأهمية اقتران ذكر اللسان بذكر القلب، ومواطئته له، قال الغزالي: لا تظن أن ما في التهليل والتقديس والتحميد والتسبيح من الحسنات بإزاء تحريك اللسان بهذه الكلمات من غير حصول معانيها في القلب. وقال ابن بطال: "لا يظن ظان أن من أدى من الذكر وأصر على ما شاء من شهواته وانتهك دين اللّه وحرماته؛ أن يلتحق بالمطهرين المقدسين، ويبلغ منازل الكاملين، بكلام أجراه على لسانه ليس معه تقوى ولا عمل صالح. حاجة الأمة إلى الذكر خاصة في مثل هذه الأيام: فالأمة الإسلامية تواجه في هذا العصر معارك مصيرية، وتقف في ساحات حروب لا ساحة واحدة، مما يستدعي ضرورة لجوء المسلمين إلى ربهم، والتذلل له، والوقوف ببابه، لا سيما في أوقات الرجاء، وأزمنة الدعاء، نذكر الله _تعالى_ ذكراً كثيراً، حتى يذكرنا الله _تعالى_ "فَاذْكُرُونِي أَذْكُرْكُمْ وَاشْكُرُوا لِي وَلا تَكْفُرُونِ" (البقرة:152).

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

السلام عليكم ورحمته الله وبركاته طلب لاخى الفاضل الاستاذ / ناصر المصرى أحببت أن أضع هذا المرفق بموضوع مستقل للإفادة وسهولة البحث المرفق لحساب الدمغه العادية وفقا لنص المادة رقم 79 من القانون رقم 111 لسنة 1981 بالمعادلات والاكواد وبالطريقة المعتادة وعلى طريقة فصل المبلغ لخليتين أحدهما للقروش والاخرى للجنيهات لاتنسوا الاعفاءات المقررة بقوانين ثم توضع هذة المعادلات او الكود المشار اليه بالمرفق على صافى المبلغ قبل مبلغ الــ 50 جنيها المعفاة ولاتنسونا من دعائكم **** جزاكم الله خيرا **** وكل عام انتم بخير حساب الدمغه العادية ق 111 لسنة 1981 بالمعادلات والدلات المعرفة + التطبيق - سعيد بيرم.rar

اخوانى الكرام ارفق لكم رابط لدورة سى شارب ان شاء الله تستفادوا منها وجزاه الله كل خير مقدم الدوره https://www.youtube.com/watch?v=74VQ_JmJXzI&list=PLwj1YcMhLRN24KqNI0xQrNscBfLnYeJpL تمنياتى لكم بالتوفيق

السلام عليكم ورحمة الله هل الموضوع مستحيل؟

شباب أين أنتم هل الأمر يستعصي ؟؟؟؟

هل من مجيب؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

عمل رائع ومجهودعظيم

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

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

أخى العزيز ( عصام ) أنا شايف الدوال المعرفة للأساتذة ( عبد الله بقشير ) والأستاذ ( طارق محمود مؤدية الغرض ) أم تريده بالدوال العادية إذا أردتها كذلك أنا تحت أمر حضرتك أليك أخى دالة فصل الرقم عن النص ولنفرض وضعها فى العمود ( D3 ) وسحبها إلى أسفل =SUMPRODUCT(MID(0&A3;LARGE(INDEX(ISNUMBER(--MID(A3;ROW($1:$25);1))* ROW($1:$25);0);ROW($1:$25))+1;1)*10^ROW($1:$25)/10) ثم وضع هذه المعادلة فى العمود ( E3 ) لفصل النص عن الرقم وسحبها لأسفل أيضا =TRIM(SUBSTITUTE(A3;D3;"")) تقبل تحياتى

هذا ملف لأخينا خبور وهو عبارة عن دالة لاستخلاص النصوص أو الأرقام من خلية مختلطة دالة استخراج النص او الارقام.zip