Legfrissebb anyagok
GAMEPOD.hu témák
PROHARDVER! témák
Mobilarena témák
-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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
Topikgazda
Aktív témák
- Azonnali alaplapos kérdések órája
- 3D nyomtatás
- Milyen házat vegyek?
- Nyíregyháza és környéke adok-veszek-beszélgetek
- Spórolós topik
- Autós topik
- Kormányok / autós szimulátorok topicja
- Kerékpárosok, bringások ide!
- Egyre gyorsabban ügyködik saját HBM memóriáján Kína
- Energiaital topic
- További aktív témák...
Új prémium hirdetések