جمع بناء على تسيق الخليه

[elzaem_yousif]

السلام عليكم

هناك خيار للجمع بناء على لون الخط او الخلفيه

ولكن هل هناك خيار للجمع بناء على تنسيق الخليه مثلا اذا كان الخط bold او italic او اى تنسيق اخر بخلاف اللون ؟؟؟؟؟

werf_dynamic.rar

[ابو اسامة العينبوسي]

السلام عليكم

هذه داله معدله لتجمع الخطوط المنسقه بنوع الخط Arial

مع امكانيه تغيير الى الخط السميك او العادى او المائل

If Rng.Font.Bold And IsNumeric(Rng.Value) Then

If Rng.Font.Italic And IsNumeric(Rng.Value) Then

Function SumByArialFont(InRange As Range)
  Dim Rng As Range
  Application.Volatile True
  For Each Rng In InRange.Cells
      If Rng.Font.Name = "Arial" And IsNumeric(Rng.Value) Then
          SumByArialFont = SumByArialFont + Rng.Value
      End If
  Next Rng
End Function

SumByarialFont.rar

تم تعديل يوليو 29, 2008 بواسطه ابو اسامة العينبوسي

[elzaem_yousif]

مشكور اخوي اسامه ما قصرت والله

ربنا يوفقك