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

• #4884 Fehér Mancs tag RoGGRR #4878

  Új Válasz 2009-04-30 22:31:25 #4884

  Ú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

  

  Fehér Mancs

  tag

  válasz RoGGRR #4878 üzenetére

  A kód tökéletesen működik, csak a replace-elt konverzió magyar excelben hibára fut, azt ki kell irtani belőle (valószínűleg máshol meg az előző a jó)

  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(m.Value)
  Next
  End With
  'SumNum = Replace(CStr(SumNum), ".",",")
  End Function

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