ياسر خليل أبو البراء قام بنشر أبريل 14, 2016 مشاركة قام بنشر أبريل 14, 2016 السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم اليوم موضوع خفيف دمه ظريف ، ومفيد جداً جداً إلى أبعد مما تتصور ...الموضوع يتمركز حول استخدام كلمة 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 وبالطبع إخفائها أرجو أن يكون الموضوع نال إعجابكم ... وهذه صورة من الملف المرفق حمل الملف من هنا وأخيراً تقبلوا وافر تقديري واحترامي 13 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 14, 2016 مشاركة قام بنشر أبريل 14, 2016 جزاك الله خيرا أخي ياسر قمت بتحميل الملف الجميل كنت اتبع طريقة لتغير اسم الكموند بوتن ( بوتن لا اعني به اسم رئيس روسيا ) و هذه الطريقة هي Private Sub CommandButton1_Click() If CommandButton1.Caption = "1" Then CommandButton1.Caption = "2" Else CommandButton1.Caption = "1" End Sub 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 14, 2016 الكاتب مشاركة قام بنشر أبريل 14, 2016 وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك بارك الله فيك وجزيت خيراً على مساهمتك الجميلة والرد عليها بهذا السطر CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") أبسط وأيسر 4 رابط هذا التعليق شارك More sharing options...
اسامة ابو عمر قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 ما شاء الله اخي ابو البراء مبدع دائما جزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
محمد حسن المحمد قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 (معدل) بسم الله ما شاء الله لا قوة إلا بالله.. السلام عليكم ورحمة الله وبركاته...تهانينا الحارة على هذه التحف الجميلة التي تمتع نواظرنا بها.. تقبل تحياتي العطرة والسلام عليكم ورحمة الله وبركاته تم تعديل أبريل 15, 2016 بواسطه محمد حسن المحمد 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 وعليكم السلام أبي الغالي أبو يوسف جزاك الله خيراً على المشاركة المميزة والمتميزة .. بارك الله فيك وجمعني الله وإياك في الفردوس الأعلى من الجنة أخي الحبيب أسامة وجزيت خيراً بمثل ما دعوت لي .. نورت الموضوع بردك الطيب تقبلوا وافر تقديري واحترامي 2 رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 8 ساعات مضت, ياسر خليل أبو البراء said: وجزيت خيراً أيها المتهرب من ذكر اسمه .. قلت لك مش هسيبك بارك الله فيك وجزيت خيراً على مساهمتك الجميلة والرد عليها بهذا السطر CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") أبسط وأيسر جزيتم خيرا .. اين اضع هذا السطر Sub ToggleShowColumns() Columns("I:J").Hidden = Not Columns("I:J").Hidden CommandButton1.Caption = IIf(CommandButton1.Caption = "1", "2", "1") End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 أخي الكريم ابن بنها ضع زر 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 .. نفذة مرة أخرى لعكس العملية لمزيد من التفاصيل حول البدايات في التعامل مع محرر الأكواد يرجى زيارة الرابط التالي الرابط من هنا رابط هذا التعليق شارك More sharing options...
اسامةمحمد قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 جزاك الله خيرا اعمالك استاذ ياسر الواحد اجمل من الثاني 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 بارك الله فيك وجزيت خيراً أخي العزيز أسامة شرفت الموضوع بردك الجميل تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 اريد رجل محترم يحول الشرح الخاص بالاستاذ ياسر ل2003 رابط هذا التعليق شارك More sharing options...
مهند الزيدي قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 روعة أخي ياسر .. وفقكم الله لكل خير 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 أخي الكريم مهند جزاك الله كل خير وبارك الله فيك ووفقني وإياك لما فيه الخير لجميع المسلمين أخي ابن بنها .. لم أعمل على 2003 ولكن ابحث في القوائم لديك ستجد الأوامر مماثلة ..وهناك شريط أدوات على ما أعتقد عليه زر الأمر ولن يختلف بفية الشرح بشكل كبير 1 رابط هذا التعليق شارك More sharing options...
ابن بنها قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 شكرا على هذا التوضيح رابط هذا التعليق شارك More sharing options...
عبد العزيز البسكري قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 السّلام عليكم و رحمة الله و بركاته روعة من روائع أعمالك أستاذنا القدير المحترم " ياسر خليل أبو البراء " بارك الله فيك و لك و جزاك خير الجزاء و أطال بعمرك و وفّقك لما يحبّه و يرضاه كم إستفدنا من أعمالك البديعة فائق إحتراماتي 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 وعليكم السلام ورحمة الله وبركاته بارك الله فيك أخي العزيز عبد العزيز وجزيت خيراً على كلامك الطيب ودعائك الطيب وردك المميز تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 بسم الله ماشاء الله ربنا يبارك فيك ويجزيك خيرا دووول شوية كنوز معلوماتيه فى الاكسيل 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 جزيت خيراً أخي وحبيبي محمد الريفي لا كنوز ولا حاجة .. دا يدوب ملف بسيط بس بيوضح فكرة التضاد وعكس القيمة ..مجرد تجميعة بسيطة مش أكتر .. الكنوز دي بنلاقيها في موضوعاتك يا كبير تقبل وافر تقديري واحترامي رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 2 دقائق مضت, ياسر خليل أبو البراء said: جزيت خيراً أخي وحبيبي محمد الريفي لا كنوز ولا حاجة .. دا يدوب ملف بسيط بس بيوضح فكرة التضاد وعكس القيمة ..مجرد تجميعة بسيطة مش أكتر .. الكنوز دي بنلاقيها في موضوعاتك يا كبير تقبل وافر تقديري واحترامي ونحن فى امس الحاجه لهذه المعلومات وهذه التجميعية جزاكم الله خيرا 2 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر أبريل 16, 2016 مشاركة قام بنشر أبريل 16, 2016 جزاكم الله خيرا يا ابوالبراء اسال الله تعالى ان يزيدكم علما وينفع بكم تقبل تحياتى 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 16, 2016 الكاتب مشاركة قام بنشر أبريل 16, 2016 وجزيت خيراً بمثل ما دعوت لي أيها الصقر .. بارك الله فيك ومشكور على مرورك العطر بالموضوع 3 رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر أبريل 17, 2016 مشاركة قام بنشر أبريل 17, 2016 ما شاء الله عليك جزاك الله خيرا كود ميكس و بالعكس تحياتى 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 17, 2016 الكاتب مشاركة قام بنشر أبريل 17, 2016 وجزيت خيراً أخي العزيز جلال الجمال بمثل ما دعوت لي بارك الله فيك ومشكور على مرورك العطر بالموضوع وأدعوك لزيارة مدونتي الجديدة من هنا تقبل تحياتي رابط هذا التعليق شارك More sharing options...
جلال الجمال_ابو أدهم قام بنشر أبريل 17, 2016 مشاركة قام بنشر أبريل 17, 2016 ما شاء الله عليك و جعل اعمالك فى ميزان حسناتك و مدونة رائعه مثل صاحبها 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 17, 2016 الكاتب مشاركة قام بنشر أبريل 17, 2016 بارك الله فيك أخي الحبيب جلال الجمال الأروع من المدونة هو تفاعلكم وحبكم لي ..أحبكم الله الذي أحببتموني فيه تقبل وافر تقديري واحترامي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان