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

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


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

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

اخى ابو جيداء

السطر التالى

'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 مع العلم اننى اريد ان اظلل الصف باكمله

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

  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information