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

بسم الله الرحمن الرحيم اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة اعلم انى مقصر معكم ولكن كانت ظروف طارئة وان شاء الله نعود اليكم بمجموعة منوعة من درووس الاكسيل انتظرونا وتابعونا درس اليوم بناء على سؤال احد الاصدقاء عن كيفية عمل فلتر او تصفية دون تغييير فى المسلسل للجدول فيديو شيق يارب يعجبكم https://youtu.be/kpRzecjmM0g

بسم الله الرحمن الرحيم الاخوه الكرام بعد فترة انقطاع عن المنتدى بسبب الظروف وبعودتي الميمونة احببت أقدم لكم اليوم بمشيئة الله درس حول التحكم بحجم الفورم ===================================== الأدوات ===================================== تكست بوكس/TextBox ليبل/Lebel أو أيقونات كما في الصورة zoom_in zoom_out ===================================== الكود البرمجي ===================================== '==================================================== Private Sub UserForm_Initialize() Dim i As String i = Me.TextBox.Value If i <= 0 Or i = "" Or Not IsNumeric(i) Then i = 100 Me.Zoom = i Me.Width = 712.5 * i / 100 Me.Height = 579.75 * i / 100 End Sub '==================================================== Private Sub zoom_out_Click() If Me.Zoom <= 80 Then Exit Sub j -10 End Sub '==================================================== Private Sub zoom_in_Click() j 10 End Sub '==================================================== Private Sub j(ByVal s) Me.Zoom = Me.Zoom + s Me.Width = 712.5 * Me.Zoom / 100 Me.Height = 579.75 * Me.Zoom / 100 Me.TextBox.Value = Me.Zoom End Sub '==================================================== وفي الاخير أتمنى الفكرة نالت إعجابكم في إنتظار تجربتكم التحكم بحجم الفورم.rar

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

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

السلام عليكم ورحمة الله وبركاته أخي الحبيب أحمد أبو بسملة جزاكم الله خيراً على هذه المعلومات القيمة واسمح لنا أن نشارك ببعض القبسات إثراء لعملكم وفقكم الله تعالى إلى كل خير: - لوضع التوقيت الحالي في خلية نضغط: Ctrl+Shift+; حرف الكاف - لوضع التاريخ الحالي أيضاً: Ctrl +; حرف الكاف - لنسخ قيمة الخلية التي فوق الخلية المفعلة نضغط: Ctrl+' حرف الطاء جزاكم الله خيراً على كل ما قدمتموه والسلام عليكم ورحمة الله وبركاته.

اسف نسيت ارفق المثال ... 12345.rar

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

احي ياسر انت اقترحت فقط 6 خلايا ،وانا اشتغلت على هذا الاساس اذا كنت تريد اكثر انظر الى هذا الملف جدول مقلوب.rar او ربما هذه المعادلة ابسط قليلاً =IF(ROWS($A$1:A1)>COUNTA(A:A),"",INDEX(A:A,COUNTA(A:A)-ROWS($A$1:A1)+1))

بعد التجارب الامر requery فقط هو اختصار ل me.requery وللتجربة وضعت مربع قائمة فعند البحث لا تظهر النتائج بها لانها تحتاج ريكويري فاما تعمل ريكويري خاص بها او docmd.requery سيعمل للجميع فعند استخدام requery فقط لم تتحدث القائمة مما يظهر لنا انه نفس me.requery على غرار docmd.requery والذي قام بعمل ريكويري للكل تحياتي بحث واضافة-update.rar

كل الشكـــــــــر والتقديـــــــــــــــــــــر استاذ رمهان شكر الله لك واجزلك وفير العطاء وجزاك عنى وعن كل اخوانى كل الخير ان شاء الله

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

اولا السلام عليكم ورحمة الله تعالى وبركاته استاذى الحبيب رمهان ثانيا انا لى عظيم الشرف ان حضرتك تتابع اقل طالب علم فى هذا الصرح الشامخ ثالثا بصراحة انا مش عارف الفرق بين 1. docmd.requery 2. me.requery وللعلم انا جربت الطرق الثلاثه 1. docmd.requery 2. me.requery 3-requery والنتيجة واحدة

هذه مشاركة ضع المعادلة التالية في حقل الدمج =[year] & Format([autono],"0000") بالتوفيق

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " محمّد حسن المحمّد " على التّنبيه بهذا المصاب الجلل الذي أصاب أخونا الفاضل " ياسر فتحي البنّا " ما عسانا سوى أن نقول : {إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ} عظم الله أجركم و أحسن عزاءكم و ألهمكم و ذويكم الصّبر و السّلوان و أسكن الفقيدة فسيح جناتّه إن شاء الله يا رب

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

وعليكم السلام ورحمة الله وبركاته اهم نقطة في الامان وهي التي يجب ان تؤخذ في الاعتبار : أخذ نسخة من القاعدة قبل الاصلاح والضغط وايضا : - مراعاة ان تكون القاعدة الخلفية منفكة من الواجهات ويتحقق عدم الارتباط عند تخصيص نموذج البداية غير منضم لمثل هذا العمل - مراعاة تناسب حجم قاعدة البيانات مع ذاكرة الجهاز المتوفرة

أخي الكريم شريف جرب الحل التالي Sub ConvertTextToNumberUsingArrays() Dim Arr, Temp, C, Str As String, I As Long, P As Integer Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1)) For I = LBound(Arr) To UBound(Arr) Temp(I) = AscWConvert(Arr(I, 1)) Next I Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp) End Sub Function AscWConvert(Rng As Variant) Dim C, P, Str If IsNumeric(Rng) Then AscWConvert = Val(Rng) ElseIf Not IsEmpty(Rng) Then For P = 1 To Len(Rng) C = AscW(Mid(Rng, P, 1)) If C - 1632 >= 0 And C - 1632 < 10 Then Str = Str & (C - 1632) Else Select Case C Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 Str = Str & ChrW(C) End Select End If Next P If Len(Str) = 0 Then AscWConvert = "" Else AscWConvert = Val(Str) End If End If End Function الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب تقبل تحياتي

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة فتح استعلام الاسم.rar

بغد اذن اخي بن علية هذه المعادلة توضع في الخلية B18 ,تسحب ياسراً و نزولاً =SUMPRODUCT((($B$3:$B$14) ($B$3:$D$14)=$A18)*(($D$3:$D$14) ($B$3:$D$14)=B$17)*$C$3:$C$14) مرفق الملف Kerols Ashraf.rar

اتفضل انا غيرت شوية حجات البحث عملته بطريقه جديده علشان يكون عندك اكثر من طريقة اكواد الاضافة والتعديل والحذف تم اضافتها بحث واضافة-update2.rar

السلام عليكم ورحمة الله تطبيق المعادلة المقترحة في الموضوع الآخر المكرر... بن علية طلب معادلة.rar

السلام عليكم مشاركة سريعة مني تحليل الاذون مارس 2016 .rar

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

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

بسم الله ما شاء الله بدأت بشاير البحث تبان يا فلاحجي إحنا قولنا تكون النتائج في العمود المجاور بس التعديل هيكون بسيط ...في آخر سطر غيره إلى التالي لكي تظهر النتائج في العمود المجاور WorkRng.Offset(, 1).Formula = Arr تقبل تحياتي

اعتذر منك استاذ عبد الفتاح لأن السؤال لم يكن واضح من الأساس

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

جميل جدا اعتقد لم يصل لك ما اريد في النقطة الثانية اقصد عمود dargaid هو تسلسل للدررجات ؟ هل اعتمد عليه لانه يوجد لدي فكره بالاعتماد عليه ؟ اقصد مثلا ان اكبر تسلسل للدرجة وللموظف هو بمثابة اخر درجة ؟ فمثلا التسلسل 10 هو اعلى تسلسل للموظف 1 ؟ هل اعتمد عليه ؟

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

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

أخي الحبيب سليم عندما نطرح موضوع فنحن نتعامل دائماً مع النطاقات بشكل ديناميكي ليكون الحل المقدم مرن ويفيد الجميع بدون أن يضطر المستخدم العادي إلى التعديل بارك الله فيك وجزيت خيراً على المعادلات الرائعة وإضافة بسيطة جرب المعادلة بهذا الشكل =IFERROR(OFFSET($A$1,COUNTA($A:$A)-ROW(),),"") في انتظار المزيد من الحلول بالمعادلات أو بالأكواد أو بأي طريقة .. تقبل تحياتي

تستطيع في الاكسس 2007 ومافوق وفي الاستعلام بالضغط على مجاميع او اجمالي بالانجليش totals ومن شرط الادوات وسيظهر لك خيار جمع الاعمده بالتوفيق

أنا أوّل المجيبين بهذه المعادلة (البيانات في العامو د A) وتوضع المعادلة في اي مكان تريد =INDEX($A$1:$A$6,ROWS(A1:$A$6)) و اذا اردتها افقية اكتب هذه(برده اينما تريد) =INDEX($A$1:$A$6,COLUMNS(A1:$F$6))

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

الطريقة فعلا كما تفضل بها الاستاذ الكريم والمحبب الى قلبى أبو عبدالله الحلوانى وتوضيحا لطريقة كتابة الرموز فى خصائص التنسيق هى كالاتى - علامة صح تقوم بالضغط على المفاتيح التالية من الكيبورد alt+0252 للحصول على النتيجة ü مع الاستمرار فى الضغط على المفتاح " Alt " اصناء كتابة الأرقام -علامة الخطأ تقوم بالضغط على المفاتيح التالية من الكيبورد alt+0251 للحصول على النتيجة û وهذا مثال على السريع لتعم الفائدة ( √ ) أو ( x )علامة.zip

أخي الحبيب الفلاحجي بارك الله فيك وجزيت خيراً على كل ما تقدمه من جديد أو قديم واااااااااااااصل بلا فواصل .. فسنكون بإذن الله في انتظار جديدك دائماً تقبل تحياتي

أخي الحبيب أبا البراء تكرم عينك وهي ملف مرفق AGGREGATE FUNCTION.rar

اخذت هذه من الكود ابا جودي Private Sub Search_AfterUpdate() Requery End Sub ووجود requery لوحدها هي معلومه جديده لي ! ويبقى السؤال : ياترى هي اختصار لايه : 1. docmd.requery 2. me.requery مشكور

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

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

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

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

أخي الكريم وعليكم السلام ورحمة الله وبركاته أرفقت لك حلا مقتبسا، أرجو ان يكون هو المطلوب... القاعدة if.rar

أخي الحبيب عماد غازي مواضيعك مميزة ورائعة .. فقط ينقصها أن ترفق ملف في آخر الموضوع ليتمكن الأعضاء من التطبيق العملي تقبل تحياتي

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

جزاك الله خيرا ابويوسف شرفنى مرورك وأزدتنا بإثراء الموضوع بمعلومات قيمه ومفيده إن شاء الله ننتفع بها أتمنى من الجميع يشارك بمعلومه تكون غايبه عن اذهاننا تفيدالسائلين طبتم واهتديتم

وإن كـانـت مثل زبـد البـحر أخي المسلم : السلام عليكم ورحمة الله وبركاته ... أما بعد فقد وردت بعض الأدعية والأذكار التي تكفر الذنوب وإن كانت مثل زبد البحر ومن ذلك: 1- عن أبي هريرة رضي الله عنه عن رسول الله صلى الله عليه وسلم أنه قال : ( من سبح الله في دبر كل صلاة ثلاثا وثلاثين وحمد الله ثلاثا وثلاثين وكبر الله ثلاثا وثلاثين فتلك تسعة وتسعون وقال تمام المائة لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شيء قدير غفرت خطاياه وإن كانت مثل زبد البحر ) رواه مسلم 2- عن أبي هريرة رضي الله عنه أن رسول الله صلى الله عليه وسلم قال : ( من قال سبحان الله وبحمده في يوم مائة مرة حطت خطاياه وإن كانت مثل زبد البحر ) متفق عليه 3- عن أبي هريرة رضي الله عنه عن النبي صلى الله عليه وسلم قال : ( من قال حين يأوي إلى فراشه لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شيء قدير لا حول ولا قوة إلا بالله العلي العظيم سبحان الله والحمد لله ولا إله إلا الله والله أكبر غفرت له ذنوبه أو خطاياه وإن كانت مثل زبد البحر ) . رواه النسائي وابن حبان في صحيحه . أخي الكريم : * في الأحاديث السابقة بيان لفضيلة ذكر الله تعالى فاحرص على دوام ذكر الله فهو سبب سعادة القلب وانشراحه . * تذكر أن هذا الفضل والثواب لمن اجتنب الكبائر . * تذكر أن هذا الفضل يكفر الصغائر ما لم يصر عليها . * تذكر أن التوبة النصوح تكفر الذنوب كلها . قال المناوي رحمه الله : "فلا يظن ظان أن من أدمن الذكر وأصر على ما شاء من شهواته وانتهك دين الله وحرماته أن يلتحق بالمطهرين المقدسين ويبلغ منازل الكاملين بكلام أجراه على لسانه ليس معه تقوى ولا عمل صالح " فيض القدير 6/190

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

خاصمتها إثر ذنبٍ في المسا حصلا * ورحتُ دونَ وداعٍ أقصدُ العملاوفي الظهيرةِ عُدتُ البيت مُكتئِبـا * وصلتُ لكن سرور الروحِ ما وصلارأيتها عندَ فتحِ الباب باكـــيةً * ودمعُها أغرقَ الخدّينَ والمُقــــــــــــــلاعانقتها عندَ ظني أنها ندِمت * وصرتُ أسردُ في توصيفها غــــــــــزلايا أقرب الناس مِن قلبي كفى ألماً * فدمعُ عينيكِ لولا الحبّ ما نزلا ففارقتني وقالت لم يكُن ألماً * بل كنتُ أقطعُ بالسكّـينةِ البصـــــــلا

وألان نبدأ بأول الحلول الذكية أداة :: التخلص من علامات خطأ المعادلات مثل الأخطاء التالية : #DIV/0! / #N/A / #NAME? / #REF! / #NUM! / #NULL! / #VALUE! لقد تم عرض أكثر من أسلوب بالمنتدى للتخلص من هذه الأخطاء ولكن أسلوبنا هنا هو السهل الممتنع بضغطة زر واحدة يمكن التخلص من علامات الخطأ للورقة الحالية بالكامل وتعتمد الطريقة هنا على تعديل صيغة الخلية المختارة أو مجموعة الخلايا المختارة أو كل خلايا الورقة الحالية المحتوية على معادلات بأدراج أسلوب ( ISERROR ) ضمن صيغة المعادلة . وهذا كنا نقوم به يدويا لكل مجموعة خلايا بها معادلات متشابهة أو بأتسخدام دالة (IF ) أو كنا نستخدم أسلوب التنسيق الشرطي لإخفاء علامات الخطأ الظاهرة كل هذا أصبح من الماضي ألان . ألان اضغط الزر يتم تعديل جميع الصيغ على سبيل المثل إذا كانت الصيغة أو الصيغ مثل ذلك: =SUM(A1:A9) =VLOOKUP(H1;A1:F9;2;FALSE) تصبح بضغطة زر كالاتى : =IF(ISERROR(SUM(A1:A9));"";SUM(A1:A9)) =IF(ISERROR(VLOOKUP(H1;A1:F9;2;FALSE));"";VLOOKUP(H1;A1:F9;2;FALSE)) وهى تعمل مع أكثر الصيغ تعقيدا وألان كيف نعمل ذلك افتح الملف المراد التخلص من علامات خطأ المعادلات اختار الصفحة المراد تعديلها قم بتشغيل الملف الموجود بالمرفقات إذا لم يذهب بك إلى ملفك اذهب إليه اختار خلية بها صيغة معادلة أو عدة خلايا ثم اضغط (F2) لتعديلها . أو يمكن اختيار كل خلايا المحتوية على صيغ في الورقة الحالية بضغط (F1) ثم اضغط (F2) لتعديلها . أخيرا قم بحفظ الملف الخاص بك . لو تكرمت اخبرنا برأيك هل أستمر بأدراج الحلول الذكية أم لا . تحياتي لكم جميعا ملف التخلص من علامات خطأ المعادلات بالمرفقات ChangeFormulas.rar