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

• #513 lapa veterán Major Major #512

  Új Válasz 2005-08-16 14:13:32 #513

  Ú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

  

  lapa

  veterán

  válasz Major Major #512 üzenetére

  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
  

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