- A sógorokhoz érkezik a kompakt Vivo X200 FE
- Samsung Galaxy S25 - végre van kicsi!
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- Magisk
- Hivatalos a OnePlus 13 startdátuma
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- Samsung Galaxy Watch6 Classic - tekerd!
- Milyen okostelefont vegyek?
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Fotók, videók mobillal
-
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
-
Delila_1
veterán
A Vezérlők eszköztáron van egy Naptár vezérlőelem (angolban Calendar) nevezetű, de ezen csak 1 napot választhatsz ki, és a csatolt cellába (linked cell) a kiválasztott dátumot teszi.
Azt tudnám javasolni, hogy egy tartományba (mondjuk H1:H10) írd be a kiválasztott dátumokat, majd valahova
=DARAB2(H1:H10)
Ez megadja a kiválasztott dátumok darabszámát. -
Delila_1
veterán
válasz
Ősember
#3667
üzenetére
Ha semmiképp nem sikerül rábeszélned a szám formátumra, fogj egy üres füzetet, jelöld ki minden lapját és minden celláját, állítsd a formátumot kedved szerintire, és a Mentés másként menüpontban sablonként (Munkafüzet.xlt néven) mentsd el. Az Excel megnyitásakor ez a formátum jön elő innen kezdve.
A fájlt önállóan a C:\Document and Settings\Felhasználó\Application Data\Microsoft\Excel\XLSTART -ba teszi, ahol a personal.xls is van – ha van.
A mentés előtt beállíthatsz egyebeket is, én pl. a függőlegesen középre igazítást választottam. Kedved szerint sortörés engedélyezését, vagy bármi mást is választhatsz, csak ne írj semmit a füzetbe.
-
Delila_1
veterán
válasz
Ősember
#3657
üzenetére
Akkor ezt vidd be az előző helyett:
Sub KerekOtven()
usor = Range("A65536").End(xlUp).Row
For sor = 1 To usor
If Cells(sor, 1) > "" Then
sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
Cells(sor, 3) = sz
ket = Fix(Right(sz, 2))
Select Case ket
Case Is <= 24
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz)
Case 25 To 74
sz = Left(sz, Len(sz) - 2) & "50"
sz = Fix(sz)
Case Is >= 75
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz) + 100
End Select
Cells(sor, 2) = sz
End If
Next
End SubHogy a biztonsági szint magas voltára hivatkozott mindkét esetben, csak a szegényes szókincsére vall - eszerint. Hiányosan írták le a lehetséges hibákat.
-
Delila_1
veterán
válasz
cortez25
#3648
üzenetére
Nem egészen egyszerű, de nem is túl nehéz. Felírod valahova (ahol nincs útban) a 30 nevet, elosztod 5 felé, és az egyes csoportoknak nevet adsz, pl. név_1, név_2, stb. Nevet úgy tudsz adni, hogy kijelölöd a csoportot, és a szerkesztőléc bal oldalán, ahol most a felső cellád helyét mutatja (pl. Z1, ha oda írtad a neveket), begépeleg a nevet, Enter.
Egy külön cellába beviszel egy érvényesítést, ami 1-től 5-ig ad vissza számokat. Ez a cella nálam a C1.
Kijelölöd a területet, ahova majd a neveket be akarod vinni.
Az érvényesítésnél a forráshoz ezt írod:
=HA($C$1=1;név_1;HA($C$1=2;név_2;HA($C$1=3;név_3;HA($C$1=4;név_4;név_5))))Felvitelnél előbb a C1-ben kiválasztod, hogy az 5 csoport közül melyikből akarsz választani, ezután a bevitel helyén az érvényesítés csak azt a 6 nevet ajánlja fel.
-
Delila_1
veterán
válasz
Ősember
#3646
üzenetére
Mindkét kérdésedre igen a válasz. Az 1-et írd át annyira, ahányadik oszlopban vannak az adataid.
A kódot a VBE-be (Visual Basic Editor) másold be. Behívása vagy Eszközök/Makró/Visual Basic menüből, vagy Alt+F11-el történik. A bal oldali könyvtárban állj rá a füzetedre, majd a menüből az Insert/Module hatására jobb oldalon kapsz egy üres lapot, oda másold.
Indítás az Excelben: Eszközök/Makró/Makrók (vagy ezek helyett Alt+F8), ott a makró címére duplán kattintasz. -
Delila_1
veterán
válasz
Ősember
#3642
üzenetére
G1-be írom a szorzót (123), H1-be a hozzáadandó értéket (5). A számok az A oszlopban, A1-től kezdődően vannak, a kerekített eredményt a B oszlopban kapom meg. A C-be beíratom a (A+H1)*G1 értéket, hogy ellenőrizni lehessen a kerekítést. Ha erre az utóbbira nincs szükség, töröld a Cells(sor,3)=sz sort.
Sub KerekOtven()
sor = 1
Do While Cells(sor, 1) <> ""
sz = (Cells(sor, 1) + Cells(1, 8)) * Cells(1, 7)
Cells(sor, 3) = sz
ket = Fix(Right(sz, 2))
Select Case ket
Case Is <= 24
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz)
Case 25 To 74
sz = Left(sz, Len(sz) - 2) & "50"
sz = Fix(sz)
Case Is >= 75
sz = Left(sz, Len(sz) - 2) & "00"
sz = Fix(sz) + 100
End Select
Cells(sor, 2) = sz
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
Úgy vettem észre, hogy csak a billentyűzetről bevitt adatot veszi target értéknek, amit makróval íratsz be egy cellába, azt nem. Ezért, ha range("i" & target.column).select kifejezéssel hivatkozom egy cellára, a target.row értéke nem változik. Erről nem láttam sehol leírást.
Azt mondod, "ha az & tényleg műx". Próbáld ki! -
#3635
Delila_1
veterán
gazsiazasz
#3609
Delila_1
veterán
válasz
gazsiazasz
#3609
üzenetére
A makrót úgy írtam, hogy a 21. sor színeit, és a 22. sorban lévő IGAZ és HAMIS értékeket figyelje, azok alapján módosítsa a 41. sor valamelyik adatát. A linkelt képből nem derül ki világosan, hogy a 41-en kívül kell-e még máshol is változtatni.
Előbb képletekkel szerettem volna megoldani, de nem sikerült, makróval viszont nem túl bonyolult.Sub Méretek()
If Cells(41, 12) = 0 Then
f = 0
For oszlop = 3 To 11
If Cells(22, oszlop) Then
If Cells(21, oszlop).Font.ColorIndex <> 3 Then
Cells(41, oszlop) = Cells(41, oszlop) - 1
f = 1
Else
Cells(41, oszlop) = Cells(41, oszlop) + 1
f = 1
End If
End If
If f = 1 Then Exit For
Next
End If
If Cells(41, 12) = 1 Then
For oszlop = 2 To 11
If Cells(22, oszlop) And f = 0 Then
If Cells(21, oszlop).Font.ColorIndex <> 3 Then
Cells(41, oszlop) = Cells(41, oszlop) + 1
f = 1
Else
Cells(41, oszlop) = Cells(41, oszlop) - 1
f = 1
End If
End If
If f = 1 Then Exit For
Next
End If
End Sub -
#3634
Delila_1
veterán
FehérHolló
#3633
Delila_1
veterán
válasz
FehérHolló
#3633
üzenetére
Kipróbáltam. Ha meghagyod az eredeti Range("I" & Target.Columns).Select-et a
Cells(Target.Row, 9).Select helyett, akkor hiba nélkül működik.Akkor most véletlenül kiderült, hogy a formai különbségnek látszó eltérés a működésben is mást eredményt ad.
Jó szórakozást!
-
Delila_1
veterán
FehérHolló
Félrevezettelek az előbb (ha hagytad magad). A targetes így módosul:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column > 1 And Target.Column < 8) Then
Cells(Target.Row, 8) = "." 'Itt írtam hülyeséget az előbb
Cells(Target.Row,9).Select
Selection.FormulaR1C1 = "= TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
Cells(Target.Row, Target.Column).Select 'Ez visszaáll a bevitt adat cellájára
End If
End Sub -
#3631
Delila_1
veterán
FehérHolló
#3628
Delila_1
veterán
válasz
FehérHolló
#3628
üzenetére
Itt egy kis makró, ami a fájl bezárásakor rákérdez a rendezésre (I oszlop szerint):
Sub auto_close()
If MsgBox("Akarod rendezni mentés előtt az adatokat?", vbYesNo) = vbYes Then
Range("I2").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
ActiveWorkbook.Save
End SubFontos, hogy auto_close legyen a neve, mert akkor automatikusan végrehajtódik záráskor.
Ha még ugyanarról a fájlról van szó, amelyikben B:G oszlopokban van adat, és I-be íródik a dátum, akkor gondoskodni kell a H oszlop kitöltéséről, hogy a rendezésbe belevegye az előző oszlopokat is. Ha üres oszlop van közöttük, csak az I oszlopot rendezi.
A H-ba, ha egyébként nem lenne ott adat, a targetes makróval íratunk egy pontot. Az
If (Target.Column >1 kezdetű sor után írd be:
Cells(8,Target.Column)="."Ha nincs fejléced, a Header:=xlGuess-t javítsd át Header:=xlNo-ra.
-
#3630
Delila_1
veterán
FehérHolló
#3626
Delila_1
veterán
válasz
FehérHolló
#3626
üzenetére
Látom, egy kulcs szerint akarsz rendezni. Szerintem sem érdemes makrót futtatni, a kulcsot képező oszlopban állva egyetlen kattintás, és kész, ki sem kell jelölni a táblát.
Legfeljebb zárás előtt egy inputboxban (vagy msgboxban) rákérdezel, hogy akar-e rendezni, és igen esetén egyszer lefuttatni. -
Delila_1
veterán
Ebben az esetben a legördülő bemeneti tartománya B1: B4, a cellacsatolás E2. A csatolást a legördülő "mögé" érdemes tenni, ott nem látszik, senkit sem zavar.
A makró:
Sub Ugras()
sor = Cells(2, 5) 'E2 cellában van a kiválasztott elem sorszáma
lapnev = Cells(sor, 2)
cell = Cells(sor, 3)
Sheets(lapnev).Select
Range(cell).Select
End SubMikor kiválasztasz egy munkalapot (Alma: Banán) a listából, az E2 cellába beíródik a listabeli sorszáma.
Az Ugras makrót rendeld hozzá a legördülőhöz. -
#3620
Delila_1
veterán
FehérHolló
#3619
Delila_1
veterán
válasz
FehérHolló
#3619
üzenetére
Függvény nincs rá, rögzíts makróban egy sorbarendezést, és azt vesézd ki.
-
#3616
Delila_1
veterán
FehérHolló
#3614
Delila_1
veterán
válasz
FehérHolló
#3614
üzenetére
A #3600-nál azt mondtad, hogy tökéletesen működik. Másik gépen nem megy?
-
#3615
Delila_1
veterán
FehérHolló
#3614
Delila_1
veterán
válasz
FehérHolló
#3614
üzenetére
A "Nem tudom"-ot? Nagyon szívesen, máskor is.
-
#3613
Delila_1
veterán
gazsiazasz
#3609
Delila_1
veterán
válasz
gazsiazasz
#3609
üzenetére
Ez elég bonyolult, dolgozom rajta, az eredményt hét végén elküldöm email-ben (ha jó a megadott címed).
-
#3612
Delila_1
veterán
FehérHolló
#3611
Delila_1
veterán
válasz
FehérHolló
#3611
üzenetére
Nem tudom.
-
#3608
Delila_1
veterán
gazsiazasz
#3606
Delila_1
veterán
válasz
gazsiazasz
#3606
üzenetére
Tegyél már be egy képet, a leírás alapján (nekem) nem elég világos a feladat.
-
#3607
Delila_1
veterán
FehérHolló
#3602
Delila_1
veterán
válasz
FehérHolló
#3602
üzenetére
Az Eszközök/Bővítménykezelőben kapcsold be az Analysis ToolPak-ot és az Analysis ToolPak-VBA-t. Az első egy halom új függvényt ad, amiket a munkalapodon alkalmazhatsz, a másik ugyanezt adja a VBA felületen, amiktől értelmezhetővé válnak a makrók utasításai az Excel számára.
-
#3601
Delila_1
veterán
FehérHolló
#3600
Delila_1
veterán
válasz
FehérHolló
#3600
üzenetére
Szívesen.
-
#3599
Delila_1
veterán
FehérHolló
#3597
Delila_1
veterán
válasz
FehérHolló
#3597
üzenetére
Ez, a laphoz rendelve azt csinálja.
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column > 1 And Target.Column < 8) Then
Range("I" & Target.Row).Select
ActiveCell.FormulaR1C1 = "= TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
End If
End Sub -
Delila_1
veterán
válasz
MarDani
#3595
üzenetére
Nem érdemes egy cellába összezsúfolni mindent, mert nehéz követni, és megváltozott feltételeknél javítani.
Több lépésben:
D2 -> NUMBER(19,4)
H2 -> =JOBB(D2;HOSSZ(D2)-7) 19,4)
I2 -> =BAL(H2;HOSSZ(H2)-1) 19,4
J2 -> =SZÖVEG.KERES(",";I2) 3 - makróban v változó
K2 -> =BAL(I2;J2-1) 19 - makróban m változó, a szám vessző előtti része
L2 -> =JOBB(I2;HOSSZ(I2)-J2) 4 - makróban n változó, a szám vessző utáni része
M2 -> =HA(BAL(D2;6)="NUMBER";"DEC("&K2+L2&","&L2&")";"") DEC(23,4)Ezután az M oszlop képletei helyébe beillesztem az értéküket, a segédoszlopok törölhetők, vagy a segédeket elrejtem.
-
Delila_1
veterán
válasz
MarDani
#3592
üzenetére
Feltételezve, hogy a D oszlopban több ilyen adatod is van, egy ciklusba tettem:
Sub mn()
sor = 2
Do While Cells(sor, 4) <> ""
If Left(Cells(sor, 4), 6) = "NUMBER" Then
sz$ = Cells(sor, 4)
sz$ = Right(sz$, Len(sz$) - 7)
sz$ = Left(sz$, Len(sz$) - 1)
v = InStr(sz$, ",") 'A vessző helyét keresi ki
m = Val(Left(sz$, v - 1))
n = Val(Right(sz$, Len(sz$) - v))
Cells(sor, 5) = "DEC(" & m + n & "," & n & ")"
End If
sor = sor + 1
Loop
End Sub -
#3582
Delila_1
veterán
FehérHolló
#3577
Delila_1
veterán
válasz
FehérHolló
#3577
üzenetére
Sub Worksheet_Change(ByVal Target As Excel.Range)
If (Target.Column > 3 And Target.Column < 8 And Target.Row < 11) Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "= TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
End If
End SubEz a kis makró a munkalaphoz rendelve (lapfülön jobb klikk, kód megjelenítése, VBE-ben a jobb oldalon kapott üres lapra másolva) azt csinálja, hogy ha a D1:G10 tartományban módosul az adat, az A1-be beírja az aktuális dátumot a MA() függvénnyel, és rögtön át is írja a függvényt az értékére.
-
#3581
Delila_1
veterán
FehérHolló
#3577
Delila_1
veterán
válasz
FehérHolló
#3577
üzenetére
Targettel kellene megoldani, a laphoz rendelt makróval.
-
-
Delila_1
veterán
A Munka1 lapra írd be az alábbit, feltételezve, hogy az A oszlopban van az az adat, amit a Munka2 lap A oszlopának adataival össze kell vetned. A $1000 helyett a Munka2 utolsó sorát írd. Végig másolva 0-át ír a Munka2-n nem található tételek mellé, 1-et a mindkét lapon szereplőkhöz.
Ha a Munka2-re is beírod ugyanezt (persze Munka1!-re változtatva a Munka2!-t), akkor az ott meglévő, de a Munka1-en nem szereplő tételeket is kimutathatod.
Sikerült úgy megfogalmaznom, hogy egy mukkot se lehessen érteni belőle? Ennyi telik tőlem.
=HA(HIBÁS(FKERES(A1;Munka2!$A$1:$A$1000;1;HAMIS));0;1)
Ezután már szűrheted 0-ra, vagy 1-re az oszlopodat.
-
#3567
Delila_1
veterán
mimi_bacsi
#3566
Delila_1
veterán
válasz
mimi_bacsi
#3566
üzenetére
Szívesen.
-
#3565
Delila_1
veterán
mimi_bacsi
#3564
Delila_1
veterán
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) -
#3563
Delila_1
veterán
mimi_bacsi
#3562
Delila_1
veterán
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) -
Delila_1
veterán
-
Delila_1
veterán
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 Sub -
Delila_1
veterán
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?
-
-
Delila_1
veterán
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 Sub -
-
-
Delila_1
veterán
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. -
Delila_1
veterán
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.
-
-
#3498
Delila_1
veterán
mimi_bacsi
#3485
Delila_1
veterán
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.
-
Delila_1
veterán
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.
-
Delila_1
veterán
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.
-
#3482
Delila_1
veterán
Johnny1983
#3481
Delila_1
veterán
válasz
Johnny1983
#3481
üzenetére
Örülök, hogy sikerült megoldani.
-
#3480
Delila_1
veterán
Johnny1983
#3479
Delila_1
veterán
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.
-
Delila_1
veterán
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. -
Delila_1
veterán
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 Sub -
Delila_1
veterán
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.
-
Delila_1
veterán
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
-
Delila_1
veterán
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.
-
Delila_1
veterán
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). -
Delila_1
veterán
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;"")
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Spórolós topik
- HDD probléma (nem adatmentés)
- A sógorokhoz érkezik a kompakt Vivo X200 FE
- Nintendo Switch 2
- Samsung Galaxy S25 - végre van kicsi!
- Horgász topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- EAFC 25
- Luck Dragon: Asszociációs játék. :)
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Assassin's Creed Shadows Collector's Edition PC
- LG 55B4 - 55" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Dell D6000 univerzális dokkoló USB-C/ USB-A, DisplayLink & Dell WD15 (K17A) USB-C + 130-180W töltő
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- BANKMENTES részletfizetés ASUS TUF Gaming F16 FX607JV-QT212 Notebook
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest