[kafi2030]

بسم الله الرحمن الرحيم
السلام عليكم

كيف لي ان اقوم بتنسيق الخلايا التي تحمل ارقام، ودلك حتى يسهل قراءة تلك الارقام
اي
3500
تكون 3،500

وهكدا

والف شكر

[sooriaty03]

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

تفضل أخي الكريم هذه طريقة لعمل ذلك

كود :

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

بالتوفيق

[kafi2030]

الف شكر
اخي Sooriaty
على اجابتك

تم تجربة الكود، وعمل بنجاح
ولكن

هل بالامكان تعديل الكود السابق بحيث يكون تنسيق الرقم على النحو التالي
5،600

وليس على النحو
5،600.00

اي يدون الفواصل العشرية

والف شكر

[kslawy]

يمكنك إزالة الأصفار بإضافة صفر في نهاية دالة الفورمات :

كود :

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

[kafi2030]

الف شكر
اخي
Kslawy

بارك الله فيك وبأمثالك