الرجاء المساعدة في عمل فورمات لأعمدة في الليست بوكس

[sami salem]

الأخوة / بالمنتدى الكرام

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

أمدكم الله عوناً بما تمدونه عون للأخوة بالمنتدى وأحسن الله اجركم انشاء الله

مرفق ملف تم انشاؤه بما تعلمته من هذا المنتدى ولكن أعرضه عليكم لأمرين :

1- عمل فورمات لأعمدة اليست بوكس للفورم بهذا الملف الذي سوف يظهر عند الضغط على المفتاح بالشيت ss

العمود الأول القيمة والعمود الثالث التاريخ .

2- ان كان يوجد كود آخر أفضل من الموجود في الملف أرجو افادتي به .

ولكم جزيل الشكر ،،

واثابكم الله على ماتبذلونه من جهد لتعليم الآخرين .data.rar

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

أخي السلام عليكم

غير هاذين السطرين :

ListBox1.List(V, 0) = q.Offset(0, 0).Value

ListBox1.List(V, 2) = q.Offset(0, -4).Value

بهاذين السطرين

ListBox1.List(V, 0) = Format(q.Offset(0, 0).Value, "#,##0.000")

ListBox1.List(V, 2) = Format(q.Offset(0, -4).Value, "dd-mm-yyyy")

[sami salem]

بارك الله فيك وانشاء الله في ميزان حسناتك وزادك الله علماً