اريد كوماند للسطر المختار فى الليست بوكس لتغير لون هذا السطر فى الشيت الاصلى

[أبو چيداء]

اريد كوماند للسطر المختار فى الليست بوكس لتغير لون هذا السطر فى الشيت الاصلى

هام جدا3.rar

[أبو چيداء]

اين عمالقة المنتدى

[إبراهيم ابوليله]

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

اخى ابو جيداء

هذه محاوله بسيطه منى ارجو ان تفى بالغرض

تقبل تحياتى

هام جدا3.rar

[أبو چيداء]

شكرا جزيلا ولكنى اريد ان اعرف ما معنى ذلك

'Me.Label6 = Me.ListBox2.Column(3)
X = Me.ListBox2.Column(3

[إبراهيم ابوليله]

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

اخى ابو جيداء

السطر التالى

'Me.Label6 = Me.ListBox1.Column(3)

ليس له علاقه بعمل الكود

 

اما بخصوص

X = Me.ListBox2.Column(3

X  متغير تم تعريفه على انه عباره عن قيمه العمود رقم 4 فى الليست بوكس

    علما بان اعمده الليست بوكس تبدأ بالعمود رقم 0

    لذلك تم الاشاره الى العمود الرابع فى الليست بوكس بالرقم 3

لاحظ

انه تم اضافة سطر الى الكود الخاص باظهار البيانات فى اللييست بوكس

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

وبذلك اصبح شكل الكود بعد الاضافه

        ReDim Preserve arr(1 To 4, 1 To i)
        arr(1, i) = cll.Offset(0, 1)
        arr(2, i) = Format(cll.Offset(0, 2), "yyyy/mm/dd")
        arr(3, i) = Format(cll.Offset(0, 3), "yyyy/m/dd")

' هذا هو السطر المضاف
         arr(4, i) = cll.Offset(0, 4)

ارجو ان اكون قد وفقت فى الشرح

فقد قمت بالشرح على قدر معلوماتى

تقبل تحياتى

[أبو چيداء]

اخى العزيز ابراهيم ابو ليلة

الليست بوكس فى شيت اخر بها عمودين فقط فما الرقم الذى اكتبه مثل الكود(X = Me.ListBox2.Column(3

مع العلم ان  رقم العمودين الذن فى الليست بوكس على احتساب ان العمود A رقم واحد ترتيبهم العمود رقم 20 والعمود رقم 24 مع العلم اننى اريد ان اظلل الصف باكمله

[إبراهيم ابوليله]

اخى ابوجيداء

ارجو التوضيح اكثر

مع ارفاق ملف للعمل عليه