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

• #26711 Fferi50 Topikgazda Zola007 #26709

  Új Válasz 2015-04-28 11:05:53 #26711

  Ú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 #26709 üzenetére

  Szia!

  "Sajnos ez sem működik valamiért." (Nálam is Office 2010 Professional van egyébként.)
  Ebből szerinted mit tudok meg? Legalább annyit írhatnál, hogy milyen hibát ír ki.

  Itt egy 10 tartomány paraméterét kezelő változat:
  Function SumBold(WorkRng1 As Range, Optional WorkRng2 As Range, Optional WorkRng3 As Range, Optional WorkRng4 As Range, Optional WorkRng5 As Range, Optional WorkRng6 As Range, Optional WorkRng7 As Range, Optional WorkRng8 As Range, Optional WorkRng9 As Range, Optional WorkRng0 As Range)
  Dim rng As Range, terulet As Range, xSum As Long, WorkRng As Range
  Set WorkRng = WorkRng1
  If Not WorkRng2 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng2)
  If Not WorkRng3 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng3)
  If Not WorkRng4 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng4)
  If Not WorkRng5 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng5)
  If Not WorkRng6 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng6)
  If Not WorkRng7 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng7)
  If Not WorkRng8 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng8)
  If Not WorkRng9 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng9)
  If Not WorkRng0 Is Nothing Then Set WorkRng = Union(WorkRng, WorkRng0)
  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