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

أخي العزيز / محمد لؤي السلام عليكم ورحمة الله وبركاته جرب المرفق هل هذا مطلوبك أم لا تحياتي تعديل على ملف كشف بارقام سيارات مطلوبة.rar

السلام عليكم بما ان اخي حسين لم يرفق لنا نموذج من بياناته ، عملت بحث في الانترنت لمعرفة مثل هذه المشاكل ، والمشكلة عبارة عن مسافات بعد البيانات مثل ما قال اخي حسين ، والحل مثل ما قال الاستاذ رمهان ، استخدام الامر Trim (لإزالة جميع المسافات الفارغة في الحقل) ، بينما انت تريد ازالتها من احد اطرافها ، لذلك تستطيع استعمال RTrim (لإزالت المسافات من يمين الكلمة) ، او LTrim (لإزالت المسافات من يسار الكلمة) ، ولا يضر اذا استخدمناهم مع بعض ، هكذا RTrim(LTrim([column_name])) جعفر

هل سيكون التقرير لفصل دراسي واحد فقط؟ او تريد جميع الفصول الدراسية في تقرير واحد؟ جعفر

وعليكم السلام البطء في الاستعلام . 1. انت تستخدم امر VBA في SQL ، مما يبطئ العملية ، 2. من المعروف ان Dlookup (كذلك امر VBA) بطيئ ، وانت محظوظ ان بياناتك قليلة ، وإلا فالبطء سيكون اكثر ، 3. انت تنتظر الحقل SumOfin و SumOfOut ليحصلوا على نتائج الجمع ، ثم تأخذ النتائج منهم وتطرحهم من بعض. والتعديل: . إضافة الجدول Item Names الى الاستعلام ، 1. تم تغيير الامر الى احد اوامر SQL وهو is Null (وليس IsNull امر VBA) ، 2. لسنا بحاجة الى اي معادلة ، لأننا جلبنا الجدول الى الاستعلام ، ثم وضعنا الحقل Products في الاستعلام مباشرة ، 3. نقوم بعملية الجمع مباشرة في الحقل جعفر

السلام عليكم تفقيط محدث بدالتي جديدتين واحدة للعربي ArbNum2Text وأخرى للإنجليزي EngNum2Text وتم الفصل بينهما بعد إن كانتا في دالة واحدة وذلك لوجود فرق في عدد المدخلات تصل إلى 4 مدخلات . والتحديث الآن تركز على تسهيل استخدام الدوال وخصوصا العربي مع استخدام المدخلات الإختيارية والتي كانت سابقا كلها مدخلات مطلوبة . لي ملاحظة واحدة فقط وتحتاج إلى آرائكم وهي تفقيط الكسر للدالة الإنجليزي وخصوصا أن الدالة تبدأ بالعملة أولا ثم تحويل الأرقام إلى حروف وعند الكسر يكون العكس ، الشيء الذي لا يروق لي .. فمن له دراية بالموضوع أرجو التكرم بتقديم مالديه من معلومات ولكم جزيل الشكر سلفا . الكود معمول لللأكسس والأكسل معا . تحياتي . الملفات المرفقة Num2Text20030725.zip ( 74.73ك ) عدد مرات التنزيل: 626

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

السلام عليكم وبعد جهد جهيد توصلت الى هذا التقرير ، رجاء اعمل نسخة ، واعمل تجاربك على النسخة التقرير يحتوي على 20 مادة ، لذلك اضطررت ان العب في حجم الحقول قليلا ، وحسب عدد المواد التي تختارها ، فان اسماء المواد وعلاماتها تتسع لتملئ المكان بين الاسم والمجموع. . . . لا تزيد ولا تنقص في عرض واماكن الحقول ، ولا شعرة ، وإلا لن تلصق الحقول ببعضها كما يجب. طريقة العمل: 1. نخفي الحقول التي رقمها اكبر من عدد المواد ، 2. نأخذ المسافة بين الاسم والمجموع العام ، ثم نقسمه على عدد المواد ، وعليه نعطي كل حقل نصيبه من القسمة الكود: في النموذج ، حسبنا عدد المواد الموجودة ، وذلك على حدث بعد التحديث لمربعات التحرير (المربع باللون البرتقالي في النموذج ، ويمكنك اخفاءه): Function How_Many_Records() On Error GoTo err_How_Many_Records mySQL = mySQL & "[NAM_PARNAMG]=" & Me.NAM_PARNAMG mySQL = mySQL & " AND [taksos]=" & Me.taksos mySQL = mySQL & " AND [department]=" & Me.departmentT mySQL = mySQL & " AND [asm_college]=" & Me.asm_collegeT 'Debug.Print mySQL Me.How_Many = DCount("*", "Mokarar_drasi", mySQL) Exit Function err_How_Many_Records: If Err.Number = 3075 Then Me.How_Many = 0 Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . ثم في التقرير ، وعلى قسم التفصيل ، ورأس مجموعة التخصص: Option Compare Database Private Factor As Single Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Limit = Forms!AS_nataeg_tolap!How_Many If Limit = 20 Then Exit Sub Visited_Detail = Visited_Detail + 1 'make the other fields, in-visible Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then Type1 = Replace(ctl.Name, "N", "") Type2 = Replace(Type1, "tt_", "") If Val(Type1) > Limit Or Val(Type2) > Limit Then ctl.Visible = False Else ctl.Visible = True End If 'IsNull End If 'ControlType Next ctl Me.Ctl1N.Left = Me.Ctl1.Left: Me.Ctl1N.Width = Me.Ctl1.Width Me.Ctl2N.Left = Me.Ctl2.Left: Me.Ctl2N.Width = Me.Ctl2.Width Me.Ctl3N.Left = Me.Ctl3.Left: Me.Ctl3N.Width = Me.Ctl3.Width Me.Ctl4N.Left = Me.Ctl4.Left: Me.Ctl4N.Width = Me.Ctl4.Width Me.Ctl5N.Left = Me.Ctl5.Left: Me.Ctl5N.Width = Me.Ctl5.Width Me.Ctl6N.Left = Me.Ctl6.Left: Me.Ctl6N.Width = Me.Ctl6.Width Me.Ctl7N.Left = Me.Ctl7.Left: Me.Ctl7N.Width = Me.Ctl7.Width Me.Ctl8N.Left = Me.Ctl8.Left: Me.Ctl8N.Width = Me.Ctl8.Width Me.Ctl9N.Left = Me.Ctl9.Left: Me.Ctl9N.Width = Me.Ctl9.Width Me.Ctl10N.Left = Me.Ctl10.Left: Me.Ctl10N.Width = Me.Ctl10.Width Me.Ctl11N.Left = Me.Ctl11.Left: Me.Ctl11N.Width = Me.Ctl11.Width Me.Ctl12N.Left = Me.Ctl12.Left: Me.Ctl12N.Width = Me.Ctl12.Width Me.Ctl13N.Left = Me.Ctl13.Left: Me.Ctl13N.Width = Me.Ctl13.Width Me.Ctl14N.Left = Me.Ctl14.Left: Me.Ctl14N.Width = Me.Ctl14.Width Me.Ctl15N.Left = Me.Ctl15.Left: Me.Ctl15N.Width = Me.Ctl15.Width Me.Ctl16N.Left = Me.Ctl16.Left: Me.Ctl16N.Width = Me.Ctl16.Width Me.Ctl17N.Left = Me.Ctl17.Left: Me.Ctl17N.Width = Me.Ctl17.Width Me.Ctl18N.Left = Me.Ctl18.Left: Me.Ctl18N.Width = Me.Ctl18.Width Me.Ctl19N.Left = Me.Ctl19.Left: Me.Ctl19N.Width = Me.Ctl19.Width Me.Ctl20N.Left = Me.Ctl20.Left: Me.Ctl20N.Width = Me.Ctl20.Width Me.tt_1n.Left = Me.Ctl1.Left: Me.tt_1n.Width = Me.Ctl1.Width Me.tt_2n.Left = Me.Ctl2.Left: Me.tt_2n.Width = Me.Ctl2.Width Me.tt_3n.Left = Me.Ctl3.Left: Me.tt_3n.Width = Me.Ctl3.Width Me.tt_4n.Left = Me.Ctl4.Left: Me.tt_4n.Width = Me.Ctl4.Width Me.tt_5n.Left = Me.Ctl5.Left: Me.tt_5n.Width = Me.Ctl5.Width Me.tt_6n.Left = Me.Ctl6.Left: Me.tt_6n.Width = Me.Ctl6.Width Me.tt_7n.Left = Me.Ctl7.Left: Me.tt_7n.Width = Me.Ctl7.Width Me.tt_8n.Left = Me.Ctl8.Left: Me.tt_8n.Width = Me.Ctl8.Width Me.tt_9n.Left = Me.Ctl9.Left: Me.tt_9n.Width = Me.Ctl9.Width Me.tt_10n.Left = Me.Ctl10.Left: Me.tt_10n.Width = Me.Ctl10.Width Me.tt_11n.Left = Me.Ctl11.Left: Me.tt_11n.Width = Me.Ctl11.Width Me.tt_12n.Left = Me.Ctl12.Left: Me.tt_12n.Width = Me.Ctl12.Width Me.tt_13n.Left = Me.Ctl13.Left: Me.tt_13n.Width = Me.Ctl13.Width Me.tt_14n.Left = Me.Ctl14.Left: Me.tt_14n.Width = Me.Ctl14.Width Me.tt_15n.Left = Me.Ctl15.Left: Me.tt_15n.Width = Me.Ctl15.Width Me.tt_16n.Left = Me.Ctl16.Left: Me.tt_16n.Width = Me.Ctl16.Width Me.tt_17n.Left = Me.Ctl17.Left: Me.tt_17n.Width = Me.Ctl17.Width Me.tt_18n.Left = Me.Ctl18.Left: Me.tt_18n.Width = Me.Ctl18.Width Me.tt_19n.Left = Me.Ctl19.Left: Me.tt_19n.Width = Me.Ctl19.Width Me.tt_20n.Left = Me.Ctl20.Left: Me.tt_20n.Width = Me.Ctl20.Width End Sub Private Sub taksos_Header_Format(Cancel As Integer, FormatCount As Integer) On Error Resume Next Limit = Forms!AS_nataeg_tolap!How_Many Starting_Point = Me.lbl_Total.Left + Me.lbl_Total.Width Me.fasl_derasi = "الفصل الدراسي " & Forms!AS_nataeg_tolap!fasl_derasi.Column(1) If Limit = 20 Then Exit Sub 'make the other fields, in-visible Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acComboBox Then If Val(ctl.Name) > Limit Then ctl.Visible = False Else ctl.Visible = True End If 'IsNull If Val(ctl.Name) = Limit Then Factor = (ctl.Left - Starting_Point) / Limit End If 'ControlType Next ctl 'Debug.Print "Header" 'move and stretch fields For i = Limit To 1 Step -1 For Each ctl In Report.Controls If ctl.ControlType = acComboBox And Val(ctl.Name) = i Then ctl.Left = Starting_Point ctl.Width = ctl.Width + Factor Starting_Point = ctl.Left + ctl.Width Exit For 'Debug.Print ctl.Name & vbTab & ctl.Left & vbTab & ctl.Width End If 'ControlType Next ctl Next i End Sub . جعفر 533.1.db5.mdb.zip

أهم نقطة فى جملة if هى أنها تختبر الشروط حسب الترتيب فإذا وجدت أحد الشروط صحيحا توقفت و أعطت الجواب الخاص بهذا الشرط أقصد أنها لا تفحص بقية الشروط

الــدرس الثاني : الجملة الشرطية ( IF ) تعتبر الجملة IF من أشهر الجمل الشرطية و أكثرها استعمالا في جميع لغات البرمجة ولها عدة صيغ كلها تبدأ بــIf و تنتهى بكلمة End If ما عدى صيغة واحدة. وتستخدم الجملة IF لتنفيذ عمليات معينة حسب شرط محدد, يعني إذا تحقق الشرط ينفذ و إلا فلا. طرق استعمال الجملة ((if: 1- الصيغة ( If –Then ) : - وصيغتها العامة : IF condition THEN statements - ومعنى هذه الصيغة : انه اذا تحقق الشرط (condition ) فسيتم تنفيذ الامر ( statements ) مثال : " مسن" IF age >=65 THEN category = 2- الصيغة ( If – Then – End If ) : صيغتها العامة : IF condition THEN statements1 Statements2 END IF تقوم هذه الصيغة بتنفيذ مجموعة من الاوامر اذا تحقق الشرط (Condition) بدلا من تنفيذ امر واحد. مثال : If age >= 25 Then category ="شباب" travail ="السن مقبول" End if 3- الصيغة ( If – Then – Else ) : صيغتها العامة : If condition Then statements1(التعليمات المنفذة في حال تحقق الشرط ) Else statements2(التعليمات المنفذة في حال عدم تحقق الشرط) End If - هذه الصيغة تنفذ مجموعة الأوامر (statements1 ) عندما يتحقق الشرط (condition ) و عندما لا يتحقق الشرط فإنها تنفذ مجموعة الأوامر (Statements2). مثال : If grade >= 50 Then Text1 ="ناجح" Else Text1 ="راسب" End If 4- الصيغة ( If – Then –ElseIf ) : - صيغتها العامة : If condition1 Then statements1( التعليمات المنفذة في حال تحقق الشرط الأول) ELSEIF condition2 THEN statements2(التعليمات المنفذة في حال عدم تحقق الشرط الأول و تحقق الشرط الثاني) ELSE statements2(التعليمات المنفذة في حال عدم تحقق جميع الشروط السابقة) End If مثال : If grade >= 90 Then Text1 ="ممتاز" ElseIf grade >= 80 Then Text1 ="جيد جدا" ElseIf grade >= 70 Then Text1 ="جيد" ElseIf grade >= 60 Then Text1 ="مقبول" Else Text1 ="راسب" End If ملاحظات: - في الصيغة الأخيرة ( If – Then –ElseIf ) اذا تحقق احد الشروط فان البرنامج ينفذ العملية ثم يذهب الى نهاية الجملة و لا يتحقق من الشروط الباقية. - في حالة أردنا إستعمال شرطين معا أو أكثر نستعمل العبارة And. - في حالة أردنا تحقق أحد شرطين ليتم تنفيذ العملية نستعمل Or

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، استعملت الدوال OFFSET ، INDIRECT ، MATCH بدلا من الدالة VLOOKUP في معادلة صفيف... أرجو أن تفي الغرض المطلوب... بن علية تدريب.rar

أخى الحبيب وأستاذى / ياسر خليل اللهم تقبل اللهم آمين ، وسلمكم الله من كل سوء وجزيتم عنى خيرا

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

السلام عليكم أخي الحبيب محمود حمداً لله على سلامتك وأسأل الله العظيم رب العرش العظيم أن يشفيك لكم نفتقد تواجدك فيما بيننا ..سلمك الله من كل سوء ومن كل شر ، وفرج عنك كل كرب

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

مرحبا ابو عبدالله مشاركة مع الاستاذ شيفان النسخة 32 لن تعمل على 64 وطبعا العكس ارقهتني هذا المشكلة عندما نزل 2010 باصداريه في البداية تغلبت عليها بان يتم التحويل على جهاز العميل ومن الفلاش مباشرة حتى لا يكون نهائيا وجود للمصدر بجهاز العميل طورت الاسلوب وبحماية نوع الفلاش ووقعت في مشكلة عندما اسندت المهام لموظف . ومع مرور الوقت عملت برنامج على الفلاش مع الموظف يقوم بتلقي اوامر عن بعد وعلى النت بانشاء القاعدة والتحويل بااكواد اوبما يسمى on-fly الان لديك انه لابد من التحويل لدى العميل مادمت انت من سيحمل البرامج اتمنى ان افدتك وتقبلو تحياتي

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

وعليكم السلام ضع هذا الكود في وحدة نمطية: Option Compare Database Public Get_myDate As Date Function Get_This() Get_This = Get_myDate End Function كود امر الطباعة ، اصبح: Private Sub Command22_Click() Dim I As Byte CopyN = InputBox("أدخل عدد النسخ المطلوب طباعتها :", "عدد النسخ") If IsNumeric(CopyN) Then For I = 0 To CopyN - 1 Get_myDate = DateAdd("d", I, Date) DoCmd.OpenReport "rpt_Patient_Drugs" Next I Else MsgBox "البيانات التي أدخلتها ليست بيانات رقمية .", vbCritical End If End Sub جعفر 552.4.accdb.zip

محمود_الشريف تحياتى و عوده حميده و جزاك الله خيرا و نتمنى لك الصحه و العافيه

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

اتفضل لكن بدل ان اعمل زر عمل لدبل كليك على اي دفع من اربع الادفاع لسجل محدد راح يحذفه و يحذف تاريخه مع تقدير اليك ملفك بعد تعديل Database1 (4).rar

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

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

اذا تريد ان تشكر استاذ جعفر سجل اعجاب بمشاركته لكي يزداد نقاطه وبهذا راح تشجعه في خصائص Required = مطلوب غيرها الى ( لا ) مع تقدير

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

محمود_الشريف اخى الفاضل من غير دخول فى تفصيل و حشتنا و جزاك الله خيرا و الف حمدالله على سلامتك

1 / 2 / 3/ اضفت هذا لعل وعسى ان يستفيد منه اكثر او خلي بيكون طريقة تانية لان بيحذف الفراغات قبل وبعد و بين الارقام وعلى كل شي واليك مع تحياتي

شكرا استاذ جعفر لكن انا جربت الكود بيشتغل تمام وبيحذف الفراغات في البداية والنهاية الارقام لكن ما بيحذف الفراغات في بين الارقام لكن انا استخدمت هذا الكود وبيشتغل تمام تمام شوف نظرة اليه وجربه Replace([barcode];" ";"";1)

وعليكم السلام اهم شئ في الحل هو ان تكون على السجل الصحيح 1. خليك على السجل الصحيح ، 2. ضع هذا الحدث على زر "عند النقر" ، او حتى على اي من الحقول على حدث "النقر المزدوج": اذا كان نوع الحقل نص me.[myField]="" اذا كان نوع الحقل رقم me.[myField]= 0 جعفر

جرب هذا في مصدر لحقل جديد =[التسلسل] & "31" & Format([التاريخ];"yyyy")

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

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

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

السلام عليكم ورحمة الله لم تنسخ المعادلة جيدا (راجع الأخطاء)... ثم يوجد اختلاف بين رمز الصفوف في العمود B من شيت DATA والنطاق B12:B17 (الجدول) من شيت SHEET1... بن علية

تفضل أخي إضافة صفو ف بالاكواد والتنسيق4.rar

لكي تشكره تكدر تسجل اعجاب بمشاركته لكي يزداد نقاطه وبهذا تشجعه مع تقدير

اتفضل موظفين (1).rar

عفوا الان شوف هذا بو432 (1).rar

في ذلك المشاركة الاعلاه بها المطلوب

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

على الرغم ما بعد ما رفعت قاعدة بياناتك لكي نعمل العملية عليه لكن حسب ظني تكدر تعمل استعلام لكي تتفرق بين الارقام اللي في بدايته الاصفار مع الاخر اعمل استعلام وفي خانة شرط اكتب هذا الكود Left([Table1]![barcode];2)<"1" غير تابل 1 و باركود الى حقل المطلوب عندك والكود بيعمل اي رقمان في يساره اصغر من الصفر راح بظهر وبعدين تكدر تعمل العملية عليه

وعليكم السلام حقول الارقام في الجدول معرّفة بـ Double ، والتي تُريك الذي تريده من الخانات العُشرة ، ولكنها تخفي الباقي (يعني الرقم في الواقع غير الذي تراه) فمعادلتك التالية لن تنجح في التعرّف (ولن ترى) بقية الخانات العُشرية Rsd_item: Nz([rsd])-Nz([S_Compo]) بينما اذا كنت عرّفت الحقول في الجدول بـ Decimal ، لما كانت لديك مشكلة ولحل مشكلتك الآن ، سنطلب من الكود تقريب الرقم الى 3 خانات عُشرية (لأني رأيت انك تُظهر هذه الخانات) لكل حقل ، ثم نطرح ، بهذه الطريقة نحن نعرف بالضبط الارقام التي نتعامل معها Rsd_item2: Round(Nz([rsd],0),3)-Round(Nz([S_Compo],0),3) جعفر

السلام عليكم ورحمة الله وبركاته أخواني هذه مشاركة أردت بها تلخيص بعض الأكواد أرجو أن تفيدكم وهى ليست من تأليفي وإنما هى مما تعلمته في هذا الموقع الرائع لا تحرمنا من دعائكم بعض الأكواد البسيطة.rar First.rar Second.rar Third.rar باقي الملفات Forth.rar Fifth.rar شاشة أفتتاحية.rar

أخي الكريم سعد سعد يحيا سعد استغرق الموضوع مني أكثر من ساعتين والله .. لأن الموضوع جديد بالنسبة لي .. ألا وهو ترتيب البيانات حسب التاريخ الهجري وجدت أن التواريخ الهجرية لا يتم ترتيبها كما في التواريخ الميلادية ، فخطرت لي فكرة التحويل من الهجري إلى الميلادي ، فبحثت في مكتبتي فوجدت دالة تحول التاريخ الهجري إلى تاريخ ميلادي ثم بدأت في كتابة الكود ، وفوجئت أن الترتيب لا يعمل بالشكل الصحيح ، فاكتشفت أن التواريخ المحولة عبارة عن نصوص وليست تواريخ ، فقمت بتجزئة النص إلى أجزاء : يوم وشهر وسنة ، ثم لم شمل هذه الأجزاء واستخدام دالة CDate لتحويل النص إلى تاريخ .. ونجحت العملية بفضل الله .. :power: وكعادة الأطباء أن ينسوا المشرط في بطن الطبيب .. نسيت أن أنفذ الكود .. قم بتنفيذه على بركة الله الكود بهذا الشكل Sub SortByHijriDates() Dim LR As Long, I As Long, strDate As String LR = Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("H1").Value = "Helper" For I = 1 To LR If IsDate(Cells(I, "E")) Then strDate = Mid(ConvertDateString(Cells(I, "E")), 1, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 4, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 7, 4) Cells(I, "H") = CDate(strDate) End If Next I Range("A1:H" & LR).Sort Key1:=Range("H1:H" & LR), Order1:=xlAscending, Key2:=Range("C1:C" & LR), Order2:=xlAscending, Header:=xlYes Columns("H:H").ClearContents Application.ScreenUpdating = True End Sub Function ConvertDateString(ByRef StringIn As String) As String Dim SavedCal As Integer Dim myDate As Date Dim str As String SavedCal = Calendar Calendar = 1 myDate = CDate(StringIn) Calendar = 0 str = CStr(myDate) ConvertDateString = Format(str, "dd.mm.yyyy") Calendar = SavedCal End Function لا تنسى أن تحدد الإجابة كأفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، كما لا تنسى أن تضغط على كلمة "أعجبني هذا" الموضوع استغرق مني أكثر من ساعتين ولن يستغرق الأمر منك أكثر من ثانيتين تقبل تحياتي Sort By Hijri Dates.rar

تم التعديل تصفية حسب الاقدم بالتاريخ.rar

الملف فى المرفقات بالتوفيق ان شاء الله الملاحظين.rar

السلام عليكم شاهد المرفق 2010 مخطط الإجازات الإحترافي.rar

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

Insert >Name>Define سيظهر لك مربع اسمة Define Name من امام كلمة Refers to : حدد نطاق الخلايا التى تريدها ثم تحت كلمة names in workbook : ضع اسم للنطاق ارجو ان يكون هذا ماتريد