Új hozzászólás Aktív témák

• #26706 Fferi50 Topikgazda Zola007 #26705

  Új Válasz 2015-04-27 21:12:44 #26706

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Zola007 #26705 üzenetére

  Szia!

  A nem összefüggő tartományokban területek (Areas) vannak. Ezeken kell "végiggyalogolnod", majd ezen belül az egyes cellákon:
  Function SumBold (WorkRng as Range)
  Dim rng As Range, terulet As Range,xSum as Long
  For Each terulet In WorkRng.Areas
  For Each rng In terulet.Cells
  If rng.Font.Bold Then xSum = xSum + rng.Value
  Next
  Next
  SumBold=xSum
  End Function

  Üdv.

Új hozzászólás Aktív témák