تنسيق عمود في ليست بوكسlistbox

[نايف - م]

السلام عليكم :

كيف أستطيع تنسيق عمود في ليست بوكس(LISTBOX) بحيث تكون بالتنسيق DATE ,DD/MM/YYYY

السطر الذي أرغب في أضافة الفورمات له هو:

ListBox1.List(t, 3) = .Cells(R, 33)

[نايف - م]

السلام عليكم

لا جواب ؟؟؟لماذا

[نايف - م]

السلام عليكم

أشعر بالحزن لأنني اشعر بفتور مرعب بهذا المنتدى الغالي غلى قلبي

إن شاء الله تتحسن الأمور عما قريب

وجدت حل مشكلتي في أحد المواقع الأوروبية و لمن يريد أن يستفيد:

= Format(.Cells(R, 33).Value, "dd/mm/yyyy")

شكرا

[احمد فضيله]

الاخ nyef

ممكن ملف الاكسل اللى فيه التطبيق لتعم الفائدة

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

[منسق]

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

 

هذا مثال أرجو أن أجد عندكم الحل

ListBox.rar

[أبو حنــــين]

Private Sub UserForm_Activate()

For r = 1 To Sheets("ورقة1").[a65500].End(xlUp).Row
ListBox1.AddItem Format(Sheets("ورقة1").Cells(r, 1), "dd-mm-yyyy")
    Next



End Sub

الكود يكون بهذا الشكل

 

 

 

تم تعديل أبريل 10, 2016 بواسطه أخوكم في الله

[منسق]

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

 

شكراً أخي (أخوكم في الله) على سرعة الإجابة

 

كيف سيكون الكود لو كان الليست بوكس فيه أكثر من عمود (عمود للأسماء وعمود للتاريخ وعمود للعمر) مثلاً

[أبو حنــــين]

السلام عليكم

ادرج ملفا للعمل عليه