Hirdetés
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- ldave: New Game Blitz - 2025
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- gerner1
- antikomcsi: Ázsia Expressz 5
- sziku69: Szólánc.
-
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
-
#5000
toth_janika
őstag
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! -
Wajk
addikt
válasz
Delila_1
#4992
üzenetére
igen, bevallom a saját fejem után menntem az itt megszerzett segítségek alapján, szeretem magam kidolgozni úgy jobban megmarad. csak hirtelen azt nem vettem észre, hogy ott rejtve volt az oszlop, csak néztem hova rakta, de akkor így már értem...
meg közben sikerült is megoldani...
-
#4991
Delila_1
veterán
Fehér Mancs
#4989
Delila_1
veterán
válasz
Fehér Mancs
#4989
üzenetére
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
válasz
Delila_1
#4988
üzenetére
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)?
-
#4989
Fehér Mancs
tag
Wajk
#4987
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
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.
-
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.
-
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
válasz
Des1gnR
#4978
üzenetére
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. -
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.
-
Fehér Mancs
tag
válasz
Fire/SOUL/CD
#4975
üzenetére
Agreed.
-
#4975
Fire/SOUL/CD
félisten
kamikaze boci
#4974
válasz
kamikaze boci
#4974
üzenetére
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.
-
#4973
Cuci3
tag
kamikaze boci
#4972
Cuci3
tag
válasz
kamikaze boci
#4972
üzenetére
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. -
#4972
kamikaze boci
őstag
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)
-
#4969
student
őstag
Fire/SOUL/CD
#4968
student
őstag
válasz
Fire/SOUL/CD
#4968
üzenetére
thx perfekto
-
#4968
Fire/SOUL/CD
félisten
student
#4967
válasz
student
#4967
üzenetére
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ó...
-
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!
-
#4960
_ATi_1
senior tag
Fehér Mancs
#4958
_ATi_1
senior tag
válasz
Fehér Mancs
#4958
üzenetére
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.
-
#4959
Fire/SOUL/CD
félisten
Fehér Mancs
#4958
válasz
Fehér Mancs
#4958
üzenetére
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
válasz
Fire/SOUL/CD
#4955
üzenetére
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
-
#4956
_ATi_1
senior tag
Fire/SOUL/CD
#4955
_ATi_1
senior tag
válasz
Fire/SOUL/CD
#4955
üzenetére
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. -
#4955
Fire/SOUL/CD
félisten
_ATi_1
#4954
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
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. -
-
#4949
Csabee.
nagyúr
Fire/SOUL/CD
#4948
Csabee.
nagyúr
válasz
Fire/SOUL/CD
#4948
üzenetére
![;]](//cdn.rios.hu/dl/s/v1.gif)
-
#4948
Fire/SOUL/CD
félisten
Fehér Mancs
#4947
válasz
Fehér Mancs
#4947
üzenetére
Hali!
Igen, ha balkezes vagy, ha nem akkor inkább a jobb gomb lesz....
Fire.
-
Musicbox
tag
válasz
Fehér Mancs
#4944
üzenetére
köszi a segítséget de sehol se vagyok office 2007-ben nem találok ilyen speciális beillesztést
-
Csabee.
nagyúr
válasz
Gabcsika
#4941
üzenetére
=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
válasz
Musicbox
#4939
üzenetére
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
-
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 -
Delila_1
veterán
válasz
VANESSZA1
#4935
üzenetére
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.
-
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?
-
#4931
VANESSZA1
őstag
Fire/SOUL/CD
#4930
válasz
Fire/SOUL/CD
#4930
üzenetére
Köszi, megpróbálom, ha nem megy akkor kereslek..,ha kereshetlek.
-
#4930
Fire/SOUL/CD
félisten
VANESSZA1
#4929
válasz
VANESSZA1
#4929
üzenetére
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...
-
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? -
#4928
gyga
senior tag
Fehér Mancs
#4927
gyga
senior tag
válasz
Fehér Mancs
#4927
üzenetére
Cuci3 igen jól vetted észre a tábla lényegét. Kösz mancs neked is.
-
#4927
Fehér Mancs
tag
Cuci3
#4926
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
válasz
Delila_1
#4923
üzenetére
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?
-
-
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
válasz
[HUN]Tyson
#4918
üzenetére
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. -
#4918
[HUN]Tyson
senior tag
Fehér Mancs
#4904
[HUN]Tyson
senior tag
válasz
Fehér Mancs
#4904
üzenetére
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? -
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. -
#4914
gyga
senior tag
Fire/SOUL/CD
#4913
gyga
senior tag
válasz
Fire/SOUL/CD
#4913
üzenetére
kösz, megoldva
-
#4913
Fire/SOUL/CD
félisten
gyga
#4912
-
#4912
gyga
senior tag
Fehér Mancs
#4899
gyga
senior tag
válasz
Fehér Mancs
#4899
üzenetére
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. -
Fehér Mancs
tag
válasz
[HUN]Tyson
#4902
üzenetére
E-mailt akarsz küldeni
? Makróval lehet automatikusan is generálni ilyet, nem csak a címeket összefűzni... -
#4903
Delila_1
veterán
[HUN]Tyson
#4902
Delila_1
veterán
válasz
[HUN]Tyson
#4902
üzenetére
Szívesen.
-
Fehér Mancs
tag
válasz
VANESSZA1
#4897
üzenetére
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.)
)
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Nem új munkafüzetet, hanem "munkafolyamatot" a munkafüzetben belül.
:Új hozzászólás Aktív témák
Fferi50- 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
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Samsung Galaxy A55 / 8 RAM 256GB / Gyárifüggetlen / 12hó Harancia
- MacBook Pro 16" M3 Pro 36GB 512GB Gar. SPACE BLACK
- ÁRGARANCIA!Épített KomPhone Ryzen 9 5900X 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- HP Victus 15-fb1002AX - 15,6"FHD IPS - Ryzen 5 7535HS - 8GB - 512GB SSD - RTX 2050 - Win11
- Dymo LabelWriter 400 hőpapíros címkenyomtató
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest