- D1Rect: Nagy "hülyétkapokazapróktól" topik
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- GoodSpeed: ASUS ROG STRIX B650E-F GAMING WIFI - Memory Context Restory (MCR)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Fűzzük össze a szavakat :)
-
GAMEPOD.hu
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
-
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.)
-
Delila_1
Topikgazda
válasz [HUN]Tyson #4902 üzenetére
Szívesen.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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...
-
Balinov
félisten
válasz Delila_1 #4907 üzenetére
term. elmentettem a pdf-et a google docs-omba, hogy mindenhol el tudjam erni.
Erdemes egyebkent megvenni a Lynda/Total Traininges Excel 2007 Essentials kiadvanyokat?
6yrs, 19.5kg :) Realme X2 Pro 12/256, Fizetési elvárás: hát, én már a Google-ban is sokat kerestem.... Flickr fotoim: http://www.flickr.com/photos/magdabalinko/
-
-
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.
[ Szerkesztve ]
A kisebbség is számíít, teszkó.
-
félisten
-
gyga
senior tag
-
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.Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
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?[ Szerkesztve ]
A kisebbség is számíít, teszkó.
-
[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. -
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.
-
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!
-
Delila_1
Topikgazda
válasz VANESSZA1 #4916 üzenetére
=SZUM(A5:A42)/DARABTELI(A5:A42;">0")
Az a baj, hogy a DARABTELI függvényben nem lehet úgy megadni a tartományt, mint pl. a SZUM-nál: =SZUM(A5;A7;A11;A22;A42)
Ha a köztes cellákban nincs számérték, a felső képlet helyes eredményt ad.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Nem látom a logikát a két táblázat között. Sejtem, hogy más sem érti, azért nem kapsz választ. Kicsit pontosíthatnád a feltételeket.
Azért off, mert megnyomtad az Off topic gombot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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?
-
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
[ Szerkesztve ]
-
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.
A kisebbség is számíít, teszkó.
-
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?Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
félisten
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...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
VANESSZA1
őstag
válasz Fire/SOUL/CD #4930 üzenetére
Köszi, megpróbálom, ha nem megy akkor kereslek..,ha kereshetlek.
[ Szerkesztve ]
Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
chungee
addikt
Excel-ben, hogy tudok újmunkát kezdeni Nem új munkafüzetet, hanem "munkafolyamatot" a munkafüzetben belül.
-
VANESSZA1
őstag
válasz chungee #4932 üzenetére
Jobb Klikk arra amit bekarikáztál, Beszúrás- Munkalap
Ha kész vagy akkor jobb klikk a munkalapon és átnevezés amire akarod ...Pl. : statisztikaPrecision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
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?
Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
Delila_1
Topikgazda
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.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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 'DisposePrecision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD
-
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
-
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
Üdv: Csabee.
-
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!
Freedom, Nature, Love & Music
-
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?
Üdv: Csabee.
-
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
-
félisten
válasz Fehér Mancs #4947 üzenetére
Hali!
Igen, ha balkezes vagy, ha nem akkor inkább a jobb gomb lesz....
Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Csabee.
nagyúr
-
wjani
tag
válasz Musicbox #4945 üzenetére
Szia Musicbox!
Én 3 lépésben tudnám elképzelni.
1.
Adott oszlopba a C oszlop adatait megszorzom 1,1-el
2.
a kiszámított oszlopadatait irányított beillesztéssel értékként beteszem a C oszlopba.
3.
A kiszámított oszlopot kijelölöm és letörlöm a számításokat.Üdv
WjaniCoViA Online könyvkereskedés,
Új hozzászólás Aktív témák
- Gyúrósok ide!
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Kerékpárosok, bringások ide!
- Opel topik
- A fociról könnyedén, egy baráti társaságban
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- HiFi műszaki szemmel - sztereó hangrendszerek
- Battlefield 2042
- Filmvilág
- Milyen egeret válasszak?
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Vírusirtó, Antivirus VPN kulcsok
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest