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

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

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

1-استطعت بالرغم من ضيق الوقت الى هذا الملف (يمكن المتابعة فبما بعد) 2- اتبع هذه الصورة لمعرفة كيفية التعامل مع اليوزر الملف مرفق MHmd188.xlsm

تم التعديل القوائم المنسدلة يجب ان بكون في هذه الحالة من N2 الى Q50 (لسهولة كتابة اسم الشيت دون احطاء املائية او مسافات زائدة او ناقصة و عدم اضاعة الوفت بكنابتها) yara_Other_data_val.xlsm

وعليكم السلام-تفضل قوائم 2021-.xlsb

تفضل لك ما طلبت قائمة منسدلة.xlsx

وعليكم السلام -فقط للحفظ التلقائى ... عليك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_BeforeClose(Cancel As Boolean) If Saved = False Then ActiveWorkbook.Save End If End Sub Protect.xlsb

فقط عليك استخدام هذه الصيغة ... سحباً للأسفل =RC[-2]&" "&RC[-1] دمج.xlsb

السلام عليكم إخواني الكرام .. كل عام وأنتم بخير .. كل عام وأنتم إلى الله أقرب أحب أن أقدم سلسلة دروس بسيطة للمبتدئين فيما يخص القوائم المنسدلة ..راجيا من الله عزوجل أن ينتفع بها كل مسلم إليكم إخواني الجزء الأول .. إنشاء القوائم المنسدلة 1.rar إليكم إخواني الجزء الثاني وهو لا يختلف كثيرا عن الجزء الأول .. إنما هو مثال آخر تأكيدي بشكل مختلف قليلا إنشاء القوائم المنسدلة 2.rar الأخوة الكرام أقدم لكم الجزء الثالث متمنياً لكم دوام الصحة والعافية وكل عام وأنتم بخير إنشاء القوائم المنسدلة 3.rar كل عام وأنتم بخير إخواني الكرام إليكم الجزء الرابع من القوائم المنسدلة في هذا الجزء سنتناول كيفية عمل قوائم منسدلة لقوائم غير ثابتة إنشاء القوائم المنسدلة 4.rar

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

الكود المناسب Option Explicit Sub My_formula() With Range("H4:H48") .Formula = "=IF(E3="""","""",$B$2)" .Value = .Value End With End Sub

ربما يكون المطلوب Hasan_3.xlsb

هذه معادلة توضغ في الحلايا ويتم تنفيذها قور كتابتها والضغط غلى Enter الملف مرفق Hasan.xlsb

أكيد عندما تغير شيئاً في خلية تحتوي على معادلة فأن المعادلة بتم حذفها واستبدالها بما تم كتابته لهذا السبب اقترحت في مشاركة سابقة : القوائم المنسدلة يجب ان بكون في هذه الحالة من N2 الى Q50 (لسهولة كتابة اسم الشيت دون احطاء املائية او مسافات زائدة او ناقصة و عدم اضاعة الوفت بكنابتها) الكود المطلوب لهذه العاية موجود في الملف الذي سبق ورفعته واسمه (yara_Other_data_val)

ارى ان الفواصل "," في المغادلة اصبحت فواصل متقوطة ";" ربما يكون هذا السبب

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

تقريبا في تطبيق أوفيس للموبايل لا يوجد ارتباط بصفحة في الملف من خلال القوائم وإنما يوجد رابط لملف آخر من قائمة إدارج insert رابط link النص الظاهر ثم العنوان جرب استعمال دالة hyperlink وكن برابط ملف الاكسل الحالي ثم اسم الشيت ثم مرجع الخلية مثل: =hyperlink("path/sheet2!a1","any word")

ما هذه الاشارة في المعادلة @CHOOSE(MATCH($G$1;$N$1:$Q$1;0); تأ كدي من الأسماء في النطاق N1:Q1 ربما تكون هناك مسافات زائدة أو ناقصة والافضل اخذ هذه الاسماء من نفس النطاق الى data validation في الخلية G1 (انظري الى data validation في الملف الذي رفعته لك)

جميل جميل قمر بحبك يالبنان سليم حاصبيا الف مليار شكر اخى حفظك وحماك رب العرش العظيم

عندي يعمل

ahmed.hamdy0020000 أين انت من هذه الإجابة الممتازة للأستاذ علي محمد؟!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!🖤

جرب هذا الكود Option Explicit Sub replace_1_Name() Dim sh12 As Worksheet Dim sh13 As Worksheet Dim Rg12 As Range, Rg13 As Range Dim i% Set sh12 = Sheets("الصفحة 12") Set sh13 = Sheets("الصفحة 13") Set Rg12 = sh12.Range("D5:N17") Set Rg13 = sh13.Range("D5:N17") Rg13.ClearContents Rg13.Value = Rg12.Value For i = 1 To Rg13.Rows.Count Rg13.Rows(i).Replace 1, sh13.Cells(i + 4, 2), 1 Next End Sub الملف مرفق Bilal_Y.xlsm

بارك الله فيك أستاذ حسام , وجعله فى ميزان حسناتك ورحم الله والديك

الف مبروك ترقية مستحقة وأعانك الله عليها وبارك الله فيك

بارك الله فيك وزادك الله من فضله

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

السلام عليكم تم طرح عدة اسئلة عن طريقة فرز او تصفية بيانات النموذج ، وسأقوم هنا بشرح الطريقتين: 1. إما عن طريق الاستعلام ، وهذا الرابط يعطينا المثال (والرجاء قراءته بتريث وتمعن وبالتفصيل) : 2. وإما عن طريق النموذج ، فميزتها: أ- انك تستطيع عمل تصفيه/تصفيات اضافية على النموذج او التقرير ، بعد تصفية الاستعلام ، ب- الاكسس سيعطيك الكود وسأشرح هنا كيفية عمل تصفية بيانات النموذج (وبنفس الطريقة يمكن عمل اكثر من تصفية ، وعمل فرز كذلك) : سأستعين بمرفق السؤال التالي للأخ محمد ، وبعد طلبت إذنه 1. قاعدة البيانات يجب ان تسمح لها ان تكون في وضع Layout View (هذا فقط حتى نتعلم الطريقة ، ويمكن الغاءه فيما بعد) ، . 2. النموذج يجب ان يكون غير منبثق . 3. هذا النموذج الذي نريد ان نعمل له تصفية بين تاريخين للحقل Date . 4. الهدف النهائي هو استخدام هذا الحقل لإدخال تاريخ معين ، ثم الضغط على زر "تصفية بين تاريحين" للقيام بالتصفية . 5. طريقة العمل: أ. بزر الفأرة اليمين نضغط في بيانات حقل التاريخ Date ، ب. ونختار تصفية التاريخ (السبب ان الاكسس اعطانا تصفية التاريخ هو لأن الحقل حقل تاريخ ، فلو كان الحقل نص او رقم لأعطانا الاكسس خيارات اخرى) ، ج. ونختار بين تاريخين (طبعا يمكنك اختيار اي من الاختيارات الاخرى ، وهذا يعتمد على التصفية التي تريد القيام بها) . د. تخرج لنا نافذة تطلب إدخال التاريخين (ويمكننا ادخال التاريخ بعدة طرق) ، وحسب اختيارنا ، والنتيجة المفروض ان نراها بعد التصفية هي السجلات بالاسهم الحمراء فقط . هـ. وهذه نتيجة التصفية اعلاه بين تاريخين . ح. والآن الى شرح كيفية الاستفادة مما عملناه اعلاه وتطبيقه في كود ، ننتقل بالنموذج الى وضع Layout View . ط. ونضغط بالفأرة اليسار على النموذج الفرعي الذي عملنا عليه التصفية ، ي. ثم ننظر في اعدادات النموذج ، الى ان نصل الى التصفية ، فنرى الكود الذي استعمله الاكسس للقيام بالتصفية ، فنعمل له نسخ ، ومثل ما اشرت اعلاه ، يمكننا اضافة اكثر من تصفية لأكثر من حقل ، ويمكن عمل فرز لحقل آخر ، ثم نرى الكود جاهزا هنا . ك. هذا الزر الذي سننقر عليه للقيام بالتصفية . ل. فنعمل الحدث على نقر الزر ، ثم نلصق الكود السابق ، ونقوم بتعديل التواريخ بما يناسب طلبنا ، وهو التصفية بين: تاريخ الحقل DateX و تاريخ الحقل DateX ناقصا 65 يوم ، او كما بالتواريخ في الملاحظات (باللون الاخضر في الكود) (ملاحظة مهمة للعلم: الاكسس يستخدم نظام التاريخ الامريكي في جميع عملياته ، والتاريخ الامريكي هو شهر/يوم/سنة ، كما نرى في كود التصفية) . م. وهنا نرى نتيجة النقر على زر "تصفية بين تاريخين" ، والذي يستعمل الكود اعلاه . ****************************************** اما اذا اردنا عمل استبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح الكود . ************************** الآن سنقوم بعمل اكثر من تصفية ، فرز بين تاريخين واستبعاد "الاسكندرية" فرزنا بين التاريخين ، وكانت نتيجته هكذا . واستبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح كود التصفية هكذا . والآن الى الكود الذي يضم هذه التصفيات: يجب ان نعرف اننا نتعامل مع مجموعة مختلفة من انواع الحقول ، وكل نوع له طريقة في عمل الكود ، فالسطر الاول هو تاريخ ، والسطر الثاني للنص ، ووضعت مثال في آخر سطر لحقل الرقم Dim City As String City = "اسكندرية" 'للتاريخ myCriteria = "([testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#)" 'للنص myCriteria = myCriteria & " AND ([testQ].[country1]<> '" & City & "'" myCriteria = myCriteria & " or [testQ].[country1] is null)" 'للرقم 'myCriteria = myCriteria & " AND [testQ].[ID]<> " & Me.ID Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True *********************************** كيف نعرف ان النموذج به تصفية: عند عمل التصفية في النموذج (وليس من الاستعلام) ، ستلاحظ ان النموذج يخبرك انك عملت تصفية ، هكذا بالتظليل الاصفر: . ولإزالة التصفية ، يجب عليك النقر على احد هذين المكانين المظللين بالاصفر ، او عمل زر: . والكود على نقر الزر سيكون: Me.TestF.Form.Filter = "" Me.TestF.Form.FilterOn = False جعفر 660.2.Test2006.mdb.zip

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

شاهد المرفق تم التنفيذ بالصيغ project_Omar2.rar

السلام عليكم ورحمته الله وبركاته... سوف تجد أخي الكريم إنشاء الله ماتريد في الملف المرفق . وصراحة قد أعجبني السؤال وظننت في بداية الأمر أنه سهل لكنه كان غير ذلك , لكن الحمد لله الذي وفقني إلى حله . _______________________.rar