بسم الله الرحمن الرحيم
السلام عليكم
كيف لي ان اقوم بتنسيق الخلايا التي تحمل ارقام، ودلك حتى يسهل قراءة تلك الارقام
اي
3500
تكون 3،500
وهكدا
والف شكر
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم هذه طريقة لعمل ذلك
كود :
For Each LVI As ListViewItem In ListView1.Items
LVI.SubItems.Item(1).Text = FormatNumber(LVI.SubItems.Item(1).Text)
LVI.SubItems.Item(2).Text = FormatNumber(LVI.SubItems.Item(2).Text)
LVI.SubItems.Item(3).Text = FormatNumber(LVI.SubItems.Item(3).Text)
Next
بالتوفيق
الف شكر
اخي Sooriaty
على اجابتك
تم تجربة الكود، وعمل بنجاح
ولكن
هل بالامكان تعديل الكود السابق بحيث يكون تنسيق الرقم على النحو التالي
5،600
وليس على النحو
5،600.00
اي يدون الفواصل العشرية
والف شكر
يمكنك إزالة الأصفار بإضافة صفر في نهاية دالة الفورمات :
كود :
For Each LVI As ListViewItem In ListView1.Items
LVI.SubItems.Item(1).Text = FormatNumber(LVI.SubItems.Item(1).Text, 0)
LVI.SubItems.Item(2).Text = FormatNumber(LVI.SubItems.Item(2).Text, 0)
LVI.SubItems.Item(3).Text = FormatNumber(LVI.SubItems.Item(3).Text, 0)
Next
الف شكر
اخي
Kslawy
بارك الله فيك وبأمثالك