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

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة NOT والتي تعكس القيمة أي إذا كانت القيمة True فإنها تصبح False ، وإذا كانت القيمة False تصبح القيمة True ... وإليكم أمثلة تطبيقية لتأكيد المعلومة وكيفية الاستفادة منها المثال الأول : Sub ToggleFormulaBar() Application.DisplayFormulaBar = Not Application.DisplayFormulaBar End Sub نجد نفس السطر اللي على اليسار هو هو كما على اليمين ، فقط أضفنا كلمة NOT والتي تعكس القيمة فإذا كان شريط المعادلات مخفي أصبح ظاهراً ، وإذا كان شريط المعادلات ظاهراً أصبح مخفياً .. سأدرج بقية الأمثلة مع ذكر الفائدة من كل كود ، والفكرة نفسها في كل الأمثلة ------------------------------------------------------------------------------------------ المثال الثاني : Sub ToggleShowZeros() ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros End Sub الكود لإظهار القيم الصفرية وإخفائها المثال الثالث : Sub ToggleGridlines() ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines End Sub الكود لإظهار خطوط الشبكة وإخفائها المثال الرابع : Sub ToggleDisplayHeadings() ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings End Sub الكود لإظهار عناوين الصفوف والأعمدة المثال الخامس : Sub ToggleScrollBars() ActiveWindow.DisplayHorizontalScrollBar = Not ActiveWindow.DisplayHorizontalScrollBar ActiveWindow.DisplayVerticalScrollBar = Not ActiveWindow.DisplayVerticalScrollBar End Sub الكود لإظهار أشرطة التمرير الأفقية والرأسية وإخفائها المثال السادس : Sub ToggleWorkbookTabs() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub الكود لإظهار تبويبات المصنف أي أسماء أوراق العمل المبوبة وإخفائها المثال السابع : Sub ToggleStatusBar() Application.DisplayStatusBar = Not Application.DisplayStatusBar End Sub الكود لإظهار شريط الحالة وإخفائه المثال الثامن : Sub ToggleShowFormulas() ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas End Sub الكود لإظهار المعادلات في ورقة العمل وإخفائها (التعامل هنا ليس مع شريط المعادلات) المثال التاسع : Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden End Sub الكود يقوم بإظهار الأعمدة I و J وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي

فيديو لإظهار قيم نتائج متعددة باستخدام دوال If, small, index, iferror وهو ما تعجز عنه دالة vlookup ودوال index مع match وتغنى عن دالة Vlook2all اليكم الرابط

حياك الله استاذ كرار يبدو اني خلطت الأمور هو فعلا كذلك ... الذي خلط الأمور هو اني مهتم بنموذج البداية ويهمني ان تظهر الأيقونة بدل مفتاح الأكسس ولاحظ حتى لو اخترنا الأيقونة يدويا .. ان الوضع هو نفسه .. لا تتأثر ايقونة الملف نفسه ولكن تتأثر النماذج والتقارير . انت ترغب في تغيير ايقونة القاعدة نفسها .. يدويا كما ذكرت في الردود السابقة بعمل اختصار ومن ثم اختيار الايقونة طريقة اخرى عند التحزيم انا استخدم access developer extension وهو يسمح لك بإختيار ايقونه وينشئ عنك الإختصار على سطح المكتب وقائمة ابداء. في 2010 اعتقد لديك package solution يقوم بنفس المهمة . الموضوع هذا من اولة فيه لخبطه ههههههه. اعتذر بالتوفيق

وجزيت خيراً بمثل ما دعوت لي أيها الصقر .. بارك الله فيك ومشكور على مرورك العطر بالموضوع

السلام عليكم ورحمة الله تعالى وبركاته كنت قد بدات هذا الموضوع من قبل وهو خاص بجعل العميل يرسل لك تقييم عن برنامجك او رسالة خاصة بالاخطاء الفنيه . كل هذا يرسله العميل لك بالبريد الاليكترونى ووجدنا انه من الصعوبة فتح كل بريد وارد لرؤية اللتقييم به ومن الصعب الحصول على فلترة لتلك الايمالات لاستخلاص منها درجات التقييم خاصة وان كان عدد مبيعات برامجك كبيرة فهدانا الله الى انشاء قاعدة بيانات لتكون منصة لاستقبال البيانات التى يرسلها عملاؤنا من جميع انحاء العالم وكان السؤال كيف سيتم الاستغناء عن ارسال ميل خاص بكل تقييم ؟؟ وكيف سيتم ربط قاعدة البيانات لديك كمصمم بكل برنامج تبيعه لعملاؤك لمعرفة ذلك يرجى متابعة هذا الموضوع بكل صفحاته بتعليقاته شرح بسيط مع الصور صورة نموذدج التقييم ملاحظة بسيطة ارجو كتابة الاسم عند ارسال التقييم فى زر ارسال التقييم قمت بادراج كود الربط الذى سيربط نموذج التقييم بالجدول المرفوع على سيكوال سيرفير هذا الكود ستجدونه هنا فى موقع ميكروسوفت الرسمى https://support.microsoft.com/en-us/kb/892490 والان منصة استقبال التقييمات وهو عبارة عن نموذج مربوط برمجيا بقاعدة سيكوال سيرفير هذا النموذج يمكنه الاتصال بكل برنامج تبيعه للعملاء دن الحاجة الى ستقبال الميل لن يتم ارفاق قاعدة البيانات الخاصة باستقبال التقييمات الان فقط سيتم ارفاق نموذج التقييم فقط وارجوا منكم ارسال تعليقاتكم وتقييماتكم من نموذج التقييم وهى ستصلنى ان شاء الله وسارفقها لاحقا نموذج التقييم.rar

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

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

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

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

اخوانى بارك الله فيكم شكر الله لكم جهدكم المشكلة لدى لا تكمن فى انشاء قاعدة البيانات ولكن المشكلة فى كيفية ارسال العميل لى التقييم فانا لا اريد العميل ان يرسل لى ايميل بالتقييم فسوف اشق على نفسى بقرائة كافة الايملات الواردة واستخلاص المعلومات منها على حدا ما فكرت به واعكف الان على تنفيذه بعون الله اتممت جزء كبير جدا منه 1 - قمت بانشاء قاعدة بيانات لدى اسميتها منصة استقبال التقيمات 2 - قمت بانشاء جدول به خمسة حقول (اسم البرنامج - اسم المستخدم - التقييم - الايميل - التعليقات) 3 - قمت برفع هذا الجدول على قاعدة بيانات سيكوال موجودة على استضافة 4 - وفى كل برنامج ابيعه انشئت النموذج المذكور سلفا والخاص بالتقييم 5- اى (قمت بربط هذا النموذج بالجدول الموجود على سيكوال ) عند الارسال فسيقوم النموذج بارسال المعلومات الخاصة بالتقيم وربطها بقاعدة البيانات لدى من اى مكان على وجه هذه الارض جارى تجهيز المرفق ان شاء الله سيتم ارفاقه هنا ليستفيد الجميع

وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك بارك الله فيك وجزيت خيراً على مساهمتك الجميلة والرد عليها بهذا السطر CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") أبسط وأيسر

صدر بحمد لله كتاب (مشروعي) و هو كتاب متكامل باللغة العربية في إدارة المشاريع والاعداد لشهادة PMP. الكتاب من تأليف كلٍ من: د/عمرو مسلم و م/ محمد طاهر عرفه ويقع في أكثر من 800 صفحة تغطي المجالات المعرفية الأساسية لإدارة المشروع ،كما يمثل الكتاب مرجع عربي متكامل لمن يرغب في الاستعداد لشهادة مدير المشروع المحترف PMP. اعتمد الكاتبان بالأساس على تبسيط الإصدار الخامس من الدليل المعرفي لإدارة المشروعات ليس من خلال الاختصار ولكن عن طريق الشرح والتوضيح وإضافة أمثلة وتلميحات ورسومات توضيحية وخرائط ذهنية ومعلومات يحتاجها كل مدير مشروع مع الكثير من التمارين المتنوعة في أسلوبها وذلك لضمان استيعاب القارئ لما جاء في كل فصل من معلومات. ويحوي الكتاب خاصية فريدة لتوضيح أين سيتم استخدام أهم مخرجات كل عملية كمدخلات للعمليات الأخرى، مما يؤدي لمساعدة القاريء على الربط المتميز بين كافة العمليات و المجالات المعرفية الواردة في الكتاب. بالإضافة الى ذلك، يحوي الكتاب ما يقارب 500 سؤال تدريبي للاستعداد لاختبار شهادة مدير المشروع المحترف PMP بالإضافة الى 60 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

وصلنى تقييمك اخى الكريم شكرا لك الاستضافة محجوزة من موقع somee وللا سف الاستضافة مجانية ولكن اتعلم عليها وانا هنا طوع امركم فيما فتح الله علينا به

السلام عليكم جرب هذه الطريقة القرآن العظيم كاملا موثقا1.rar

هذا المرفق لحل الطلب الذي قمت بطلبة لتحميل من هنا

=IFERROR(INDEX(Table1[القيمة];MATCH(A2;Table1[[المخالفة ]];0);1);"") السلام عليكم ورحمة الله اكتب هذه المعادلة و اسحب نزولا

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

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

اذا ممكن ترفق مثال للتعديل عليه ... أو إطلع على هذا المثال ... RIT2.rar

استاذ سعيد لما ضغت الزر ظهرت رسالة don لكن التغيير الوحيد هو رمز النموذج و التقرير

حياك الله استاذ سعيد ... اخ و استاذ عزيز ... و هذه طريقة بدون استعلام ... RIT2.rar

حياك الله استاذ كرار فعلا جربت على جهاز اخر وظهرت المشكلة .. ووجدت حل من MSDN لتفادي هذا الخطاء وهو في حال عدم وجود الخاصية ان يقوم بإنشائها . هنا الدالة Function AddAppProperty(strName As String, _ varType As Variant, varValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo AddProp_Err dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function وهنا استدعائها تحت زر امر Dim intX As Integer Const DB_Text As Long = 10 ' هنا اسم البرنامج اذا رغبت في تغييره ' intX = AddAppProperty("AppTitle", DB_Text, "اسم البرنامج") intX = AddAppProperty("AppIcon", DB_Text, "C:\Users\dell\Desktop\NewSEtup\ssab.ico") CurrentDb.Properties("UseAppIconForFrmRpt") = 1 Application.RefreshTitleBar MsgBox "done" وهنا رابط الموضوع https://msdn.microsoft.com/en-us/library/bb256834(v=office.12).aspx ملاحظة : الصورة ممكن تكون بإمتداد bmp او ico بالتوفيق للجميع .

تمام اخي ... ان شاء الله ارفعه لك اليوم

تمام اخي الكريم .. لكن لدي سؤال .. ماذا لو كان عدد الصفوف في احدي الشيت الاول اكثر من الصفوف في الشيت الثاني ؟. اليس من المفترج ان يكون فيه عامل مشترك بين الصفوف كاسم الفايل مثلا العمود A

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

هذا هو الحل شكرا جزيلا وجزاك الله كل خير

الكود يقوم بالاتي حذف كل الصفوف في الشيت الرابع نسخ الصفوف من كل الشيتات ولصقها في الشيت الرابع هل هذا ماتريد؟ اما اذا كان طلبك شي اخر فهذا يعني ان لم افهم ماتقصد اتمنى التوضيح هل قمت بتغيير الماكرو في المستطيل الي Copying?

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

اتمنى ان يكون هذا هو المطلوب ... 3 للحل.rar

Sub Copying() Dim i As Integer Dim LstRow As Integer Dim LstRow1 As Integer LstRow = Sheet4.UsedRange.Rows.Count If LstRow > 2 Then Sheet4.Rows("2:" & LstRow).Delete LstRow1 = 2 For i = 1 To 3 LstRow = Sheets(i).UsedRange.Rows.Count If LstRow > 1 Then Sheets(i).Rows("2:" & LstRow).Copy Sheet4.Cells(LstRow1, 1) LstRow1 = Sheet4.UsedRange.Rows.Count + 1 End If Next i End Sub جرب اخي

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

كل يوم تثبت لنا انك عملاق استاذ سليم بارك الله فيك

اليوم باذن الله سنقوم بشرح المصفوفات (المصفوفات)Arrays Arrays (المصفوفات) : يتم التخزين في المصفوفة باحجام ثابتة و متتابعة و تكون العناصر من نفس النوع يعني مثل (string , integer ) يتم استخدام Arrays (المصفوفة) في تخزين البيانات و سهولة ترتيب الاكواد و اختصارها و تستخدم دائما في المشاريع الكبيرة . وتعريف أبسط : هي عبارة عن مجموعة من المتغيرات من نفس النوع مخزنه في مصفوفة نروح لمثال لتطبيق عدد من المتغيرات String كالاتي Dim aa As String Dim bb As String Dim cc As String Dim dd As String Dim ee As String Dim ff As String Dim gg As String aa = "ياسر" bb = "محمد" cc = "اسيل" dd = "ابو البراء" ee = "ابو يوسف" ff = "الفلاحجي" gg = "عبد العزيز" الكود السابق هو الاعلان عن متغيرات متعددة من نوع استرنج وتم تعريفهم باسفلهم طيب اللي فات متغيرات واحنا أخدناها من قبل طيب ايه نظام المصفوفات دي نشوف الكود التالي Dim aa(6) As String aa(0) = "ياسر" aa(1) = "محمد" aa(2) = "اسيل" aa(3) = "ابو البراء" aa(4) = "ابو يوسف" aa(5) = "الفلاحجي" aa(6) = "عبد العزيز" الكود اللي فات دا بيعبر عن مصفوفه بسيطة تتكون من سبع عناصر مع العلم اننا قمنا بتحديد العدد 6 في الاعلان ؟؟؟؟ لانه المصفوفة بتبدأ من الصفر كما ظهر في التعريف اسفل الاعلان وممكن نكتبها بطريقة اخرى ايضا مثل الكود التالي Dim aa() As String = {"ياسر", "محمد", "اسيل", "ابو البراء", "ابو يوسف", "الفلاحجي", "عبد العزيز"} انا هنا لم احدد عدد العناصر داخل المصفوفة وسيبنا الاقواس مقفوله بدون رقم ولكن قمنا بتعريفها بجانب الاعلان وهي بنفس الاعداد بترتيبهم من جانب علامة يساوي يعني الطريقة دي هي نفس اللي فوقها نستطيع اختبار النتيجة عن طريق عمل تكست بوكس واحد وزر للاختبار ونضع الكود التالي داخل الزر لاظهار النتيجة في التكست بوكس TextBox1.Text = aa(0) ايه اللي هيظهر لما نطبق الكود دا هيظهر لينا ياسر في كلتا الحالتين السابقتين من كتابة المصفوفة طيب المصفوفه اللي اخدناها دي تعتبر مصفوفة ذات البعد الواحد مصفوفة الone dimensional (البعد الواحد) ودي صورة توضيحية لكيفية عملها وتستطيع تغيير الارقام في الكود التالي كما هي موضحه بالصور واشوف النتيجة 'اكتب واحد من الاسطر الاتية كل مره وشوف النتيجة TextBox1.Text = aa(0) TextBox1.Text = aa(1) TextBox1.Text = aa(2) TextBox1.Text = aa(3) TextBox1.Text = aa(4) TextBox1.Text = aa(5) TextBox1.Text = aa(6) طيب دي مصفوفة مكونة من صف واحد فقط ازاي نقدر نحدد صفوف اكتر ودا في القسم الثاني من شرحنا المصفوفة ذات البعدين Two dimensional (البعدين) وهذه المصفوفة تتميز بتخزين اعمدة وصفوف متعددة طبعا اخواتنا عارفين في الاكسيل ان موجود صفوف واعمدة ولما نحدد خلية عن طريق كود برمجي بنحددها كدا Cells(1, 2).Select يبقي الخلية كما بالصورة هي المحددة بالكود هتفهموا الصورة دي يبقي كدا عرفنا المصفوفة ذات البعدين طيب نشوف كود المصفوفة دي بيتكتب ازاي Dim aa(2, 3) As String aa(0, 0) = "ياسر" aa(0, 1) = "محمد" aa(0, 2) = "اسيل" aa(0, 3) = "ابو البراء" '-------------------- aa(1, 0) = "ابو يوسف" aa(1, 1) = "الفلاحجي" aa(1, 2) = "عبد العزيز" aa(1, 3) = "ياسر1" '--------------------- aa(2, 0) = "ياسر2" aa(2, 1) = "ياسر3" aa(2, 2) = "ياسر4" aa(2, 3) = "ياسر5" TextBox1.Text = aa(2, 1) ركزو معايا المفروض دي عبارة عن ثلاثة صفوف واربعة اعمدة وبنعلن عنها كدا (2,3) لان الصفر عندنا يعتبر عمود وصف طيب الكود السابق دا التكست بوكس1 الناتج هيكون ايه ؟؟؟؟؟؟؟ هيطلع ياسر3 طيب صور توضيحية عشان نتأكد الجدول السابق بيبين لينا تقاطع الصفوف مع الاعمدة والارقا موضحه بالجدول العلوي والاسفل منه يوضح البيانات الموجودة بداخل الجدول مثلا طيب نشوف الصورة دي ياريت تكون الصورة وضحت اكتر بالنسبة للمصفوفات من نوع المتعددة الابعاد Arrays Multi dimension وممكن نكتبها بالطريقة الاخرى هكذا Dim aa(,) As String = {{"ياسر", "محمد", "اسيل", "ابو البراء", "ابو يوسف", "الفلاحجي", "عبد العزيز"}, {"1", "2", "3", "4", "5", "6", "7"}, {"8", "9", "10", "11", "12", "13", "14"}} TextBox1.Text = aa(0, 2) نيجي نشوف نتيجة الكود دا ايه هي الاول لازم نعرف ان كل اقواس مغلقة تعتبر صف يبقي عندنا كام صف ثلاثة وست اعمدة لان لدينا ست قيم في كل صف طيب التكست بوكس اللي في الكود هتساوي ايه اولها الصف وهو صفر يعني الصف الاول والثاني العمود ورقمة 3 يعني القيمة الرابعة لان الصفر يعتبر واحد وهي "أسيل" طبعا الكود معكوس هنا لما تنسخ وتحط داخل البرنامج هتوضح معاك ارجو أن أكون قد وفقت في الشرح . الردود والاستفسارات عن سلسلة دروس الفيجوال بيسك دوت نت في امان الله . تقبلو تحياتي ياسر العربي يتبع

ونحن فى امس الحاجه لهذه المعلومات وهذه التجميعية جزاكم الله خيرا

السلام عليكم هذه الطريقة في توليد الأرقام صالحة لأي برنامج بمعنى ليس بالضرورة أن يكون منجز بالإكسل ملاحظة 1 يمكن توليد أكثر من 100 صف أفقيا كما هو الآن و ذلك بتغيير المتغير x و يمكن توليد أكثر من عشر أعمدة رأسيا كما هو الآن و ذلك بتغيير المتغير y كما أن الكود يقوم بالتأكد من تشابه الأرقام التسلسلية فإن كانت هناك مشكلة يخبرك بها و يقوم بتلوين الخلايا المتشابهة ملاحظة 3 كل هذه الحيل لا تنطلي على متخصص في الإكسل لكن المعروف أن المتخصص لا يشتري برنامجا بل يصنعه بنفسه . و السلام عليكم توليد سريل نمبر.rar

جزيت خيرا شيخ والله ممتاز

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

تمت معالجة الامر (كلمة السر) salim أحرف صغيرة الملف 2010 اذا كان عندك 2003 يمكن التغيير حماية الصفوف من التغيير ة salim.rar

جميل جدا أن تكون الأفكار بصوت عال خصوصا إذا كان المفكرون من العمالقة تضامنا مع فكرة أستاذنا جعفر اذا قلنا أن الـ 2000 نسخة هذه من برنامج واحد فستكون الـ 2000 نسخة عبارة عن رقم واحد بجدول tbl_Software والـ 2000 تعليق ستكون 2000 سجل بجدول والتى يمكننى فرزها حسب رقم المنتج - (واقتراحى هنا أن يكون هنالك كود لنوع الرسالة 1-شكوى أو 2-تعليق أو 3-تقيم أو طلب 4-مساعدة أو ..... داخل الجدول tbl_Software_Feedback) وبهذا يمكننى عمل فلترة حسب نوع الرسالة

جزيت خيرا اضافة ظهور الاسماء تظهر تلقائيا مع الجمع

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

وعليكم السلام استخدم الكود اللي استعملناه في الاستعلام: في النموذج ، وبعد ان تدخل اسم ولي الامر ، استخدم الكود اعلاه (وليس الاستعلام) في msgbox ، وسيحسب لك المتبقي عليه ويخبرك بذلك جعفر

وعليكم السلام انا غيرت في الجدول ، وجعلت الامكانية ، لكل نموذج اسم مستقل الوحدة النمطية التي تقوم بالعمل: Function myName(F) myName = DLookup("[frm_Caption]", "tbl_frm_Caption", "[frm_Name]='" & F & "'") End Function ونناديها سواء على حدث "تحميل النموذج" او "فتح النموذج" ، هكذا: Me.Caption = myName(Me.Name) والنتيجة جعفر 365.for form.Caption.mdb.zip

اخواني احتاج كتاب يشرح اوامر الاستعلام و كتاب للماكرو .. وشكرا

بسم الله ماشاء الله ربنا يبارك فيكم ويجزيكم خير حلول رائعه من اساتذه المنتدى سامحنى استاذى ابوالبراء فاننى (احبط ) احيانا نتيجة لعدم التفاعل -------. واليكم فهذه حلول متواضعه بجانب حلولكم والحقيقة كان هذا سؤال من احد الناس فوجدت انه يستاهل التفكير فاحببت ان اطرحه واشاركه معكم حتى نبدع جميعا واتمنى من الجميع تقديم المزيد والمزيد من الحلول الحل الاول =IF(MID(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1)="/", REPLACE(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1,""), CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1)) الحل الثانى =A1& IF(AND(A1<>"",COUNTA(B1:E1)),"/","")& B1 & IF(AND(B1<>"",COUNTA(C1:E1)),"/","") & C1 & IF(AND(C1<>"",COUNTA(D1:E1)),"/","") & D1 & IF(AND(D1<>"",COUNTA(E1)),"/","") & E1 الحل الثالث دالة UDF وليست من اعدادى بل منقوله =ConcatRange(A1:F1,"/") Option Explicit Function ConcatRange(R As Range, Optional sDelim As String = " ") As String 'If no delimiter specified, delimiter will be a space Dim C As Range Dim V As Variant Dim COL As Collection Dim I As Long Set COL = New Collection For Each C In R If C <> "" Then COL.Add C.Text Next C ReDim V(0 To COL.Count - 1) For I = 0 To UBound(V) V(I) = COL(I + 1) Next I ConcatRange = Join(V, sDelim) End Function Concatenate%20formula.rar

تفضل أخي هذا الكود عسى يفيدك هو غلق الفورم بعد 10 ثواني وبإمكانك التحكم في التوقيت ActiveWorkbook.close.rar

اخي العزيز مرفق لك كتابين بالعربي ارجو ان تستفيد منهما ولا تنسى الدعاء للكاتبين والمرسل تحياتي,,, ADO & DAO.rar