أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تثبيت الكود علي خليه معينه اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود عرض القيم الملونة لعمود معين في الليست بوكس

السلام عليكم لدي ورقة عمل فيها بيانات في العمود d توجد قيم ملونة اريد اظهار هذه القيم الملونة كما هي في الليست بوكس وا ..



08-08-2019 08:23 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 

السلام عليكم 
لدي ورقة عمل فيها بيانات في العمود d توجد قيم ملونة اريد اظهار هذه القيم الملونة كما هي في الليست بوكس  واذا لا يمكن ذلك امنى من تزويدي بالبديل 
 
 
  LISTBOX.rar   تحميل rar مرات التحميل :(12)
الحجم :(11.551) KB







08-08-2019 10:23 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1431
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 8892
الاعجاب : 149
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
استخدم الكود التالى داخل الـ UserForm عله يفى بالغرض
وقم بحذف RowSource لدا الـ ListBox
Private Sub UserForm_Initialize()
Dim arr, i&, lr&, c&: c = 1
lr = Cells(Rows.Count, 1).End(3).Row
ReDim arr(1 To lr, 1 To 4)
arr(c, 1) = Cells(1, 1): arr(c, 2) = Cells(1, 2): arr(c, 3) = Cells(1, 3): arr(c, 4) = Cells(1, 4)

    For i = 2 To lr
        If Cells(i, 4).Font.Color = 255 Then
            c = c + 1
            arr(c, 1) = Cells(i, 1): arr(c, 2) = Cells(i, 2)
            arr(c, 3) = Cells(i, 3): arr(c, 4) = Cells(i, 4)
        End If
    Next i

ListBox1.List = arr
End Sub

أثارت هذه المشاركة إعجاب: محمود ابو الدهب، ali mohamed ali،




08-08-2019 10:56 مساء
مشاهدة مشاركة منفردة [2]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 388
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3165
الاعجاب : 187
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
نفس الموضوع على هذا العنوان
لماذا يا ترى؟؟؟؟؟؟
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


تم تحرير المشاركة بواسطة :salim
بتاريخ:08-08-2019 10:57 مساء






08-08-2019 10:58 مساء
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
بارك الله فيك استاذ اسلام امته والجيش يخلص علشان منتحرمش من اعمالك 
 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


08-08-2019 11:02 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: salim
نفس الموضوع على هذا العنوان
لماذا يا ترى؟؟؟؟؟؟
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

يبدو ان صديقنا المبتدا مازال مبتدأ وان اللغة لدية ليست كافية بالقدر الذى يبحث به في المواقع الاجنبية 

ممكن يكون تعليقك لماذا يا ترى؟؟؟؟؟؟ اذا كان الموضوع برابط على منتدى الاكاديمية انما بما انه خارجي فلا مانع اعتقد 
راجع التوجيهات الموجه للاعضاء فلم يخالفها ستاذ سليم 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


08-08-2019 11:10 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
استخدم الكود التالى داخل الـ UserForm عله يفى بالغرض
وقم بحذف RowSource لدا الـ ListBox
Private Sub UserForm_Initialize()
Dim arr, i&, lr&, c&: c = 1
lr = Cells(Rows.Count, 1).End(3).Row
ReDim arr(1 To lr, 1 To 4)
arr(c, 1) = Cells(1, 1): arr(c, 2) = Cells(1, 2): arr(c, 3) = Cells(1, 3): arr(c, 4) = Cells(1, 4)

    For i = 2 To lr
        If Cells(i, 4).Font.Color = 255 Then
            c = c + 1
            arr(c, 1) = Cells(i, 1): arr(c, 2) = Cells(i, 2)
            arr(c, 3) = Cells(i, 3): arr(c, 4) = Cells(i, 4)
        End If
    Next i

ListBox1.List = arr
End Sub

اخي شكرا على تفاعلك  ولكن عند حدف row source من خصائص الليست بوكس لا تظهر الاعمدة  وعند ابقائها  لا يحدث تغيير 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




08-08-2019 11:20 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
هو يقصد احذف rowsource وليس columen count 
t0rUx_Untitled

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


أثارت هذه المشاركة إعجاب: ali mohamed ali، Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


08-08-2019 11:22 مساء
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
كود ممتاز استاذ اسلام بارك الله فيك وجعله فى ميزان حسناتك
اخى الكريم المبتدأ اعتقد ان هذه المشكلة من عندك فكما اخبرك الأستاذ اسلام الكود يعمل بكل كفاءة معى كما ترى بالصورة وذلك بعد حدف row source من خصائص الليست بوكس
rtbII_Untitled
 
 


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، Eslam Abdullah،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


08-08-2019 11:55 مساء
مشاهدة مشاركة منفردة [8]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
كود ممتاز استاذ اسلام بارك الله فيك وجعله فى ميزان حسناتك
اخى الكريم المبتدأ اعتقد ان هذه المشكلة من عندك فكما اخبرك الأستاذ اسلام الكود يعمل بكل كفاءة معى كما ترى بالصورة وذلك بعد حدف row source من خصائص الليست بوكس
rtbII_Untitled

ولكن الظاهر ان القيم غيبر ملونة عندك    كما ظهرت عندك ظهرة عندي  سواء بهذا الكود عند عدم حدف صيغة row source  او من غير الكود   اما في حالة حدف خاصية rowsource   لا تظهر البيانات 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




08-08-2019 11:56 مساء
مشاهدة مشاركة منفردة [9]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
هو يقصد احذف rowsource وليس columen count 
t0rUx_Untitled


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


هذا ما فعلته بالضبط 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




09-08-2019 12:40 صباحا
مشاهدة مشاركة منفردة [10]
محمود ابو الدهب
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1071
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 208
قوة السمعة : 3555
الاعجاب : 231
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: المبتدأ
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب
هو يقصد احذف rowsource وليس columen count 
t0rUx_Untitled


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


هذا ما فعلته بالضبط 

يبقي يفضل تبعت نسخة من الملف الاصلي للطلاع عليه ونعرف السبب
 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


09-08-2019 12:49 صباحا
مشاهدة مشاركة منفردة [11]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1431
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 74
قوة السمعة : 8892
الاعجاب : 149
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
دا الملف بعد وضع الكود وحذف مصدر البيانات من الخصائص ، ممكن دا يساعد اكتر
 
 
  LISTBOX.zip   تحميل zip مرات التحميل :(4)
الحجم :(13.262) KB






09-08-2019 05:39 صباحا
مشاهدة مشاركة منفردة [12]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 139
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 108
الاعجاب : 31
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
دا الملف بعد وضع الكود وحذف مصدر البيانات من الخصائص ، ممكن دا يساعد اكتر

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في دالة معرفة لفصل القيم النصية hassona229
15 81 hassona229
فصل القيم النصية والرقمية Split Text & Number Yasser Elaraby
7 973 YasserKhalil
فورم اظهار القيم الموجودة بالخلايا مجدى يونس
2 115 مجدى يونس
تجميع القيم من عدة شيتات بكود VBA حسين مامون
5 152 حسين مامون
داله معرفه AlsqrRDup لجلب القيم الفريده الغير مكرره - حسام خطاب الصقر
63 4589 حمزة

الكلمات الدلالية
بوكس ، الليست ، معين ، لعمود ، الملونة ، القيم ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:35 صباحا

أعلن هنا
أعلن هنا
أعلن هنا