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

• #26708 Fferi50 Topikgazda Zola007 #26707

  Új Válasz 2015-04-27 23:48:17 #26708

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

  Szia!

  Ha munkalap függvénynek szeretnéd használni, akkor szerintem minden tartományt külön paraméterként kell bekérni. A példa 4 tartományt tud kezelni, az elsőt kötelező megadni, a többi opcionális:

  Function SumBold(WorkRng1 As Range, Optional WorkRng2 As Range, Optional WorkRng3 As Range, Optional WorkRng4 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)
  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

  Ha még több tartományt szeretnél kijelölni, akkor növelni kell a paraméterek számát, a vizsgálandó terület meghatározását pedig a logika szerint folytatni.

  Remélem, sikerül.

  Üdv.
  (Az előző makró csak makróból meghívva működik helyesen, munkalapon nem, sorry.)

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