جمع عدة خلايا بها أرقام في TextBox

[أبوحازم]

كيف أجمع عدة خلايا بها أرقام في مربع نص TextBox الملف مرفق

مربع نص.rar

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

استعمل هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1 = Application.WorksheetFunction.Sum(Range("C4:C24"))
End Sub

[أبوحازم]

شكرا جزيلا جدا فعلا أشتغل تماما بس ياريت يكون الخط عريض و مع أستخدام فاصلة الألاف كيف. وشكرا

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

استعمل هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With TextBox1
.Value = Format(Application.WorksheetFunction.Sum(Range("C4:C24")), "#,##0")
.Font.Size = 16
.Font.Bold = True
End With

End Sub

[حسام مصطفي]

رائع أستاذنا القدير أبوحنين

[أبوحازم]

رائع جداجدا يا أستاذ أشتغل وكل شئ تمام جزاك الله خير