Hirdetés
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Gurulunk, WAZE?!
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- potyautas: A Magyar Néphadsereg emlékére
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
- GoodSpeed: Márkaváltás sok-sok év után
-
LOGOUT
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
-
Fferi50
Topikgazda
válasz
Santino
#49772
üzenetére
Szia!
Ha valóban dátum/szám és nem szöveg, akkor jobb egérgomb - cellaformátum - egyéni - beírod a kívánt formátumot.
Ha a cellaformátumot számra állítod és marad ez az érték, akkor sajnos nem valódi dátum van a cellában, hanem dátumnak látszó szöveg.
Ebben az esetben először kipróbálhatod, hogy a DÁTUMÉRTÉK függvény átalakítja-e dátummá. Ha nem megy, akkor a Szövegdaraboló (BAL, KÖZÉP, JOBB) függvényekkel és a DÁTUM függvény használatával tudsz dátumot faragni belőle. A függvényeket természetesen másik cellában kell alkalmazni. Ha ez megvan, akkor a formátum az első bekezdés szerint alakítható.
Üdv. -
Fferi50
Topikgazda
válasz
Santino
#46810
üzenetére
Szia!
Úgy gondolom, ez csak makróval oldható meg.
Ezt bemásolod az adott munkafüzet kódlapjára:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Not Application.IsNumber(Target.Value) Then Exit Sub
If Len(Target.Value) < 14 Or Len(Target.Value) > 15 Then
MsgBox "Csak 14 vagy 15 számjegyet írhatsz ide", vbcritikal
Target.Value = ""
Target.Select
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Left(Target.Value, 6) & "-" & Mid(Target.Value, 7, 2) & "-" & Mid(Target.Value, 9, 6) & "-" & Mid(Target.Value, 15, 2)
Application.EnableEvents = True
End Sub
A makró az első oszlopba beírt 14-15 jegyű számokat visszaírja az általad kívánt formában. Az ennél kevesebb vagy több számból állók esetén figyelmeztető üzenetet ad és kitörli a beírt értéket.
A munkafüzetet makróbarátként kell mentened.
Üdv. -
Fferi50
Topikgazda
válasz
Santino
#46804
üzenetére
Szia!
A számformátum mindig jobbról kezdi feltölteni a számokat, így aztán 14 szám esetén a 15. (előlről nézve az 1. ) pozíció marad üresen.
Az általad kívánt formátum csak szövegfüggvényekkel érhető el:=BAL(A1;6)&"-"& KÖZÉP(A1;7;2) & "-" & KÖZÉP(A1;9;6) & "-" & KÖZÉP(A1;15;2)
Ezzel viszont nem tudsz számolni a továbbiakban sajnos.
Ha szövegként van rá szükséged, akkor használható.
Üdv.
Új hozzászólás Aktív témák
- Háztartási gépek
- ESET NOD32 Antivirus / Smart Security
- Samsung LCD és LED TV-k
- Autós topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Apple TV+
- Budapest és környéke adok-veszek-beszélgetek
- Suzuki topik
- Milyen billentyűzetet vegyek?
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 16/32/64GB RAM RX 9060XT 16GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3891, 100% Akkumulátor
- HIBÁTLAN iPhone 13 Pro 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3747, 100% Akkumulátor
- Bomba ár! HP EliteBook 840 G2 - i5-5GEN I 8GB I 500GB I 14" HD+ I Cam I W10 I Garancia!
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50
