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

الاخوة الكرام اسف جدا اكتشفت الخطأ ..... في هذا الجزء والتصحيح بحث يالأحرف الأولي.rar

فعلها بن علية eomonth نهاية الشهر end of month هذه هي الدالة المختصرة والمرنة التي أقصدها رغم أنها من دوال إكسل القديمة 2003 وما قبلها إلا أن معظمنا لا يستخدمها ومرونتها لأنها تقوم بإرجاع عدد أيام أي شهر سابق (بالسالب) أو تالي (موجب) بدلالة تاريخ مكتوب في خلية أو استعمال الدالة now لتعمل على تاريخ اليوم معادلة الشهر السابق =DAY(EOMONTH(TODAY();-1)) لاحظ -1 يعني الشهر السابق وهكذا لو قلنا شهرين -2 وهكذا وإن زادت عن 12 معادلة الشهر الحالي =DAY(EOMONTH(TODAY();0)) لاحظ 0 يعني بدون زيادة ولا نقصان فترجع لنا عدد أيام الشهر الحالي معادلة الشهر التالي =DAY(EOMONTH(TODAY();1)) ويمكننا زيادة 1 إلى أي رقم حتى وإن زاد عن 12 ....................... وفقنا الله وإياكم لكل خير

السلام عليكم ورحمة الله وبركاتة موضوعنا اليوم اردت ان تكون صيغتة صيغة عامة تخدم الكثير من موضوعات جداول البيانات وهو ادراج مجموع كل صفحة وايضا المجموع الكلي وكنت قد قدمت هذا الموضوع منذ سنوات وقد اعادت هذة الذكري الي ذهني احدي المشاركات منذ ايام قليلة فبحثت عن الموضوع ولكني لم اجده ثم بحثت في المنتديات الاجنبية لعلي اجد كود لهذا الموضوع فلم اجد الا كود واحد فقط يغطى هذا الموضوع وهو للمبرمج Ole P. Erlandsen منذ عام 1999 وهو كود وحيد لا يوجود غيره في اي منتدي عربي او اجنبي حاولت تطويعة ( من باب الاستسهال بدلا من كتابة كود جديد ) ولكن صعب عليا تطويعه فتركت الموضوع ثم امس ومضت لي فكرة بناء كود جديد فتوكلت علي الله وكانت هذه النتيجة الكود له 3 مدخلات يجب ضبطها وهي اول 3 سطور في الكود '========================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Col_Total = "E" ' عمود المجموع '========================================= انظر المرفقات الكود Option Base 1 Sub Subtotals_For_Each_Page() ' '======================================================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Col_Total = "E" ' عمود المجموع '========================================= Ttitle_1 = "اجمالـــي صفحـــة" Ttitle_2 = "اجمالـــي الصفحـــات :" '======================================================================= ScreenOff Dim Sh_Total_Page As Worksheet Dim Rng As Range Dim Arr() Dim Arr_Page() '======================================================================= ActiveSheet.ResetAllPageBreaks Maximum_Row = ActiveSheet.HPageBreaks(1).Location.Row - 3 If Count_Row_In_Page < 1 Or Count_Row_In_Page > Maximum_Row Then MsgBox "عدد الصفوف لكل صفحة من 1 الي " & Maximum_Row: Exit Sub '======================================================================= Set Sh_Total_Page = Sheets("مجموع_الصفحات") First_Col = Range(First_Cel).Column Count_Col = Cells(Range(First_Cel).Row, Columns.Count).End(xlToLeft).Column End_Row = Cells(Rows.Count, First_Col).End(xlUp).Row Set Rng = Range(First_Cel).Offset(1) Set Rng = Range(Rng, Cells(End_Row, Count_Col)) Arr = Rng '======================================================================= With Sh_Total_Page .Cells.Delete Shift:=xlUp Range(Range(First_Cel), Cells(Range(First_Cel).Column, Count_Col)).EntireColumn.Copy .Range("A1").Insert Shift:=xlToRight .Rows(Range(First_Cel).Offset(1).Row & ":" & Rows.Count).ClearContents End With '======================================================================= Page_Counter = 1 Grand_Total = 0 Col_Total = Columns(Col_Total).Column For x = LBound(Arr) To UBound(Arr) Step Count_Row_In_Page ReDim Arr_Page(Count_Row_In_Page + 1, Count_Col) Row_Offset = x Total_Page = 0 For Row = 1 To Count_Row_In_Page Col_Counter = 0 Total_Page = Total_Page + Arr(Row_Offset, Col_Total) For Col = 1 To Count_Col Col_Counter = Col_Counter + 1 Arr_Page(Row, Col_Counter) = Arr(Row_Offset, Col_Counter) Next Row_Offset = Row_Offset + 1 On Error Resume Next Next Grand_Total = Grand_Total + Total_Page '======================================================================= Arr_Page(Count_Row_In_Page + 1, 1) = Ttitle_1 & Page_Counter & " : " Arr_Page(Count_Row_In_Page + 1, Col_Counter) = Total_Page Page_Counter = Page_Counter + 1 '======================================================================= With Sh_Total_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Set Rng = .Cells(End_Row, "A") Set Rng = Rng.Resize(Count_Row_In_Page + 1, Col_Total) Rng = Arr_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 Range(.Cells(End_Row - 1, 1), .Cells(End_Row - 1, Count_Col)).Font.Bold = True Range(.Cells(End_Row - 1, 1), .Cells(End_Row - 1, Count_Col)).Font.ColorIndex = 5 End With Erase Arr_Page Next With Sh_Total_Page End_Row = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(End_Row, "A") = Ttitle_2 .Cells(End_Row, Col_Total) = Grand_Total Range(.Cells(End_Row - 1, 1), .Cells(End_Row, Count_Col)).Font.Bold = True Range(.Cells(End_Row - 1, 1), .Cells(End_Row, Count_Col)).Font.ColorIndex = 5 Range(.Cells(End_Row, 1), .Cells(End_Row, Count_Col)).Font.ColorIndex = 3 .Select End With '======================================================================= Every_Row = Count_Row_In_Page + 1 With ActiveSheet .ResetAllPageBreaks TotalPageBreaks = ActiveSheet.HPageBreaks.Count Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row For Row_Index = Every_Row + 2 To Lastrow Step Every_Row If Row_Index = Lastrow Then .HPageBreaks.Add Before:=.Cells(Row_Index + 1, 1) Else .HPageBreaks.Add Before:=.Cells(Row_Index, 1) End If Next End With TotalPageBreaks = ActiveSheet.HPageBreaks.Count ActiveSheet.HPageBreaks(TotalPageBreaks).Delete '======================================================================= End_Row = Cells(Rows.Count, "A").End(xlUp).Row Set Rng = Range(Range(First_Cel), Cells(End_Row, "A")) Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete With Sh_Total_Page.PageSetup .PrintTitleRows = "$1:$1" End With End_Row = Cells(Rows.Count, "A").End(xlUp).Row + 1 Rows(End_Row & ":" & Rows.Count).Delete Shift:=xlUp On Error GoTo 0 '======================================================================= ScreenOn ' End Sub المرفقات ادراج مجموع كل صفحة & المجموع الكلي.rar

السلام عليكم ورحمة الله الأخوة الأكارم أرجو تعديل معادلة الصفيف المرفقه بحيث لو كان ناتج التصفيه لأكثر من عنصر يضع لى الناتج هكذا (=====) SUBTOTAL_FOR_NAME.rar

السلام عليكم ورحمه الله وبركاته مواقع اعجبتني حبيت اشاركم اياها https://exceljet.net/formulas http://www.mrexcel.com/forum/

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

كيف تمنحه اجازة لسنة قادمة ؟ !! ايضا لا تضاف كاملة بدخول السنة الجديدة ، لانه لا يستحقها كاملة وانما يستحق اجازة مقابل الايام التي عملها خلال هذه السنة امل ان الفكرة واضحة لك كامل الاستحقاق يحتسب : من تاريخ بداية العقد الى تاريخ اليوم الحالي باعتبار استحقاقه الشهري من الايام هو ( 4.16 ) يوم فيصبح استحقاق السنة حوالي 50 يوما كما هو معمول به في بلدك بينما في بلدي الاستحقاق هو (3.75 ) يوم عن كل شهر فيستحق يوما اجازة مقابل 8 ايام عمل و 45 يوما خلال السنة

شكرا ،، تم حل المشكلة .. بارك الله فيك عزيزي عبد السلام.

جرب خذف كل الـ Addins في الاكسل

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

العزيز ياسر خليل أبو البراء شكرا لك اخي الاخ سعد عابد شكرا لك اخي اضافة بسيطة الي الملف لتسهيل تعديل مدخلات الجدول ادراج مجموع كل صفحة & المجموع الكلي_3.rar

وعليكم السلام ورحمة الله أتوقع أن هنالك اختلاف بنظام نسخة الأكسس بكلا الجهازين لديك لعلك تعمل على نسخة أكسس 32 بت ولديك بالمكتب نسخة أكسس 64 بت أو هنالك اختلاف فى اعدادات اللغة على كلا الجهازين حاول أن تجعل اعدادات اللغة بجعاز المكتب متفقة تماما مع جهازك الشخصى وعموما اذا كانت النسخة التى أخذتها بالمكتب بصيغة accde. جرب أن تأخذ النسخة السورس accdb. ثم تأخذ النسخة accde. من نفس الجهاز جرب ووافنا بالنتائج واذا احببت أن ترسل لنا نسخة مصغرة من النسخة التى بها المشكلة لنرى السبب ويزول العجب فنحن مستعدون

=IF(COUNTIF(A2:A22;INDEX(A2:A20;MATCH(1;(SUBTOTAL(3;OFFSET(A2:A20;ROW(A2:A20)-2;0;1)));0)))=SUBTOTAL(3;A2:A20);INDEX(A2:A20;MATCH(1;(SUBTOTAL(3;OFFSET(A2:A20;ROW(A2:A20)-2;0;1)));0));"====") جرب

وعليكم السلام لما النموذج يُفتح ، فانه يأخذ بياناته من "مصدر البيانات" ، سواء جدول او استعلام او Recordset او حتى مصدر بيانات نموذج آخر مفتوح ، وعندما تعمل تغيير في مصدر بياناته ، فيجب ان تطلب من النموذج ان يقرأ من مصدر البيانات مرة اخرى، فيمكنك عمل هذا للنموذج (وليس للحقول ، حيث ان الحقول ستحصل على بياناتها تلقائيا من مصدر البيانات): او جعفر 401.data2.zip

وعليكم السلام تفضل هذه الدالة textNum عملتها لك يمكنك ان تفصل بها الحروف عن الارقام او العكس الآن هي مهيأة لفصل الارقم ، فقط مرر اسم الحقل اليها وحتى تعكس النتيجة يلزم تفعيل السطرين 3 ، 4 __ وحجب السطرين 1 ، 2 Public Function textNum(fildHrfRqm As String) Dim lets, lets2, lets3 Dim i, r As Integer r = Len(fildHrfRqm) For i = 1 To r lets = Mid(fildHrfRqm, i, 1) If IsNumeric(lets) Then lets2 = lets2 & lets ' السطر1 خاص بالارقام Else 'lets3 = lets3 & lets ' السطر3 خاص بالحروف End If Next textNum = lets2 'السطر2خاص بالارقام 'textNum = lets3' السطر4 خاص بالحروف End Function

تم التعديل على الملف ليظهر بشكل افضل What_Are The Changed Cells.rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة البحث خلال فترة مع متغير او اكثر تم ارفاق كود الحل من الافاضل/ الحسامي _ رحمه الله _ يحيى حسين _ احمدزمان _ مصطفى كمال _ الخالدي و لا تنسونا من صالح الدعاء تحياتى بحث_فترةومتغيرين-بعد التعديل _الحسامى).rar بحث_فترةومتغيرين-بعد التعديل _يحيى حسين).rar بحث_فترةومتغيرين _الخالدى).rar بحث_فترةومتغيرين2_الخالدى).rar بحث_فترةومتغيرين_7_احمد زمان و ابو تامر).rar بحث_فترةومتغيرين_8_احمد زمان).rar بحث_فترةومتغيرين_مصطفى كمال).rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أعتقد أن الوقت الذي انقضى على الحلقة الأولى من هذه الدورة الخاصة بالمصفوفات يكفي وزيادة ، وأعتذر عن التأخر في مواصلة الدورة ، فأنتم تعرفون مشاغل الحياة .. رابط الحلقة الأولى نبدأ على بركة الله الحلقة الثانية من حلقات "دورة كاملة في المصفوفات" ، ويا ريت اللي لسه أول مرة يشوف الموضوع ، إنه يقرا الحلقة الأولى عشان يقدر يتواصل معانا .. مش عايزين نكرر المعلومة إلا للضرورة ، وعشان يقدر يتابع الجديد (دا لو فيه متابعين من الأساس) هنبدأ نتكلم عن أنواع المصفوفات : فيه نوعين النوع الأول وهو المصفوفة الثابتة يعني لها أبعاد ثابتة مش بتتغير والنوع الثاني وهو المصفوفة الديناميكية يعني غير الثابتة ودي بيتم تحديد أبعادها أثناء عمل الكود ، وممكن تتحدد في أول الكود بأبعاد محددة ، وممكن تغيرها أثناء الكود إذا لزم الأمر ... الإعلان عن المصفوفة الثابتة -------------------------------- دا مثال لأكثر من طريقة للإعلان عن المصفوفة الثابتة المحددة الأبعاد ..نشوف الكود ونضع مؤشر الماوس داخل الكود ومن لوحة المفاتيح زي ما اتعلمنا نضغط F8 ونروح نبص على نافذة اللوكال Sub DecArrayStatic() Dim arrMarks1(0 To 3) As Long Dim arrMarks2(3) As Long Dim arrMarks3(1 To 5) As Long Dim arrMarks4(2 To 4) As Long End Sub نمسك سطر سطر عشان نفهم إزاي بيتم الإعلان .. السطر الأول بعد ما كتبنا اسم المتغير (اللي هو من النوع مصفوفة) بين قوسين كتبنا من 0 إلى 3 أي أن فهرس المصفوفة سيكون عبارة عن 0 ، 1 ، 2 ، 3 .. السطر الثاني زي الأول بالضبط بمعنى إن الفهرس عبارة عن 0 ، 1 ، 2 ، 3 .. طيب ليه؟ لأن الافتراضي للمصفوفات إن الفهرس بيبدأ من الرقم صفر .. بكدا نفهم إزاي نتعامل : يا إما أحدد بداية الفهرس ولو حددتها صفر أو سبتها من غير ما أحدد البداية يبقا النتيجة واحدة السطر الثالث بداية المصفوفة 1 ونهايتها 5 أي 5 عناصر داخل المصفوفة السطر الرابع بداية المصفوفة 2 ونهايتها 4 أي عدد العناصر 3 عناصر .. نفهم من الأسطر دي إن فيه مرونة كبيرة في التعامل مع المصفوفات يعني ممكن أبدأ من أي رقم وأنتهي بأي رقم (منتهى المرونة ... بس مش مرونة بشكل كبير) ..دا لأن عملياً صعب أحدد أبعاد المصفوفة ، لأن من خصائص البيانات إنها متغيرة ، فلو مثلاً عندنا مدرسة لها قاعدة بيانات ، فالقاعدة متغيرة .. عدد الطلاب مش ثابت (طالب حول من المدرسة - طالب حول إلى المدرسة) بالتالي العدد غير ثابت ، ومن هنا لازم نتعلم النوع التاني من المصفوفات اللي هو الديناميكي أي المرن أي الغير ثابت الإعلان عن المصفوفة الديناميكية ------------------------------------- هنا بيتم الإعلان عن مصفوفة غير محددة الأبعاد ، ويمكن بعد كدا من خلال الكود تحديد أبعادها باستخدام كلمة اسمها ReDim .. Sub DecArrayDynamic() Dim arrMarks() As Long ReDim arrMarks(0 To 5) End Sub السطر الأول فتحنا قوس وقفلناه بعد اسم المتغير وبس .. بكدا وببساطة أعلنا عن المصفوفة الديناميكية .. وفي السطر الثاني لو حبيت أحدد أبعادها بستخدم الكلمة ReDim ويمكنك تحديد أبعادها اعتماداً على نطاق ديناميكي .. مثال : لو عندك طلاب وقلنا إن عددهم غير ثابت ، يبقا بتعلن عن المصفوفة وتخليها من النوع الديناميكي واثناء الكود بتشوف عدد الطلاب من خلال أسطر أخرى ، وعلى أساس الأسطر الأخرى بتحدد أبعاد المصفوفة ..يعني التحديد مبيكونش مسبق زي النوع الأول ..التحديد للأبعاد بيكون أثناء عمل الكود ننتقل لجزئية جديدة ألا وهي تعيين قيم لعناصر المصفوفة بيتم تعيين قيم للمصفوفة سواء كانت ثابتة أو ديناميكية من خلال معرفة رقم العنصر في الفهرس بالمثال يتضح المقال ودا كلام مفيهوش جدال Sub AssignValue() Dim arrMarks(0 To 3) As Long arrMarks(0) = 5 arrMarks(3) = 46 arrMarks(4) = 99 End Sub دا مثال في السطر الأول أعلنا عن المصفوفة اللي أبعادها من 0 إلى 3 أي عدد عناصرها يساوي 4 ( 0 - 1 - 2 - 3) السطر التاني وضعنا القيمة 5 لمين ؟ للعنصر اللي رقم فهرسه 0 السطر الثالث وضعنا القيمة 49 لمين؟ قولوا إنتو يا حلوين !! للعنصر اللي رقم فهرسه 3 السطر الرابع بقا ونركز عشان دا مهم .. وضعنا القيمة 99 لمين؟ نفس الكلام يا حلوين !! للعنصر اللي رقم فهرسه 4 (بس عندك ستوب STOP) ارجع تاني لأول سطر .. إحنا عندنا أبعاد المصفوفة من 0 إلى 3 يعني أول رقم فهرس عندي صفر وآخر رقم فهرس عندي 3 ... يعني الـ 4 مش موجودة (طبعاً لدواعي أمنية ..ما إحنا عارفين 4 من الأرقام المحظورة دلوقتي) طيب تتوقع ايه بعد تنفيذ السطر ؟؟؟!!!..مننساش إننا وإحنا بنتعلم مش بنفذ الكود مرة واحدة ... راجع الحلقة الأولى .. إحنا بنستخدم نافذة اللوكال ونضغط على F8 وواحدة واحدة عشان نستوعب المهم يرجع مرجوعنا لموضوعنا : بعد تنفيذ السطر الأخير هيظهر لنا رسالة خطأ بالشكل دا لأن رقم الفهرس دا مش موجود ننتقل لجزئية جديدة فيه طرق تانية لتعيين قيم للمصفوفة وهي باستخدام الدالة Array ، ودي ممكن نستخدمها عشان نخزن من خلالها قيم المصفوفة بالشكل التالي Sub ArrayFunction() Dim Arr1 As Variant Arr1 = Array("Orange", "Peach", "Pear") Dim Arr2 As Variant Arr2 = Array(5, 6, 7, 8, 12) End Sub مع استخدام الدالة دي بنعلن عنها من النوع Variant .. في السطر الأول والثاني تم الإعلان عن المصفوفة من النوع Variant وقمنا بوضع القيم بين أقواس .. ونلاحظ أقواس التنصيص أننا بنتعامل مع نصوص في قيم المصفوفة دي في السطر الثالث والرابع نفس الإعلان وقمنا بوضع القيم بين أقواس بي هنا مفيش أقواس تنصيص لأننا بنتعامل مع قيم رقمية نفذ الكود باستخدام F8 ولاحظ نافذة اللوكال بنفسك لاحظت ؟؟!! اللي لاحظ يرفع ايده .. برافو برافو محدش لاحظ حاجة .. روح لعمود الـ Type في نافذة اللوكال بعد تعيين القيم للمصفوفة ولاحظ نوع المتغير بقا متغير ...يعني بعد ما كان Variant نلاحظ اتكتب مثلاً في حالة المصفوفة الأولى اللي بتتعامل مع النصوص اتكتب String ومع المصفوفة الثانية اتكتب Integer .. وحاجة تانية إن أول رقم فهرس في المصفوفتين بيبدأ من صفر لأن دي البداية الافتراضية (مننساش يا واش يا واش) ************************************** نيجي لآخر جزئية في حلقة اليوم ألا وهي استخدام المصفوفة ودالة الإنشطار (Split Function) انشطار .. ربنا يكفينا شر النار .. !! انشطار ايه ؟! هو إنت بتصنع قنابل نووية .. الانشطار يا شطار معناه تقسيم الشيء لأجزاء صغيرة .. قطعه حتت وارميه للقطط نتكلم جد وبلاش هزار .. نشوف المثال ده Sub SplitFunction() Dim str As String str = "Red,Yellow,Green,Blue" Dim arr() As String arr = Split(str, ",") End Sub في السطر الأول أعلنا عن متغير من النوع النصي وفي السطر الثاني وضعنا قيمة المتغير النصي بين أقواس تنصيص وبيفصل بين الكلمات الموجودة في النص علامة الفاصلة (Comma) .. في السطر التالت أعلنا عن المتغير باسم Arr ووضعنا أقواس بمعنى إنها مصفوفة ديناميكية (صحيح الكلام دا مش صحيح ، بس دا مجرد مثال عشان نفهم دالة الإنشطار Split) آخر وأهم سطر وهو دا اللي يهمنا في الكود اللي فات وهو استخدام الدالة وهي دالة بسيطة جداً ومفيدة جداً جداً جداً جداً ..كفاية عشان ايدي تعبت تكوينها ببساطة اسم الدالة وبنفتح قوس ... البارامتر الأول الحاجة اللي عايزين نعملها إنشطار وهي كما في المثال النص اللي بين أقواس تنصيص "Red,Yellow,Green,Blue" وبعدين فاصلة وبعدين البارامتر الثاني وهو نوع الفاصلة اللي هيتم على أساسها عملية الإنشطار ..ممكن تكون الفاصلة دي مسافة أو أي نوع من أنواع الفواصل بين الكلمات .. وهنا استخدمنا الفاصلة Comma ووضعناها بين أقواس تنصيص لاحظ أن المصفوفة المسماة Arr بعد تنفيذ السطر الأخير حملت في 4 عناصر (من 0 إلى 4) وهي العناصر اللي فصلنا بينها بالفاصلة ، لتصبح المصفوفة حاملة (في الشهر الرابع) حاملة لأربع قيم وهي Red و Yellow و Green و Blue .. وإلى هنا تعبت يداااااااااااااااااي ولم أعد أستطيع المواصلة ، فقد كان المشوار طويل ... لمزيد من الدعم لصاحب الموضوع (ودا اختياري مش إجباري) .. ولو عندك وقت فاضي لمدة دقيقتين اتنين تابع الرابط الإعلاني في الرابط التالي (سيكون عبارة عن سلسلة من الإعلانات ..قم بالضغط على Skip Ad بعد كل 5 ثواني ... وأكرر دا مش إجباري دا اختياري ، يعني لو وقتك ميسمحش أنا مسامح .. حمل الملف الذي يحتوي على أكواد الموضوع من هنا وأخيراً تقبلوا وافر تقديري واحترامي كان معكم أخوكم أبو البراء من منتدى الأحبة منتدى أوفيسنا

اخى الحبيب الاستاذ الفاضل سعيد بيرم السلام عليكم ورحمة الله وبركاته أما عن الدعاء فإنني أسأل الله ربي وربكم أن يغير حالنا جميعا إلى أحسن حال وأن يجعلنا جميعا هداة مهديين لا ضالين ولا مضلين وأن يجعلنا جميعا ممن يقال لهم يوم القيامة : " ادخلوها بسلام ءامنين " آمين .أما عن اﻹجابة فقد تكفل الله بها بلحظة الدعاء " ادعوني أستجب لكم " وآية:" { أَمَّن يُجِيبُ الْمُضْطَرَّ إِذَا دَعَاهُ وَيَكْشِفُ السُّوءَ وَيَجْعَلُكُمْ خُلَفَاء الْأَرْضِ أَإِلَهٌ مَّعَ اللَّهِ قَلِيلًا مَّا تَذَكَّرُونَ } ضمن الله تعالى إجابة المضطر إذا دعاه، وأخبر بذلك عن نفسه؛ والسبب في ذلك أن الالتجاء إليه سبحانه ينشأ عن الإخلاص، وقطع القلب عما سواه. وللإخلاص عنده سبحانه موقع وذمة، وُجِدَ من مؤمن أو كافر، طائع أو فاجر؛ كما قال ‏{حتى إذا كنتم في الفلك وجرين بهم بريح طيبة وفرحوا بها جاءتها ريح عاصف وجاءهم الموج من كل مكان وظنوا أنهم أحيط بهم دعوا الله مخلصين له الدين لئن أنجيتنا من هذه لنكونن من الشاكرين‏} وقوله ‏{‏فلما نجاهم إلى البر إذا هم يشركون‏}‏ فأجابهم عند ضرورتهم ووقوع إخلاصهم، مع علمه أنهم يعودون إلى شركهم وكفرهم‏.‏ وفي الحديث‏:‏ ‏(‏ثلاث دعوات مستجابات لا شك فيهن دعوة المظلوم ودعوة المسافر ودعوة الوالد على ولده)‏ ذكره صاحب الشهاب؛ وهو حديث صحيح‏.‏ فيجيب المظلوم لموضع إخلاصه بضرورته بمقتضى كرمه، وإجابة لإخلاصه وإن كان كافرا، وكذلك إن كان فاجرا في دينه؛ ففجور الفاجر وكفر الكافر لا يعود منه نقص ولا وهن على مملكة سيده، فلا يمنعه ما قضى للمضطر من إجابته‏.‏ وفسر إجابة دعوة المظلوم بالنصرة على ظالمه بما شاء سبحانه من قهر له، أو اقتصاص منه، أو تسليط ظالم آخر عليه يقهره كما قال عز وجل :‏{وكذلك نولي بعض الظالمين بعضا‏} .‏ وفي هذا تحذير من الظلم جملة، لما فيه من سخط الله ومعصيته ومخالفة أمره؛ حيث قال على لسان نبيه في صحيح مسلم وغيره‏:‏ ‏(يا عبادي إني حرمت الظلم على نفسي وجعلته بينكم محرما فلا تظالموا‏.‏‏.‏‏.‏)‏ الحديث‏.‏ فالمظلوم مضطر، ويقرب منه المسافر؛ لأنه منقطع عن الأهل والوطن منفرد عن الصديق والحميم، لا يسكن قلبه إلى مسعد ولا معين لغربته‏.‏ فَتَصْدُق ضرورتُه إلى المولى، فيخلص إليه في اللجوء، وهو المجيب للمضطر إذا دعاه. وكذلك دعوة الوالد على ولده، لا تصدر منه مع ما يعلم من عطفه عليه وشفقته، إلا عند تكامل عجزه عنه، وصدق ضرورته؛ وإياسه عن بر ولده، مع وجود أذيته، فيسرع الحق إلى إجابته‏.‏ والسلام عليكم

السلام عليكم 1> تعتمد هذه الفكرة على كلمة المرور المتغيرة عند فتح الملف سيظهر لك مربع حوار في أعلاه عدد مكون من خمسة أرقام (وهذا العدد متغير وليس ثابت) مثلا 10547 قم بضرب أول رقمين في آخر رقمين والناتج هي كلمة المرور الصحيحة في مثالنا ستكون كلمة المرور هي 10×47=470 كلمة المرور هي 470 انتيه ! لم نستعمل الرقم 5 في الحساب ولكن وضع للتمويه على المستخدم فقط 2> قمت بإخفاء كل الشيتات التي فيها الحسابات حتى لو تم تعطيل الماكرو ستكون شيتات الحساب كلها مخفية ويظهر شيت آخر فارغ 3> عند تغيير اسم الملف أو تغيير مكانه في الكمبيوتر فلن يعمل البرنامج وسيطلب كلمة المرور من المستخدم 4> لنفترض أنني عملت على هذا البرنامج وأغلفته ثم قام صديق لي في العمل بنسخ هذا البرنامج في فلاشه فلن يستطيع تشغيله على جهازه إلا إذا أعطيته أنا كلمة المرور يجب على صديقي أن يفتح البرنامج من على جهازه وفي نفس اللحظة يتصل بي لأعطيه كلمة المرور لأنه لو أقفل مربع الحوار (الذي سيظهر لإدخال كلمة المرور) بدون إدخال الكلمة أو أدخلها بالخطأ فستتغير كلمة المرور في المرة القادمة عندما يفتح البرنامج مع كل ما تقدم من الشرح إلا أن العمل قد لا يخلو من الخطأ أو الخلل فأرجو المعذرة جرب الملف تفضل أبوعيد.rar

قد اخبرتك انظر مصدر سجلات التقرير والذي هو الاستعلام وانظر الى المعيار للوصول اليه : خصائص التقرير/لسان التبويب بيانات / مصدر السجلات/ انقرعلى الايقونة الصغيرة التي الى اليسار والمرسومة بثلاث نقاط سيظهر لك الاستعلام

أخي الكريم إذا استعملت البحث في أوفيسنا ستجد روائع في هذا المجال هذا الرابط واحد منها http://www.officena....showtopic=31297 وأنا بطبعي أحب الاختصار فقمت بعمل كود مختصر يقوم بنفس الغرض إن شاء الله فقط ضع في موديول الكود التالي Declare Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate fc.FontSize = fc.FontSize * wrate Next End Function وفي حدث عن تحميل النموذج قم باستدعاء الدالة كالتالي resizefrom Me, 800, 600 حيث 800 في 600 هي دقة الشاشة المناسبة لعرض النموذج بدون تحجيم (يمكنك كتابة دقة الشاشة الحالية التي تصمم فيها البرنامج) وإذا تغيرت عن هذا يتغير حجم النموذج سواء بالتكبير أو بالتصغير جرب وأخبرني بالنتيجة

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