اذهب الي المحتوي
أوفيسنا

طلب بخصوص combobox


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

هذا ربط لقيمة الكمبوبوكس مع المكان المحدد للاسم فى الشيت الثانى

lastro = Sheets(2).Range("b" & Rows.Count).End(xlUp).Row + 1

Range("b" & lastro) = Me.ComboBox1.Value

المرفق

ربط ال ComboBox-kemas.rar

تم تعديل بواسطه kemas
رابط هذا التعليق
شارك

لا أدرى أى الكودين تقصد

سأشرح لك الكود الذى أدرجته هنا

نريد لصق القيمة المحددة فى الكمبوبوكس

فى العمود b

لكن فى أى صف؟

بعد آخر صف فى العمود b به بيانات

ولمعرفة هذا الصف

نستخدم الكود التالى

lastro = Sheets(2).Range("b" & Rows.Count).End(xlUp).Row + 1
المتغير lastro نخزن فيه رقما يمثل رقم أول سطر فارع فى العمود b و هو نفس رقم السطر الذى سنخزن فيه القيمة
Sheets(2).Range("b"
الشيت رقم 2 العمود b و الصف
& Rows.Count
يعنى عدد الصفوف فى الشيت كله يعنى آخر خلية فى العمود b الآن سننطلق أو نطير من آخر خلية فى العمود مطلقا إلى أول خلية ( من أسفل ) بها بيانات يستخدم لذلك
.End(xlUp).Row

نحن الآن وصلنا بسلامة الله لآخر خلية بها بيانات فى عمود b

نحن نريد رقم صف الخلية التالية لهذه الخلية

لذا زدنا واحدا

و بهذا نكون انتهينا من تحديد رقم صف أول خلية فارغة من أعلى فى عمود b

لو فهمت شيئا من هذا

أخبرنى

وفقنى الله لشرح ما بقى

تم تعديل بواسطه kemas
رابط هذا التعليق
شارك

نعم

لعلك تسأل عن كيفية ربط الكمبوبوكس بعمود الأسماء فى الشيت

حدد عمود الأسماء فى الشيت بدون خلية العنوان

أعطه اسما

مثلا

myrng

ثم

افتح محرر الأكواد

alt+f11

حدد الفورم

حدد الكمبوبوكس

من نافذة الخصائص

توجد خاصية اسمها

RowSource

اكتب أمامها اسم المدى الذى قمنا بتسميته

myrng

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

الف شكر استاذنا الكبير كيماس علي الشرح الرائع

جزاك الله كل خير

وجعله في ميزان حسناتك

تلميذك محمود علي ( محمود فوكس )

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

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

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



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

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

Important Information