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

• #10364 m.zmrzlina senior tag m.zmrzlina #10362

  Új Válasz 2011-05-19 14:46:04 #10364

  Ú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

  

  m.zmrzlina

  senior tag

  válasz m.zmrzlina #10362 üzenetére

  Na közben rájöttem (azt hiszem). Így gondoltad?

  Function KIHAMOZ(text As String, utantol As String, elottig As String, tizedesjel As String) As Double
  Dim szam As String
  
  szam = Mid(text, WorksheetFunction.Search(utantol, text) + 1, WorksheetFunction.Search(elottig, text) - WorksheetFunction.Search(utantol, text) - 1)
  
  For i = 1 To Len(szam)
  If Asc(Mid(szam, i, 1)) < 48 And Asc(Mid(szam, i, 1)) <> Asc(tizedesjel) Then
  Mid(szam, i, 1) = tizedesjel
  End If
  Next i
  
  KIHAMOZ = szam ' *1
  
  End Function

  Nem tudom kiemelni de a fv fejléc legvége és a legvégén kikommentezett 1-es szorzó lett változtatva.

  De sajna ez az eredeti problémát csak nem oldotta meg.

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