-
Fototrend
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
-
Delila_1
veterán
válasz
Csatravi
#36840
üzenetére
Nem kell érvényesítés a B2-be, a C2-ben úgyis megjelenik a figyelmeztetés. Érvényesítés esetén nem jutsz el a C2 kiírásáig.
A C2 cella képlete:
=HA(ÉS(HOSSZ(B2)=4;SZÁMÉRTÉK(JOBB(B2;3));VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91)));"";"hibás adat")A B4 celláé pedig
=HAHIBA(FKERES(B2;A:B;2;0);"nincs találat") -
Fferi50
Topikgazda
válasz
Csatravi
#36838
üzenetére
Szia!
Akkor a C2 cellába a szöveg HELYTELEN AZONOSÍTÓ legyen és a B4 cella képletében is ezt a szöveget vizsgáld. Sőt a B4 cellába is kerülhet ebben az esetben ugyanaz a szöveg. Pl.
C2 cella képlete:=HA(ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));HAHIBA(SZÁMÉRTÉK(JOBB(B2;3));0)>0;HOSSZ(B2)=4);"";"HELYTELEN AZONOSÍTÓ")B4 cella képlete:
=HA(C2="HELYTELEN AZONOSÍTÓ";"HIBÁS KERESÉS";HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat"))A B2 cellára tehetsz feltételes formázást az alábbi képlettel:
=NEM(ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));HAHIBA(SZÁMÉRTÉK(JOBB(B2;3));0)>0;HOSSZ(B2)=4))Ráállsz a B2 cellára. Kezdőlap - feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel - a megjelenő helyre (értékek formázása, ha ez a képlet igaz) bemásolod a képletet. Utána kiválasztod a kitöltést vagy a betűformát, majd OK.
Üdv.
-
Fferi50
Topikgazda
válasz
Csatravi
#36835
üzenetére
Szia!
Szerintem belekeveredtél...
Kevered a két különböző esetet:
1. eset: a felhasználó helytelen formátumú kereső adatot írt a B2 cellába. Ebben az esetben kell a hibás adat, hibás keresés páros a két cellába.
2. eset: a kereső adat helyes formátumú, de nincs ilyen adat a 20000 azonosító között. Ekkor a C2 cella "néma marad", hiszen a formátum rendben van, de a B4 cellába a Nincs adat kell kerüljön.A K123 megfelelő formátumú, de nincs a táblában ilyen adat. Ezért jó amit mutat!
Üdv.
-
Fferi50
Topikgazda
válasz
Csatravi
#36829
üzenetére
Szia!
Hiszen ilyen esetben a nincs adat jelzést kell visszaadnia!!! Mert nem talált olyan adatot. Nem létező azonosítóra kerestél. Gondold át mégegyszer.
Hiszen az egész adathalmaz rejtve lesz a felhasználó előtt, honnan tudhatná szegény, hogy van-e olyan betűvel azonosító....Üdv.
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
Csatravi
#36821
üzenetére
Szia!
Próbáld meg az alábbi képletet:
=HA(ÉS(NEM(HIBÁS(SZÖVEG.KERES(BAL(B2;1);"abcdefghijklmnopqrstuvwzxyABCDEFGHIJKLMNOPQRSTUVWXYZ")));NEM(HIBÁS(SZÁMÉRTÉK(JOBB(B2;3))>0));HOSSZ(B2)=4);"";"HIBÁS ADAT")Itt konkrétan benne van a képletben, hogy az első karakter milyen legyen, így ezen akár változtathatsz is.
Üdv.
-
Fferi50
Topikgazda
válasz
Csatravi
#36815
üzenetére
Szia!
Ráállsz a B2 cellára. Kezdőlap - feltételes formázás - új szabály - a formázandó cellák kijelölése képlettel - értékek formázása,ha ez a képlet igaz kockába beírod az =HIBÁS -sal kezdődő képletet, amit írtam.
Kijelölöd a háttérszínt stb. amit szeretnél még.
OK.Delila makróját a munkalap kódlapjára kell beírni: lapfülre állsz az egérrel, jobb egérgomb, kód megjelenítése. Oda másold be.
Üdv.
-
Fferi50
Topikgazda
válasz
Csatravi
#36810
üzenetére
Szia!
A kisbetű-nagybetűre gondoltál?
Ez a képlet jó rá:=ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4)Ha az adatérvényesítésnél elhagyod a hibajelzést, betehetsz figyelmeztetést, amikor kijelöli a cellát. Ezzel együtt több dolog együttes alkalmazásával rá lehet mutatni a hibára:
A B2 cellára feltételes formázást használni az alábbi képlettel:=HIBÁS(ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4))
szinesre állítva a hátteret.
A C2 cellába beírni a következő képletet:=HA(HIBÁS((ÉS(VAGY(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);ÉS(KÓD(BAL(B2;1))>64;KÓD(BAL(B2;1))<91));SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4)));"HIBÁS ADAT";"")
A B4 cella képletét az alábbiak szerint megadni:=HA(C2="HIBÁS ADAT";"HIBÁS KERESÉS";HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat"))Így elvileg beírhat nem odavaló dolgokat is, de a hibaüzenetet megkapja több formában is.
Üdv.
-
Delila_1
veterán
válasz
Csatravi
#36810
üzenetére
Egy másik megközelítés szerint egy laphoz rendelt makró figyeli a B2 cellába bevitt adatot.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Variant
If Target.Address = "$B$2" And Target <> "" Then
Application.EnableEvents = False
Range("C2,B4") = ""
If Len(Target) <> 4 Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If
If IsNumeric(Left(Target, 1)) Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If
If Not IsNumeric(Right(Target, 3)) Then
Range("C2") = "Hibás érték"
Application.Wait Now + TimeValue("0:00:02")
Range("B2") = ""
Range("B2").Select
Application.EnableEvents = True
Exit Sub
End If
sor = Application.Match(Target, Columns(1), 0)
If IsError(sor) Then
Range("B4") = "Hibás adat"
Else
Range("B4") = Cells(sor, "B")
End If
Range("B2").Select
Application.EnableEvents = True
End If
End Sub -
Fferi50
Topikgazda
válasz
Csatravi
#36805
üzenetére
Szia!
Adatok - érvényesítés - egyéni. A képlet:
=ÉS(ÉS(KÓD(BAL(B2;1))>96;KÓD(BAL(B2;1))<123);SZÁMÉRTÉK(JOBB(B2;3))>0;HOSSZ(B2)=4)A hibajelzéshez pedig beírod a kívánt szöveget. Pl. Cime: helytelen adat Üzenet: egy betű 3 szám szükséges.
Most a kisbetűket fogadja el az elején, ha nagybetűket szeretnél, akkor a kód értékét át kell írni 64 és 91 értékre.
A B4 cellában a HAHIBA függvényt alkalmazhatod,
HAHIBA(FKERES(B2;$A$7:$B$17;2;0);"Nincs adat")Üdv.
Ps. használd a konvertálatlan vagy a programkód gombot a kettőspontot tartalmazó címeknél.
Új hozzászólás Aktív témák
Fferi50- PC Game Pass előfizetés
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- The Elder Scrolls Online Imperial Collector s Edition
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Akció!!! Sosemhasznált! HP OmniBook 5 Ultra 7 255U 5.2GHz 16GB 1000GB 16" FHD+ Gar.: 1 év
- HP Victus Gaming Laptop INTEL I7-14700HX / RTX 4070 32GB RAM 1TB SSD Gari
- Samsung Galaxy Z Flip6 12/512GB - ÚJSZERŰ, Kártyafüggetlen, Kék - 1 év garancia
- Samsung Galaxy Watch Ultra LTE / 6Hó Garancia
- BESZÁMÍTÁS! MSI B650 R7 7700 32GB DDR5 1TB SSD RX 9070XT 16GB LIAN LI LANCOOL 217 Wood 750W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest