ياسر خليل أبو البراء

من حرف الكاف أخي الكريم ..

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

صورة الشرح الجميل مش مرفقة في الملف المرفق ليه يا ريس ؟ اتعودنا نشوف الملف بشكله البديع يا وديع

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

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

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

أخي الكريم وائل لقد وجهتك بنصيحتي للأفضل في التعامل مع قواعد البيانات .. ولكن الإكسيل لاغبار عليه فيمكنك الاعتماد عليه في أمور كثيرة أيضاً ولكن مشكلة الإكسيل تكمن في عدم القدرة في التعامل مع البيانات الهائلة الحجم .. لا أقصد 10,000 أو 30,000 صف .. ولكن أقصد إذا كان التعامل سيتعدى ذلك سيكون الأمر مرهق على البرنامج .. ولكن ما المانع أن تقوم بحفظ كل جزء على ملف إكسيل منفصل .. في هذه الحالة يمكنك الاعتماد على الإكسيل .. وإن شاء الله الأخوة في المنتدى لن يقصروا معك في تقديم المساعدات المطلوبة تقبل تحياتي

أخي الكريم مهند جزاك الله كل خير وبارك الله فيك ووفقني وإياك لما فيه الخير لجميع المسلمين أخي ابن بنها .. لم أعمل على 2003 ولكن ابحث في القوائم لديك ستجد الأوامر مماثلة ..وهناك شريط أدوات على ما أعتقد عليه زر الأمر ولن يختلف بفية الشرح بشكل كبير

ينصح أخي الكريم وائل شعبان في حالة البياانات الهائلة اللجوء إلى برامج متخصصة أكثر في إدارة قواعد البيانات كالأكسيس والـ SQL هذا والله أعلم

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

أخي الكريم ابن بنها ضع زر CommandButton مثل الصورة التالية : ثم قم برسم الزر على ورقة العمل ثم انقر دبل كليك على الزر ..سيفتح معك محرر الأكواد وضع الكود بهذا الشكل ما بين القوسين اللذين سيظهران معك Private Sub CommandButton1_Click() Columns("I:J").Hidden = Not Columns("I:J").Hidden CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") End Sub الآن ارجع لورقة العمل واعمل كليك يمين على زر الأمر CommandButton ثم الأمر Properties ثم من النافذة التي ستظهر معك اختر Caption لتغير عنوان زر الأمر وغيره واجعله 1 ثم أخيراً قم بالخروج من الـ Design Mode .. .. الآن نفذ الأمر ستجد أن الأعمدة الظاهرة I و J تختفي وزر الأمر أصبح بعنوان 2 .. نفذة مرة أخرى لعكس العملية لمزيد من التفاصيل حول البدايات في التعامل مع محرر الأكواد يرجى زيارة الرابط التالي الرابط من هنا

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

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

وعليكم السلام أخي الحبيب أخونا في الله (صالح أحمد) .. بسم الله ما شاء الله موضوع قمة في التميز وقمة في الروعة واصل بلا فواااااااااااااصل .. فالقادم أجمل وأجمل تقبل تحياتي

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

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

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

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

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

أخي الكريم بفرض أن الأسماء كما ذكرت في النطاق وليكن 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)),"")

أخي الكريم الطلب غير واضح بالشكل الكافي .. لأنك لم توضح الحالة التالية وهي وجود نفس الرقم 3 مرات ولكن متباعدين كهذا الرقم .. 4113143 حيث يوجد الرقم 1 ثلاثة مرات؟ أمر آخر ما الغرض من هذا الطلب .. فيما سيفيد ؟ حتى يستفيد الجميع

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

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

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

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