ماكرو لنقل الملعومات من كومبو الى أكثر من مربع نص

[ali jabess]

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

السؤال هو كيف يمكن ان انشاء COMBOBOX في الورود ووضع الداتا عن طريق الفيجول بيسك لدي المعرفة لكيف لكن الكود غير معرف لدي

2- كيف انشء مربع نص انسخه في عدة اماكن اذا كتب الشخص في واحد ينسخ الورود تلقائيا الى الكل المشابه له

مثال

TEXTBOX1 = LABELBOX1

فقط ادخل بالتكست بوكس وهو يعبي العنوان بشرط ان لا يطبع اشكال الكمبو بوكس او التكست بوكس او الليبل بوكس لملف الورود

وشكرا والله ولي التوفيق

[محمد طاهر عرفه]

باستخدام هذا الكود

لإظهار القائمة فى الكومبو

Private Sub ComboBox1_GotFocus()

ComboBox1.List() = Array("لأأهرف أوفيسنا ", "أعرف أوفيسنا جيدا", "أعرفه و أواظب على الاطلاع", "أعرفه و انا عضو فعال أفيد الآخرين")


End Sub


[/sql]

لنقل الاختيار لمربعات النص الأخرى

[sql]
Private Sub ComboBox1_Click()
TextBox1.Value = ComboBox1.Value
TextBox11.Value = ComboBox1.Value
End Sub

ComboCode.rar