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

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

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

السلام عليكم اولا ملفات البنري تتميز بالسرعة و الخفة هذا حسب علمي ثانيا هناك فرق بين : ا أ إ ثالثا عملت فورم لا يشوش على واجهة الاكسل فهو في اعلى الصفحة و يتيح لك التنقل بين الصفحات و كأنه غير موجود و قمت بذلك ليكون البحث اسر ع من ما سبق التبويب الموضوعي لآيات القرآن الكريم Finshed 17-4-2016_2.rar

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

تفضل اخى الكريم اضف هذه الاسطر قبل نهاية الكود lr = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row Cells(lr + 1, 7).FormulaR1C1 = "=SUM(R11C7:R[-1]C)" Cells(lr + 1, 8).FormulaR1C1 = "=SUM(R11C8:R[-1]C)" Cells(lr + 1, 9).FormulaR1C1 = "=SUM(R11C9:R[-1]C)" تقبل تحياتى

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

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

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

السلام عليكم ورحمة الله وبركاته ارجو ان نقدم جميعا حلولا متنوعه لهذه الحالة " المطلوب ربط الخلايا بعلامة / وترك او تخطى الخلايا الفارغة " بمعادلات او اكواد او اى طريقة حل

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

السلام عليكم أما عن معنى هذه المصطلحات فهي : ـ 1 الدوال و المعادلات و الاكواد هي اجراءات نقوم بها لتنفيذ طلب ما سواءا كان هذا الطلب يتعلق بالحسابات او البحث او التاريخ او النصوص او الهندسة . . . . الدوال : هي تابعة لبرنامج الاوفيس و معرفة داخل البرنامج بمعنى مثل دالة الجمع Sum او دالة احصاء مثل Count او دالة بحث مثل Index و هكذا .... المعادلة : هي كأ نقول مثل : نريد جمع الخلية A1 مع الخلية A2 و نريد ان يكون الناتج في الخلية A3 فنقول بكل بساطة A3=A1+A2 مثل المعادلات التي تدرس في المدارس الكود : او ما يسمى بالماكرو و هو تنفيذ مثل ما سبق ذكره في الدوال لاكن بصورة اكبر و بميزات غير موجودة في الدوال و هو يعتمد على كلمات تسمى الكلمات المحجوزة التي لا يمكن استعمالها إلا من خلال الكود مثل الشرط IF أو الحلقات التكرارية ( For ........ Then .......Else ........End IF ) أو Do أو Private أو Sub أو Public . . . . . . .. أما عن كيفية كتابة كود فهو يعتمد اولا على ترجمة ما تريد تنفيذه الى كلام رياضي لا يتناقض مع المنطق بمعنى يقبله العقل ( ترجمة نصية ) ثم نحول هذا الكلام الى كود باستعمال الكلمات المحجوزة التي ذكرناها قبل قليل مثال : اريد ان ابحث في العمود A1:A20 عن كلمة تبدأ بالحرف ( م ) مثلا ـ 1 صياغة ما اريده على شكل نص : يا اكسل اريد منك ان تظهر لي الكلمات الموجودة في العمود السابق بشرط ان تبدأ الكلمة بالحرف م و إن وجدتها لونها بالبرتقالي وإن لم تجدها اخبرني بذلك . و كأنننا نكتب رسالة لشخص ما ـ 2 تحويل هذا الكلام الى كود '----------------------------------------------------------------------- ' حلقة تكرارية ' روح ابحث من الخلية 1 الى الخلية 20 For x = 1 To 20 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' الشرط ' اذا كان الحرف الاول في اليمين هو حرف م If Right(Cells(x, 1), 1) = "م" Then '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'جواب الشرط ' لون الخلية بالبرتقالي Cells(x, 1).Interior.ColorIndex = 46 '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' احتمال عدم تحقق الشرط Else '----------------------------------------------------------------------- '----------------------------------------------------------------------- 'اظهر لي مساج يؤكد عدم وجود ما طلبته MsgBox "لا توجد نتائج" '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' انهاء الشرط End If '----------------------------------------------------------------------- '----------------------------------------------------------------------- ' اكمل حتى الرقم 20 الموجود في اول الكلام Next '----------------------------------------------------------------------- ملاحظة هذا الشرح لا يعتمد على منهجية علمية بل يعتمد على تجربة خاصة فقط

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

السلام عليكم ورحمة الله في هذه الحالة يكمن الحل (على ما أعتقد) إلى تنصيب طابعة تقبل هذا الحجم في جهازك مع اختيارها كطابعة افتراضية لأجل إمكانية معاينة الصفحة في جهازك بالحجم المطلوب... يمكن أيضا استعمال خاصية تحجيم الورقة من تنسيق A4 (التي تقبلها الطابعات) حسب النسبة المناسبة (التي تسمح الانتقال من تنسيق 900*400 إلى تنسيق A4) ثم عند الطباعة في مكان آخر نقوم باختيار تنسيق الورقة 900*400 مع عكس النسبة السابقة للانتقال من التنسيق A4 إلى التنسييق 900*400... والله أعلى واعلم بن علية

تفضل ، انا اقصد هذه الطريقة ونعم يمكن العمل بطريقتك ، وهي ستكون اسهل ، ولكن ، انت تعمل السجل ، وقد تكون بياناته ليست لجميع الموظفين ، لكنك تدفع ثمن هذا السجل بكثرة حقوله ، كما انه كلما زاد عندك المستخدمين ، اضطررت ان تغير الجدول وتضيف مستخدم جديد ، وهذا غير عملي ولا تحتاج الى نموذج لطباعة التقرير جعفر 370.Database21.accdb.zip

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

وعليكم السلام اذا تتبعت خطوات البرنامج في الرابط التالي ، فستعرف كيف تتحكم في الاكسل ، وستحقق المراد جعفر

شكرا جزيلا لك اخوي تقريبا ممكن وصلنا ل 90% من الحل حقوم الان بتعبئة المعلومات الحقيقة واجرب واشوف النتيجة النهائية بارك الله فيك اخوي وجزاك الله كل خير

السلام عليكم تمام 100 % جزيت خيرا

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

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

السلام عليكم تفضل أخي تعديل ثان لمعادلة البحث1.rar

تفضل اخى الكريم جرب المرفق تقبل تحياتى ترحيل الاسماء بدون تكرار من شيت الى شيت اخر.zip

أخي الكريم ارفق الملف وليس صورة الخطأ ..

السلام عليكم هو المطلوب جزيت خيرا مشكور استاذ

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

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

أخي الكريم أكرم جلال إليك الكود في الرابط التالي يؤدي المطلوب إن شاء الله الرابط من هنا

السيد الجليل ياسر خليل جزاك الله خيرا لقد قمت بالمحاولة وتم تعديل المطلوب بارك الله فيك

تفضل اخى الكريم المرفق به التطبيق تقبل تحياتى الاستعلام عن اسم وظهور مجموع المبالغ.zip

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

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

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

اسف علي التاخير .. جرب اخي osamahreport2.rar

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

السلام عليكم ورحمة الله وبركاته زكاة العلم نشره تاريخ صلاحية انتهى او تاريخ استحقاق انتهى واردت ان يظهر امامك مشطوب فى هذه الحاله نعرض عليكم الطريقة واتمنى .ان تفيدكم رابط الموضوع على مدونة خبير اكسيل http://excelfinancial1.blogspot.com.eg/2016/04/blog-post_15.html شطب(1).rar

السلام عليكم م/ محمد شكرا جزيلا على التمنيات الطيبة. مازلنا في مرحلة المفاوضات مع الناشرين والمكتبات في السعودية ومصر للبدء في نشر الكتاب. وبإذن الله سننشر أسماء الأماكن والمكتبات التي سيتم التوزيع بها بخلاف أمازون. مع تحياتنا وتقديرنا. (للتوزيع في الامارات ، يرجى الاتصال على تليفون 0509904913 السيد/ أدهم اسماعيل) للتوزيع فى الخليج : 0097155404054 أمازون اضغط هنا

جرب هذا الملف كي يعمل الماكرو دون ان يحدف بعض الاسماء (تم تغيير اسماء الصفحات الى اللغة الاجنبية لسهولة التعامل معها) يجب ان تكون كل الاسماء في كل صفحة في عامود واحد ابتداءً من الخلية A7 دفتر أعمال السنة تعديل salim.rar

السلام عليكم قمت بهذه المحاولة جربها و اخبرني القرآن العظيم كاملا موثقا 2.rar

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

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

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

جرب هذا الشيء Sub Without_formulas() With ActiveSheet.UsedRange.SpecialCells(-4123, 23) .Value = .Value End With End Sub

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

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

تفضل سيدي الفاضل Private Sub Form_Open(Cancel As Integer) 'عند فتح النموذج ، اجعل النموذج الفرعي مخفي 'لأننا لا نريد المستخدم ان يرى غير البيانات المطلوبة Me.sfrm_updatefrm.Visible = False End Sub Private Sub poscom_AfterUpdate() 'الآن وقد تم اختيار الشخص ، نجعل النموذج الفرعي مرئي Me.sfrm_updatefrm.Visible = True 'هناك حقلين موجودين في الجدول لكل شخص 'حقل يبدأ بكلمة "حالة" و حقل يبدأ بكلمة "بريد" فقط 'فإذا اضفنا كلمة "حالة " قبل اسم الشخص ، ثم اضفنا اسم الشخص عليها 'ستكون نفس اسم الحقل في الجدول ، ونفس الشئ بالنسبة للحقل الثاني، بريد H = "حالة " & [Forms]![updatefrm]![poscom] B = "بريد " & [Forms]![updatefrm]![poscom] 'نعطي هذه الاسماء لمسميات الحقول Me.sfrm_updatefrm!lbl_H.Caption = H Me.sfrm_updatefrm!lbl_B.Caption = B 'والآن نعطي هذه الاسماء كمصدر للحقول Me.sfrm_updatefrm!str_H.ControlSource = H Me.sfrm_updatefrm!str_B.ControlSource = B 'الآن نعمل استعلام ، ليكون مصدر للنموذج الفرعي 'اولا نأخذ الحقول الثابتة mySQL = "SELECT Category, [Sub-Category], Action, [Due Date], " 'نضيف الحقلين المتغيرين للشخص، والتي تم عملهما في اعلاه mySQL = mySQL & "[" & H & "], " mySQL = mySQL & "[" & B & "]" 'ونكمل الاستعلام بإضافة مصدر معلوماته ، وهو الجدول mySQL = mySQL & " FROM Maintb" 'Debug.Print mySQL 'الآن وقد تم عمل استعلام مصدر بيانات النموذج الفرعي 'نخبر البرنامج ان يستعمله Me.sfrm_updatefrm.Form.RecordSource = mySQL 'ولو انه لا داعي للسطر التالي ، ولكنه لإعادة قراءة البيانات من الجدول Me.sfrm_updatefrm.Requery End Sub جعفر

تفضل . الكود الذي يقوم بالعمل هو: Private Sub Form_Open(Cancel As Integer) Me.sfrm_updatefrm.Visible = False End Sub Private Sub poscom_AfterUpdate() Me.sfrm_updatefrm.Visible = True H = "حالة " & [Forms]![updatefrm]![poscom] B = "بريد " & [Forms]![updatefrm]![poscom] Me.sfrm_updatefrm!lbl_H.Caption = H Me.sfrm_updatefrm!lbl_B.Caption = B Me.sfrm_updatefrm!str_H.ControlSource = H Me.sfrm_updatefrm!str_B.ControlSource = B mySQL = "SELECT Category, [Sub-Category], Action, [Due Date], " mySQL = mySQL & "[" & H & "], " mySQL = mySQL & "[" & B & "]" mySQL = mySQL & " FROM Maintb" 'Debug.Print mySQL Me.sfrm_updatefrm.Form.RecordSource = mySQL Me.sfrm_updatefrm.Requery End Sub جعفر 368.Database1.mdb.zip

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

اخواني الاعزاء تحية طيبه في المرفق كود رائع من ابداعات الاستاذ ابو عبد الله ارجو التفضل بالمساعده بكود آخر يعيد المعادلات والدوال التي تم اخفاؤها بالكود الاول للحاجة الماسة له مع الامتنان حذف المعادلات يالأوراق المختارة-1.zip

السلام عليكم أخي الحبيب لايمكن استداد المعادلات التي تم مسحها (وليس اخفاؤها) بهذا الكود يمكنك فقط تبديل هذا الكود ليحفظ في مكان سري (مثلا) المعادلات قبل مسحها وبهذا تستطيع استردادها من ذلك المكان ولكن ماتم مسحه بالفعل لايمكن استرداده