اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by أبو حنــــين,

الردود الموصى بها

  • أفضل إجابة

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information