-
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
-
Gh0sT
addikt
Probléma:
Adott egy excel munkalap, amit gombnyomásra szeretnék pdf-ként lementeni és automatikusan egy megadott e-mail címre kiküldeni. Hogyan lehet egyszerűen nevet adni a pdf-nek? Most úgy csinálom, hogy a makróm csinál egy másolatot az adott munkalapról "valami.xls" néven, ezt lementi, majd megküldi az Adobe PDF printerre. Egyszerűen nem tudok egyszerűbben pdf-ként menteni. A másik probléma, hogy valahogyan definiálnom kellene, hogy a pdf-eket típustól függően hova mentse, de lövésem nincs hogy ezt hogyan.Más: miután mentésre kerül a pdf doksi, ki kell küldenem e-mailben outlookon keresztül. Megoldottam, egy apró probléma van. Előfordul, hogy a makró amikor keresi a pdf-et még nem talál semmit, mert lassabb az elkészítése, mint a kód futása. Szükségem lenne valami késleltetésre. Ezt hogyan? Egy for next ciklussal és sleeppel próbálkozom, ami ugyan működik is, de szerintem nem elegáns.
Van valami jobb megoldás? -
#3375
Gh0sT
addikt
mimi_bacsi
#3374
Gh0sT
addikt
válasz
mimi_bacsi
#3374
üzenetére
AND és OR esetleg egy HA függvénybe ágyazva?
Vagy ha nagyon nem megy, akkor használsz segédcellákat. Az egyik segéd cellába kiértékelsz 3 feltételt, a másikba 4 feltételt, majd ezt a kettőt vizsgálod egy harmadikban. -
Gh0sT
addikt
válasz
lacko81
#3371
üzenetére
Ez már egy kicsit okosabb, többféle címformátumot is kezel.
=HA(HIBÁS(SZÖVEG.KERES(" ";A1));A1;HA(HIBÁS(JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1)));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)));HA(HIBÁS(SZÖVEG.KERES(" ";JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1))));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1))))))
MOD: remélem látszik az egész, én tudom scrollozni a teljes kódot.
-
Gh0sT
addikt
-
Gh0sT
addikt
Sajna nincs nálam a tábla, de valahogy így kell:
Van ugye a táblázatod végén a szumma oszlopod. Megfogod az A oszlopban lévő sorszámokat és mögé másolod őket. Tehát ha a szumma oszlop a P, akkor a Q-ba bemásolod a sorszámokat.
Ezután a képlet:
=FKERES(14;P2:Q8003;2;HAMIS)
A P2:Q8003 nem biztos hogy jó, mert nincs nálam a táblád és csak fejből idéztem fel az értékeket. A lényeg, hogy a két oszlopot kell magába foglalja a tartomány.
A lottónál a 14 helyett 5-re javítsd az első paramétert! -
Gh0sT
addikt
Kipróbáltam az autószűrőt, de majdnem megölte a gépem.
Az a baj, hogy ha egynél több legnagyobb találatú szelvény van, akkor nehéz keresni több elemet. Egyébként az FKERES tényleg jó lenne, csak ehhez meg jó ha egymást mellett van a sorszám oszlop, illetve a szummázó oszlop.
MOD: még azon gondolkodom, hogy valami adatbázis függvénnyel neki lehetne esni, de azokat meg nem tudom használni.
[Szerkesztve] -
Gh0sT
addikt
Jogos, a lottóba nem gondoltam bele, oda VKERES kell:
=HA(HIBÁS(VKERES(B2;$B$8003:$F$8003;1;HAMIS))=IGAZ;0;1)
Itt is lehet szummázni a Totóhoz hasonlóan és a DARABTELI-vel kell kiválogatni a találatokat.
A keresésre inkább valami autószűrő kellene a szummázott oszlopokra. Már ha lehet ilyent csinálni. Az elég egyszerű. -
Gh0sT
addikt
Adok egy ötletet, egy kaptafa mindkettő:
A Totó tábla mellé jobbra csinálsz egy újabb táblázatot. Pont akkorát, mint az eredeti tábla. Egy HA függvénnyel fogod vizsgálni az elemeket. Először megnézed, hogy az B2 egyenlő-e a B8003-mal. Ha igen, akkor a HA függvény visszatérési értéke 1 lesz, egyébként pedig 0.
Valahogy így: =HA(B2=$B$8003;1;0)
Most ugye lesz egy táblád, ami csupa 0-ból és 1-ből fog állni. Ha összeadod az egyes sorokat, akkor pontosan megkapod, hogy az adott szelvény hány találatos volt.
Ezután a DARABTELI függvénnyel megvizsgálod ezt a kapott halmazt, hogy hány 14, 13, 12, 11 stb találatos szelvény volt összesen.
A sorszám kiíratására az FKERES függvény lenne a legalkalmasabb, bár több azonos találat esetére nem ideális. -
Gh0sT
addikt
Egy ciklussal, amit véleményem szerint túl sokszor futtatok le, de nem volt kedvem gondolkodni az optimalizáláson. Egyébként ez volt a feladat, vagy legalább valami hasonló?
Ajánlom figyelmedbe ezt az ultragáz favágó meglodást:
keplet = ''R'' & n - 1
Cells(i + 1, 7) = (i & ''.'')
Cells(i + 1, 8) = ''=LARGE(R2C1:'' & keplet & ''C2,'' & i & '')''
Na ez annyira béna, hogy már szép... A tipikus példája annak, hogy nem tudok függvényt meghívni makróból, de nagyon kreatív vagyok.
[Szerkesztve] -
Gh0sT
addikt
Septiben elolvastam, hogy mi lenne a problémád és összedobtam egy kezdetleges táblát, ami elvileg automatikusan megcsinál neked mindent.
- vizsgálja, hogy az A oszlop hány elemet tartalamaz és követi a táblázat bővülését
- kiválaszthatod, hogy hány legnagyobb elemet szeretnél kikeresni a táblából
Ha nagyon félre értettem a feladatot, akkor sorry. Kicsit fáradt vagyok már...
[link] -
Gh0sT
addikt
Egy kis elmélet:
''Internal XL passwords are about as useful for security as tissue paper. The reason is that the passwords you enter (i.e., with Tools/Protect/Protect Worksheet or /Protect Workbook) are not used directly in protection. Instead they are hashed (mathematically transformed) into a much less secure code. Effectively, any password of any length is transformed into a string of 12 characters, the first 11 of which have one of only two possible values. The remaining character can have up to 95 possible values, leading to only
2^11 * 95 = 194,560 potential passwords. This may seem like a lot, but it only takes a few seconds for a modern computer to try them all. As a comparison, a 4-character password containing just the 26 lower case alphabet characters has 456,976 combinations, and a 3-character password consisting of lower case, upper case and the digits 0-9 will have 238,328 combinations.'' -
#1456
Gh0sT
addikt
loszerafin
#1452
Gh0sT
addikt
válasz
loszerafin
#1452
üzenetére
Microsoft Monthview Control nem jó neked? A Maxdate és Mindate tulajdonságokkal állíthatod az időintervallumot.
-
Gh0sT
addikt
válasz
Rayman15
#1339
üzenetére
Az összesítés rettentően problémás, vagy csak én vagyok béna hozzá. Igazán akkor van gond, ha mondjuk rájössz, hogy a félig kész listába még be kell illesztened mondjuk két szobát. Ilyenkor le kellene futtatni egy rutint, ami véginyálazná az egész táblát és ellenőrizné, hogy hova kell illeszteni.
-
Gh0sT
addikt
válasz
Rayman15
#1332
üzenetére
Na, elmondom, hogy én mire jutottam.
Csináltam két legördülő menüt egymás mellé. Az egyikben voltak a helység név csoportok, úgy mint pince, emelet, földszint, melléképületek, stb. A másik legördülőben pedig a konkrét helyiségeg: szoba, wc, fürdőszoba, garázs, stb.
Ha az első legördülőben kiválasztottad mondjuk a pincét, akkor a másikban feljöttek a hozzá tartozó helyiségek. Ezeket hozzá is tudom adni a sorokhoz, de nem bírtam rendezni őket. -
#1329
Gh0sT
addikt
matekmatika
#1326
Gh0sT
addikt
válasz
matekmatika
#1326
üzenetére
Az értékeket a Listbox.List tulajdonságával tudod kiszedni. A LinkedCell helyett inkább ezt használnám VBA-ból.
Me.ListBox1.List(Me.ListBox1.ListIndex)
Ezt meg ugye ahhoz a cellához kapcsolod, ahova akarod, de mivel Multiselect-ről van szó, ezért ugye több elemet is ki lehet választani, tehát érdemesebb egy for next ciklussal megadni a célterületet. -
#1324
Gh0sT
addikt
matekmatika
#1321
Gh0sT
addikt
válasz
matekmatika
#1321
üzenetére
A listbox objektumnak van egy multiselect tulajdonsága. Ha azt átalítod 1-re, vagy 2-re, akkor ki tudsz egyszerre több elemet is jelölni benne.
-
-
Gh0sT
addikt
Szerintem egész egyszerűen van megint két tábla, az A oszlopaiban egy-egy x számjegyű szám és mellettük egy ellenörzőszám. Ugyanaz a példa mint az előbb egy plusz oszloppal és egy HA, FKERES kombóval megspékelve.
Szerintem... Aztán lehet, hogy nagyon leegyszerűsítettem a példát. De majd jön az illetékes és megmondja a frankót.
[Szerkesztve] -
Gh0sT
addikt
válasz
mikoljan
#1101
üzenetére
Legyen az egyik munkafüzet neve Vonalkódok1.xls, a másik Vonalkódok2.xls!
Első munkafüzet B oszlopába beszúrod az alábbi képletet:
=HA(HIBÁS(FKERES(A1;[Vonalkódok2]Munka1!$A$1:$A$XXXX;1;HAMIS));'''';''A vonalkód szerepel mindkét listában'')
XXXX: a Vonalkódok2 táblában az utolsó kód sorszáma
Fontos: Vonalkódok2 táblában a vonalkódok sorba kell hogy rendezve legyenek! -
#1093
Gh0sT
addikt
T. Almeida
#1092
Gh0sT
addikt
válasz
T. Almeida
#1092
üzenetére
Mit meg nem tud az ember...
-
#1085
Gh0sT
addikt
matekmatika
#1084
Gh0sT
addikt
válasz
matekmatika
#1084
üzenetére
Viszont valamire nem tudtam rájönni:
Ha egy adott dátumot bontok évre, hónapra, napra, akkor szeretném, hogy a hónap és nap is ilyen formában jelenjen meg 01-09 és nem 1-9. Nem tudod, hogy ezzel mit lehet kezdeni? Valamilyen speciális formázás szükséges hozzá, vagy a függvény is tudja ezeket a dolgokat? -
-
#1077
Gh0sT
addikt
matekmatika
#1075
Gh0sT
addikt
válasz
matekmatika
#1075
üzenetére
Nah, de közben rájöttem még valamire:
Ha a makródba beírod a következő sort:
Range(''A1'') = now()
akkor neked minden futtatás előtt legenerálja a dátumot. -
#1076
Gh0sT
addikt
matekmatika
#1073
Gh0sT
addikt
válasz
matekmatika
#1073
üzenetére
Nah, nekem működik.
Elmondom, hogy mit csináltam:
1. A1 cellába felvettem a =MA() függvényt
2. B1 cella =ÉV(A1)
3. C1 cella =HÓNAP(A1)
4. D1 cella =NAP(A1)
Ezzel ugye szétszeded a dátumot és nem kell a formátummal vacakolnod.
A2 cella értéke:
=ÖSSZEFŰZ(''C:\Documents And Settings\Könyvtár\Alkönyvtár\Fájlneve_'';''B1'';''.'';C1;''.'';''D1'')
A makró pedig az alábbi:
ActiveWorkbook.SaveAs Filename:= _
Range(''A2'').Value, FileFormat _
:=xlNormal, Password:='''', WriteResPassword:='''', ReadOnlyRecommended:= _
False, CreateBackup:=False
[Szerkesztve] -
#1074
Gh0sT
addikt
matekmatika
#1073
Gh0sT
addikt
válasz
matekmatika
#1073
üzenetére
Várj, a munkafüzetet becsuktad és megnyitottad? Mert a MA() függvény csak az indulásnál generálódik újra. Asszem... bár ebben nem vagyok biztos.
-
#1072
Gh0sT
addikt
matekmatika
#1071
Gh0sT
addikt
válasz
matekmatika
#1071
üzenetére
Mivel függvénnyel állítod elő a file nevét, így szerintem nem lehet vele gond. Teszteld le úgy, hogy átállítod a rendszer időt és megnyitod a munkafüzetet, majd futtatod a makrót.
Szerk.: még jó, hogy nem értek a makrókhoz.
Fájl nevet hogyan generálsz? Mivel állítod elő az első részét?
[Szerkesztve] -
#1069
Gh0sT
addikt
matekmatika
#1068
Gh0sT
addikt
válasz
matekmatika
#1068
üzenetére
Formátum menü --> Lap --> Elrejtés
-
#1055
Gh0sT
addikt
matekmatika
#1053
Gh0sT
addikt
válasz
matekmatika
#1053
üzenetére
Itt egy kód ami az alábbiak szerint működik:
Beírod az A1 cellába a hivatkozást (mondjuk B1). Ide fogja a beviteli mező értékét beilleszteni. Legyen a beviteli mező az A5 mező. Nyomsz mellé egy command buttont, aminek a click eseményéhez hozzárendeled az alábbiakat:
Private Sub Futtat_Click()
X = Range(''A1'').Value
Range(X).Value = Range(''A5'').Value
End Sub
Szerk.: most nézem két munkalap... Gondolom valahogyan lehet a sheetekre hivatkozni, de passz, hogy hogyan.
[Szerkesztve] -
#1054
Gh0sT
addikt
matekmatika
#1053
Gh0sT
addikt
válasz
matekmatika
#1053
üzenetére
''Hogyan tudnám megcsinálni, hogy egy másik munkalapon, egy beviteli mezőbe beírt értéket, a fentebb említett cellahivatkozás szerinti helyre (AF2) íródjon?''
A beviteli mező egy Textbox, vagy egy sima cella? -
Gh0sT
addikt
Nah, itt a képlet, amit ráuszítottam a pivot táblára (E7:F29 a két oszlop)
=HA(HA(HIBÁS(SZÖVEG.KERES(''Összesen'';E7))=IGAZ;0;SZÖVEG.KERES(''Összesen'';E7))>0;E8;F7)
Nekem gyönyörűen kiszedte az alábbiak szerint:
Gyümölcs
Alma
Banán
Barack
Körte
Szilva
Hús
Füstli
Párizsi
Sonka
Szalámi
Tejtermék
Kefír
Sajt
Tej
Zöldség
Paprika
Paradicsom
Répa
Retek
[Szerkesztve] -
Gh0sT
addikt
Megnézegettem ezt a pivot táblát.
Remélem jól gondolom a dolgokat. Adott a következő táblázat:
Gyümölcs Alma
Gyümölcs Körte
Gyümölcs Banán
Gyümölcs Szilva
Gyümölcs Barack
Zöldség Répa
Zöldség Retek
Zöldség Paprika
Zöldség Paradicsom
Hús Párizsi
Hús Füstli
Hús Szalámi
Hús Sonka
Tejtermék Kefír
Tejtermék Tej
Tejtermék Sajt
Gondolom valami hasonlód van neked is. Csinálsz ebből egy pivot táblát, vagy mit. Oszlopnak behúzod az A és B oszlopokat.
Ezután egy új munkalapon vizsgálni fogod magát a táblát.
Gyümölcs Alma
Gyümölcs Banán
Barack
Körte
Szilva
Gyümölcs Összesen
Hús Füstli
Párizsi
Sonka
Szalámi
Hús Összesen
Tejtermék Kefír
Sajt
Tej
Tejtermék Összesen
Zöldség Paprika
Paradicsom
Répa
Retek
Zöldség Összesen
Végösszeg
Nálam egyébként így néz ki.
Szóval viszgálni fogod a tábla 1. oszlopát. Ha szerepel benne az összesen szó, akkor azt levágod egy függvénnyel. Ha üres az oszlop, akkor pedig megjeleníted a 2. oszlop elemét.
Szerk.: hát ez geci bénán néz így ki.
[Szerkesztve] -
-
Gh0sT
addikt
Itt egy megoldás:
[link]
Az A oszlopban vannak az alapadatok, ezeket átmásoltam a B-be és sorba rendeztem őket. Ezután a B2 cellára álltam és a Formátum menü Feltételes formázás parancsát használtam. Két képletet használtam a feltételes formázásnál:
=B2=B3
=B2=B1
A feltétel teljesülésére megváltoztattam a betűvastagságot és piros színt kapott a cella, ebből látszik, hogy az adott adat többször szerepel.
Ezután a B2 cellán állva nyomtam egy másolást, majd kijelöltem a B3-B1001 tartományt, és szerkesztés menü, irányított beillesztés, formátumot.
Ennyi. -
Gh0sT
addikt
Hopp, ilyent is lehet?!
Nekem most az a kínom, hogy van egy ACCESS adatbázisom, ami egyelőre szép űrlapos és könnyen kezelhető. Ergo a célnak megfelel, viszont nagy okosan kitaláltam, hogy mi lenne, ha az egész ACCESS független lenne.
Csinálnék Visual Basicben ugyanolyan felületeket, mint az ACCESS űrlapok (viszont ezerszer szebb lenne és jobban lehetne konfigurálni) és ezzel a külön kis VB programmal olvasnám ki egy már lecsupaszított adatbázisból (akár ACCESS) az adatokat, majd írnám őket vissza.
A problémát nehezíti, hogy sem a VB-hez, sem az SQL-hez nem értek (MÉG). Egyáltalán abban sem vagyok biztos, hogy jó úton járok. Ez így kivitelezhető?
Tehát lenne egy külön program, ami egy központi adatbázissal SQL lekéréseken keresztül kommunikálna oda-vissza?!
Kezdem úgy érezni, hogy nagy fába vágtam a fejszét. -
Gh0sT
addikt
FKERES lesz az is. Küldd át nyugodtan a táblát, megcsinálom!
Egyébként az is megoldható, hogy összesítve legyen az összes 51-55 számla az 5-ös számlaosztályon belül és még maga az 5-ös is meglegyen.
Szerk.: viszont SQL-t mennyire vágod, mert abban meg nekem kellene némi segítség?!
[Szerkesztve] -
Gh0sT
addikt
Nem, ezzel gond van... Ezzel az a gáz, hogy ha bárhova beírok valamit, akkor az egész tartomány sárga lesz, nem csak az adott mező.
Szerk.:
A lényeg: az A1-A200 tartomány egyes celláit külön kellene kezelni. Vizsgálni kellene, hogy melyikben van érték, és ha van benne, akkor sárga lesz az adott cella. Ezért is gondoltam valamilyen ciklusra.
[Szerkesztve] -
Gh0sT
addikt
Szóval: van az alábbi kód:
If Range(''A1'').Value <>'''' Then
Range(''A1'').Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Else
End If
End Sub
Ez ugye azt csinálja, hogy ha beírok valamit az A1 cellába, akkor sárga lesz a cella színe.
Hogyan terjesztem ezt ki A1-A200 cellatartományra? Valami FOR NEXT ciklusra gondoltam, csak nem tudom a helyes használatot.
N=1
For N=1 to 200
If Range(''A[N]'').Value <>'''' Then
Range(''A[N]'').Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Else
End If
Next N
End Sub
Nah, ez biztos nem jó, csak érzékeltettem, hogy mire gondoltam. -
#903
Gh0sT
addikt
parandroid
#901
Gh0sT
addikt
válasz
parandroid
#901
üzenetére
Sebaj, én sem értek a makrókhoz, ez is csak véletlenül jött össze...
lapa: ha a feltételt mondjuk az A1-A200 cellatartományra szeretném kiterjeszteni, akkor hogyan módosul a képlet? Amit írtam, az egy cellára szép és jó, de tartományra be kéne gépelni 200-szor. -
#899
Gh0sT
addikt
parandroid
#897
Gh0sT
addikt
válasz
parandroid
#897
üzenetére
Egy példa makróval:
If Range(''a1'').Value <>'''' Then
Range(''a1'').Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3
Selection.Font.Bold = True
Else
End If
End Sub -
Gh0sT
addikt
Az a baj, hogy itthon nincs meg, de holnap el tudom küldeni.
Igen, van külön tulajdonsága, de:
Adott ez a tábla, ahol az egyik munkalapon van egy ilyen cella, benne a checkbox. A cellába nem tudok írni, ha megpróbálom jön a szokásos ablakocska, hogy védve van, ellenben a checkbox működik.
Nosza feloldottam a lapvédelmet és megnéztem a tulajdonságait a cellának is és a checkboxnak is. Az egészben az volt a szép, hogy mindkettő védve volt...
Jól van mondom, ha így kell, akkor így csinálom. Fogtam magam és beszúrtam egy checkboxot egy üres cellába és levédtem mindkettőt. Mondanom sem kell, hogy nem működött. Próbáltam azt is, hogy a checkboxot nem zárolom. Semmi eredmény... Szóval meg vagyok lőve... -
Gh0sT
addikt
-
Gh0sT
addikt
Nyah... Lapvédelmet kellene feloldanom egy régi munkafüzetemben úgy, hogy elfelejtettem a jelszót. Az a baj, hogy a munkafüzet tele van olyan képletekkel és rejtett celákkal, amik meglehetősen fontosak lennének. Jobban mondva előnyömre válna, ha nem kellene ismét beképleteznem mindent...
Izé, van erre valami okos program? A próbálgatás kicsit sokáig tartana...
Van valami jobb megoldás?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
34 tartományt, majd Szerkesztés --> Irányított beillesztés --> Formátumot
Új hozzászólás Aktív témák
Fferi50- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- GYÁRI TÖLTŐK Macbook Magsafe 1 és 2 Budapest,/MPL/Foxpost
- HP EliteDesk 800 G2 SFF, i5-6500,8GB DDR4,128GB SSD, DVD, WIN11
- HP ZBook Studio G8 i7 32GB RAM 1TB SSD RTX A3000/Garancia
- BESZÁMÍTÁS! ASRock H510M i5 11400F 16GB DDR4 512GB SSD GTX 1660 Super 6GB Kolink Rocket Heavy 450W
- Telenor 5G Indoor WiFi Router (FA7550) + töltő (ELKELTek)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest