- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- Hétvégére virradóan kiöntött a medréből a hardverfolyó
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Eladhatatlannak ítélt CPU-k eladásával javult az Intel node-ok kihozatala
- Az AI átformálja a Peugeot modelljeit is
- Ráműthető a Linux PlayStation 5-re, de csak egy boot erejéig
-
5000 - 4901
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 5901 5900 - 5801 5800 - 5701 5700 - 5601 5600 - 5501 5500 - 5401 5400 - 5301 5300 - 5201 5200 - 5101 5100 - 5001 5000 - 4901 4900 - 4801 4800 - 4701 4700 - 4601 4600 - 4501 4500 - 4401 4400 - 4301 4300 - 4201 4200 - 4101 4100 - 4001 4000 - 3901 3900 - 3801 3800 - 3701 3700 - 3601 3600 - 3501 3500 - 3401 3400 - 3301 3300 - 3201 3200 - 3101 3100 - 3001 3000 - 2901 2900 - 2801 2800 - 2701 2700 - 2601 2600 - 2501 2500 - 2401 2400 - 2301 2300 - 2201 2200 - 2101 2100 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
-
Frissítve: 2023-11-13 08:31 Téma összefoglaló
Új hozzászólás Aktív témák
-
toth_janika
őstag
Hello!
Help me pls!
Adott egy feladat
a=1
b=2
c=3
d=4
Az a feladat, hogy írni kell egy függvényt, ami összerendeli a számokat a betűkkel!
Adott egy sorozat:
c a b d
Ezek mellé kellene a számokat írni! -
Hujikolp
őstag
Az excel képes táblázati adatokból lin-log grafikont előállítani? lineáris - logaritmikus
Kerestem inkább egy képet, arra megszerkesztem, mert szerintem, amire gondolok nem megoldható.
-
Wajk
addikt
-
Delila_1
veterán
-
Wajk
addikt
-
Delila_1
veterán
-
Wajk
addikt
-
Wajk
addikt
-
Delila_1
veterán
-
Delila_1
veterán
A kimutatásnál is elegendő az oszlopok megadása, nem kell feltétlenül a sorokat is megadni. Akkor nincs baj a bővítésnél.
-
Wajk
addikt
igen, azt a makrót vettem tőled, amúgy mindkét esetben ha be van írva összeg beteszi a dátumot... kicsit felbővítettem az alapverziót.
na majd kipróbálom amit lentebb írtál.
még amit most próbálok. ha bal szélső oszlopban végig van ez a HÓNAP fügvény, ha üres a cella akkor 1 lesz az értéke ami ugye akkor lesz izgalmas, ha január is lenne.
van olyan hogy IF NOT null B5 akkor HÓNAP(B5)?
-
Fehér Mancs
tag
Na, hogy én is mondjak egy okosat

Pivot táblával/kimutatás varázslóval is egyszerűen le lehet ezt gyártani, persze a tábla bővítésénél ezt is folyamatosan utána kell húzni (mint bármely képletezésnél...) / vagy elég nagy táblát kell kijelölni az alapesetnek, hogy mindenképpen beleférjen)
A lényeg, hogy beteszed a dátumot a sorokba, összeget az értekekhez, a végén pedig jobb klikk a dátum mezőjére, csoportosítás/group menűpont, ott pedig ki kell jelölni a hónapot és kész is. Ha kimutatást is akarsz ebből, akkor csak rá kell állni a pivotra, és a Chart wizard kapásból megcsinálja neked.
-
Delila_1
veterán
-
Wajk
addikt
-
Delila_1
veterán
Nem kell előre beírni a képletek. Ha az Eszközök/Beállítások Szerkesztés lapján a "Cellaértékek automatikus kiegészítése" be van jelölve, a B oszlop bővítésével a C-be automatikusan beíródik a fölötte lévő képlet.
A H5: O6 tartományban érdemes a két képletet így megadni:
H5 -> =SZUMHA($C:$C;H3;$D:$D)
H6 -> =SZUMHA($C:$C;H3;$E:$E)Bővítésnél nem kell átírni a képleteket, mert csak az oszlopokat adjuk meg, a sorokat nem.
-
Wajk
addikt
-
Wajk
addikt
-
Cuci3
tag
-
Wajk
addikt
köszönöm az ötleteket, mindjárt kipróbálom őket. még asnyit, hogy az oszlop lefele folyamatosan bővítve van, így most május van, de aztán június.
úgy gondoltam, hogy arra a két oszlopra, ráereszteni egy fügvényt, hogy ne kelljen új hónapkor semmit csinálni.
szóval akkor megpróbálom elmondani, egy bevétel kiadásos táblázat adott, Delila_1 egyik függvényével azt megoldottam, hogy ha c vagy d oszlopba beírunk egy öszeget akkor az aznapi dátumot írja be a b oszlopba. aztán ehhez akartam egy havi összesítő valahova ki jobbra, hogy május-június.... és alatta lett volna, hogy adott hónapban mennyi volt a bevétel alatta cellába meg kiadás.
aztán ezekből egy diagrammot készítettem volna.
azért gondoltam függvényre, hogy elég legyen csak beírni az adott oszlopba az összeget és mindent automatikusan csinálna a táblázat ;)
a dátum beillesztés megvan szóval a lényeg megy, csak egy ilyen összesítő lenne jó.
amúgy feltettem ide az xls-t, makróba csak azt a dátumosat raktam be...
még nem végleges csak most van fejlesztés alatt...
köszönet
-
Delila_1
veterán
Amennyiben a dátumok emelkedő sorrendben vannak (legalábbis a hónapok), legegyszerűbb és látványosabb a Tagolás és részletek menüpontot alkalmazni.
Kikjelölöd az első hónap adatait tartalmazó sorokat (a címsort nem). Az Adatok/Tagolás és részletek menüpontban a Csoportba foglalást választod. Kijelölöd a következő hónap sorait, az F4 megismétli itt is a csopotrba foglalást. Így minden hónapot csoportba foglalsz.
Most az összes sort kijelölöd, az Adatok/Tagolás és részletek/Beállítások menüpontban kiveszed a pipát az "Összesítő sorok a részletsorok alatt" elől.
A havi összegek fölé beírod a SZUMot.

A második képen látszik, hogy egy-egy egységet be tudsz zárni a mellette lévő mínusz jel segítségével, vagy ki tudsz bontani a + -szal. A bal oldalon fent lévő 1-re vagy 2-re kattintva az összes adat részleteinek mutatását, vagy elrejtését megadhatod.
-
fluxion
őstag
Nah így oldottam meg (biztosan van egyszerűbb kb egy kattintás, de azt sajnos nem tudtam)
Szóval http://img43.imageshack.us/img43/3507/excelu.jpg
Itt a C oszlop az:=HÓNAP(B5)
B16:
=SZUMHA(C5:C11;C16;D5:D11)
Cuci3: közben azt hiszem én is ilyesmire jöttem rá

-
Cuci3
tag
Megoldás 1:
Kell egy oszlopot készítened, ami a dátumból kiszedi a hónapot (praktikusan hónap függvény). Azután már mehet a SZUMHA valahogy így:
SZUMHA($C$5:$C$X;"="&E5;$D$5:$D$X)Magyarázat:
B oszlop - rendes dátumok
C oszlop - hónapok
D oszlop - összeadandó értékek
X - felsorolás vége
E5 - ide mondjuk be van írva, hogy 5 vagy 6 (a hónapok sorszáma). Ha a képlet mondjuk F5-ben van, és E oszlopba be vannak írva 1-től 12-ig a hónapok, akkor könnyen le lehet húzni.Megoldás 2:
Ismét kell egy hónapos oszlop, meg az oszlopknak valami név, aztán kimutatásba betenni az egészet és két kattal megvan a lehetésges hónapokra az összesítés. Persze itt adatváltozás esetére kell egy adatfrissítés. -
fluxion
őstag
-
Wajk
addikt
üdv, sok okosságot olvastam itt a topikba, köszönet Delila_1-nek a makrókért, amiknek hasznát is vettem
egy alap dolog viszont nem jutott eszembe.
B oszlopba dátumok vannnak az 5. sortól lefele, mellette pedig összegek vannak beírva.
cellákba szeretném megjeleníteni hónapokra lebontva, az adott összegeket összeadva.
valami olyasmi, hogy if dátum=május, mellette levő cella értéke SUM abba a cellába ;)
aztán egy másik cellába írnám ugyan ezt júniussalbeírt dátumok formátuma: 2009.xx.xx
előre is köszönöm ha tud valaki segíteni. valami rémlik régi infóóráról, valami darabteli talán de nem sikerült megoldanom.
-
Fire/SOUL/CD
félisten
Hali!
Korábban írtad, hogy 1 hete foglalkozol VB-vel. Nos, ha ennyire gyorsan sajátítasz el dolgokat, akkor javaslok egy dolgot.
Tessék az ACCESS berkeiben elmerülni, és az adatbáziskezelést VB-vel megtanulni.
Az ilyen feladatok alapszinten jók, de az igazán "profi" megoldás az az, hogy Access-ben kezelem az adatbázist, és annak segítségével állítok elő Excel táblát, vagy egyszerűen az Excel "külső adatok átvétele" segítségével...
Ráadásul így a user csak a végeredményt látja, nem kell még azzal is foglalkoznia, hogy engedélyezze a makrókat, stb(és még sok más is rejtve marad a user elött, amire tényleg semmi szüksége semm lenne). Szóval sokkal elegánsabb, jobb, profibb megoldáa az Access. Ott is létrehozhatsz grafikus felületet(form, button, dbcomponents, stb) amivel beviszed az adatokat, felügyeled, módósítod, törlöd, stb. Aztán egy sima lekérdezéssel akár, kész az eredménytábla, amit 3 kattintással beimportál az Excel...
Ezt jótanácsnak szántam, remélem élsz vele...
Fire.
-
kamikaze boci
őstag
-
Cuci3
tag
Hi!
Mágus nem vagyok, időm nem sok van, so én csak ránéztem a feladatra.
A másolást úgy oldanám meg, hogy beszúrok egy munkalapot, kimásolom a leszűrt ingatlanokat, majd onnan másolnám be a kellő oszlopokat az indítás lapra. Utána törölném a beszúrt munkalapot, és az indításon megformáznám a listát. A lista kijelöléséhez pedig ezt használnám:Sheets("Indítás").Range("B34").CurrentRegion.Select
Közben persze ki lehet kapcsolni az automatikus képernyőfrissítést (application.screenupdating), így a júzer nem lát semmit. Persze a végén vissza kell kapcsolni.

Ja, és biztos van ennél jobb megoldás.
-
kamikaze boci
őstag
Üdv mágusok!
Van egy táblázatom (ingatlan nyilvántartó makrókkal), ami részben kész, de van egy művelet, ami nagyon fapados, és nem találok rá jó megoldást.A használat: van egy "ingatlanok" munkalap, ezen a piros vezérlő sorban lehet "x"-szel kiválasztani azokat az ingatlanokat, amiknek a címeit az ingatlanos ki akarja adni. Ha ez megvan, az "indítás" lapon a "címek beolvasása" gombra kattintva bekerül az autoszűrt lista egy narancs színű táblázatba, ahol az adatokat ellenőrizni lehet.
Sajnos ezt a részt nem tudtam megoldani úgy, hogy csak a cella értéke, és csak azok az oszlopok kerüljenek át, amikre szükség van, így utólag formázom/törlöm, ami nagyon lassúvá és csúnyává teszi a dolgot. A kérdés, van valakinek valami elegánsabb módszere a narancs színű részbe juttatni az adatokat? Köszi a segítséget!
(A kód nem valami szép, de kb. egy hete foglalkozom VB-vel, a feladat viszont sürget, így inkább összeollóztam, amit lehetett)
-
fluxion
őstag
Heló!
Importálni szeretném a prohardver adatlapom excelbe mert szeretnék a hozzászólások adataival számolgatni ez lehetséges valahogy?
-
Gabcsika
tag
-
Fire/SOUL/CD
félisten
Hali!
Remélem ezt a kérdést már nem értelmezem félre, és nem hülesgeket írok neked...

A példa kedvéért A1-ben van az 1000, A2-ben a 1251...
Ha az kell, hogy az 1251 hány %-os növekedés az 1000-hez képest, akkor
A3-ba =1-A1/A2Az eredmény cellá(ka)t formázd százalékra ill adj neki legalább két tizedesjegyet(már ha fontos).
Fire.
UI: mostanában olyan szétszórt vagyok, mint a pétisó...

-
student
őstag
ha van 2 szám egymás alatt pl 1000
1251 és ide mellette cellába a százalékos változást akarom tenni azt hogy adjam meg neki?tehát b2 1000 b3 1240 és c3-ba a változás százalékban megadva
-
Delila_1
veterán
-
kutga
félisten
Sziasztok!
A következő dologban kérnék segítséget, mivel nem vagyok benne jártas.
Van egy meglehetősen nagy táblázatom, négy oszloppal
Cikk Mennyiség Érték PartnerA lényeg, a cikk mezőben különféle termékek szerepelnek, hozzájuk tartozó eladási ár az érték mezőben, a két másik oszlopban pedig az, hogy melyik partnerünknek mennyit szállítottunk az adott termékből. Minden oszlopban vannak ismétlődések.
Erre az adathalmazra szeretnék kimutatást készíteni a következők szerint:
Cikk neve (milyen tételt vittünk ki)
Partner (melyik partnernek vittük ki a tételt).A lényeg pedig az lenne, hogy ne csak két-két értéket tüntessen fel a kimutatás, hanem az első esetben a cikk neve mellett szerepeljen az a mennyiség amit adott partnernek kivittünk, az ő eladási árával, a második esetben pedig ne csak a partner és a tétel neve szerepeljen, hanem az is, hogy adott partnernek adott tételből mennyit vittünk, milyen áron.
Szűrővel próbálkoztam, azzal viszonylag egyszerű lenne a dolog, ha nem lenne ilyen hatalmas az adathalmaz.
Remélem érthetően fogalmaztam, a segítséget előre is köszönöm!
-
fluxion
őstag
-
Delila_1
veterán
-
fluxion
őstag
Heló!
Elakadtam egyéni mértékegység beállításánál
Egy szám mögé kellene cm-t beírnom úgy, hogy utána számolni is tudjak vele, de nem akar összejönni
Tudnátok segíteni?
-
_ATi_1
senior tag
Ez egy sokkal egyszerűbb megoldás, mint amit én írtam

Meg sem gondoltam, hogy napként kezel egy számot.
Köszi a választ.

-
Fire/SOUL/CD
félisten
Hali!
Igen, tökéletesen igazad van.
Egy pillanatnyi "elmezavar" volt, amit most ráfoghatok a 39,5 fokos lázacskámra, meg az izzó agyacskámra, meg torkocskámra....
Éreztem, hogy valami nem oké, de akkor nem igazán dolgozott a szürkeállományom.De legalább jó tudni, hogy Delila_1 ill személyedben van kontroll....

Kösz a helyreigazítást!
Fire.
-
Fehér Mancs
tag
Az excel az egész számokat nem óraként, hanem napként kezeli. Amit te írsz, az igazából 2 nap + 1:56:54mp.
Ha órába akarod megjeleniteni, akkor el kell osztani 24-gyel, és utána formázni:
=4589/2205/24 -> formázás óra:perc:mp-re -> végeredmény pedig 2:04:52 -
_ATi_1
senior tag
Sikerült összehozni. Ha valakit érdekel:
A1: 1,46543 [időtartam órában megadva]
A2: =CSONK(H7) [óra értéke]
B1: =(A1-A2)*60
A3: =CSONK B1 [perc értéke]
B2: =(B1-A3)*60
A4: =KEREKÍTÉS(B2;0) [másodperc értéke]A5: =IDŐ(A2;A3;A4)
A5-nél a cellaformátumot át kell állítani ó:pp:mp formára, mert alapból ó:pp AM/PM van beállítva
-
_ATi_1
senior tag
Szia!
Köszönöm a választ, de sajnos ez a megoldás nem jó
A végeredmény annyi, amit írtam.
Úgy kapjuk meg, ha a hányadosból elvesszük az egészet, ez lesz az óra. a maradékot megszorozzuk 60-nal, ez lesz a perc, megint elvesszük az egészet, majd a maradékot megint megszorozzuk 60-nal és ez lesz a másodperc. a gyakorlatban így tudjuk átváltani.
Viszont nem tudom, hogy van-e erre való függvény, vagy más lehetőség. -
Fire/SOUL/CD
félisten
Hali!
Szinte teljesen "helyesen" írtad le hogy mit kell tenni...De akkor leírom lépésről-lépésre.
1. A1 cellába =4589/2205
2. Most azt az eredményt kapod, amit írtál is (2.081179138)
3. Jobb egér gomb az A1 cellán, a felbukkanó menüben CELLAFORMÁZÁS
4. A megjelenő ablak SZÁM fülén, a KATEGÓRIA csoportból válaszd az EGYÉNI lehetőséget
5. Jobb oldalon a FORMÁTUMKÓD felirat alatti szerkesztősorba írd be óó:pp:mm
6. Okézd le, és már meg is kaptad az eredményt(igaz nem annyi amennyit írtál), hanem 01:56:54Fire.
UI: persze nem csak egy cellát jelölhetsz ki, hanem egész oszlopot, sort, stb, majd ezután a kijelölésen jobb egér gomb, a többi lépés ugyanaz...
-
_ATi_1
senior tag
Sziasztok!
Segítségre lenne szükségem.
Két szám hányadosát szeretném átváltani ilyen formátumra: óó:pp:mp
Példa:
4589:2205= 2.081179138
ez egy időtartamot jelöl órában megadva. Ezt át kellene alakítani fent említett alakba.
A végeredmény esetünkben ez lenne : 02:04:52 [óó:pp:mp]
A segítséget előre is köszönöm.
-
wjani
tag
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. -
Delila_1
veterán
-
Musicbox
tag
-
wjani
tag
-
Fire/SOUL/CD
félisten
Hali!
Igen, ha balkezes vagy, ha nem akkor inkább a jobb gomb lesz....
![;]](//cdn.rios.hu/dl/s/v1.gif)
Fire.
-
Fehér Mancs
tag
-
Csabee.
nagyúr
-
Musicbox
tag
köszi a segítséget de sehol se vagyok office 2007-ben nem találok ilyen speciális beillesztést

-
Fehér Mancs
tag
-
Musicbox
tag
-
Csabee.
nagyúr
=HA(A1=B1;"OK";"Nem Ok")
ezután meg fogod a cellát ahova ezt beírtad, gondolom én az A3ba írod majd, és a cella jobb alsó sarkába kattintva lehúzod ameddig szeretnéd vizsgálni az A és B oszlopot!
ez az egyszerü ha feltétel annyit tesz hogy ha Ax és Bx cella megegyező értéket tartalmaz akkor kiírja hogy OK, ha eltérő a két érték kiírja hogy Nem Ok

erre gondoltál?
-
Gabcsika
tag
Sziasztok!
Azt hogy kellene, hogy van két oszlopom. A harmadikba szeretném, hogy kiírja, ha az első és második oszlopban egyaránt egy adott érték található (tudom IF-el kéne). Ha nem azonos, akkor írja ki, hogy nem azonos.
Pl. A1-ben 15 és B1 is 15, akkor C1 be írja ki, hogy "OK" de úgy, hogy én 15-öt adom meg feltételnek minden A és B cellára. Minden más esetben nem azonos.Köszi!
-
Csabee.
nagyúr
kijelölöd azt a cellát ahova szeretnéd a 110%os értéket, utána beírod hogy = kijelölöd az első cella árát aminek a 110% át szeretnéd, és utána írod hogy*1,1
utána lemész egy cellát , most a 2. értéket jelölöd ki amit szorozni szeretnél 1,1-el és megkapod annak is az eredményét. Ezt követően fogod kijelölöd a 2db cellát ahol a 110%os eredményt megkaptad, és a jobb a második cella jobb alsó sarkára mutatsz, kijön egy fekete kereszt, rákattintasz és lehúzod egészen addig a celláig amíg a 110%os árat szeretnéd látni!
Én így értelmeztem a kérdésedet, és ez rá egy megoldás

-
Musicbox
tag
sziasztok! egy nagyon egyszerű kérésem lenne excell táblázatban egy nagykerárlistáról van szó, megszeretném szorozni azt az oszlopot amelyikben az ár van 110%-al
-
VANESSZA1
őstag
Ezt a makró diagrammot hogyan tudom egy Excel táblába betenni?
Private addDataRunner As Thread
Private rand As New Random()
Private chart1 As Dundas.Charting.WinControl.Chart
Public Delegate Sub AddDataDelegate()
Public addDataDel As AddDataDelegate
...Private Sub RealTimeSample_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
Dim addDataThreadStart As New ThreadStart(AddressOf AddDataThreadLoop)
addDataRunner = New Thread(addDataThreadStart)addDataDel = New AddDataDelegate(AddressOf AddData)
End Sub 'RealTimeSample_Load
Private Sub startTrending_Click(sender As Object, e As System.EventArgs) Handles startTrending.Click
' Disable all controls on the form
startTrending.Enabled = False
' and only Enable the Stop button
stopTrending.Enabled = True' Predefine the viewing area of the chart
minValue = DateTime.Now
maxValue = minValue.AddSeconds(120)chart1.ChartAreas(0).AxisX.Minimum = minValue.ToOADate()
chart1.ChartAreas(0).AxisX.Maximum = maxValue.ToOADate()' Reset number of series in the chart.
chart1.Series.Clear()' create a line chart series
Dim newSeries As New Series("Series1")
newSeries.Type = SeriesChartType.Line
newSeries.BorderWidth = 2
newSeries.Color = Color.OrangeRed
newSeries.XValueType = ChartValueTypes.DateTime
chart1.Series.Add(newSeries)' start worker threads.
If addDataRunner.IsAlive = True Then
addDataRunner.Resume()
Else
addDataRunner.Start()
End If
End Sub 'startTrending_ClickPrivate Sub stopTrending_Click(sender As Object, e As System.EventArgs) Handles stopTrending.Click
If addDataRunner.IsAlive = True Then
addDataRunner.Suspend()
End If' Enable all controls on the form
startTrending.Enabled = True
' and only Disable the Stop button
stopTrending.Enabled = False
End Sub 'stopTrending_Click'/ Main loop for the thread that adds data to the chart.
'/ The main purpose of this function is to Invoke AddData
'/ function every 1000ms (1 second).
Private Sub AddDataThreadLoop()
While True
chart1.Invoke(addDataDel)Thread.Sleep(1000)
End While
End Sub 'AddDataThreadLoopPublic Sub AddData()
Dim timeStamp As DateTime = DateTime.NowDim ptSeries As Series
For Each ptSeries In chart1.Series
AddNewPoint(timeStamp, ptSeries)
Next ptSeries
End Sub 'AddData'/ The AddNewPoint function is called for each series in the chart when
'/ new points need to be added. The new point will be placed at specified
'/ X axis (Date/Time) position with a Y value in a range +/- 1 from the previous
'/ data point's Y value, and not smaller than zero.
Public Sub AddNewPoint(timeStamp As DateTime, ptSeries As Dundas.Charting.WinControl.Series)
Dim newVal As Double = 0If ptSeries.Points.Count > 0 Then
newVal = ptSeries.Points((ptSeries.Points.Count - 1)).YValues(0) +(rand.NextDouble() * 2 - 1)
End IfIf newVal < 0 Then
newVal = 0
End If
' Add new data point to its series.
ptSeries.Points.AddXY(timeStamp.ToOADate(), rand.Next(10, 20))' remove all points from the source series older than 1.5 minutes.
Dim removeBefore As Double = timeStamp.AddSeconds((CDbl(90) * - 1)).ToOADate()
'remove oldest values to maintain a constant number of data points
While ptSeries.Points(0).XValue < removeBefore
ptSeries.Points.RemoveAt(0)
End Whilechart1.ChartAreas(0).AxisX.Minimum = ptSeries.Points(0).XValue
chart1.ChartAreas(0).AxisX.Maximum = DateTime.FromOADate(ptSeries.Points(0).XValue).AddMinutes(2).ToOADate()chart1.Invalidate()
End Sub 'AddNewPoint'/ Clean up any resources being used.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If(addDataRunner.ThreadState And ThreadState.Suspended) = ThreadState.Suspended Then
addDataRunner.Resume()
End If
addDataRunner.Abort()If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub 'Dispose -
VANESSZA1
őstag
-
Delila_1
veterán
Minden makrót lehet gombhoz rendelni. Fogalmam sincs, melyikkel kapcsolatban említettem.
Az automatikus számolás kikapcsolása: Application.Calculation=xlManual
Visszakapcsolás: Application.Calculation=xlAutomaticA ki- és bekapcsolás a teljes füzetre vonatkozik, nem lehet egy-egy területhez rendelni.
-
VANESSZA1
őstag
Delila_1!
Korábban emlitetted, létezik itt fent egy olyan makró, amihez gombot tudok hozzárendelni, és csak megnyomás után kezdenek számolni a képletek.Hol találom ezt?
Lehet úgy módosítani , hogy én jelölöm ki azokat a tömböket amelyek gombnyomás után számolnak?

-
chungee
addikt
-
VANESSZA1
őstag
-
chungee
addikt
Excel-ben, hogy tudok újmunkát kezdeni
Nem új munkafüzetet, hanem "munkafolyamatot" a munkafüzetben belül. -
VANESSZA1
őstag
Köszi, megpróbálom, ha nem megy akkor kereslek..,ha kereshetlek.

-
Fire/SOUL/CD
félisten
Hali!
Igen, megoldható. A legegyszerűbb ha elsőként Access-ben elkészíted a lekérdezést, és adsz neki valami egyértelmű nevet pl Vanessa_Osszesites.
Ezután Excelben
1. ADATOK/KÜLSŐ ADATOK IMPORTÁLÁS/ADATOK BEOLVASÁSA
2. kiválasztod az adatbázist
3. ezután meg fog jelenni egy ablak amiben látnod kell a saját lekérdezésedet, kiválasztod, ok
(útólag is készíthetsz excel-ben lekérdezést persze)
4. itt még lesz egy ablak, amin beállíthatod, hogy melyik cellától kezdve helyezze el az adatokat, ill itt a gomb is amivel lekérdezést írhatsz(persze ha korábban access-ben megtetted akkor nincs rá szükség)Elméletileg ennyi lenne.
Fire.
UI: a példa kép az eredeti 2003 NorthWind adatbázisról készült, annak Order Qry lekérdezéséről...
-
VANESSZA1
őstag
Létezik arra valamilyen megoldás, hogy van egy Access adatbázisom (sajnos Excelben nem fért el, mert 3 lapon betölti a 65000 sort ).
Ez dolgozói adatokat tartalmaz. Ki , a hét melyik napján mit csinált. Ezeket az adatokat összesíteni szeretném egy Excelbe.
Az Excel ki tudja venni Access-ből a szükséges adatokat összesítve? -
gyga
senior tag
Cuci3 igen jól vetted észre a tábla lényegét. Kösz mancs neked is.
-
Fehér Mancs
tag
Megpróbálom megfejteni én is+beképletezni
A4:AH103-as táblát alakítom át A1 : C1134-essé.
A problémát ketté lehet bontani:
1: Meg kell találni az összes célhoz, hgoy melyik cella tartozik, ezt sorszámmal el lehet érni (0- 3399). Ez a sorszám: oszloponként 3-mal nő ((COLUMN(A1)-1)*3), soronként 1-gyel nő (ROW(A1)-1) és ezen felül 3 soronként 6-tal (INT((ROW(A1)-1)/3)*6), így a sroszám:=INT((ROW(A1)-1)/3)*6+(ROW(A1)-1)+(COLUMN(A1)-1)*3
(ha a A1 : C1134-be kirakod, akkor lehet is látni, hogy 0-3399-ig besorszámozza a cellákat).
2: ez alapján kikeresni az értéket a táblából:
=INDEX(Tabla;INT(Sorszám/34)+1;MOD(Sorszám;34)+1)
(34 soronként vált új sorra)
A végeredmény:
=INDEX(Tabla;INT((INT((ROW(A1)-1)/3)*6+(ROW(A1)-1)+(COLUMN(A1)-1)*3)/34)+1;MOD(INT((ROW(A1)-1)/3)*6+(ROW(A1)-1)+(COLUMN(A1)-1)*3;34)+1)
(A4:AH103-t el kell nevezni Tabla-nak)
Remélem azt oldottam meg, amit szerettél volna, nekem sem volt teljesen világos a kérés

-
Cuci3
tag
Pedig egyszerű (átírtam változókra az adatokat, hogy átlátható legyen):
A tábla
--------A----------B-----------C-----------D-------------E----------F-----------G----------H--------I........
1------x1---------x2----------x3----------x4------------x5---------x6---------x7---------x8------x9
2------x10--------x11--------x12---------x13----------x14--------x15-------x16-------x17----x18
.
ilyenre kellene alakítani....
B Tábla
---------A--------B----------C......
1------x1--------x4----------x7
2------x2---------x5---------x8
3------x3---------x6---------x9
4------x10--------x13-------x16
5------x11--------x14--------x17
6------x12--------x15--------x18Ez indirekttel vagy makróval megoldható, asszem. A megoldásba nem gondoltam bele, csak érzés alapján mondom.

Már csak az a kérdés, hogy mi legyen azokkal az oszlopokkal, melyek nem tartalmaznak értékeket. Ugyanis az AH oszloppal a 34. oszlop, és ezzel a hármas felbontással lesz a végén olyan, hogy
10------x28--------x31-------x34
11------x29--------x32--------x35
12------x30--------x33--------x36Tehát mi legyen az x35 és x36 értékek helyén, illetve ennek többszörösei helyén, mivel 100 sor van?
-
VANESSZA1
őstag
-
Delila_1
veterán
-
Delila_1
veterán
-
Delila_1
veterán
-
Cuci3
tag
Hali!
Egy VBA kódra lenne szükségem. Van 16e sorom, amit 200 munkalapra kell szétdobnom. A gyorsabb meló kedvéért ki akarom kapcsolni a VBA futása közbeni cselekmények megjelenítését (két munkalap közötti váltogatásokat). Valahol már láttam a kódot, de sikerült elfelejtenem.

Köszi!
-
Fehér Mancs
tag
Azt tudom, hogy meg lehet valósítani Outlookban is, de nem tudom, hogy hogyan
(Nálunk Lotus Notes-ból küldtünk ki generált leveleket csatolmányokkal). Többiek / Google biztos tud segíteni. -
[HUN]Tyson
senior tag
Kifejtenéd ezt bővebben is? Ez nagyon érdekel!
Céges hírlevelet küldök hetente. (legálisan, feliratkozott címzetteknek.) A szolgáltató 100 címzett/mail korlátot szab. Az adatbázisunk Access-ben van, ebből kiexportáltam eddig Excelbe a hírlevélkapókat, és innen eddig csv -vel vittem be Outlook Expressbe, csak az a baj, hogy akkor küldéskor nem tudom százassával csoportosítani.
Delila_1 makrójával (ami hibátlan a célra
) azóta excelben százasával csoportosítok, majd innen kopipésztelem át a levél titkos másolat mezőjébe.
27xx címzett esetében ez 28db kimenő levelet jelent. -
gyga
senior tag
Akkor mégegyszer megkérdezem :
A következő táblázat részletet hogy tudom átalakítani?
A tábla
--------A----------B-----------C-----------D-------------E----------F-----------G----------H--------I........
1------1-----------1-----------2------------3--------------3----------4-----------5-----------5--------6
2------7----------7------------8------------9--------------9----------10---------11---------11-------12
3------13--------13-----------14----------15------------15---------16---------17--------17-------18
.
.
.
.ilyenre kellene alakítani....
B Tábla
---------A--------B----------C......
1------1----------3-----------5
2------1----------3-----------5
3------2----------4-----------6
4------7----------9-----------11
5------7----------9-----------11
6------8----------10---------12
7------13--------15---------17
8------13--------15---------17
9------14--------16---------18
.
.
.
A tábla paraméterei a4:ah103 tehát nem kicsi.Van-e rá vmi egyszerű megoldás?
miért off? -
VANESSZA1
őstag
Köszönöm a múltkori makrót !
Ismét segítségre lenne szükségem.
Olyan képlet kellene ami %-ban mutatja a teljesítményt.
A5;A7;A11;A22;A42 cella tartalmaz értéket %-ban ( pl. 33% )
A képlet a cellák átlag értékét kellene mutassa, de ha bármelyik cellában 0% van azt ne kalkulálja bele, mert az lehúzza az össz értéket. -
Balinov
titán
-
gyga
senior tag
kösz, megoldva
-
Fire/SOUL/CD
félisten
-
gyga
senior tag
igazad van de az én esetemben nincs benyomva az f8, szal nem értem (miracle)
na még valami egy táblázatban próbálgattam a makrózást, de természetesen nem sikerült
így hát töröltem a makrókat. És azóta állandóan azzal nyit hogy engedélyezem e a makrókat ami elvileg nincs, tehát a 2007ben, hogy tudom eltüntetni ezt. -
Delila_1
veterán
-
Balinov
titán
-
Balinov
titán
-
Delila_1
veterán
-
Balinov
titán
-
Delila_1
veterán
-
Fehér Mancs
tag
E-mailt akarsz küldeni
? Makróval lehet automatikusan is generálni ilyet, nem csak a címeket összefűzni... -
[HUN]Tyson
senior tag
-
Fehér Mancs
tag
Ha automatikusan szeretnéd nézni ezt, akkor a timer-rel is lehet operálni (Fire-től loptam
:Workbook_open-nél beindítjuk a folyamatos figyelést:
Private Sub Workbook_Open()
Call check_date
End SubMajd egy új modulba betesszük az ellenőrző-figyelmeztető kódot:
Sub check_date()
For Each a In Columns(1).Cells
If VarType(a) = vbDate Then
If a <= Now() Then
MsgBox ("Figyelmeztetés!")
Exit For
End If
End If
Next a
Application.OnTime Now + TimeSerial(0, 10, 0), "check_date", , True
End Sub(Ez most az 1 oszlopot nézi és 10 percenként ellenőriz, azt nézi, hogy az adott oszlopban szereplő dátumok mindegyike magasabb-e a mostaninál.)
Új hozzászólás Aktív témák
-
5000 - 4901
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 22001 22000 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 5901 5900 - 5801 5800 - 5701 5700 - 5601 5600 - 5501 5500 - 5401 5400 - 5301 5300 - 5201 5200 - 5101 5100 - 5001 5000 - 4901 4900 - 4801 4800 - 4701 4700 - 4601 4600 - 4501 4500 - 4401 4400 - 4301 4300 - 4201 4200 - 4101 4100 - 4001 4000 - 3901 3900 - 3801 3800 - 3701 3700 - 3601 3600 - 3501 3500 - 3401 3400 - 3301 3300 - 3201 3200 - 3101 3100 - 3001 3000 - 2901 2900 - 2801 2800 - 2701 2700 - 2601 2600 - 2501 2500 - 2401 2400 - 2301 2300 - 2201 2200 - 2101 2100 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
Hirdetés
- BMW topik
- Kuponkunyeráló
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Autós topik
- LEGO klub
- A fociról könnyedén, egy baráti társaságban
- Crimson Desert
- Ingatlanos topic!
- Futás, futópályák
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- További aktív témák...
- Gamer PC-Számítógép! Csere-Beszámítás! R5 5600XT / RTX 3070 / 16GB DDR4 / 512GB Nvme SSD
- Ducky One 3 FULL/TKL/SF/MINI billentyűzetek többféle színben és kapcsolókkal, plusz csuklótámaszok
- iPhone 11 Pro 64GB 100% (3hónap Garancia) - AKCIÓ
- Apple iPhone 14 128GB Blue Karcmentes állapot 92% akkumulátor
- Telefon felváráslás!! iPhone 15/iPhone 15 Plus/iPhone 15 Pro/iPhone 15 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest






)



Nem új munkafüzetet, hanem "munkafolyamatot" a munkafüzetben belül.
:
Fferi50
