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

صباح الخير للناس الغالية تمر علينا أيام نستخدم معادلات معقدة في الإكسيل ونريد أن ننقلها إلى محرر الأكواد لتوفير الوقت والجهد، ونعتقد بأن الأمر في غاية الصعوبة، وبالتركيز تجد أنه أصبح يدور حول السهل الممتنع.. جرب أن تدخل أي معادلة في الخانة الصفراء وسترى النتيجة. وتقبلوا تحياتي محرر كود المعادلات.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

لو سمحتو عاوز برنامج لادارة مزكز تحاليل طبية

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

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

السلام عليكم اخوتي الكرام : في المرفق جداول كل واحد منها يحتوي على حقل نصي وهو عبارة عن رقمين يفصل بينهما علامة السالب المسألة : ان تنسيق الارقام يظهر بشكل مقلوب مثال 7-1 والصحيح ان يكون 1-7 وبتوضيح اكثر : هذين الرقمين عبارة عن ارقام آيات أي من آية رقم 1 الى آية رقم 7 المطلوب تنسيق يتم تطبيقه على الجدول / الجداول db2.rar

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

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

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

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

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

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

شكرا جزيلا على هذا الإطراء ماشاء الله عليك نفخت ونفخت فيني ، والآن اصبحت زي البالونه المهم ، هل عملت معاك الطريقة؟ جعفر

السلام عليكم استاذي العزيز البسكري اعتقد انه يجب تعديل صغير فيى الملف 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 صح أم خطأ؟ بارك الله بجهودك

وعليكم السلام جرب هذا وهذا وهذا أيضا

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

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

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

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

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

وعليكم السلام ورحمة الله وبركاته حاولت أنزل مرفق حضرتك لكن تصادفنى مشكلة فى التحميل ولا أدرى ما السبب ولكن عموما لنقل التركيز من فورم فرعى الى رئيسى أو العكس بيتم استخدام الوسيطة .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 جعفر

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

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

بعد اذن استاذى ابوحنين استاذى الكريم عبدالرحمن بدوى فى هذا الكود Private Sub TextBox1_Change() With Me .Height = 125 .Move ActiveCell.Left + 16, ActiveCell.Top + .Height: End With If TextBox1 = "" Then UserForm1.Height = 25.5 With Sheets("ÈíÇäÇÊ") LR = .Cells(.Rows.Count, "A").End(xlUp).Row: ListBox1.Clear: For j = 2 To LR If .Cells(j, 2) Like TextBox1 & "*" Then UserForm1.Height = 125: ListBox1.AddItem .Cells(j, 2) End If: Next: End With If TextBox1 = "" Or ListBox1.ListCount = 0 Then Me.Height = 25.5 If TextBox1 <> "" And ListBox1.ListCount = 1 Then ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit Unload Me End If End Sub احذف الاربع اسطر التاليه If TextBox1 <> "" And ListBox1.ListCount = 1 Then ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit Unload Me End If تقبل تحياتى

وعليكم السلام أخي كرار انا اعتذر ، بس بالفعل نسيت في الكثير من مشاركاتي ، اضع صور ثابته ، وفيها دوائر او مربعات او اسهم ، او كتابة ، والبرنامج اللي استخدمه هو 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") ونفس الكلام مع بقية المعادلة مع تغيير الشروط فقط * إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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

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

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

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

تحية كبيرة للأخ ياسر خليل وجازاه الله خيرا على متابعة الموضوع تفضل اخي الكريم 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 تحياتي للجميع

السلام عليكم الاخ العزيز منتصر هل يمكن عمل ذلك بدون هذا الاستعلام؟؟؟ كيف يمكن عمل استعلام التوحيد؟؟ اذا امكن الشرح وبالاخص على هذا المثال