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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

أخي الكريم بفرض أن الأسماء كما ذكرت في النطاق وليكن 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 ، وسيحسب لك المتبقي عليه ويخبرك بذلك جعفر

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

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