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

صباح الخير للناس الغالية تمر علينا أيام نستخدم معادلات معقدة في الإكسيل ونريد أن ننقلها إلى محرر الأكواد لتوفير الوقت والجهد، ونعتقد بأن الأمر في غاية الصعوبة، وبالتركيز تجد أنه أصبح يدور حول السهل الممتنع.. جرب أن تدخل أي معادلة في الخانة الصفراء وسترى النتيجة. وتقبلوا تحياتي محرر كود المعادلات.rar

أخي الكريم ماجد ماجد أهلاً بك في المنتدى ونورت بين إخوانك يرجى تغيير اسم الظهور للغة العربية ، كما يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في المنتدى لمعرفة كيفية التعامل مع المنتدى بشكل أفضل لا داعي للعناوين البراقة (التحدي وخلافه) ، فكلنا هنا نسعى للتعلم بجد وليس من باب التحدي .. وإذا كان الباب هو التحدي فمن الأجدر أن يكون لديك حل للمسألة .. كأن تكتب في العنوان لغز أو خلافه ، أما التحدي في موضوع تطلب فيه مسألة معينة فغير مقبول (على الأقل بالنسبة لي) عموماً حتى لا ندخل في نقاشات لا جدوى منها .. إليك الجزء الأول من طلبك ضع الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_Open() Recalc End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) EndTime End Sub وضع الكود التالي في موديول جديد Dim SchedRecalc As Date Sub Recalc() Range("A1").Value = Format(Time, "hh:mm:ss AM/PM") Call StartTime End Sub Sub StartTime() SchedRecalc = Now + TimeValue("00:00:01") Application.OnTime SchedRecalc, "Recalc" End Sub Sub EndTime() On Error Resume Next Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False End Sub إليك الملف المرفق فيه تطبيق الكود ** ملحوظة هامة : قمت بتنفيذ الجزء الأول مع عدم اقتناعي بفكر تحديث الوقت كل ثانية لأن ذلك سيكون إرهاق على الملف نظراً لأن التحديث سيكون كل ثانية .. أعتقد يمكن تنفيذ الجزء الثاني بدون تحديث الوقت في الخلية A1 ... ولكن تم تنفيذ الجزء الأول من باب التحدي تقبل تحياتي Update Timer Every Second In Cell YasserKhalil.rar *********************************** بعدما اطلعت على الجزء الثاني من طلبك فقد اتضح لي أنه يمكن التعديل على الكود السابق بسهولة ليؤدي الغرض ويقوم بعملية الترحيل كل ثانية كما طلبت قم بتعديل الكود Sub Recalc() Range("A2").Value = Format(Time, "hh:mm:ss AM/PM") Range("C" & Cells(Rows.Count, "C").End(xlUp).Row + 1).Value = Range("B2").Value Call StartTime End Sub وإليك الملف المرفق الثاني بعد التعديل تقبل تحياتي Update Timer Every Second In Cell YasserKhalil V2.rar

وجدت طريقة اسهل .. اولاً الغي جميع ماسبق من خطوات واستخدمي فقط هذا الكود فيحدث "عند النقر" لزر ضغط واصلاح القاعدة واخبرينا بالنتيجة If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Application.SetOption "Auto compact", True End If DoCmd.Quit

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

وعليكم السلام أخوي ابو خليل الله ان شاء الله يشغلك بالخير دوم ما عملتها بتنسيق ، وانما بإستعلام ، وبطريقتين: F: كود في الاستعلام مباشرة ، ولكنك تعرف ان الكود يتلخبط بسبب الكلمات العربية ، FF: بوحدة نمطية . والنتائج: . والوحدة النمطية: Function flip_Numbers(T) If InStr(T, "-") > 0 Then flip_Numbers = Mid(T, InStr(T, "-") + 2) & " - " & Mid(T, 1, InStr(T, "-") - 2) Else flip_Numbers = T End If End Function جعفر 321.db2.mdb.zip

فى حدث عند التحميل ضع الكود Forms![mainform]![subform].Form![SpeciesName].SetFocus DoCmd.RunCommand acCmdFreezeColum لتجميد عمود معين [subFormName].SetFocus [subFormName]!FieldName.SetFocus DoCmd.RunCommand acCmdFreezeColumn

أخي الحبيب أحمدأنا بس بحب أناغشك وأهزر معاك .. ولد من دمياط بيقول أبوه عايز جنيه .. رد ابوه وقاله : عاااااااااااااايز نص جنيه ، هتعمل ايه بالربع جنيه ، معايا بريزه تاخد شلن وتسيب شلن!! تقبل تحياتي

بارك الله فيك أخي الحبيب الزباري وجزيت خيراً على الموضوع الرائع والممتع الفكرة جميلة ولكنها تحتاج لتطوير بالفعل .. حيث أنه إذا قمت بتحربة الدالة المعرفة وقمت بنسخ الناتج لمحرر الأكواد .. بهذا الشكل Sub TestRun() [c1].Formula = "=IFERROR(VLOOKUP(M2,$M$2:$N$7,2,0),"")" End Sub ستظهر رسالة خطأ بهذا الشكل وسبب الخطأ هو أن علامات التنصيص يجب أن توضع بين علامتي تنصيص أخرى يجب أن تكون هكذا Sub TestRun() [c1].Formula = "=IFERROR(VLOOKUP(M2,$M$2:$N$7,2,0),"""")" End Sub ************* خطرت لي فكرة وهي استبدال التصيص بعلامتي تنصيص في المعادلة لكي تعمل بشكل جيد الدالة المعرفة والاعتماد على أن تكون الدالة مطاطية بحيث تقدر تنسخ أي معادلة من أي خلية بالاعتماد على عنوان الخلية الهدف الدالة بعد التعديل كالتالي Function DisplayFormula(cel As Range) Dim str As String str = Replace(cel.Formula, """", """""") DisplayFormula = "[" & cel.Address(0, 0) & "].Formula=" & """" & str & """" End Function الآن سيظهر السطر الخاص بالمعادلة جاهز للعمل ويمكنك نسخه لمحرر الأكواد واستخدامه بكل سهولة تقبل تحياتي

انسخ هذه المعادلة الى الخلية D4 ,واسحب نزولاً =IF($B4="","",IF($C4="a",$B4,0))

هههههههههه لا ياحاج دا انت واخد فكره منيله بنيله خالص الحمدلله كل الجود والكرم بفضل الله حبيبى يابوالبراء

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

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

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

أخى الفاضل مرحبا بك فى منتدى أوفيسنا يرجى تغير اسم الظهور الى اللغة العربية لسهولة التواصل كما أرجو الاعتياد على ارفاق ملف يوضح مثال لما تريد حتى تسهل على اخوانك بالمنتدى تقديم المساعدة المطلوبة بالنسبة لسؤالك ضع المعادلة التالية فى الخلية D2 =IF(B2="A";A2;0) واذا لم تحقق المطلوب يرجى ارفاق ملف يوضح المطلوب بدقة

عفوا أخي كلامك صحيح أخطأت في إرفاق الملف قم بتمكين وحدات الماكرو افتح شيت2 اضغط transfer Transfer data2.rar

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

السلام عليكم اكيد انني ادخلت الملل في قلوبكم من فورمات البحث هذه ولكن للضرورة احكام ولكل شخص رغبة معينة في تنفيذ شي معين ولعل هذا التعدد في الملفات يفي بجوانب كثيرة في البحث موضوعنا هذا اليوم طبعا فورم للبحث ولكنه يبحث ليس في ملف واحد فقط وانما يبحث في مجموعة ملفات ( تكون في ملف واحد مع الملف الرئيسي) وايضا يقوم بفتح اي ملف مغلق من هذه الملفات تلقائيا عند دخولك فورم البحث مباشرة وايضا نتيجة هذا الكم من مجموعة البحث عملت زر( للبحث افتراضي) ختى تستطيع ان تكمل كلمة البحث التي تريدها بدون ان يقوم الكود مياشرة بالبحث عند ادخال اي حرف وايضا ابقيت الخاصية السابقة للبحث التلقائي ( اختياري) (وهذا العمل يصلح لاي واحد تكون معه ملف رئيسي ومجموعة ملفات ملحقة يقوم بالبحث فيها) العمل ده طلب الاخ SAFWAT ارجوا ان نكون عملنا جولة كاملة في اغلب نواحي البحث ونرجوا من الله القبول بفضله وكرمه في هذا الشهر الكريم تقبل الله منا ومنكم صالح الاعمال ودمتم في حفظ الله ======================================== ارجوا ملاحظة الملف المعدل في المشاركة رقم 10 التعديل: في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث ======================================== Class.rar

السلام عليكم و رحمة الله و بركاته اخواني الاعزاء اقدم لكم الامر BrowseTo و هو خاص فقط باكسس 2010 فما فوق و هو يقوم بفتح نموذج ( او تقرير ) و في نفس الوقت يغلق النموذج الآخر . اترككم مع المثال بالتوفيق للجميع Database1.rar

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

اسطوانة تحفيظ القران الكريم لكم ولاولادكم واحفادكم الجذء الثلاثون بصوت الشيخ محمد صديق المنشاوى وبصوت طفل يردد وراءه ويمكن تكرار الاية للحفظ وفيديو دعاء ختم القران من الحرم على الرابط التالىhttp://yonis.arab.st/t26-topic#29ملحوظة : سجل بالمنتدى لتحميل الاسطوانة وهى على 4 روابط مضغوطة يتم تحميلها فى فولدر ثم فك الضغط بعد اكتمال تحميل 4 أجزاء الاسطوانة هدية للمنتدى نتمنى الدعاء لنا بالخير الجزء 29 تبارك فى تكملة الموضوع الجزء 28 قد سمع الجزء 27 قال فما خطبكم هدية اخرى للسادة الزملاء اسطوانة برامج بها اوفيس 2003 و 2010 عربى لحين رفع باقى اجزاء تحفيظ القران الكريم الجزء 26 الجزء 25 مسابقة دينية

السلام عليكم ورحمة الله وبركاته وتحياتي للجميع هل بالامكان تأمين الاعمدة والصفوف في النموذج الفرعي برمجيا بحيث يتم تجميدها وتأمينها ولا يتم تحريكها سواء تكبير او تصغير بالماوس.وشكرا

السلام عليكم ورحمة الله تعالى وبركاته عندي فورم بهذا الشكل يعمل بشكل جيد المشكلة عند الرجوع إلى الوراء لتفقد المعلومات الكمبو "STR" لا يقوم بعرض المعلومات رغم أنها متوفرة في الجدول وفي "Column Widths" كالتالي 0;5;0 لكن إذا غيرتها إلى 0;5;5 يتم عرض المعلومات طبعا أرقام المثال Access 2003 هل من حل بارك الله فيكم وفي علمكم cascade.rar

شكرا على هذا الكود

الآن عرفت ما تقصد في عرض البيانات الصق هذا الكود في محرر النموذج في مثالي السابق Private Sub Form_Current() Me.Str.Requery End Sub

السّلام عليكم و رحمة الله و بركاته كلامك صحيح أخي الفاضل و استاذي القدير " محي الدين أبو البشر " نفس القيمة بالتاكست 1 و التاكست 2 بارك الله فيك جزاك الله خيرًا و زادك من علمه و فضله فائق إحتراماتي

تحديثات جديده على الملف التحصيلات.rar

السلام عليكم استاذي العزيز البسكري اعتقد انه يجب تعديل صغير فيى الملف 1 Private Sub CommandButton1_Click() For i = 2 To 100000 If Cells(i, 1) = TextBox1.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(0, 0) = TextBox1.Text ActiveCell.Offset(0, 1) = TextBox2.Text ActiveCell.Offset(0, 2) = TextBox3.Text ActiveCell.Offset(0, 3) = TextBox4.Text End Sub بدل Private Sub CommandButton1_Click() For i = 2 To 100000 If Cells(i, 1) = TextBox1.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(0, 1) = TextBox1.Text ActiveCell.Offset(0, 2) = TextBox2.Text ActiveCell.Offset(0, 3) = TextBox3.Text ActiveCell.Offset(0, 4) = TextBox4.Text End Sub صح أم خطأ؟ بارك الله بجهودك

بارك الله بك استاذ ياسر وسر خاطرك

السّلام عليكم و رحمة الله و بركاته أخي الكريم "حراثي تواتي" بهذا المرفق ستجد ملفين الأول : البحث و استعراض البيانات بواسطة الكومبوبوكس الثاني : البحث و استعراض البيانات بواسطة السْبينْ بوتون حاولت جاهدًا إيجاد أبسط و أسهل الطرق التي تؤدي هذا الغرض فائق إحتراماتي حراثي تواتي.rar

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

لقد ارهقتني أخي الحبيب عبد العزيز ..لأنني بصراحة في قمة التعب ..كان ممكن تأجلها لبكرة ، لكن مقدرش أقولك لا أو أرفض لك طلب أبدا أبدا لأنك حبيبي في الله ، ويعلم الله مقدار معزتك في قلبي إليك التعديل في أسطر الإعلان #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If والسلام عليكم ورحمة الله وبركاته

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

وعليكم السلام ورحمة الله وبركاته حاولت أنزل مرفق حضرتك لكن تصادفنى مشكلة فى التحميل ولا أدرى ما السبب ولكن عموما لنقل التركيز من فورم فرعى الى رئيسى أو العكس بيتم استخدام الوسيطة .Form قبل اسم عنصر التحكم كأننا نتعامل مع نماذج منفصلة تماما , مثال : A فورم رئيسى B فورم فرعى A1 زر أمر على الفورم الرئيسى B1 زر أمر على الفورم الفرعى حتى نقوم بنقل التركيز الى B1 عند الضغط على زر A1 سنستخدم هذا الكود Private Sub A1_Click() Forms!A!B.Form.B1.SetFocus End Sub جربه لعله يجدى نفعا

وعليكم السلام لما تكون في نموذج/نموذج فرعي ، وتريد تنقل التركيز على حقل في نموذج/نموذج فرعي آخر ، فيجب اولا ان تنقل التركيز على النموذج الرئيسي ، ثم التركيز على النموذج الفرعي ، ثم التركيز على الحقل المطلوب لاحظ في هذا البرنامج: كيف عملت الكود: Forms!frm_Patient_Drugs.SetFocus Forms!frm_Patient_Drugs!cmb_Patient_Name.SetFocus . ونفس الشئ اذا اردت ان تذهب الى سجل آخر/جديد : 'set the Focus on the Main Form, then the subform, then add a new Record, then transfer the DoseID Forms!frm_Patient_Drugs.SetFocus Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus DoCmd.GoToRecord , , acNewRec جعفر

نفع الله بكم وجزاكم خيرًا

وعليكم السلام أخي كرار انا اعتذر ، بس بالفعل نسيت في الكثير من مشاركاتي ، اضع صور ثابته ، وفيها دوائر او مربعات او اسهم ، او كتابة ، والبرنامج اللي استخدمه هو IrfanView ، http://www.irfanview.com/ وهنا رابط شرح بسيط له: http://eport.soundpiper.com:8080/pictutor/irfanview.html وعند الضغط على الزر F12 ، نستطيع استعمال ادوات الرسم: http://www.mitalia.net/irfanpaint/?manual انا بدأت استخدم هذا البرنامج المجاني من حوالي سنة 1998 ، ولا اعمل على اي كمبيوتر بدونه ، وفيه ميزات لا تُعد ولا تُحصى ، بالاضافة الى ميزة التحكم فيه عن طريق Commandline ، وقد قام احد المبرمجين بعمل برنامج اكسس بسيط له (مرفق ، والصور مالي ) وانا استعمله في برامج قواعد بيانات الاكسس ، والتي تحتاج الى اي شئ له علاقة بالصور اما الصور المتحركة (gif animation) ، فاستخدم البرنامج المجاني ScreenToGif: https://screentogif.codeplex.com/ جعفر IrfanView_MDB.zip

جرب هذا الملف ال salim.rar

في الخلية C45 ضع المعادلة التالية =COUNTIFS($H$11:$H$36,">=0",$H$11:$H$36,"<5") ونفس الكلام مع بقية المعادلة مع تغيير الشروط فقط * إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

طيب إنت فين عشان نيجي ننفعك ونشتري منك كارت بـ 10 أو تحولنا بـ 3 رصيد .. وفقك الله أخي الحبيب الفلاحجي لما يحبه ويرضاه .. تقبل وافر تقديري واحترامي

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

جعله الله في ميزان حسناتك ...

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

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

‏الاحد‏ 18‏/6‏/1434هـ الموافق ‏28‏/4‏/2013م المختصر: يتم اخذ صورة من الماسح الضوئي الإسكنر و وضعها في ملف اكسل جديد وحفظ هذا الملف في المجلد الذي تحدده بالإسم الذي تحدده مع عمل ارتباط شعبي للملف الذي به الصورة لكي يسهل الوصول له. الشرح: في الملف المرفق اختار نوع المستند الذي تريد عمل صورة له من الماسح الضوئي وذلك من اعلى الصفحة الأولى للملف هوية او استمارة حدد المجلد الذي تريد حفظ الصورة به – بالضغط على زر تحديد مجلد الحفظ الموجود في اعلى الورقة من اليسار اكمل بيانات المستند المطلوب حفظة داخل الورقة أدخل الورقة او المستند المطلوب الى الماسح الضوئي ثم اضغط على صورة مسح ضوئي Scan الموجودة يمين الشاشة اتبع التعليمات التي تظهر – ادراج مخصص – ثم – معاينة – ثم – مسح ضوئي تتم الخطوات التالية تلقائيا ادراج الصورة في ملف اكسل جديد تعديل حجم الصورة اذاكانت كبيرة بحيث تطبع في ورقة واحدة حفظ الملف الجديد حسب البيانات التي ادخلتها في المجلد المحدد منك مسبقا وضع بيانات الصورة في جدول البيانات مع ارتباط شعبي لسهولة الوصول الى الملف الموجوده به الصورة البحث عن صورة: بالضغط على البيانات المسجلة يتم الدخول الى جدول به بيانات كل الصور التي تم عمل سكان لها من الخانة الصفراء اعلى الورقة اكتب أي جزء من معلومة تريدها يتم تصفية الصفوف بحيث تظهر الصفوف التي تحتوي على هذه المعلومة اضغط على المعلومة التي تريدها يتم فتح الملف الذي به الصورة بواسطة الإرتباط الشعبي شكر خاص الى كلا من Khhanna و Hancock و ابونصار عباد و شوقي ربيع http://www.officena.net/ib/index.php?showtopic=46533 http://www.officena.net/ib/index.php?showtopic=44394 ملحوظة للإخوة الذين يستخدمون اكسل 2007 او اكثر – اذا لم تظهر الأيقونات او الأزرار في أي ورقة فقط عدل زووم العرض من اسفل الشاشة يسار آمل ان يكون به الفائدة للجميع دمتم بخير Excel_Scan.rar

ملفك اخي الكريم مغلق برقم سري واعتقد ان المشكلة لديك في طريقة حفظ الملف اليك اخي الكريم ... كل امتدادت الاكسيل والفرق بينهم ( راجعهم واختار ما يناسبك منهم ) وان كانت المشكلة غير ذلك اخبرنا XLS تستطيع قرائتها بالإكسل 2003 XLS تستطيع الإحتفاظ بالكود فيها بداية من أوفيس 2007 ، تم استبدال XLS بثلاث إمتدادات xlsb ، xlsx ، xlsm وثلاثتهم لايستطيع الأوفيس 2003 قرائتهم إلا بإضافة أداة جديدة إضافية 1- الإمتداد xlsx لحفظ ملفات الإكسل العادية التي لاتحتوي علي أكواد ، فإن كتبت كود وحفظت الملف بهذا الإمتداد ولم تنتبه لرسالة التنبيه وأغلقت الملف ، فلن تجد الكود مرة أخري عند الفتح 2- الإمتداد xlsm لحفظ ملفات الإكسل التي تحتوي علي أكواد 3- الإمتداد xlsb لحفظ ملفات الإكسل (مع أكوادها) ، ولكن لاتستطيع عمل مشاركة لهذا النوع من الملفات للعمل بأكثر من مستخدم علي الملف في الشبكة ، أي Share وننصح باستخدام xlsb بدلا من xlsm لقلة حجم هذا النوع الملحوظة بالنسبة للآخرين (( إلا في حالة مشاركة الملف علي الشبكة )) ارجو ان اكون قد افدتك ولو قليلا تقبل خالص تحياتي

انا كنت رافض اعمل مشاركة بصراحه مش علشان الموضوع ما يستهلش لا سمح الله اوعى تفهمنى غلط ولا علشان انت العلامه ياسر خليل ولكن بس حبيت يكون الموضوع بس كله دروس ورا بعض واكتفيت بالاعجاب وطبعا زى مانت عارف ( اسمها منتا منتا )ههههههههههههههههههههههههههه المهم انى بفضل مش طبيعى لحد ما افهم الكود وبعد مشاركة العلامه عبدالله باقشير قلت مبدهاش بقى لازم اشارك لما قال [ اسمحلي اكلمك باسلوبك "التهينا شوية بامور اخرى جينا ولقيناك عامل الهوايل ومكسر الدنيا" يا اخي الحبيب حقيقة لك اسلوب تعليمي يدخّل المعلومة بالراس بالغصب ] حبيت اقول سر للعلامه /عبدالله باقشير هو قالى انه مدرس وبيقولى مبحبش التدريس امال بقى لو كان بيحبها كان عمل فينا ايه كان ادنا الكود بالرضعه ههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههههه حبيبى واستاذى الفاضل ياسر تقبل احترامى بس حبيت اصبح عليك ولى رجاء من الاخوة بعد اذن الاستاذ ياسر الاكتفاء بالاعجاب حتى تكون الدروس ورا بعض بشكل مميز

تحية كبيرة للأخ ياسر خليل وجازاه الله خيرا على متابعة الموضوع تفضل اخي الكريم Sub test() Dim sh As Worksheet: Set sh = Feuil4 Dim Lr As Long: Lr = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row - 1 Dim Text As String Dim i As Integer, r As Integer, x As Integer, xx As Integer r = 0 For i = 2 To Lr x = Val(sh.Range("A" & i + 1)) - Val(sh.Range("A" & i)) Select Case x Case Is > 1 For xx = 2 To x r = r + 1 Text = Text & Val(sh.Range("A" & i)) + xx - 1 & vbCrLf Next End Select Next MsgBox Text End Sub تحياتي للجميع

السلام عليكم هذه معادلة مجموع الاجازات المرضية ضعها في الخلية d2 واسحبها على بقية العمود =SUM(OFFSET(Sheet1!$D$1;MATCH(C2;Sheet1!C:C;0)-1;0;1;12)) هذه معادلة مجموع الغياب ضعها في الخلية p2 واسحبها على بقية العمود =SUM(OFFSET(Sheet1!$P$1;MATCH(C2;Sheet1!C:C;0)-1;0;1;12)) في امان الله

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