- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Parci: Milyen mosógépet vegyek?
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- bambano: Bambanő háza tája
- antikomcsi: Ázsia Expressz 5
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Samsung 980 PRO 1TB M.2 (MZ-V8P1T0BW) vs Samsung 990 PRO 2TB M.2 (MZ-V9P2T0BW)
-
LOGOUT
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
-
#7900
Fire/SOUL/CD
félisten
kenesei1982
#7899
válasz
kenesei1982
#7899
üzenetére
Hali!
1. Ha Te hozol létre egy üres dokumentumot, abban működik a cellaegyesítés?
2. Ha a fenti kérdésre igen a válasz, akkor nem lehet, hogy a megnyitott munkafüzet írásvédett és/vagy megosztott? (Írni tudsz egy cellába például?)
3. Milyen verziójú az Excel? (Ez csak engem érdekel, a hibához nincs köze)Fire.
-
#7899
kenesei1982
aktív tag
hi,
van egy excel tábla, amiben van pár egyesített cella is. Kéne egyesítenem pár cellát, de ha kijelölöm a cellákat, akkor az egyesítés gomb szürke marad. Nem tudom használni. A munkatársaimnak rámlik vmi beállítás, de nekik sem ugrik be.
vki?
-
#7898
Oly
őstag
Fire/SOUL/CD
#7897
Oly
őstag
válasz
Fire/SOUL/CD
#7897
üzenetére
Thx!
Múkodik!
-
#7897
Fire/SOUL/CD
félisten
Oly
#7896
Hali!
Akkor a példádnál maradva (2. sorban vannak az adatok)
Private Sub CommandButton1_Click()
Dim My_Outlook As Object
Dim My_Mail As Object
Set My_Outlook = CreateObject("Outlook.Application")
Set My_Mail = My_Outlook.CreateItem(olMailItem)
With My_Mail
.To = Range("A2")
.Subject = Range("B2")
.Body = Range("C2") & vbLf & vbLf & Range("D2") & vbLf & vbLf & Range("E2")
.Display
End With
Set My_Mail = Nothing
Set My_Outlook = Nothing
End SubFire.
-
#7895
Delila_1
veterán
foregister
#7894
Delila_1
veterán
válasz
foregister
#7894
üzenetére
Szívesen.
-
Delila_1
veterán
Készítesz egy kimutatást, amibe egyetlen oszlopot viszel be, a vízállást. A SOR-, és az ADAT mezőbe is ezt húzod be. Az adatok darabként jelenjenek meg.
Most rákattintasz a kimutatásban a Vízállás címsorra (már ha így hívják a címsorodat). Adatok/Tagolás és részletek/Csoportba foglalás.
A kép szerint kitöltöd, a 'Mi szerint' értékét a kívánalmaknak megfelelően változtatva.
-
#7891
Delila_1
veterán
foregister
#7890
Delila_1
veterán
válasz
foregister
#7890
üzenetére
Ha jól értem, az a probléma, hogy ha van 3 db 10-es eredményed, bár a NAGY függvény 3-szor találja meg, a HOL.VAN minden esetben az elsőt adja közülük.
Ezen úgy segíthetsz, hogy az eredményeket tartalmazó oszlop értékeihez egy segédoszlopban hozzáadod a SOR()-nak egy igen kis számú szorzatát (pl. =H2+SOR()*0,0001), ami nem változtatja meg a szám egész értékét. A NAGY és a HOL.VAN függvényekkel ebben az új oszlopban kerestetsz, így pontos találatot érhetsz el.
Az INDEX függvénybem az INT(HOL.VAN(...)) szerepeljen.
Erre a módszerre találsz egy példát a #7821-ben.
-
#7890
foregister
tag
foregister
tag
Sziasztok!
Hosszú leszek és lehet kicsit bonyolultan fogalmazom - készüljetek fel.
Excel 2007 -
Probléma: Index, Hol.van, nagy függvények együtt hazsnálva van ahol ismétlődik az eredmény.Részletesen:
Történt az, hogy van sok oszlopom, még több sorral. Ezen a munkalapon csak adatok és segédcellák vannak és ezeket az adatokat rendszerezi egy külön munkalap, de nem is ez a lényeg, az eddig megfelelően működik.Sikerességet szeretnék vizsgálni, pontosan a legjobb 10-et külön, különböző feltételek szerint, pl.: termék neveit rendszerezze a 10 legtöbb látogatás, 10 legtöbb kattintás és legtöbb 10 látogatás / kattintás aránya szerint. Magyarázat: Az adatokat külön-külön oszlopból nyeri ki, viszont mivel ezt a táblát frissítem az adatokkal copy-paste-tel, akkor ha megváltozna a legkérdező API mechanizmusa, még mindig egyszerűen, manuális frissíthetem az adatokat oszloponként, ezért elneveztem az első sorban ezeket az oszlopokat. Minden termék neve csak egyszer szerepel a táblázatban, illetve ha mégis feltűnne ugyanolyan nevű, úgy egy másik oszlopban található "al-név" tovább azonosítja őt + a lekérdezéskor (nevezzük eredménynek) további számadatokat kérek le, így biztos vagyok benne, hogy nem két különböző, de azonos adatú sorokat kérek le.
A probléma ott kezdődik, amikor a NAGY függvénnyel kikeresem sorrendben az x-edik kattintás / látogatás / kattintás-látogatás-arány egy idő után ismétlődik az adat, tehát pl. a 7. és a 8. helyen ugyanaz a nevű, alnevű és számú (4(!) további számadat, amik nagyon ritkán ismétlődhetnének és eléggé kicsi a valószínűsége) adat szerepel, holott a NAGY függvényen belül nem egyezik, a sorszám (tehát a 7 és 8). Próbáltam az adattáblát más adatokkal helyettesíteni, viszont akkor más helyen, de előjön szintén ugyanez az ismétlődős hiba (pl. 3. és a 4. valamint a 6. és a 7. helyezettnél). Persze az utána lévő adatok már sorrendben haladnak tovább és mindig csak két, egymás utáni helyezett szokott néha ismétlődni, nem tudom, hogy miért. Gyanakodtam először a látogatás-kattintás arány miatt (itt százalékosat az adatok az oszlopban), de olykor előjön a sima látogatás vagy a kattintás oszlopát vizsgálva is, tehát a hiba okára sem tudok rájönni.
Így néz ki a függvényem jelenleg a 7. és a 8. helyezettre (példának kedvéért):
=INDEX(H:H;HOL.VAN((NAGY(Z:Z;7));Z:Z;0))
=INDEX(H:H;HOL.VAN((NAGY(Z:Z;8));Z:Z;0))H= a termék oszlopa (illetve annak az oszlopnak a jelzése amilyen adatot kívánok h megjelenítsen az eredmény cellájában)
Z= látogatás / kattintás / látogatás-kattintás oszlopaTehát a fenti függvénnyel ismétlődnek az adatok és ahol H-t cserélem más oszlopra ott is teljesen megegyeznek az eredmény adatok - mintha az adatsor többször is szerepelne a tömbben, ahonnan ezeket kiolvassa - közben meg egyediek ezek az adatok és nem ismétlődnek - legalábbis ahogy már fentebb aláhúzva említettem, az adatsorok sehol sem egyeznek!
Remélem érhető a problémám és meg jobban remélem, hogy van rá megoldás
Köszi!-Foregi-
-
#7889
bandus
veterán
Fire/SOUL/CD
#7888
válasz
Fire/SOUL/CD
#7888
üzenetére
köszi, megpróbálom azzal, ha pedig nem megy, akkor küldenék egy mailt
-
#7888
Fire/SOUL/CD
félisten
bandus
#7887
Hali!
Első "hallásra" egy "sima" Részösszeggel megoldható...Semmi makró, vagy képlet, menüszalagról elérhető funkcióról van szó, nézz utána. Ha "nem bírsz vele" és a táblázat publikus, akkor el is küldheted a mail címemre.
(Ha mást nem is, legalább a táblázatot adatok nélkül, csak a felépítése/kinézete érdekel, illetve esetleg egy adatsor legyen kitöltve, hogy lássam "mi-merre hány lépés"
)Fire.
-
#7887
bandus
veterán
Fire/SOUL/CD
#7886
válasz
Fire/SOUL/CD
#7886
üzenetére
hogy konrkét legyen, egy tartamdiagramot akarok készíteni, vízállás adatokról. pl 2000-ben a duna maximális vízállása az adott állomásnál 643 centi volt,a minimális pedig 46. a közöttük lévő intervallumot szeretném felosztani 2-3-4 centinként (majd kiderül milyen pontosságú diagram kell), és így megnézni, hogy például hány napon esett a vízszint 46 és 50 centi közé, hány napon 50 és 54 közé, stb... (minden napról csak egy adatot használok). remélem ez isérthető így
-
#7886
Fire/SOUL/CD
félisten
bandus
#7885
-
sziasztok!
most eg yegyszerűbb kérdéssel fordulok hozzátok, aminek feltevése csak szegényes excel tudásomat tükrözi.
szóval adott egy nagy adatsor, többezer adat, csak számok. van egy minimum és egy maximum érték. az ezek közé eső intervallumot pedig felosztom soksok kis rész-intervallumra. kellene nekem egy olyan függvény, amely megszámolja, hogy ezekbe az egyes rész-intervallumokba pontosan hány érték esik.
remélem sikerült világosan leírnom, és köszi előre is
-
#7884
Fecogame
veterán
Fire/SOUL/CD
#7883
válasz
Fire/SOUL/CD
#7883
üzenetére
Kösz, így már egyértelmű
-
#7883
Fire/SOUL/CD
félisten
Fecogame
#7882
válasz
Fecogame
#7882
üzenetére
Hali!
Pedig ennek működnie kell: [Video by FSCD]
Fire.
UI: ha esetleg nem tudnád kapásból lejátszani, akkor ezt a codec-et kell telepíteni: TSCC
-
#7882
Fecogame
veterán
Fire/SOUL/CD
#7880
válasz
Fire/SOUL/CD
#7880
üzenetére
Nem jött össze
Ha újat csinálok, és beírok adatokat véletlenszerűen, csak két pontot jelöl csíkok helyett...
-
#7881
Fire/SOUL/CD
félisten
Sickboy25
#7878
válasz
Sickboy25
#7878
üzenetére
Hali!
Van amikor én nézek be valamit, akkor Delila_1 kijavít, ha Ő néz el valamit, akkor Én javítom ki Őt. Ha Ő azt állítja, hogy nála megy, nálam meg nem, akkor én kutakodok a megoldás után, ha meg én állítom, hogy valami megy és nála nem, akkor meg Ő kutakodik a megoldás után...
Szóval "nálunk" ez teljesen természetes, megszokott jelenség, de semmi estre sem konfliktus.
Fire.
-
#7880
Fire/SOUL/CD
félisten
Fecogame
#7879
válasz
Fecogame
#7879
üzenetére
Hali!
A példa kedvéért
A1 : A20 -> Adatok (Pénznemre formázva)
B1 : B20 -> Dátumok (Dátumra formázva)1. A1 : A20 kijelöl
2. Beszúrás fül/Diagram csoport/Pont lenyíló/Pont görbített vonalakkal
3. X tengelyen (középső, ahogy említetted) jobb egér/Adatok kijelölése
4. Sorozatok1-en katt majd Eltávolítás gomb
5. Hozzáadás gombon katt, majd beállítani, ahogy a képen: [link]
6. Ha mindent jól csináltál, akkor kész is[link]Fire.
-
#7879
Fecogame
veterán
Fire/SOUL/CD
#7865
válasz
Fire/SOUL/CD
#7865
üzenetére
Itt a kép:
A középső tengelyre szeretném, ahol most a 0-2-4-6-8-10 sorozat van.
-
#7877
Delila_1
veterán
Fire/SOUL/CD
#7876
Delila_1
veterán
válasz
Fire/SOUL/CD
#7876
üzenetére
-
#7876
Fire/SOUL/CD
félisten
Delila_1
#7875
válasz
Delila_1
#7875
üzenetére
Hali!
A 2007-ben jól megy, a 2003-ban nem ment jól. Amit te készítesz kódot, azt 2003-ban (elsősorban) szoktam megnézni, mert tudom, hogy 2003-at használsz alapvetően. A korábbi 2007-es képnél meg én voltam a ludas, nem azért mert az adoptálás nem volt jó, hanem W7 alatt a startmenüből úgy nyitottam meg az excel 2007-et, hogy az egy látszólag üres füzetet egyből megnyitott(nem egy üressel indult, ahogy alapban szokása, hanem egy kinézetre üres munkafüzetet töltött egyből be). Mivel üres volt ezért beletettem a kódodat és nem működött jól, azért nem, mert abban a munkafüzetben volt makró, ami az A oszlopban színezgetett és mivel a kedvenc színem(ha úgy tetszik megszokás) az a kék, amit használni szoktam, nem tűnt fel(akkor) hogy a makró is színezget a feltételes formázás mellett...
De rájöttem, mert "Okos, ügyes a legkisebb ugrifüles"...
Szóval 2007-ben jól működik a kódod, 2003-ban meg "csak" Sp3 után...
Fire.
-
#7875
Delila_1
veterán
Fire/SOUL/CD
#7874
Delila_1
veterán
válasz
Fire/SOUL/CD
#7874
üzenetére
Ez azt jelenti, hogy semmiképp sem szabad feltenni a 2010-et, még a 2007-en is van mit javítani.
-
#7874
Fire/SOUL/CD
félisten
Delila_1
#7873
válasz
Delila_1
#7873
üzenetére
Hali!
Köszönöm, de nem az volt a gond.
Felpakoltam az SP3-at neki, most kifogástalanul működik a "kódod"...
Én szoktam hangoztatni mindenhol, hogy milyen fontos, hogy a frissítések fent legyenek(ami nem csak az excel-t érinti, hanem az egész Office csomagot), erre én feledkezem el róla.
Fire.
-
#7873
Delila_1
veterán
Fire/SOUL/CD
#7872
Delila_1
veterán
válasz
Fire/SOUL/CD
#7872
üzenetére
Van egy sejtésem. A csatolt képről úgy látom, hogy a felt. formázásba bevetted az R1-et is, a képletek pedig R2-től szólnak. Az R1 üresnek látszik, a darab2 függvény a címsorral is számol. Ez okozhat esetleg hibát.
Még egy hibalehetőség, bár erre biztosan figyelsz: nem fordulhat elő, hogy az R oszlop lentebbi részén maradtak adatok egy előző feltöltésből?
-
#7872
Fire/SOUL/CD
félisten
Delila_1
#7871
válasz
Delila_1
#7871
üzenetére
Hali!
Áttettem/másoltam, ki tudja hány módon új füzetet nyitottam, nincs változás.
Most még annyit kipróbálok, hogy felpakolom az utolsó szervízcsomagot a 2003-nak, mert jelenleg virtuális gép (XP) alatt fut, és nincs semmi frissítés telepítve.
(Amikor vettem, akkor még SP nélküli változatban lehetett kapni)Fire.
-
#7871
Delila_1
veterán
Fire/SOUL/CD
#7870
Delila_1
veterán
válasz
Fire/SOUL/CD
#7870
üzenetére
Tedd át az egészet egy másik lapra. Tudod, előfordulnak hibás lapok az Excelbe.
Az R2-be egy jóval nagyobb számot írtam, mint a többi, és hibátlanul működik. -
#7870
Fire/SOUL/CD
félisten
Delila_1
#7868
válasz
Delila_1
#7868
üzenetére
Hali!
Oké, hasogassuk a szőrt...
1. igen, valóban a belső események gyorsabbak, mint a makró, de akkor így kellett volna fogalmazni
![;]](//cdn.rios.hu/dl/s/v1.gif)
"Továbbra is más megoldást javaslok, nem a Fire által megadott makróst, mert gyorsabban működik."2. Megcsináltam 2003-ban, semmit nem adoptáltam, az R oszlopban vannak az adatok
nem jól működik Magyarul az R2-be írj egy nagy számot...3. Időközben megvilágosodtam...
Fire.
-
aclandiae
senior tag
Szeretnék írni egy képletet az Excel-ben, amely a bélyegeim válogatásánál lenne hasznos.
Az elképzelésem szerint a borítékok kapnak egy-egy arab számot, ez lenne egy oszlop.
A második oszlopban írom a katalógus-számokat.
Példának:
1 2233
2234
2566
45232 3318
2212
2256A -, Nos a képlet abban segítene, hogy amikor a második oszlopban növekvő sorrendbe rendezem a számokat, akkor írja ki maga mellé a boríték számát, azaz az első oszlopban lévő számot.
B -, Egy másik képlet is jól jönne, hogy ne kelljen mindig az első oszlopba a borítékszámot beírni, hanem magától töltse ki, de ne változzon meg, ha a 2. oszlop átrendeződik. -
#7868
Delila_1
veterán
Fire/SOUL/CD
#7867
Delila_1
veterán
válasz
Fire/SOUL/CD
#7867
üzenetére
1. Az Excel belső eseményeire írt gépi kódú reakció mindig gyorsabb, mint a VB-s makró.
2. Valami csak nem jó az adoptálásnál, nálam kiválóan működik. :)
3. A nagy(r$2:r$500;4) kisebb, mint a nagy(r$2:r$500;3), ezért írtam >nagy(r$2:r$500;4), ill. >nagy(r$2:r$500;6) képleteket. -
#7867
Fire/SOUL/CD
félisten
Delila_1
#7866
válasz
Delila_1
#7866
üzenetére
Hali!
1. A feltételes formázás is az onchange eseményt használja (belső esemény)
2. A feltételes formázás valóban egyszerűbb lehet, de a megoldásod sajnos nem jól működik. Nálam így "működik" (és jól lett adoptálva)
3. Ha az a feladat, hogy a 3 (vagy 5) legnagyobbat színezd ki, akkor nem értem, hogy a NAGY függvénynél (ami az N-edik legnagyobbat adja eredményül), miért a 4. és 6. legnagyobbat kéred le...
Fire.
-
Delila_1
veterán
válasz
Sickboy25
#7864
üzenetére
Valóban félreértettem az eredeti kérdést.
Minden feladatot több módon lehet megoldani. Továbbra is más megoldást javaslok, nem a Fire által megadott makróst, ami akkor működik, mikor az R oszlopba beírsz egy adatot.
Az elképzelésem szerint ki kell jelöldöd az R2:R500 tartományt. Ha több adatra számítasz, a tartomány is legyen nagyobb, és a képleteket ennek megfelelően módosítsd. A tartomány első tagját azért a 2. sortól adtam meg, mert feltételezésem szerint van címsorod. A feltételes formázás első képlete:
=ÉS(DARAB2(R$2:R$500)<=81;R2>NAGY(R$2:R$500;4)), és itt megadod a formátumot,
a másodiké: =ÉS(DARAB2(R$2:R$500)>81;R2>NAGY(R$2:R$500;6)). Itt ugyanazt a formátumot add meg.
A 80, vagy annál kevesebb csapat indulása esetén a 3 legnagyobb fogást színezi ki, több indulónál az 5 topot.
A két képletben a <=81, ill. a >81 szintén a címsor miatt nem 80. -
#7865
Fire/SOUL/CD
félisten
Fecogame
#7863
válasz
Fecogame
#7863
üzenetére
Hali!
ilyesmire gondolsz?
Egy képet betehetnél, ahol akár nyilakkal megjelölöd, hogy hol és mit szeretnél megjeleníteni a grafikonodon. Ha kivitelezhető, akkor így tudnánk megoldással szolgálni.Fire.
-
#7864
Sickboy25
addikt
Fire/SOUL/CD
#7862
Sickboy25
addikt
válasz
Fire/SOUL/CD
#7862
üzenetére
köszönöm
este kipróbálom...
-
#7862
Fire/SOUL/CD
félisten
Sickboy25
#7861
válasz
Sickboy25
#7861
üzenetére
Hali!
Akkor ami fontos ilyen esetben: Ha cellaegyesítést használsz, akkor az adatsorod utolsó sora, mindig az, mint amikor nincs cellaegyesítés.
Te a kódban R2 : R222 tartományt adtál meg(mert az Excel ilyenkor ezt jelzi ki, ha ráállsz az utolsó egyesített cellára), de ez nem igaz, mert az utolsó cella az a 225-ös...(Be is írtam a makróba) Remélem így érthető...Épp ezért nem kellett a makrón módosítani(legalábbis ebből a szempontból), ha erre odafigyelsz, akkor kifogástalanul működik.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyFxs As WorksheetFunction
Set MyFxs = Application.WorksheetFunction
Dim MyRange As Range
Set MyRange = Range("R2:R225")
Dim Nth As Integer
Nth = 3
If Not Intersect(MyRange, Range(Target.Address)) Is Nothing Then
Application.ScreenUpdating = False
MyRange.Select
MyRange.Interior.ColorIndex = 0
For i = 1 To Nth
What = MyFxs.Large(MyRange, i)
For j = MyRange.Row To MyRange.Cells.Count
If Cells(j, MyRange.Column) = What Then
Cells(j, MyRange.Column).Select
Selection.Interior.ColorIndex = 37
End If
Next j
Next i
Range(Target.Address).Select
Application.ScreenUpdating = True
End If
End SubFire.
-
#7861
Sickboy25
addikt
Fire/SOUL/CD
#7860
Sickboy25
addikt
válasz
Fire/SOUL/CD
#7860
üzenetére
Oké bocsi a hibákért, legközelebb, majd ezekre is figyelek...
Azért láttam célszerűbbnek, ha elküldöm. Köszönöm még1x
-
#7860
Fire/SOUL/CD
félisten
Sickboy25
#7859
válasz
Sickboy25
#7859
üzenetére
Hali!
Egy kis 2003 és 2007 közti különbség, ezért szoktam (már nem 1x) mondani, hogy célszerű lenne leírni a tisztelt kérdezőknek, hogy mégis milyen verziójú (és némely esetben, milyen nyelvű) Excelt használ...
Na de sebaj, van más gond is...Na ezért meg célszerű képet is bedobni, mert akkor láttuk volna, hogy cellaegyesítést használsz az adataidnál...Módosítani kell a makrót ez miatt...
Fire.
-
#7859
Sickboy25
addikt
Fire/SOUL/CD
#7858
Sickboy25
addikt
válasz
Fire/SOUL/CD
#7858
üzenetére
Ment is, majd írd le mit rontottam el...
Köszönöm
Ui.: mindent megcsináltam amit írtál...
-
#7858
Fire/SOUL/CD
félisten
Sickboy25
#7857
-
#7857
Sickboy25
addikt
Fire/SOUL/CD
#7856
Sickboy25
addikt
válasz
Fire/SOUL/CD
#7856
üzenetére
bemásoltam, de valamiért nem színezi ki... Mit csináltam rosszul? Elküldjem a táblát megnézed?
-
#7856
Fire/SOUL/CD
félisten
Sickboy25
#7855
válasz
Sickboy25
#7855
üzenetére
Hali!
Ráállsz/kiválasztod azt a munkalapot, amelyiken az adatok vannak, nyomsz egy ALT + F11-et, bal oldalt fel lesz sorolva a munkalapok neve és épp azon fog állni, amelyik munkalapot kiválasztottad korábban, azon duplakatt, a megjelenő ablakba meg a teljes makrót bemásolod és futtatod. (A VBA editor menüsorán van egy zöld play gombra emlékeztető ikonocska, azzal futtatod)
Innentől, ha módosítasz valamit az adatok közt, akkor automatikusan lefut. A kódot úgy írtam meg, hogy csak akkor dolgozik, ha az adatok oszlopában módosítasz, ha máshol akkor nem, feleslegesen ne fusson le.
Fire.
-
#7855
Sickboy25
addikt
Fire/SOUL/CD
#7854
Sickboy25
addikt
válasz
Fire/SOUL/CD
#7854
üzenetére
akkor még egy kérdés ezt a makrót, hova kell beírnom, hogy működjön? Bocs a láma kérdésért, de ilyet még nem csináltam...
-
#7854
Fire/SOUL/CD
félisten
Sickboy25
#7853
válasz
Sickboy25
#7853
üzenetére
Hali!
Akkor mákom volt, mert a fenti makró épp ezt teszi.
A Set MyRange = Range("A1:A10") sorban beállítod, hogy hol vannak az adataid és meddig tartanak, az Nth = 5 változót meg annyira állítod, amennyire szükséged van (most az 5 legnagyobb értéket szinezi ki, pontosabban, ha van több egyforma érték is a legnagyobbak közt, akkor azt is) pl:
1
7->színezve
3->színezve
4->színezve
5->színezve
6->színezve
7->színezveA makró függőleges elhelyezkedésű (egy oszlopban vannak az adatok) adatokhoz készült!
Fire.
-
Sickboy25
addikt
sziasztok
Na ez egy horgászverseny táblázata lenne, amelyben két fős csapatok indulnak és az össz. fogásuk számít bele a versenybe. Ezeket már megcsináltam, hogy összegezze (ez ugye nem nehéz, még nekem is ment
) viszont mondjuk, ha indul 80-an csapat vagy több, akkor az össz. fogás súlyánál jó lenne, ha a 3 vagy 5 legtöbb súlyt valahogy kiemelné a táblázatból... Mondjuk ha ránézek, akkor egyből lássam vagy aki használja a jelenlegi állást...Remélem így már érthetőbb volt...
Köszönöm a segítségeteket...
-
#7852
Fire/SOUL/CD
félisten
Delila_1
#7851
válasz
Delila_1
#7851
üzenetére
Hali!
Hát én csak egy "kicsit" értelmeztem félre ezek szerint Sickboy25 első feladatát.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyFxs As WorksheetFunction
Set MyFxs = Application.WorksheetFunction
Dim MyRange As Range
Set MyRange = Range("A1:A10")
Dim Nth As Integer
Nth = 5
If Not Intersect(MyRange, Range(Target.Address)) Is Nothing Then
Application.ScreenUpdating = False
MyRange.Select
MyRange.Interior.ColorIndex = 0
For i = 1 To Nth
What = MyFxs.Large(MyRange, i)
For j = 1 To MyRange.Cells.Count
If MyRange.Cells(j, MyRange.Column) = What Then
MyRange.Cells(j, MyRange.Column).Select
Selection.Interior.ColorIndex = 37
End If
Next j
Next i
Range(Target.Address).Select
Application.ScreenUpdating = True
End If
End SubFire.
-
Delila_1
veterán
válasz
Sickboy25
#7850
üzenetére
1. Vegyük, hogy az A:C tartomány bizonyos sorait akarod színezni. Beírod az első színezendő sor számát pl. a H1-be, az utolsót az I1-be. Kijelölöd az A:C tarományt. Formátum -> Feltételes formázás. A képlet: =ÉS(SOR()>=$H$1;SOR()<=$I$1). Megadod a kedvenc formátumodat.
2. A lapvédelem előtt jelöld ki azokat az oszlopokat, amiket majd engedsz módosítani. Cellaformázás, Védelem fül, vedd ki a pipát a Zárolt elől. -
Sickboy25
addikt
sziasztok
Két kérdéssel fordulnék hozzátok (nektek ez gyerekjáték lesz):
Adott egy táblázat, ami kiszámolja adott cellák értékeit és ezzel kapcsolatban kérdezném, hogy:
1. X hely van, tudok valamiféle hivatkozást csinálni, hogy az x hely közül nekem az első 3 vagy 5 legnagyobb értéket megjelölje különböző színekkel? Ezek folyamatosan változó értékek... Vagy csináljak inkább egy diagrammot?
2. Szeretném jelszóval levédeni, de csak a kijelölt oszlopokat, a többi módosítható legyen. Ezt nem sikerült, mert állandóan levédi az egész munkafüzetet...
Köszi a segítséget!
-
Azura
csendes tag
Sziasztok
Írtam egy makrot és nem tudom, hogy miért vijjog, ha elindítom.
A Vlookup-ot emeli ki, hogy az a hiba oka.
Elvileg a sheet2-n létre van hozva egy lista (Márka). Ezt a listát meghivatkozom a sheet1-en az a1-a5 cellákban és azt szeretném, hogy ha az elem nincs benne a listában, akkor a cella szane legyen kék.Sub lista()
Cells.Interior.ColorIndex = 0
For i = 1 To 5
If IsError(VLookup(Cells(i, 1), Márka, 1, False)) = True Then
Cells(i, 1).Interior.Color = vbBlue
End If
Next
i = i + 1
End SubÚgy sikerült, hogy a B oszlopba beírtam a képletet (=ISERROR(VLOOKUP(A1;Márka;1;FALSE))) és akkor a következő makró működött:
Sub lista()
Cells.Interior.ColorIndex = 0
For i = 1 To 5
If Cells(i, 2) = True Then
Cells(i, 3).Interior.Color = vbBlue
End If
Next
i = i + 1
End SubElőre is köszi
-
#7848
A_ScHuLcZ
addikt
Fire/SOUL/CD
#7847
A_ScHuLcZ
addikt
válasz
Fire/SOUL/CD
#7847
üzenetére
Köszönöm a segítséget, a megoldásoddal rávilágítottál arra, hogy hol keressem a hibát, a feltételben megadott formátum volt a rossz, mivel a dátumozásnál egyénit használtak, így azt átírva oda már működik tökéletesen!
Még egyszer köszönöm a segítségedet!
-
#7847
Fire/SOUL/CD
félisten
A_ScHuLcZ
#7846
válasz
A_ScHuLcZ
#7846
üzenetére
Hali!
Ha ERRE gondolsz, akkor tedd ezt
1. A oszlop és B2 cella formázása Dátumra
2. E oszlop formázása Százalékra
3. F oszlop formázása Százalékra, majd jobbra igazítása
4. F1 cellába =HA(A1=$B$2;E1;SZÖVEG(0;"#0")), majd lemásolni ameddig szükséges.Remélem jól értettem a feladatot.
Fire.
-
-
A_ScHuLcZ
addikt
Függvénnyel kapcsolatban kérnék segítséget!
Nem én csináltam a táblázatot, csak nekem kellene kijavítani, hogy működjön rendesen. Röviden: 1 mező tárolja az aktuális dátumot, ez a B2.
Az A oszlopban találhatók napokra lebontva a dátumok, az E oszlopban a napi értékek %-ban. Eddig nincs is vele baj, viszont van egy F oszlopunk is, amelyben csak az aktuális dátumot tartalmazó sorban kell értéknek lennie (átmásolni az E-ben lévő értéket), az összes többi cellájának 0 kellene hogy legyen az értéke, és ezt nem hajlandó megcsinálni a HA függvény, kérdés hogy miért?=HA(SZÖVEG($B$2;"TT.MMMM JJJJ")=SZÖVEG($A14;"TT.MMMM JJJJ");E14;0)
ez most épp a 14. sor, de értelemszerűen az A és E mezők számai változnak.Ötletek?
Se 2003 se 2007 alatt nem akar működni, és állítólag ott ahonnan kaptuk (ott 2003 van) működik, de csak állítólag... szóval fene tudja.. -
-
#7843
bandus
veterán
Fire/SOUL/CD
#7842
válasz
Fire/SOUL/CD
#7842
üzenetére
bemásoltam, ahová kell, de egy expected end sub hibaüzenettel kidob
mod:
hatalmas programozói tudásommal megoldottam a dolgotmindössze az első sort keleltt kitörölnöm, és tökéletesen működik. köszönöm a segítséged
most kb. a tizedére csökkentetted az időt, amit a szakdolgozatomra kell szánnom -
#7842
Fire/SOUL/CD
félisten
bandus
#7841
Hali!
Igen, jó meglátás, minden 2. sort kell törölni, vagy ha úgy tetszik a páros sorokat.
Itt egy CommandButton-hoz tartozik a makró, és az A oszlop alapján határozza meg az utolsó használt sor indexét. Ennek abban az esetben nincs jelentősége, ha minden oszlopban ugyanannyi sor van használatban.Private Sub CommandButton1_Click()
Dim LastRow As Integer
Application.ScreenUpdating = False
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
If LastRow >= 2 Then
For i = 1 To LastRow \ 2
Rows(i + 1).EntireRow.Delete
Next i
Else: MsgBox ("Legalább 2 sort tartalmaznia kell az adott oszlopnak!")
End If
Application.ScreenUpdating = True
End SubFire.
UI: Vigyázz, mert nem lehet visszavonni a műveletet! Szóval először egy másik táblán teszteld...
-
sziasztok!
ismét hozzátok fordulok segítségért
kellene nekem egy olyan makro, ami képes arra, hogy egy hosszú (~1000 soros) oszlop minden második cellájából kitörli az adatot, majd ezután törli az excel táblából azokat a sorokat, ahol a megüresedett cellák vannak, és így kapok egy összefüggő adatsort köszönöm szépen előre is a segítséget
mod: jelen esetben ez a megoldás a páros sorokból töölné a cellát, majd a sort.
-
GBandeee
csendes tag
válasz
Delila_1
#7825
üzenetére
Szia Delila_1!
Nem, nem egy cellába szeretném írni a szöveget és a számot.
Összesen 2 oszlop és 5-6 sor (attól függően hogy hány gyümölcs van összesen).Tehát még egyszer a kérés, kérdés:
- Van egy SZÖVEGES oszlop (tartalma változó lehet) van benne alma, dió, körte, barack, szilva, stb...
A kérésem a következő: Írja ki, hogy hány alma, dió, barack, stb... van benne a következő formában:
dió 12
alma 5
körte 3
barack 2
szilva 1Lehetőleg amiből a legtöbb van az legyen legfelül és csökkenő sorrendben legyen alatta a többi.
Köszönöm!
-
Delila_1
veterán
Azt kell figyeltetni, aminek következtében a cella értéke felveszi a Bizonyos szót.
Pl. ha a B10 értéke akkor lesz Bizonyos, ha a C10-be beírsz egy 1-est, akkor a makró:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = 1 Then _
Rows(Target.Row).Interior.ColorIndex = 4
End SubEbben most két új érdekesség van. Ha a feltételhez (IF) nem tartozik hamis ág (Else), akkor egy sorba írhatod a feltételt, és azt, hogy mi történjen, ha ez teljesül, nem kell End If-fel lezárni.
A másik, hogy a hosszúra sikerült sorokat meg lehet törni úgy, hogy egy szóköz után egy alsó kötjelet teszünk, és folytatjuk a következő sorban az utasítást. Jobban áttekinthető lesz a makró, nem kell hozzá görgetni a képernyőt. A fordító program, ami a Visual Basic-ből gépi nyelvre ülteti át az utasításokat, hogy értelmezhető legyen a gép számára, soronként fordítja az utasításokat. Ezeket a megtört sorokat 1 sorként értelmezi, egyszerre ülteti át gépi kódba. Nagyobb programoknál észrevehető a gyorsabb futás. -
Delila_1
veterán
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value="Bizonyos" Then Rows(Target.Row).Interior.ColorIndex = 4
End SubUgyanez az oszlop megadásával együtt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value="Bizonyos" And Target.Column= 2 Then Rows(Target.Row).Interior.ColorIndex = 4
End Sub -
Delila_1
veterán
A laphoz kell rendelned a makrót (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres lapra másold be):
Private Sub Worksheet_Change(ByVal Target As Range)
Rows(Target.Row).Interior.ColorIndex = 4
End SubA fenti makró bármelyik cellába írt szövegnél zöldre festi a teljes sor hátterét. Ha azt akarod, hogy egy bizonyos oszlopba történt beírásra zöldítsen, akkor egy feltételhez kell rendelni a szín megadását.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Rows(Target.Row).Interior.ColorIndex = 4
End SubEz a makró csak akkor színez, ha a B (2.) oszlopba viszel be valamilyen értéket (szöveg, szám, dátum, logikai). A Target.Column értékével add meg a a megfelelő oszlopot.
-
mooncsy
csendes tag
Sziasztok!
Egy kis segítséget szeretnék kérni.
Open office excelben sikerült megcsinálnom a lenyíló cellát, 10 választási lehetőséggel.
Azt hogyan tudom megcsinálni, hogy ha a H oszlopban a kérdésekre kiválasztom a választ, akkor az adott válaszhoz tartozó értéket beírja a D oszlop megfelelő cellájába?
HA fügvénnyel próblkoztam, viszont csak az első értéket tudtam megcsinálni,amint a többit is beírtam nem működött.Előre is köszönöm a segítséget!!
M
-
glutamin
őstag
Sziasztok!
Bár eredetileg Word-hö kapcsolódik a kérdésem, de Excelben is gondolom hasonló a menete. Szóval:
Hogy tudom megoldani azt, hogy az általam kiválasztott eszköztár a word/excell következő indításakor is fent legyen. Kvázi elmenteném ezt az állapotot.
Elvileg ez az információ a normal.dot fájlban tárolódik, de gőzöm sincs h lehet ezt menteni.
-
Ceree
senior tag
Sziasztok!
Egy olyan problémám van, amit már napok óta nem tudok megoldani. Adott egy programból exportált excel tábla (elég nagy), amiben sajnos a számadatok szövegként vannak tárolva. Ezen oszlopok átalakítását makróval kell előkészítenem a további műveletekhez. Az oszlopok "1"-gyel való beszorzása hozza az eredményt, azonban ha ezt makróba rögzítem, egy bizonyos oszlop értékeit elrontja. Ebben az oszlopban 15,4929 ; 7,563 ; 18,8524 formátumban vannak a számok, amik egyébként %-okat jelentenek. A makró végrehajtása után eltűnnek a tizedesvesszők, sőt, vannak olyan cellák, amik formátuma nem változik meg (pl 6,25) (ilyenek a többi oszlopban is vannak, amiben van tizedesvessző). Hogy tudnám ezt megoldani? Az eljárás egyébként frankón megy, csak makróba rögzítve nem.
Előre is köszönöm a válaszokat:
Ceree -
GBandeee
csendes tag
válasz
Delila_1
#7821
üzenetére
Huuu, igazából ÉN nem értem, hogy mit írtál ezért megpróbálom még egyszer leírni érthetőbben.
Bocsánat! Tehát van két oszlopom:
A oszlop: Ebben vannak a gyümölcsök nevei
B oszlop: Ebben vannak a gyümölcsökhöz tartozó számokA feladat első részét, hogy a legnagyobb 25 számhoz tartozó gyümölcs nevét írja ki megoldottad, amit köszönök. (A G és H oszlopra szerintem nem volt szükség.)
Már csak annyit kellene tenni, hogy számszerűen írja ki, hogy a legnagyobb számú gyümölcsökből összesen mennyi van. Tehát szerintem az E oszlopba került szöveges adatokat összesíteni kellene egy külön helyen. (Ez ugye lehet akármi, mert, ha megváltoztatom a gyümölcsöket, és a mellettük lévő számot, akkor változik a végeredmény is, mint ahogy két példában le is írtam.)
Egy harmadik példa szerint (lehetőleg csökkenő sorrendben írja ki) így alakul a végeredmény:
Például, ha a szilvából van a legtöbb (9 legnagyobb számú), akkor ilyen sorrendben írja ki:
(két oszlop, öt sor)9 szilva
7 barack
6 alma
3 körte
0 dió(Tehát csak azt a 25-öt legnagyobb számot vizsgálja, ami már az előbb ki lett számolva.)
-
#7822
kenesei1982
aktív tag
Fire/SOUL/CD
#7819
válasz
Fire/SOUL/CD
#7819
üzenetére
és ezt hol találom office 2003 alatt?
meg ez a megoldás nem olyan szimpatikus. nem lehetne mégis kikapcsolni vhol az automata kovertálást? -
Delila_1
veterán
válasz
GBandeee
#7820
üzenetére
Nekem nem egészen tiszta, hogy mit szeretnél. Egy előző kérdésedből úgy vettem ki, hogy a 25 legnagyobb értékű gyümölcs neve mellé egyrészt a legnagyobb értékeket, másrészt a SZUMHA függvény eredményét. Vagyis ha az alma 2× is szerepel a 25 legnagyobb érték között (16 és 15 értékkel), akkor legyen alma 16, és alma 15, egy másik oszlopban pedig az alma mellett szerepeljen azoknak a számoknak az összege (B oszlop), amelyikek mellett az A oszlopban az alma szó található. Ha a fenti 16-on és 15-ön kívül az almának van még 3, 5, és 2 értéke is, akkor az utóbbi oszlopban 41 legyen az összeg.
A sorrend: A #7814-ben alma:16; körte:4, a mostaniban 14 alma; 6 barack szerepel. A változó igényeidnek megfelelően az egyes oszlopok sorrendjét felcserélheted, egyszerűen áthúzod azokat az új helyükre.
Akkor vegyük előlről a függvényeket: A és B marad, ahogy volt.
C1-> =B1+SOR()*0,0001
D1:D25 a sorszám
E1-> =NAGY(C:C;D1) ha ezt az oszlopot úgy formázod, hogy egész számokat mutasson, akkor valóban nincs szükség az INT függvényes oszlopra.
F1-> =INDIREKT("A"&HOL.VAN(E1;C:C;0))
Nem vagyok biztos benne, de azt hiszem, a következő oszlopban azt az értéket akarod kiíratni, ahányszor a legnagyobb 25-ben szerepel pl. az alma. Ennek a függvénye
G1-> =DARABTELI(F:F;F1)
Egy kicsit kicifrázva, hogy az első előfordulásnál 1, a másodiknál 2 legyen:
H1-> =DARABTELI(F$1:F1;F1) -
GBandeee
csendes tag
válasz
Delila_1
#7817
üzenetére
Nagyon köszönöm! Ismételten működik!
Viszont, ha a G és H oszlopot kitörlöm, akkor is tökéletesen működik, pedig direkt írtam egyforma számokat több helyre is és nem okozott problémát. Rendesen kiírta, hogy hány alma, szilva, stb van. Nem keverte össze. Lehet, hogy ahhoz valamilyen különleges esetre lenne szükség, amit nem tudok?
Mi szükség van a G és H oszlopokra?
Szóval lényeg, hogy működik!Most már csak egy utolsó kérés:
Számszerűen számolja össze, hogy hány alma, szilva stb... van összesen a kiválasztott legnagyobb 25 között.
Tehát így írja ki:
14 alma
4 barack
3 dió
2 körte
2 szilvaMég egyszer köszönöm!
-
#7819
Fire/SOUL/CD
félisten
kenesei1982
#7818
válasz
kenesei1982
#7818
üzenetére
-
#7818
kenesei1982
aktív tag
excelben ki tudom kapcsoni valahol, h automatikusan ne írja át dátummá a számokat a cellában?
van egy oszlop számokkal "," a tizedesjel, de át akarom írni mindet "."-ra, de amikor replace all-al átírja egy csomó dátummá válik, holott a cella formázásnál number van megadva. próáltam text-et is adni neki már, de akkor is átírja. -
Delila_1
veterán
Igazad van. Akkor kicsit összetettebb a feladat, több oszlop kell hozzá.
Az A és B marad a megnevezés, és a hozzá tartozó összeg.
C1-> =B1+SOR()*0,0001
D1:D25 -> 1-től 25-ig sorszám
E1-> =INDIREKT("A"&HOL.VAN(F1;C:C;0))
F1-> =NAGY(C:C;D1)
G1-> =INT(F1)
H1-> =SZUMHA(A:A;E1;B:B)
A C1-et kell lemásolni az eredeti adatok mellé, az E1:H1 tartományt pedig a 25. sorig. -
perfag
aktív tag
-
Delila_1
veterán
válasz
GBandeee
#7814
üzenetére
Nem írtad, melyik értéked melyik oszlopban található. Írom a saját elképzelésem szerint.
Az A oszlop tartalmazza a neveket (alma, körte), B-ben a hozzájuk tartozó összegek.
Hogy ne kelljen a 25 db NAGY függvénybe egyenként beírni a második paramétert, a C1:C25 tartományba beírtam 1-től 25-ig a számokat.
D1-be: =INDIREKT("A"&HOL.VAN(NAGY(B:B;C1);B:B;0))
E1-be: =NAGY(B:B;C1)
F1-be: =SZUMHA(D:D;D1;E:E)
A 3 képletet együtt lemásolod a 25. sorig. -
GBandeee
csendes tag
válasz
Delila_1
#7804
üzenetére
Delila_1 nagyon köszönöm a segítséget. Sikerült!
Szintén ezzel kapcsolatosan, hogyan lehet megvalósítani, hogy ne magát a legnagyobb számot írja ki, hanem a mellette lévő (hozzá tartozó szöveges részt).
Pl. Kiderül hogy a 404 a legnagyobb szám, a mellette lévő adat 'alma', akkor kiírja, hogy alma, stb...
Bonyolítva a helyzetet, meg is számolja, hogy hány 'alma', 'körte', stb... legnagyobb van az első 25 között, pl:
alma: 16
körte: 4
barack: 3
szilva: 1
dió: 1(Tehát összesen 25.)
Köszönöm!!!
-
#7813
Fire/SOUL/CD
félisten
Yaye
#7812
Hali!
Érdekes jelenség, ehhez kellene a munkafüzet (nyilván ha nem publikus tartalma van, akkor tárgytalan). Alapban ilyen nem fordulhatna elő(és nálam nincs is ilyen jelenség), tippem szerint valamelyik oszlopban vegyes formátum van, csak kinézetre "azonos"...
Amúgy ha újra formáztad volna pl az egész oszlopokat számra, dátumra, szövegre stb?
Fire.
-
Yaye
őstag
Na, azt hittem elég egyértelmű.
Van egy táblázatom, nevezzük első táblázatnak, aminek az oszlopainak a formátuma (szám, dátum, szöveg, általános stb.) szépen be vannak állítva. Van egy másik táblázatom (második táblázat), amiben mindenféle adat, számok, alfanumerikus dolgok vannak, de ennek a második táblázatnak minden cellája szöveg formátumú.
Ha simán a második táblázatból a cellákat az elsőbe átkopipésztelem, akkor értelemszerűen hozza a forráscellák formátumát is, és az első táblázatban beállított formátumaim fölülíródnak szövegre. Ezért speciális beillesztéssel csak az értéket másolom át. Ekkor az értékek bekerülnek ahogy kell, de a célcellák beállított formátuma megmarad. Ha beillesztés után megnézem a cellák formátumát, szépen látni hogy szám, dátum, satöbbi, ahogy eredetileg is volt. Ennek ellenére azonban a cellában az adatot úgy jeleníti meg minha szöveg volna, balra igazítva, ott is ahol az érték és a formátum egyaránt szám. Tehát a cella formátuma és annak bemutatása ellentmondásos. Az ellentmondást úgy lehetett feloldani hogy duplakattintással szerkesztésre beléptem a cellába, majd bármi változtatás nélkül ki, és akkor az igazítás a formátumnak megfelelővé vált. Ezt a rengeteg kattintgatást váltotta ki a második speciális beillesztés az egyessel szorzással. -
föccer
nagyúr
Na, ugye az excel megkülönbötzet egy cellán belül cella értéket, és cella formátumot. Ha beírod a cella értéket (és csak a cella értékét), akkor nem fog változni a cella formátuma. Így a frissen beszurt értéket, a már meglévő formátumba fogja "kényszeríteni". Amikor belemész a cellába, és nyomsz rajta egy entert, akkor az Excel megvizsgálja a cella értékét, és ha egyértelműen be tudja azonosítani, hogy az szám, akkor átállítja a formátumot is szám-ra. Ezért van az, hogy akkor helyesen meg fog jelenni.
A sima beillesztés azért működik, mert ott a cella formátumát, és az értékét is átviszi.
Vagy az a cél, hogy a szám típusú értéket, a szöveg típusú cellaformátum mellett úgy jelenítsen meg, mitnha szám lenne? Akkor a cella formázásnál kell megadni, hogy jobbra zárt, osz jóccakát. De attol még szöveg formátuma marad...
Vagy nem értem, hogy mit szeretnél elérni...
Üdv, föccer
-
Yaye
őstag
válasz
Delila_1
#7808
üzenetére
Hát, nekem átvitte, pedig bizisten nem kértem meg rá
2003 sp3@ föccer: épp hogy nem akartam semmiféle formátumot átvinni. Speciális, "értéket" beillesztés nem is vitte át, a célcellák beillesztés után is maradtak az előre beállított formátumok, csak épp a tartalmukat jelenítette meg hibásan, szövegmód, balra igazítva. Ezért kellett az újabb, 1-el szorzós úgy-szerkesztek-hogy-nem-szerkesztek trükkös spécipaszta, de az is úgy hogy a formátumhoz véletlen se nyúljon ("értéket").
-
föccer
nagyúr
No, következő nagy kérdés. Kezdek komolyabban foglalkozni a makrózással, de most megint megakadtam.
Szóval:
Adott, egy létező Sheet, amin van egy commandbutton. Ehhez tartozó click() metódusba az van írva, hogy:hozzon létre egy új Sheetet
Sheets("vezerlo").Select
Sheets.AddMajd erre az új lapra rakjon be egy új commandbuttont:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=60, Top:=71.25, Width:=144.75, Height:= _
57).SelectEz valahogy úgy kellene kinéznie, mint ha Delphi-ben tolnék egy form2.ShowModal metódust, amikoris a Form2-n lenne egy gomb.
A kérdés az, hogy hogyan tudnám azt lekódolni, hogy ehhez az újonnan (egyébként kódból létrehozott) gombhoz rendeljek hozzá különböző történéseket? A példa kedvéért azt, hogy ha megnyomom az új gombot, akkor törölje az újjonnan létrehozott Sheet-et...
Remélem érthető voltam
A segítséget előre is köszi.
üdv, föccer
-
Yaye
őstag
válasz
Delila_1
#7805
üzenetére
Köszi, ezt ismertem, és majdnem jó is, de mégsem. A szorzás után ugyanis a cellák formátuma a segédegyes cellájának formátumát veszi föl. Ha az eredeti cellákban különbözőképp formázott számok/dátumok vannak, akkor az mind jól elszáll.
Viszont kicsit még próbálkoztam, és kis kiegészítéssel jó: az *1 (vagy +0) speciális beillesztésnél is alkalmazni kell a "csak értéket" és akkor nem túrja szét a formátumokat. Legjobb, úgy alakít számmá egy már eleve szám értéket, hogy nem alakít át semmit.
-
Delila_1
veterán
-
Yaye
őstag
Sziasztok,
Van valakinek megoldása arra, hogy a beillesztéssel máshonnan hozott, szám formájú adatokat, amiket mégis szövegként jelenít meg, hogyan lehetne tömegesen észhez téríteni?
Arra a jelenségre gondolok, amikor egy szám típusú cellába spécipasztázok egy "csak értéket", akkor annak ellenére hogy a beillesztés után a cella típusa továbbra is szám, mégis szöveg módjára jelenik meg, balra igazítva. A cellába duplakattintva szerkesztéshez, majd változtatás nélkül leenterezve helyreáll a rend, na de ezt nem csinálhatom meg egyenként mind a sokszáz/ezer beillesztett cellával
üdv
Yaye -
GBandeee
csendes tag
Sziasztok!
Excelben kellene segítség.
Hogyan lehet egy oszlopban lévő számok közül a legnagyobb 25-öt kiírattatni?
Nem egyszerű sorba rendezésre van szükségem, mert az oszlopban lévő számok változhatnak a műveletek során és azzal túl sok idő megy el, hogy mindig kijelöljem és sorba rendezzem az oszlopot...Valamilyen függvényes, vagy más megoldás kellene - ha van. Tehát beírom a számokat, az excel kiszámolja az oszlopban lévő függvények szerint, majd valamilyen módon láthatnám a legnagyobb 25-öt.
Köszönöm!
)
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Battlefield 6 - Digitális játékkulcs
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- Azonnali készpénzes Apple Macbook Air felvásárlás személyesen / csomagküldéssel korrekt áron
- GYÖNYÖRŰ iPhone XS 64GB Space Grey -1 ÉV GARANCIA - Kártyafüggetlen, MS2912, 100% Akkumulátor
- HP Victus 15-fb1002AX - 15,6"FHD IPS - Ryzen 5 7535HS - 8GB - 512GB SSD - RTX 2050 - Win11
- LG Gram 14 WUXGA IPS i7-1360P 5.0Ghz 12mag 32GB DDR5 1TB SSD Intel Iris XE 10óra Akku Win11 Garancia
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest