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

• #10210 m.zmrzlina senior tag DopeBob #10197

  Új Válasz 2011-04-30 16:03:12 #10210

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

  Nyilván te is észrevetted, hogy a #10200-ban lévő képlet elég könnyen hibázik.Pl ha a megnevezés két szóból áll és szóköz van közte, vagy ha előfordul benne a "db"karaktersorozat.

  Ennek kiküszöbölésére nyiss a VB szerkesztőben egy új modult és másold bele ezt:

  Function CSAKSZAM(szoveg As String)
  
  Dim szam As String, i As Integer
  szam = ""
  
  For i = 1 To Len(szoveg)
  
  If Asc(Mid(szoveg, i, 1)) <= 58 And Asc(Mid(szoveg, i, 1)) >= 47 Then
  szam = szam & Mid(szoveg, i, 1)
  End If
  
  Next i
  
  CSAKSZAM = szam
  
  End Function

  Ettől lesz egy CSAKSZAM() nevű új függvényed amit nagyon könnyen tudsz használni a következőképpen:

  

  Ha az ÉRTÉK() fv-be beágyazod ahogyan a képen van akkor számolni is tudsz a darabszámokkal.

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