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

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة 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 نموذج من أهم النماذج المستخدمة في إدارة المشاريع ، فضلا عن تطبيق عملي لاستخدام أهم النماذج ضمن فصول الكتاب، وأخيرا قائمة بأهم المصطلحات المستخدمة في إدارة المشاريع وترجمتها. أخيراً، فإن الكتاب مُوَجه لكل من يفتقد مادة علمية متكاملة في إدارة المشاريع باللغة العربية والتي قد تمثل عاملاً مهماً لتخطي حاجز اللغة الانجليزية والتي جاءت بها معظم الكتب والمراجع في هذا المجال. لمعلومات التوزيع و التواصل ووصلة الكتاب على موقع أمازون إضغط هنا

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

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

بسم الله الرحمن الرحيم اخوانى الكرام السلا م عليكم ورحمة الله وبركاتة اقدم لكم اليو م فيديو جديد وحصرى وهو عن كيفية عمل Check Box Control in Excel بالمعادلات لمشاهدة الفيديو من هنا https://youtu.be/l1YLu7azI50 المرفقات تشيك بوكس.rar

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

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

صدقوني حملت المرفقات ولم افتحها ومع ذلك استمتع واتابع هذا الابداع و العطاء

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

اذا ممكن ترفق مثال للتعديل عليه ... أو إطلع على هذا المثال ... 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 بالتوفيق للجميع .

اسمحوا لي بالتدخل لاضافة معادلة =INDEX($D$3:$D$18,MATCH(G3&H3&I3,$A$3:$A$18&$B$3:$B$18&$C$3:$C$18,0))

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

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

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

اخي الكريم ابو يوسف يكفيني مرورك الكريم هذا بارك الله فيك تقبل فائق احترامي

بارك الله فيك سيد ياسر خليل عين المطلوب شكر جزيلا

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

ماشاءالله عليك ، هذه هي الطريقة المحترفة جعفر

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

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

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

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

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

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

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

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

أخي الكريم بفرض أن الأسماء كما ذكرت في النطاق وليكن A2:A20 جرب المعادلة التالية (معادلة صفيف) =IFERROR(INDEX(A2:A20,MATCH(1,(SUBTOTAL(3,OFFSET(A2:A20,ROW(A2:A20)-MIN(ROW(A2:A20)),0,1)))*(A2:A20<>""),0)),"")

وعليكم السلام استخدم الكود اللي استعملناه في الاستعلام: في النموذج ، وبعد ان تدخل اسم ولي الامر ، استخدم الكود اعلاه (وليس الاستعلام) في 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

أخي الحبيب محمد الريفي نشتاق لموضوعاتك الجديدة بشكل دائم ولتواجدك فيما بيننا لدي دالة معرفة تقوم بالأمر ولكني سأكتفي بهذه المعادلة البسيطة لتؤدي الغرض =SUBSTITUTE(TRIM(A1&" "&B1&" "&C1&" "&D1&" "&E1)," ","/") تقبل تحياتي

تم تجميع الدروس في هذه الدورة تيسيراً على إخواننا المبتدئين في عالم. البرمجة حمل الدروس كلها من هنا استكمالاً للدورة .. ننتقل بكم إلى دورة أخرى افتح الباب وادخل العالم البرمجة (متخافوش يا أحباب من اللي ورا الباب)

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

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