- Samsung Galaxy S21 FE 5G - utóirat
- Itt az első kép a 2024-es Nokia 3210-ről
- Motorola Edge 40 - jó bőr
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Na, még egyszer, csak ezúttal OnePlus Open néven
- Honor Magic5 Pro - kamerák bűvöletében
- Poco X6 Pro - ötös alá
- Asus Zenfone 8 - komplett kompakt
- Apple Watch Sport - ez is csak egy okosóra
- Telekom mobilszolgáltatások
Hirdetés
-
Dragon Ball: Sparking! Zero - Mester és tanítvány
gp Egyelőre még mindig nem kaptunk megjelenési dátumot a játékhoz.
-
Új Beats fej- és fülhallgatók jelentek meg
ma Frissítette a Solo termékcsaládot az Apple házi audiomárkája.
-
Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
it Az SK Hynix jelezte: akkora a terjeszkedés az AI-szolgáltatások piacán, hogy 2024-re az összes, 2025-re közel az összes HBM chipet eladták.
-
Mobilarena
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
-
Fehér Mancs
tag
A probléma az, hogy az FKERES mindig az első találatból indul ki.
Két megoldást tudok javasolni.
Egyik, ha tudsz saját függvényt írni a macronál, akkor azzal lehetne szabályozni, hogy a korrigált FKERES az általad sorszámként megadott egyezőséghez keresse ki az értéket.
Másik az lehet, hogy azt az FKERES keresési listáját hekkeled meg:
Az első függvény marad az eredeti H5=FKERES($K$2;$B$6:$D$10;3;0)
a többi függyvények pedig az előző találatokra hivatkoznak: H6=FKERES($K$2;OFSZET($B$5;HOL.VAN(H5;$D$6:$D$10;0)+1;0;1000;1);3;0), ezt lehúzva az általa várt eredmény születik. A probléma csak ott lehet, ha egy érték többször is szerepel a listádban, ilyenkor egy ciklusba kerül a függyvény.
A lényege ennek, hogy az OFSZET egy cellatartományt ad vissza (mintha manuálisan jelölnéd ki), ami a B5 mezőtől lefelé csúsztatva annyi sorral kezdődik, mint amelyikben megtalálta (HOL.VAN függvény) az FKERES előző eredményét. Figyelni kell arra is, hogy az OFSZET függvény utolsó előtti paramétere (jelen esetben 1000) azt határozza meg, hogy hány sor magas oszlopba keresse az adott értéket, így azt megéri akkorára állítani, hogy mindenképpen beleférjen az összes (de vigyázni arra, hogy az excel sorkorlátját ne lépje túl). Az OFSZET utolsó paramétere pedig az oszlopszámot határozza meg, így annak meg kell egyeznie az FKERES-ben használt oszlopszámmal.
(Ha a lehúzás után keletkező hibákat (#N/A) el akarod rejteni, akkor a =HA(HIBÁS(függvény);'''';függvény) függvénnyel meg lehet ezt oldani.) -
Delila_1
Topikgazda
Az Excel beállításainál, Népszerű elemek, Alapvető beállítások, Színsémánál választhatsz 3 szín közül, de mindegyiknél úgy állították be, hogy alig látszik a kijelölés.
Állíthatsz Windows-ban az asztalon jobb klikkre megjelenő tulajdonságoknál. XP-nél a Megjelenés fül, Speciális menüpontban kiválasztod az Elem legördülőben az Ablak-ot, ott állíthatsz be saját színt a majdnem fehér helyett.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
4 segédoszloppal kiszámolhatod.
L5 -> =HA(G5=1;C5*F5;0)
M5 -> =HA(H5=1;C5*F5;0)
N5 -> =HA(I5=1;D5*F5;0)
O5 -> =HA(J5=1;D5*F5;0)A képleteket lemásolod a 64. sorig., és a SZUM(L5:O64) képlettel összegzed.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A mindenkori, két kötjel közötti szám kinyerése:
A D oszlopban a *1 alakítja számmá a szövegként szereplő középső értéket. Elhagyható, ha nem akarsz számolni a kinyert értékkel.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
A szöveg típusú adatokat így rendezi, az egyes karakterek ASCII kódjainak megfelelően.
Ki lehet cselezni egy segédoszloppal, ami az eredeti adatok elején lévő számokat tartalmazza.Vegyük, hogy az eredeti adatok az A oszlopban vannak. A segédoszlopban a képlet
=BAL(A1;SZÖVEG.KERES("_";A1)-1)*1A tartományt, ami tartalmazza az eredeti-, és a segédoszlopot is, a képletet tartalmazó oszlop szerint rendezed.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
slashing
senior tag
ez ugyan az mint az én giga hosszú képletem néhány hozzászólással feljebb van rá pár próbálkozás, ha jól emlékszem rajtam kívül is volt valaki aki ilyesmivel küzdött az utolsó 100 hozzászóláson bellül...
(#22390) Delila_1 válasza slashing (#22389) üzenetére ebből ki tudsz indulni.
ezt a témát én örökre megutáltam
[ Szerkesztve ]
-
slashing
senior tag
-
Delila_1
Topikgazda
Írtam egy Kotjel nevű függvényt rá.
Function Kotjel(cella As Range)
Dim kar As Integer, tol As Integer, ig As Integer
For kar = Len(cella) To 1 Step -1
If Mid(cella, kar, 1) = "_" Then ig = kar
If Mid(cella, kar, 1) = "-" Then
tol = kar + 1
Exit For
End If
Next
ig = ig - tol
Kotjel = Mid(cella, tol, ig)
End FunctionBeviszed a füzetedben egy modulba, és =kotjel(A1) formában alkalmazod.
Ha több füzetben is használnád, érdemes a personalba másolni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
slashing
senior tag
megnyitod a fájlodat amiben ezek vannak, alt+f11 bejön a VBA ablak bal oldalon VBAProject (a fájlod neve.xls) itt jobb klikk insert / module és belemásolod a kódot. Lehet hogy újra el kell mentened a fájlt makróbarátra. De ahogy Delila_1 is mondta ha nem a fájlodba mented hanem a Personal.xlsb-be akkor bármelyik fájlodnál használhatod majd.
A táblázatod azon oszlopába amelyikbe ki akarod gyűjteni beírod a képletet =kotojel(A1) ha A1-ben vannak ezek a szövegek....
[ Szerkesztve ]
-
Delila_1
Topikgazda
A függvényt egy speciális formához írtam, amilyent megadtál, pl. 2-2-0-0,4_22, vagy 2-2-0-2_22.
Számjegyeket kötöttél össze kötőjelekkel, végül egy alsó kötőjellel. A függvény azt a számot adja vissza, ami az utolsó kötőjel, és az alsó kötőjel között van.
A cella tartalmát vizsgálja a végétől az eleje felé haladva. Az
If Mid(cella, kar, 1) = "_" Then ig = kar
sor az alsó kötőjel pozícióját teszi be az ig változóba – kar a ciklusváltozó.
A lenti részlet az utoljára előforduló kötőjel +1 helyét teszi be a tol változóba, vagyis a kiírandó szám első karakterének a helyét.
If Mid(cella, kar, 1) = "-" Then
tol = kar + 1
Exit For
End IfItt már nem kell tovább vizsgálni a hivatkozott cella adatát, ki lehet lépni a ciklusból. Már csak a szám kiíratása van hátra.
Lehet, hogy a hivatkozott celláid formája nem egyezik meg azzal, amilyent megadtál, akkor nem kapsz jó eredményt, hiszen a függvényt kifejezetten az általad megadott kötőjel – alsó kötőjel formához írtam.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
Ehhez nem kell felhasználói függvény.
Kijelölöd a tartományt, Adatok | Szövegből oszlopok menü. Tagolt, határoló jel a kötőjel. Ez szétbontja az adatokat az A:D tartományba. A D oszlopban lesz a két utolsó számjegy, alsó kötőjellel elválasztva.
Kijelölöd a D oszlop adatait, újra Szövegből oszlopok, itt a tagoló jel az alsó kötőjel.
Ennyi, csupán néhány kattintás.
Rögzítéssel makró hozzá – kicsit javítva:
Sub Rögzítés1()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & usor).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
Range("D1:D" & usor).TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="_", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ne kezdj semmit a makróval, nincs rá szükség. Jelöld ki a tartományt, és lépj a szövegből oszlopok menübe.
A tartománytól jobbra kell annyi üres cellának lennie,ahol elférnek az egyes számok.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
-
slashing
senior tag
találtam egy ilyet:
de csak 1 cellával működik viszont úgy néz ki hogy mindegy melyik két kijelölt cellán futtatod a makrót. Swap cell kulcsszóval keresgélj hátha van jobb isSub Swap2Values()
Dim Value1 As Range, Value2 As Range
Dim TempValue1 As String, TempValue2 As String
If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
MsgBox "Please select only 2 cells. For other options check back soon!"
End
End If
If Selection.Areas.Count > 1 Then
Set Value1 = Selection.Areas(1).Cells(1, 1)
Set Value2 = Selection.Areas(2).Cells(1, 1)
ElseIf Selection.Rows.Count > Selection.Columns.Count Then
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("A2")
Else
Set Value1 = Selection.Range("A1")
Set Value2 = Selection.Range("B1")
End If
TempValue1 = Value1
TempValue2 = Value2
Value1 = TempValue2
Value2 = TempValue1
End Sub -
slashing
senior tag
-
m.zmrzlina
senior tag
Próbáld így:
=Vágáslista!A3&"_"&Vágáslista!S3&"_"&HA(Vágáslista!R3="";"";KÖZÉP(Vágáslista!R3;1;10)&"_"&HA(Vágáslista!Q3="";"";Vágáslista!Q3)&"_"&Vágáslista!D3)
Ha üres cella esetén szeretnél valamit csinálni, vagy nem csinálni akkor a következő képletet használd:
=HA(A1="";"üres";A1)Lefordítva: (a képlet mondjuk B1-ben van):
Ha A1 nem tartalmaz adatot akkor B1 értéke az üres szó (vagy ami az üres helyén az idézőjelek közt van) egyébként B1 megkapja A1 értékét[ Szerkesztve ]
-
mdk01
addikt
Jobban belegondolva egy sima HA függvénnyel is működik a dolog, ha a függvényben megtudom adni, hogy színezze a cellát, vagy a betűt, vagy akármit, csak jelölje meg.
Elvégre, ha a két cella nem egyenlő(mert ugye bele nyúltam) akkor már jelölnie kellene a cellát.
Hogyan tudok ilyet? Neten, csak a feltételes formázást ajánlgatják.
Köszönöm -
pigster
senior tag
Delila_1 válaszát kiegészítve:
Az ő megoldása csak azt vizsgálja, hogy egyenlő-e a két cella, nem a képletet. Ha pl. kézzel ugyanazt írod be, ami a képlet alapján is ott lenne, akkor nem megfelelően működik. Ha persze mindig mást írsz be kézzel, akkor jó.Feltételes formázásnál (is) a képletet vizsgálja (persze a hivatkozást megfelelően át kell írni):
=KÉPLET($A1)
Ha képlet van, akkor IGAZ, különben HAMIS
[ Szerkesztve ]
FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
mdk01
addikt
Oké, megvan a hiba 2 óra keresés után cask ide kellett beírnom szokás szerint és nem a képlettel van a baj....
A gond az volt, hogy a képlet megtalálta a D152 végén a kettest, de én a kötőjel utáni kettest akartam vele megtaláltatni.
Hogyan tudnám azt megadni, hogy a kötőjel után keresse a kettest?[ Szerkesztve ]
-
Fferi50
őstag
Szia!
"Hogyan tudnám azt megadni, hogy a kötőjel után keresse a kettest?"
Akkor a kötőjel +2 kombót kell keresni:
SZÖVEG.TALÁL("-2";Összesített!U6)
Másrészt:
KÖZÉP(Összesített!U6;SZÖVEG.TALÁL("2";Összesített!U6);3)="2" soha nem fog teljesülni, mivel 3 karaktert hasonlítasz 1 karakterhez. A közép hossz paramétere legyen 3 helyett 1.Üdv.
-
Juditta_56
aktív tag
Szerintem a képleted(?) egy kicsit összezavarodott, így nem is nagyon lehet tudni, hogy mit szeretnél...
Ha azt szeretnéd, hogy
ha az Összesített!$U6 tartalmazza a '0,5' vagy az '1' szöveget, akkor írja ki az Összesített!$M6 értékét, különben ""-t, akkor:=HA(HIBÁS(SZÖVEG.TALÁL(0,5;Összesített!$U6));HA(HIBÁS(SZÖVEG.TALÁL(1;Összesített!$U6));"";Összesített!M6);Összesített!M6)
(bocs, én nem használom a "HAHIBA" függvényt, csak így tudom)
ha viszont nem ezt szeretnéd, akkor írd le pontosan, hogy hogy gondolod..."You may say that I'm a dreamer But I'm not the only one"
Új hozzászólás Aktív témák
- World of Warcraft Shadowlands Collectors edition EU EN
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Canva Pro előfizetés - 1 éves
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)