Ú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

• #4880 Delila_1 veterán RoGGRR #4878

  Új Válasz 2009-04-30 17:24:59 #4880

  Ú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

  

  Delila_1

  veterán

  válasz RoGGRR #4878 üzenetére

  Lehdog módszerével a adataid az A1: C1 tartományba kerültek.
  D1-be:

  =HA(HIBÁS((KÖZÉP(A1;SZÖVEG.KERES("-";A1)+1;20))*1);0;(KÖZÉP(A1;SZÖVEG.KERES("-";A1)+1;20))*1)

  Ezt húzd jobbra az F oszlopig.
  G1-be: =szum(d1:f1)

• #4879 Fire/SOUL/CD félisten RoGGRR #4878

  Új Válasz 2009-04-30 17:24:26 #4879

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz RoGGRR #4878 üzenetére

  Hali!

  Tegyél be egy képet a munkafüzetről, amin látszik minden(vagy legalábbis a lényeg), ha el tudok rajt igazodni, akkor tudok segíteni, csak így visszaolvasva azt sem tudom ki-kivel van...
  (Delila_1 is látom segít rendesen, csak mindig valami "apróságról" megfeledkezel, aztán az egész kódot lehet megint módosítani vagy újrairni... )

  Fire.

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