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

• Major Major senior tag

  #514

  #513 lapa

  2005-08-16 14:53:21

  Új Válasz

  Ú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

  

  Major Major

  senior tag

  #513 lapa

  #513 lapa

  na kiindulásnak ennyi szerintem jó lesz. ezt bepástolod egy új modulba és utána mondjuk a telefonszám (A1) melletti cellába (pl. B1) beírod:
  
  =telszam(a1)
  
  ez egyelőre csak a kezdő 0-t vágja le és csak a 8jegyű pöstieket formázza.
  
  

  
  Function telszam(origszam As String) As String
  
  'kezdő 0 levágása
  If Left(origszam, 1) = 0 Then
  origszam = Mid(origszam, 2, 99)
  End If
  
  '8 jegyű és 1 v. 2 kezdő szám
  If Len(origszam) = 8 And (Left(origszam, 1) = ''1'' Or Left(origszam, 1) = ''2'') Then
  telszam = Left(origszam, 1) & ''/'' & Mid(origszam, 2, 3) & ''-'' & Mid(origszam, 5, 2) & ''-'' & Mid(origszam, 7, 3)
  
  Else
  
  telszam = origszam
  
  End If
  
  End Function
  

  A ''8 jegyű és 1 v. 2 kezdő szám'' alatti rész piros, és syntax errort kiabál

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