السلام عليكم ورحمة الله وبركاته

أقدم لكم كيفية إنشاء زر أمر Command Button والتعرف على دالة مفيدة تشبه الدالة IF والدالة تسمى IIF ويتم التعامل معها من خلال سطر واحد فقط.

إنشاء زر الأمر Command Button ActiveX Control :


قم برسم زر الأمر من خلال التبويب Developer ثم Insert ثم انقر على زر الأمر Command Button كما في الصورة التالية :


قم برسم زر الأمر على ورقة العمل ، ثم كليك يمين على الزر ثم اختر الأمر Properties ثم غير الخاصية Caption إلى Hide أي إخفاء (حيث سنقوم بإخفاء العمودين H و I)

الآن بعد تغيير عنوان زر الأمر قم بعمل دبل كليك على الزر للدخول لمحرر الأكواد ، سيظهر معك


قم بوضع الأسطر التالية ما بين القوسين

Private Sub CommandButton1_Click()
    CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide")
    Columns("H:I").Hidden = Not Columns("H:I").Hidden
End Sub

أخيراً قم بالخروج من وضع التصميم Design Mode بالنقر على الأمر كما في الصورة


الآن نأتي لمرحلة التنفيذ ، قم بالنقر على زر الأمر ولاحظ ما يحدث .. الأعمدة المذكورة تختفي ويتغير عنوان زر الأمر إلى Show .. انقر مرة أخرى سيحدث العكس أي أن الأعمدة المذكورة ستظهر ويتغير عنوان الزر إلى Hide مرة أخرى.

رابط الملف المرفق من هنا

إعداد وتقديم / ياسر خليل أبو البراء