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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


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



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





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

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



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

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







08-08-2019 10:23 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1453
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 75
قوة السمعة : 9187
الاعجاب : 236
 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
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 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
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 221
قوة السمعة : 4271
الاعجاب : 556
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
بارك الله فيك استاذ اسلام امته والجيش يخلص علشان منتحرمش من اعمالك 
 

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


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

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


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

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

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

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


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


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

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


08-08-2019 11:10 مساء
مشاهدة مشاركة منفردة [5]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 202
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 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
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 221
قوة السمعة : 4271
الاعجاب : 556
موقعي : زيارة موقعي
 offline 
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
المشاركات : 1383
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6278
الاعجاب : 939
 Online 
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
المشاركات : 202
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 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
المشاركات : 202
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 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
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 221
قوة السمعة : 4271
الاعجاب : 556
موقعي : زيارة موقعي
 offline 
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
المشاركات : 1453
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 0
يتابعونه : 75
قوة السمعة : 9187
الاعجاب : 236
 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
المشاركات : 202
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 140
الاعجاب : 47
 offline 
look/images/icons/i1.gif كود عرض القيم الملونة لعمود معين في الليست بوكس
المشاركة الأصلية كتبت بواسطة: Eslam Abdullah
دا الملف بعد وضع الكود وحذف مصدر البيانات من الخصائص ، ممكن دا يساعد اكتر

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
القيم المكررة في عمود باليوزرفورم ANASS1
8 107 YasserKhalil
استخراج القيم الفريدة مع كل القيم المرتبطة بها List Unique Concatenate Corresponding Values YasserKhalil
6 138 YasserKhalil
مساعدة في تعديل كود جمع القيم المبتدأ
8 159 YasserKhalil
تلوين القيم المكررة في عمود بألوان مختلفة Color Duplicates In Specific Column YasserKhalil
9 259 YasserKhalil
استخراج القيم الفريدة في عمودين وجمع الإجمالي باستخدام كائن القاموس YasserKhalil
28 2684 YasserKhalil

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


 







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



الساعة الآن 11:15 صباحا

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