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

• #4878 RoGGRR csendes tag Lehdog #4877

  Új Válasz 2009-04-30 15:58:03 #4878

  Ú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

  

  RoGGRR

  csendes tag

  válasz Lehdog #4877 üzenetére

  Igen, köszi, így működik. Viszont így is egyenként végig kell menni minden cellán, mert ha olyan oszlopot is jelölök, amin nincs adat, akkor Érték hibát jelez. Tehát a képletet nekem kell az adattal teli oszlopok számához igazítanom, és így kissé lassú lenne a számolás.

  De kaptam egy makrót is, csak nem tudom, miért nem működik.

  =SumNum(cella) a képlet

  Function SumNum(ByVal txt As String) As double
  With CreateObject("VBScript.RegExp")
  .Pattern = "\d+(,\d+)?"
  .Global = True
  For Each m In .execute(txt)
  SumNum = SumNum + CDbl(Replace(m.Value, ",","."))
  Next
  End With
  'SumNum = Replace(CStr(SumNum), ".",",")
  End Function

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