-
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
Topikgazda
A HA függvénynél a zárójel után a feltételt kell megadni, az első ; után azt, hogy mi történjen, ha igaznak bizonyul a feltétel, az újabb ; után pedig azt, hogy mi legyen hamis eredmény esetén.
Itt most két feltételnek is teljesülnie kell, nevezetesen az E7-nek és az E8-nak is valamilyen értéket kell képviselnie ahhoz, hogy a kivonást el lehessen végezni.
A HA függvényt ezért kombináljuk egy ÉS függvénnyel.Az ÉS függvénybe ;-vel elválasztva írjuk be a feltételeket.
<>"" azt jelenti, hogy nem egyenlő üres stringgel.=ha(és(E7<>"";E8<>"");E7-E8;"")
[ 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
válasz Gabcsika #3448 üzenetére
Vegyük, hogy az adataid a Munka1 lapon vannak, A oszlopban a megnevezés, B-ben a szám_1, C-ben a szám_2.
Munka2 A2-be: =HA(Munka1!$B2=Munka1!$C2;Munka1!A2;"")
Ezt jobbra húzod a C oszlopig, onnan a hármat együtt le addig a sorig, ameddig a Munka1-en adataid vannak. Kapsz egy foghíjas táblázatot.
A Munka2 lapon bekapcsolod az autoszűrőt, bármelyik oszlopban kiszűröd az üres sorokat, és törlöd azokat.
A szűrő visszaállítása után érdemes a Munka2 lapon kijelölni az A,B,C oszlopokat, másolás, ugyanoda érték beillesztés (hogy a képletek helyére a fix adatok kerüljenek).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
Eszközök/Automatikus javításnál a Módosítandónál kikeresed, Törlés.
Ide lehet bevinni is, pl. olyan szavakat, amiket sűrűn kell begépelni. A módosítandóba egy egy-két betűs rövidítést írsz, de ne olyant, ami önállóan is értelmes (a, az, de, ha, fa, stb.). A Jó szöveg mezőbe a teljes szó jön.Példa: kz -> Kovács Zoltán
Akár tejes bekezdést is lehet bevinni, a Word ugyanezt az adatbázist használja.
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
válasz Bundás22 #3458 üzenetére
Ne jelöld ki az oszlopot, ami szerint rendezni akarod az adataidat, csak állj benne. Ha kijelölöd, csak a kijelölt oszlopot rendezi, ha nem, akkor együtt az egész tartományt aszerint, hogy melyik oszlopban állsz.
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
válasz Gabcsika #3464 üzenetére
Szia Gabcsika!
Megtisztelő, hogy személyesen engem szólítasz meg, de itt a fórumon erre sokan mások is tudnak válaszolni.
A VLOOKUP a magyar FKERES angol megfelelője, azt jelenti, hogy függőlegesen keres.
Példa: van egy halom anyagod, cikkszámmal, súllyal. Az anyag megnevezését tudod, amellé kell beilleszteni a megfelelő cikkszámot, és a súlyt.
Van egy táblázatod, mondjuk a $J$1:$L$100 tartományban, ahol a J az anyag nevét, a K a megfelelő cikkszámot, az L a súlyt tartalmazza.
A napi használatban felviszed az anyag nevét az A oszlopba. Az A1 az oszlop nevét tartalmazza, az adatok A2-ben kezdődnek. A B oszlopba kellene beírni a cikkszámot, a C-be a súlyt, ehelyett a Vlookup függvényt írod be a B2-be:
=Vlookup($A2;$J$1:$L$100;2;FALSE)
Az első paraméter a keresendő érték, jelen esetben az A2 cella tartalma. A 2. paraméter a tábla, ahol keresni kell, ez a $J$1:$L$100.
A függvény a tábla első oszlopában keresi a keresendő értéket, az anyag nevét. A 3. paraméterrel adjuk meg, hogy a tábla hanyadik oszlopában lévő adatot írja az B2-be, ez itt most a második. Az utolsó paraméter egy logikai érték, amivel azt adhatjuk meg, hogy pontos-, vagy közelítő értéket keresünk-e. A FALSE pontos egyezést ad. A súgó leírja a közelítő értékek keresésének módját.
A függvény a B2 cellába beírja a cikkszámot.
A B2 képletét átmásolod a C2-be, és az oszlop számát átírod 2-ről 3-ra, mert ide a tábla 3. oszlopában lévő súlyt kell beíratni.
A C2 így néz ki:
=Vlookup($A2;$J$1:$L$100;3;FALSE)
Ezt a két képletet lemásolod addig, ameddig szükséges. Ezután elég az anyag nevét beírni az A oszlopba, a másik két adatot a függvények mellé írják.Jó munkát
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
Meg kellene írnod, mit is tartalmaz pontosan az A2:I8 tartomány, és hogy a számítás eredményét a B10-től kezdődő tartományba akarod-e bevinni.
Valószínű, hogy egy segédoszloppal, ami lehet rejtett is, megoldható.Ha személy szerint engem szólítasz meg, esetleg később kapsz választ. Vannak itt sokan, akik tudnának jó tippeket adni.
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
Szia!
Ezt csak makróval lehet (szerintem) megoldani a körkörös hivatkozás miatt. Ímé:Sub atiro()
For sor = 1 To 8
If Not IsError(Cells(sor, 7)) Then
nev = Cells(sor, 2)
For sor_1 = 10 To 50
If Cells(sor_1, 1) = nev Then
Cells(sor_1, 2) = Cells(sor, 7)
Exit For
End If
Next
End If
Next
End SubProgramozó: 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
Ennek működnie kell.
A nyitott füzetedben Alt+F11-re előjön a VBE (Visual Basic Editor).
A bal oldali részen megtalálod a füzeted nevét, állj rá. Az Insert menüben a Module-t választva jobb oldalon kapsz egy üres lapot, oda másold be, amit küldtem.
Indítás az Excelben: Eszközök/Makró/Makrók, ott az atiro-ra duplán kattintva indul.[ 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
válasz Johnny1983 #3479 üzenetére
A cellán jobb katt, Megjegyzés beszúrása. Ezen újabb jobb katt, Megjegyzés formázása. A Színek és vonalak fülön a Szín legördülőből a Kitöltési effektusok, ott a kép fülön Képválasztás.
Az Eszközök, Beállítások Megjelenés fülén a Megjegyzések csoportban beállíthatod, mikor legyen látható a megjegyzés.
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
válasz Johnny1983 #3481 üzenetére
Örülök, hogy sikerült megoldani.
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
1. Az alábbi makró sor változója meghatározza az A oszlopban lévő első üres cella helyét, a Cells(sor, 1).Select pedig rá is áll.
Sub Also()
sor = Range("A65536").End(xlUp).Row
sor = sor + 1
Cells(sor, 1).Select
End Sub2. Szélesítsd az oszlopot, akkor látszik a teljes szöveg.
[ 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
Sub Keplet()
For sor = 2 To 4
lap = "Hungary_" & 4 - sor + 1
sz = Sheets(lap).Cells(2, 2).Value
Cells(sor, 2) = sz
Next
End SubA For sorban, és a következő sorban is írd át a 4-et a lapjaid darabszámára.
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
Ja, és arról a lapról indítsd a makrót, ahol az adatokat össze akarod gyűjteni, vagy az első sorba írd be:
Sheets("ide jön a gyűjtőlap neve az idézőjelek közé").Select
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
Nagyon jó a PC fórumos válasz. Átmásolom ide, hogy más is okulhasson belőle.
Dongetto ezt írta:Function pelda(munkalapszama As Integer, cella As String)
pelda = Sheets(munkalapszama).Range(cella).Value
End FunctionEzt a makrót ebbe a füzetbe, vagy az egyéni makrófüzetbe (hogy minden más füzet is elérje) beírva működik az alábbi képlet:
=pelda(5;"B3") -> az ötödik, bármilyen nevű lap B3 cellájának értékét adja.
Átírtam ennek megfelelően az előző makrómat.
Sub Keplet()
Sheets("Munka1").Select
For sor = 2 To 69
Cells(sor, 2).Select
ActiveCell.FormulaR1C1 = "=pelda(" & sor & ",""B3"")"
Next
End SubHa jól emlékszem, 69 lapod tartalmazza az adatokat, amiket az első lapra B2-től kezdve gyűjtesz ki egymás alá (ezzel együtt 70 lapod van). A makróban Munka1-nek neveztem a gyűjtő lapot. Ezt teszed előre, azért indul a ciklus 2-től.
[ 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
válasz mimi_bacsi #3485 üzenetére
Ne az egérrel, hanem a nyilak és a Shift billentyű segítségével jelöld ki a másolandó területet, akkor nem ugrasz a címre jelölés közben.
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
Az alábbi makró elvégzi helyetted a munkát.
Sub nev()
Dim nev
sor = 1
Do While Cells(sor, 2) <> ""
nev = Cells(sor, 2).Value
Cells(sor, 1).Select
ActiveWorkbook.Names.Add Name:=nev, RefersToR1C1:="=Munka1!R" & sor & "C1"
sor = sor + 1
Loop
End SubProgramozó: 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
Nem írtam, hogy ez a Munka1 nevű lapon működik. Ha másképp hívják a lapodat, javítsd ki a makróban. Ezután működnie kell. A makró bevitelével van esetleg gondod?
Remélem, jól értettem a feladatot. Ha csak azt akarod, hogy az A oszlop celláiban ugyanaz szerepeljen, mint a B-ben, akkor simán át kell másolnod az oszlopot, de Te úgy írtad, hogy az A celláinak a B oszlop azonos sorú cellájának nevét akarod adni.
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
Lehet, hogy a táblát nem $ jelekkel adtad meg. Ha a tábla pl. $A$1:$E$100, a képletet lehúzva is az marad. $ jelek nélkül viszont a második cellában már A2:E101, a harmadikban A3:E102, és így tovább.
Még az is lehet a hiba oka, hogy utolsó paraméterként nem megfelelő értéket adtál. Nézd meg a súgót ezügyben.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 Hamis paramétert akkor alkalmazzuk, mikor nincsenek feltétlenül sorrendben az adatok, és pontos értéket akarunk kapni.
Azért írtam, hogy nézd meg a súgót, mert ott különböző, közelítő értékek keresésére találsz példát.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 Fájl/Oldabeállítások/Lap fülön a fent ismédlődő soroknál úgy, hogy a párbeszéd panel mellett kijelölöd az ismétlődő sorokat. Ugyanitt megtalálod az oszlop ismétlését is, csak fejből nem tudom az elnevezését, pillanyatnyilag nincs Excelem.
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
Nem értem, miért szeretnél ehhez függvényt. Erre való a két rendező ikon, ami gyorsabban elérhető, mint hogy beírd a tartományt, és az irányt.
Szerintem nem írni, hanem alkalmazni kell az Excelt.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
Vedd fel pl. a C1-be: =hol.van(min(b1: b5);b1: b5;0)
(a szóközöket a b5-ök elött a smylik miatt iktattam be)Abba a cellába, ahova az A megfelelő értékét kell írni: =indirekt("A" & c1)
Biztosan meg lehet csinálni shev7 AB.MEZŐjével is, nekem nem sikerült.
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
Háát, ez több volt 1 percnél, oda a nyakad!
Sub Válogatás()
Sheets("Munka2").Select
sor_2 = Range("A65536").End(xlUp).Row
Sheets("Munka1").Select
sor_1 = Range("A65536").End(xlUp).Row
sor_3 = 1: f = 0
For mu1 = 1 To sor_1
sz = Cells(mu1, 1)
For mu2 = 1 To sor_2
If Sheets("Munka2").Cells(mu2, 1) = sz Then f = 1
Next
If f = 0 Then
Sheets("Munka3").Cells(sor_3, 1) = sz
sor_3 = sor_3 + 1
End If
f = 0
Next
Sheets("Munka2").Select
For mu2 = 1 To sor_2
sz = Cells(mu2, 1)
For mu1 = 1 To sor_1
If Sheets("Munka1").Cells(mu1, 1) = sz Then f = 1
Next
If f = 0 Then
Sheets("Munka3").Cells(sor_3, 1) = sz
sor_3 = sor_3 + 1
End If
f = 0
Next
End SubProgramozó: 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
Elméletileg akkor működik, ha fölötte legalább 5 bejegyzés van, és a balra mellette lévő oszlopba számot írsz. A beállítás minden füzetre vonatkozik. Akkor egészíti ki a képletet, mikor beírod a számot. Tapasztalatom szerint nem mindig jön össze.
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
Mert így van megírva
Szerinted előre be kellene írnia a képleteket a még ki nem töltött sorokba is?
Nézd meg a fájl méretét, azután húzd le a képletet jó hosszan, mentsd el, és megint nézd meg a méretét. A képletek sok helyet foglalnak el, de minek is kellenének előre, ha még nincs mit számolniuk?[ 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
válasz kraftxld #3543 üzenetére
Vártam, hogy Sonar hátha megtalálja. Az alábbi makró csv-k megnyitásához készült, írd át dbf-re. Régebben írtam, és nem biztos, hogy ezen a fórumon.
Sub csv()
Const utvonal = "C:\Adatok\"
Dim FN As String, WB As Workbook
ChDir utvonal
FN = Dir(utvonal & "*.csv", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Set WB = Workbooks.Add
Workbooks.Open Filename:=FN
nev = Left(FN, Len(FN) - 3) & "xls"
'Ide írd be, amit az xls-ben el akarsz végeztetni
ActiveWorkbook.SaveAs Filename:=utvonal & nev, FileFormat:=xlNormal
WB.Close False 'Ez azonnal be is zárja a változatlan csv-t.
ActiveWindow.Close 'Ez meg a csv-hez képest módosított xls-t
End If
FN = Dir()
Loop Until FN = ""
End SubProgramozó: 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
Az más. Akkor a lista alján az első üres cellán jobb klikk, Választéklista (2007-esnél Legördülő választéklista) választási lehetőséget ad a fölötte lévő adatok közül. Csakis az aktuális oszlopban működik, nem lehet kiterjeszteni, mert a már beírt adatokat ajánja fel.
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
válasz Gabcsika #3553 üzenetére
Munka2 A1 cellájába – ha a Munka1 lapon az A oszlopban vannak az adataid.
=HA(KÓD(Munka1!A1)=34;Munka1!A1;"")
Ezt lemásolod, szűröd üres cellára, azokat a sorokat törlöd. Utána rendezheted is.
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
válasz mimi_bacsi #3562 üzenetére
Ha jól számolom, a szétvágandó adatod az E oszlopban van.
F2-be: =bal(e2;hossz(e2)-3)
G2-be: =jobb(e2;3)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
válasz mimi_bacsi #3564 üzenetére
Ez már kicsit zavaros nekem, nem látom, a 2007.11.06178-ból hogy jön össze a 2007.12.03.
Az utolsó 10 karakter: =jobb(cellahivatkozás;10)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
válasz mimi_bacsi #3566 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen