-
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
-
-
wjani
tag
válasz
Amilo78
#17977
üzenetére
Szia!
Én az FKERES függvényt használnám. A lényege, hogy a 10000 sorosban elhelyezel egy FKERES függvényt, amiben megadod az első helyen, hogy mit keresel. Itt a cikkszám lesz, a második a tartomány, ahol keresni kell a cikket. Itt figyelj arra, hogy benn elegyen az az oszlop is, amit majd el akarsz helyezni a 10000-esben. A következő beviteli mező, itt az 5000-esből a cikkszámtól számított x-ik mező számát kell megadni, ahol az érték van. Az utolsóba én nullát "0" szoktam írni, akkor a nem talált mezőkbe beírja, hogy hiámyzik.
Üdv.
Wjani -
wjani
tag
Sziasztok!
Most egy olyan kérdéssel fordulnék hozzátok, hogy a prn kiterjesztésre történő mentésnél az üzenetet miként tudnám kikapcsolni?
A felhasználó által elkészített táblázatot szóközzel tagolt formátumba kell lementeni, de 2-szer is rákérdez a mentésre. Ezeket kellene valahogy letiltani. Mentés az szükséges, csak az üzenet nem kellene.Üdv.
Wjani
-
#17674
wjani
tag
m.zmrzlina
#17655
wjani
tag
válasz
m.zmrzlina
#17655
üzenetére
Szia!
Létezik egy olyan makró utasítás ami az ActiveWorkbook.Path nevet viseli.
Ezzel a saját mappájában tudsz hivatkozni, vagy ehhez a mappához tudod viszonyítani.Üdv.
Wjani
-
wjani
tag
válasz
alfa20
#17656
üzenetére
Szia!
Én is így kezdtem. Aztán következett a sok-sok súgó, meg a sok-sok apró kis program összerakása.
Tudod ezután jön meg az ember étvágya. Ha már ezt és ezt megtudtam csinálni, akkor jó enne még ez is, így szép lassan az agy rááll az excel makró készítésére.Én az excel 5 makrózással kezdtem. Az egy elég vastag fekete könyv. De mióta lézetik a barátunk. (Google), azóta nem biztos, hogy szükséges a könyv.
A másik dolog, hogy apránként kell haladni. Mindig egy kicsit tanulj meg és azt gyakorold. Aztán próbálj kitalálni valami egyszerű kis programot, amit megtudnál csinálni excelben. Stb.Üdv.
Wjani -
wjani
tag
válasz
paatrick
#17645
üzenetére
Szia!
Lehet, hogy most hülyeség, amit írok neked, de a képen is ott látható a csökkenő és növekvő szöveg.
Ha a keresett adat nagyobb, akkor csak meg kell nyomni a csökkenő módot és akkor közelebb kerül a láthatósági határhoz. A 2007 és a 2010-ben már keresési lehetőség is van.Üdv.
Wjani -
-
wjani
tag
Sziasztok!
Egy elég összetett dolgot szeretnék, de nem találtam a google-ba eddig semmit erről.
A lényeg, hogy egy inputbox-ot szeretnék, de nem beíratni szeretnék szöveget, hanem egy listából kellene választani a felhasználónak.A dolog lényege, hogy az A oldalon a felhasználó beállít jó pár dolgot, köztük olyat is, ahol akkor éppen azt választja, hogy nem igényel. Majd megy a következő B oldalra. Itt a sorokban nyomógombokkal lehet válogatni. Ha odaér ahhoz a tételsorhoz, aminél az előző oldalon azt jelezte, hogy nem igényel, akkor nem szeretném visszaugratni az előző oldalra, hanem inkább egy üzenetet küldök, hogy sajna a nem igénylést választotta, de itt lehetősége lenne ezt módosítani.
Na itt lenne egy olyan felugró üzenetablak, amiben listából választhatna ki pár dolgot.Ebben szeretném a segítségeteket kérni.
Problémás lenne, ha számokat kérek be tőle, de ha nincs más, akkor ezzel kell és az INPUTBOX-val.Üdv.
SOS
Wjani
-
wjani
tag
Szia!
Első kérdés.
Makró engedélyezve van?
Második kérdés.
A makróban direkt hivatkozást adtál a másik fájl megnyitásához?
Én nemrég dolgoztam egy olyan excel-en, ahol a táblázat adataiból 255 karakternél hosszabb sorú txt állományt kellett előállítani. Kutakodtam a neten és találtam egy olyan lehetőséget, ahol lekérdezheted, hogy hol helyezkedik el az excel fájlod és utána pedig ez alapján már ha azonos mappában vannak a fájlok, akkor már csak meg kell hívni a másik excelt.Üdv.
Wjani
-
wjani
tag
Sziasztok!
Cuci3 megoldása is jó dolog, de itt a függvényt folyamatosan kell másolni a cellákba, addig, amíg a függőleges oszlopba el nem fogy a sor.
Én a makróval azért adtam ciklust, hogy ne kelljen meghatározni az egy oszlopos adatok utolsó sorát.
De látom mennyire gyorsan léptünk, hogy segítséget nyújtsunk Core1113-nak.
Üdv
Wjani -
wjani
tag
válasz
core1113
#5034
üzenetére
Erre azt tudom ajánlani, hogy a makróban kell megadni, hogy melyik sor melyik munkalap fülre ugorjon.
Az egyben lévő adatoknál azért kell lennie olyan oszlopnak, ahol ezt össze lehet vetni (megyék neve), vagy pedig egy külön munkalapon az irányítószámok és mellette, a megye neve.
Így átemelhető.Üdv
Wjani -
wjani
tag
válasz
core1113
#5035
üzenetére
Szia itt a kód:
Sub átemelés()
'
' átemelés Makró
'
'=========================================================================================
'Ez a makró egy adott oldal első oszlopának adatait emeli át egy mások munkalapra úgy, hogy
'az első oszlop eslő értéke az első oszlopba, az első oszlop második sorának értéke a
'a második oszlopba, az első oszlop harmadik értéke a harmadik oszlopba kerül.
'
'A zárójelben Munka1 és Munka2 értékeket cseréld le a te munkalapjaid nevére, de pontosan
'Készítette: Weisz János, wjani@freemail.hu
'=========================================================================================
'Első és második munkafüzet változóinak felvétele,
Dim i, j As Variant
'A sor változók megadása
Dim s, o, m, n As Integer
'A sor kezdő értékeinek megadása
s = 1
o = 1
m = 1
n = 1
' Egy ciklus ami addig megy, amíg az első munkalapon az első üres sort nem talál
Do
' Az első érték felvétele a változóba
i = Worksheets("Munka1").Cells(s, o).Value
' Ez a ciklus második oldalon fogja az adatokat átadni
Do
'Az első érték felvétele a változóba
j = Worksheets("Munka2").Cells(m, n).Value
'Ha az első cella értéke üres, tegye bele az értékeket a megadott cellákba
If j = Empty Then
'első cella értéke legyen egyenlő az első cella értékével
Worksheets("Munka2").Cells(m, n).Value = Worksheets("Munka1").Cells(s, o).Value
'második cella értéke legyen egyenlő a második sor első cellájának értékével
Worksheets("Munka2").Cells(m, n + 1).Value = Worksheets("Munka1").Cells(s + 1, o).Value
'harmadik cella értéke legyen egyenlő a harmadik sor első cewllájának értékével.
Worksheets("Munka2").Cells(m, n + 2).Value = Worksheets("Munka1").Cells(s + 2, o).Value
'lépjen ki a ciklusból
Exit Do
'Ha a cella értéke nem üres
Else
'A második lap első oszlopában ugorjon a következő sorba
m = m + 1
'Feltétel vége
End If
' Addig fusson a ciklus, amíg a második lap első oszlopának a sorában üres nem lesz a cella
Loop Until j = Empty
'Első munkalap első oszlopában ugorjon 3 cellával lejebb
s = s + 3
Loop Until i = Empty
'Üzenet ha a feladatot végrehajtotta
MsgBox "Az adatok átemelése megtörtént", vbInformation, "Üzenet a feladat végrehajtásáról!"
End SubEz tedd bele abba a makróba, amit létrehozól.
A makró elején leírtam, hogy mit csinál, minden részre odaírtam a magyarázót.
Ha valamit nem megy, vagy nem érted jelezz.
ÜdvWjani
-
wjani
tag
válasz
core1113
#5029
üzenetére
Szia!
Ezeket, gondolom egy gombnyomásra akarod indítani, ugye?
Az elsőnél, még megoldható valami hivatkozás képletekkel, de a törlés, szerintem már nem megy, így lehetséges, hogy inkább az egészet egy makróval kell megcsinálni.
A másodiknál az a kérdés, hogy neked annyi munkalap fül lesz, amennyi irányítószám van, vagy csoportosítod. Ezt pedig csak makróval lehetne megoldani.Üdv
Wjani -
#5007
wjani
tag
toth_janika
#5006
wjani
tag
válasz
toth_janika
#5006
üzenetére
Szia!
Szerintem a SZUMHA függvényt használd.
A mezőbe csak azokat adja össze, ahol a feltételnek megfelel. A feltétel pedig ebben az esetben a "Mérnökök" szó.
Üdv
Wjani -
wjani
tag
válasz
Musicbox
#4951
üzenetére
Szia Musicbox!
Az alábbi képen megpróbáltam szemléltetni a szorzást.
A kép felső részében látod magát a képletet, ezt kell csak egymás után végrehajtani.
Ahogy már korábban írták, kijelölöd az első cellát és a jobb sarkába viszed az egeret, majd amikor egy fekete kereszt lesz belőle, akkor az egér bal gombját lenyomva tartva lefelé lehúzod addig a sorig, ameddig a számítás kell.
Ezután az oszlopot kijelölőd, jobb egér klikk és másolás, majd ráállsz a "C" oszlopra és a jobb egér klikkre megjelenik az irányított beillesztés. Itt kiválasztod a másodikat, ha jól emlékszem, ez az "Érték".
Majd visszamész a "D" oszlopra és ha kijelölted lenyomod a DEL-t és kitörlődik.Ennyi
Ha gond van nyugodtan jelezz.
Üdv
Wjani. -
Új hozzászólás Aktív témák
Hirdetés
- Le Mans Ultimate
- Debrecen és környéke adok-veszek-beszélgetek
- Kerékpárosok, bringások ide!
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- AMD vs. INTEL vs. NVIDIA
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Építő/felújító topik
- Autós topik
- Windows 11
- Apple asztali gépek
- További aktív témák...
- Antivírus szoftverek, VPN
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eladó Steam kulcsok kedvező áron!
- Eredeti, új Lenovo 330W töltők - ADL330SDC3A
- ÁRGARANCIA! Épített KomPhone Intel i9 14900KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- AKCIÓ! MSI B550 R7 3700X 16GB DDR4 512GB SSD RTX 3060Ti 8GB Rampage SHIVA Seasonic 650W
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5060Ti 8GB GAMER PC termékbeszámítással
- AKCIÓ! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2070 8GB GDDR6 Rampage Shiva Zalman 500W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest