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

• #26704 Zola007 veterán

  Új Válasz 2015-04-27 14:48:25 #26704

  Ú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

  

  Zola007

  veterán

  adott egy függvény, aminek a feladata, hogy összeadja a félkövér számokat egy kijelölt mezőben, pl: F920.
  Arra lenne szükségem, hogy ha több, nem összefüggő területet megadok, azon is képes legyen ezt végrehajtani, pl: F6:I6;F9:I9;F12:I12;....
  Mit kellene változtatni?:

  Function SumBold(WorkRng As Range)
  Dim Rng As Range
  Dim xSum As Long
  For Each Rng In WorkRng
  If Rng.Font.Bold Then
  xSum = xSum + Rng.Value
  End If
  Next
  SumBold = xSum
  End Function

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