Legfrissebb anyagok
GAMEPOD.hu témák
PROHARDVER! témák
Mobilarena témák
IT café témák
Keresés
-
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
- E-roller topik
- (nem csak) AMD FX / Ryzen tulajok OFF topikja
- Synology NAS
- Futott egy Geekbench kört egy új HTC készülék
- Az alaplapgyártókra hárítja az Intel az egyes Core CPU-k stabilitási gondját
- OLED TV topic
- Luck Dragon: Asszociációs játék. :)
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Xbox Series X|S
- Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
- További aktív témák...
Új prémium hirdetések
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Vírusirtó, Antivirus VPN kulcsok