اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ممكن اختصار هذا الكود


الردود الموصى بها

الاخوة الافاضل الاساتذة جميعا

هل بالامكان اختصار هذا الكود


Private Sub CommandButton4_Click()

TextBox1.Value = ""

TextBox2.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

TextBox5.Value = ""

TextBox6.Value = ""

TextBox7.Value = ""

TextBox8.Value = ""

TextBox10.Value = ""

TextBox11.Value = ""

TextBox9.Value = ""

TextBox101.Value = ""

TextBox12.Value = ""

ComboBox2.Value = ""

ComboBox3.Value = ""

ComboBox4.Value = ""

ComboBox5.Value = ""

ComboBox6.Value = ""

ComboBox7.Value = ""

ComboBox8.Value = ""

ComboBox9.Value = ""

ComboBox10.Value = ""

ComboBox11.Value = ""

ComboBox12.Value = ""

End Sub

رابط هذا التعليق
شارك

تفضل أخي الكريم


Dim fctrl As Control

For Each fctrl In Me.Controls

If fctrl.Name Like "Text*" Or fctrl.Name Like "Combo*" Then fctrl = vbNullString

Next

  • Like 1
رابط هذا التعليق
شارك

معذرة أخي الكريم العيدروس

لم اشاهد إجابتك على الموضوع

حل موفق

بارك الله لك

  • Like 1
رابط هذا التعليق
شارك

معذرة أخي الكريم العيدروس

لم اشاهد إجابتك على الموضوع

حل موفق

بارك الله لك

لاعدمناك استاذ محمد صالح

الحمد لله انك لم تشف ردي

كنا سنفقد معلومه :power:

كل الشكر والاحترام من اخيكم

بارك الله فيكم اساتذتى

تواضع وحب العلم واحترام

بارك الله فيكم جميعا

رابط هذا التعليق
شارك

معذرة أخي الكريم العيدروس

لم اشاهد إجابتك على الموضوع

حل موفق

بارك الله لك

لاعدمناك استاذ محمد صالح

الحمد لله انك لم تشف ردي

كنا سنفقد معلومه :power:

كل الشكر والاحترام من اخيكم

بارك الله فيكم اساتذتى

تواضع وحب العلم واحترام

بارك الله فيكم جميعا

اخوتى

بارك الله فيكم

التواضع سمة فى المنتدى

اعزكم الله

سعد عابد

رابط هذا التعليق
شارك

صدق الاستاذ ابو نصار

لم راي الماسة المنتدى الرد يمكن فاتتنا هذه المعلومة الجميلة

تواضع وبذل

بارك الله فيكم جميعاً

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information