دمج تغيرات الحقول بكود واحد

[أبو ليمونه]

السلام عليكم

 

لدي هذه الأكواد

Private Sub TextBox8_Change()
Sheet2.Range("I3") = TextBox8.Text
Me.Label438.Caption = Sheet2.Range("I6")
End Sub

Private Sub TextBox31_Change()
Sheet2.Range("AF3") = TextBox31.Text
Me.Label441.Caption = Sheet2.Range("AF6")
End Sub

Private Sub TextBox32_Change()
Sheet2.Range("AG3") = TextBox32.Text
Me.Label438.Caption = Sheet2.Range("AG6")
End Sub

Private Sub TextBox33_Change()
Sheet2.Range("AH3") = TextBox33.Text
Me.Label438.Caption = Sheet2.Range("AH6")
End Sub

سؤالي كمبتدأ في برمجمة vba

 

هل بالامكان وضعها بكود واحد ... او يجب ان اضع لكل textbox كود مستقل ؟؟؟

 

لان لدي عدد كبير من الحقول

 

 

تحياتي لكم ...

[حسين العصلوجى]

اذا اكان هناك تسلسل يمكنك استخدام FOR NEXT للتكرار دون الحاجة الي عمل كود لكل تكست بوكس

ارفق ملف ليكون مثال للتطبيق

[أبو ليمونه]

اخي حسين

 

شكرا لك على الرد

 

لكن اسماء الـ TextBox غير متستلسة وانما انتقائية ...

 

اريد تطبيقها مثلا على TextBox8 و TextBox121 و TextBox190

 

هل في هذه الحالة يجب وضع كل كود لكل TextBox ؟؟؟ او يمكن دمجها في كود واحد ؟؟؟

 

فقط لدي رغبة في التعلم ...

 

تحياتي لك

[حسين العصلوجى]

في حالة رغبتك بكود واحد يمكنك :-

* - اعادة تسمية التكست بوكسز لتتماشي مع الكود

او

 

* - ايجاد اي علاقة بينهم لاختصار الكود بقدر الامكان

[أبو ليمونه]

للاسف اخي حسين لا استطيع اعادة التسمية بسبب وجود كود يعمل على  تسلسل الحقول

 

العلاقة التي اراها هي ربط الحقول TextBox8 و TextBox31 و TextBox32 و TextBox33 بالخلايا محدده في Sheet2

 

هل العلاقة هذه يمكن كتابتها بكود واحد او اجعل لكل حقل كود ؟؟؟

 

تحياتي لك

[حسين العصلوجى]

من الافضل ان ترفق ملف حتي يتضح طلبك اكتر