مسح محتوبات الـ Controls بكود واحد

[ابوالزوز]

السلام عليكم ،،

أخواني الأعزاء آمل أن تكون أسئلتي فيها فائدة للجميع عند الإجابة عليها

حيث تخطر ببالي تساؤلات كثيرة من خلال استخدامي المتكرر للـ VBA في الإكسل

وعندما لا أجد لها جواباً من خلال عملية البحث أقوم بطرحها كسؤال فاعذروني إن

أثقلت عليكم بكثرتها

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

النص في الفورم باستخدام كود واحد فقط ولا أضطر لوضع كل منها مساوياً لفراغ

المرفق يوضح المطلوب

تقبلوا جميعاً تحياتي ..

abuzzouz10.rar

[عبدالله باقشير]

السلام عليكم

Private Sub CommandButton1_Click()
For C = 0 To 4
        Me.Controls(C).Value = ""
    Next
End Sub

[ابوالزوز]

تسلم إيديك يالغالي .. الله يديمك

أخوك abuzzouz