-
Fototrend
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
-
#13768
Fire/SOUL/CD
félisten
oxox
#13766
Egy másik lehetséges megoldás: [link]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyWidth As Range
Dim MyHeight As Range
Set MyWidth = Range("AA1")
Set MyHeight = Range("AB1")
Application.ScreenUpdating = False
If Target.Address = MyWidth.Address Or Target.Address = MyHeight.Address Then
Range("A1:Z26").Clear
If MyWidth.Value Mod 5 Or MyHeight.Value Mod 5 Or IsEmpty(MyWidth.Value) Or IsEmpty(MyHeight.Value) Then
MsgBox ("Az alábbi hibák egyike lépett fel, kérem javítsa!" & vbCrLf & vbCrLf & _
"1. A szélesség és magasság értékének maradék nélkül oszthatónak kell lennie 5-el!" & vbCrLf & _
"2. A szélesség vagy magasság érték nincs megadva!")
Exit Sub
End If
For i = 0 To MyHeight.Value \ 5 - 1
For j = 0 To MyWidth.Value \ 5 - 1
Range("A1").Offset(i, j).Interior.ColorIndex = 3
Range("A1").Offset(i, j).Borders.ColorIndex = 0
Next j
Next i
End If
Application.ScreenUpdating = True
End Sub[ Módosította: #65675776 ]
-
#13763
Fire/SOUL/CD
félisten
buherton
#13762
-
#13751
Fire/SOUL/CD
félisten
Pulsar
#13749
válasz
Pulsar
#13749
üzenetére
Hát azért a végeredmény, meg a korábbi elképzelés nem ugyanaz, kb annyi köze van a kettőnek egymáshoz, mint a kis, kék, gumigolyónak, a nagy, sárga fakockához...
Viszont egy képnek jobban örül(n)énk, mert így nem lehet biztosan tudni, hogy akkor hány cellába is kerültek az adatok, avagy üres cella is van közben stb (mert az adott példából, erre (is) lehet következtetni) -
#13742
Fire/SOUL/CD
félisten
Pulsar
#13740
válasz
Pulsar
#13740
üzenetére
Én ezt inkább Word-ben hoznám megfelelő formátumba, majd azt követően vinném át Excel-be és utána szövegből oszlopok...
Azért wordben, mert ha ezt az adathalmazt beilleszted az Excelbe, akkor több cellára "töri" az Excel, míg wordben csak egy folyamatos szövegként látszik és az enter (vagy egyéb) vezérlőkaraktereket is el lehet távolítani.
-
#13737
Fire/SOUL/CD
félisten
bradam
#13736
-
#13728
Fire/SOUL/CD
félisten
Nikola.
#13725
-
#13724
Fire/SOUL/CD
félisten
Nikola.
#13723
-
#13712
Fire/SOUL/CD
félisten
csdm
#13710
RÉSZÖSSZEG, ha a szűrt lista látható sorainak összege kell.
-
#13690
Fire/SOUL/CD
félisten
Delila_1
#13689
-
#13688
Fire/SOUL/CD
félisten
csdm
#13686
-
#13635
Fire/SOUL/CD
félisten
dabgergo
#13633
-
#13552
Fire/SOUL/CD
félisten
thee
#13551
-
#13547
Fire/SOUL/CD
félisten
Delila_1
#13546
válasz
Delila_1
#13546
üzenetére
Abban a munkafüzetben úgy is kell, hogy működjön, mivel 1167 rekord van. A =NAGY(E:E,1168) dobna hibát...
Lehet kimaradt valami/nem követtem az eseményeket, csak nem világos, hogy "Meg lehetne oldani makróval, csak kissé lassú lenne a futása, és Neked nem lenne semmi dolgod.", szóval mihez kellene a makró, amikor látszólag jól működik minden.
Szerk
visszaolvastam, már világos mihez kellene makró.
-
#13545
Fire/SOUL/CD
félisten
Delila_1
#13543
-
#13541
Fire/SOUL/CD
félisten
thee
#13540
-
#13526
Fire/SOUL/CD
félisten
motinka
#13525
válasz
motinka
#13525
üzenetére
"a feladat első körben, állapítsam meg melyik az az első 4 hibakód ami az adott időszakban legtöbbször szerepel."
Eddig értem a feladatot. A függvény a NAGY() névre hallgat"miután ez megvan e 4 illetve az összes többi (mint egyéb) heti bontásban a az adott hét összes százalékában..."
Na itt elvesztettem a fonalat, szóval készíts egy táblázatot manuálisan, tetszőleges adatokkal és arról egy képet, hogy hogy is kellene ennek kinéznie. Az A/B/C/D oszlopok kamu adatokat is tartalmazhatnak, csak azon adatokból minek kellene lenni az eredménynek, azt add meg, akkor érthetőbb lesz (számomra legalábbis) -
#13521
Fire/SOUL/CD
félisten
bandus
#13520
-
#13515
Fire/SOUL/CD
félisten
Lestat777
#13513
válasz
Lestat777
#13513
üzenetére
Abban sajnos nem tudok segíteni, mert ugyan kivitelezhető, de relative összetett feladat jól kivitelezni, én meg nem mindig vagyok elérhető. Persze Delila_1 és mások biztos tudnak segíteni.
UI: A Windows Live Naptár-t is megpróbálhatod (ha eddig nem tetted esetleg), hasonló a Goggle Calendar-hoz, ugyanúgy megoszthatóak a naptárak, hátha az nem omlik össze... [link]
-
#13512
Fire/SOUL/CD
félisten
Boglya
#13509
válasz
Boglya
#13509
üzenetére
Nem fejtetted ki, mert több lehetőséget is takarhat a "Excelből szeretnék beolvasni számokat wordbe" lehetőség... De mindegy, most hogy írtad, hogy körlevélről van szó, akkor 2. pont (A körlevélben az ALT+F9-el jelenítheted meg a mezőkódokat)
Lestat777
Értem. Sajnos Excel-ben összetett feladat a kivitelezése... -
#13510
Fire/SOUL/CD
félisten
Lestat777
#13508
válasz
Lestat777
#13508
üzenetére
Első körben azt tudom javasolni, hogy a Google Calendar-t nézd meg, hátha megfelel a célra. Sok funkciója van, magyar nyelvű és megoszthatod nyilvánosan csoport avagy konkrét felhasználó számára is(engedélyekkel), aki elérheti és belenézhet. Nem biztos, hogy mindenre megfelel, amit szeretnél, de azért nézz rá, hátha.
Alapfeltétel, hogy kell egy Google fiókot létrehozni, itt meg találsz leírást: [link] -
#13507
Fire/SOUL/CD
félisten
Boglya
#13506
-
#13505
Fire/SOUL/CD
félisten
Lestat777
#13504
válasz
Lestat777
#13504
üzenetére
Biztos, hogy ezt Excelben akarod kivitelezni? Mert erre vannak külön alkalmazások, ingyenes is és akár magyar nyelvűre is rá lehet akadni. (Ha használsz Outlook-ot abban is van)
Delila_1
Hajnali 9-kor az internetszolgáltató felébresztett, mert gond volt a hálózattal...
Igen, a -1 biztosan rossz megoldás, én sem értem (pedig megvolt az első kávé is) -
#13498
Fire/SOUL/CD
félisten
m.zmrzlina
#13497
válasz
m.zmrzlina
#13497
üzenetére
nem tudom, hogy ezt a linkel hogy hozod össze, de az biztos, hogy így lehet(ha jól értettem, amit kérdeztél) Itt az U66-os cella lesz a kliens terület bal felső sarkába görgetve.
Application.Goto Range("U66"), Scroll:=True
-
#13496
Fire/SOUL/CD
félisten
Delila_1
#13495
-
#13494
Fire/SOUL/CD
félisten
Delila_1
#13493
-
#13491
Fire/SOUL/CD
félisten
Delila_1
#13490
-
#13489
Fire/SOUL/CD
félisten
Delila_1
#13488
-
#13486
Fire/SOUL/CD
félisten
Delila_1
#13485
-
#13484
Fire/SOUL/CD
félisten
Delila_1
#13482
-
#13481
Fire/SOUL/CD
félisten
Delila_1
#13480
-
#13479
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#13478
válasz
Fire/SOUL/CD
#13478
üzenetére
F2 képlete, amit aztán lehet lemásolni: =DARABHATÖBB(D2:$D$31;"<" & E2)
A megoldás eleget tesz a "– az érkezőt is beleértve –" kitételnek is.
(feladatsorban nem találtam, hogy hányas Office verzió használható, és kérdezőnk sem írta, úgy hogy ez természetesen Office 2010-ben megvalósítható megoldás)
-
#13478
Fire/SOUL/CD
félisten
Delila_1
#13477
-
#13476
Fire/SOUL/CD
félisten
csdm
#13475
-
#13461
Fire/SOUL/CD
félisten
ThaBoss
#13460
-
#13459
Fire/SOUL/CD
félisten
gyga
#13457
Normál esetben nem kell makró hozzá, egyszerűen a munkalap fülön jobb egér és az áthelyezés vagy másolás opciót használd. Az a fontos, hogy mielőtt ezt megléped, mindig az adott munkalap egy üres cellájára kattints, ne egy vezérlőn legyen a fókusz. Ebben az esetben az eredetivel teljesen megegyező másolat jön létre, ahol minden vezérlő pozíciója is megegyezik az eredetiével. (Lehet, hogy a "vándorlást" is megoldódik így, bár azt más is okozhatja)
-
#13455
Fire/SOUL/CD
félisten
DopeBob
#13453
válasz
DopeBob
#13453
üzenetére
Private Sub CommandButton1_Click()
Dim MyParamsRateValue As Integer
Dim MyParamsValue As Integer
Dim MyParamsCount As Integer
Dim MyRange As Range
Dim MyParams As Variant
'NMÉ képlet RÁTA paraméterének értéke
MyParamsRateValue = 25
'NMÉ képlet ÉRTÉK paramétereinek értéke
MyParamsValue = 1000
'NMÉ képlet ÉRTÉK paraméterinek a száma
MyParamsCount = 1
'A CELLA címe, ahova képletet szánod
Set MyRange = Range("A5")
MyParams = "=NPV(" & MyParamsRateValue
For i = 1 To MyParamsCount
MyParams = MyParams & "," & MyParamsValue
Next i
MyParams = MyParams & ")"
MyRange.Formula = MyParams
End Sub -
#13454
Fire/SOUL/CD
félisten
DopeBob
#13453
válasz
DopeBob
#13453
üzenetére
Akkor légy oly szíves vagy írni, vagy az adatlapodon feltüntetni, mert nem tudhatjuk, én meg 2010 x64-et használok, amit adok megoldást az ebben biztosan megy, de ha valaki korábbi verziót használ (és tudom, mert írta, vagy feltüntette az adatlapján, aláírásában stb), akkor igyekszem ahhoz alakítani a megoldást.
Elméletben lehet rá makrót írni.
-
#13452
Fire/SOUL/CD
félisten
DopeBob
#13450
válasz
DopeBob
#13450
üzenetére
"Az NMÉ képlet paramétereit be lehet valahogy egyszerűen írni, ha mondjuk 100 nagyságrendű paramétere van?"
Nem, mivel max 29 értéket lehet megadni. -
#13449
Fire/SOUL/CD
félisten
ixtom
#13448
Ofice 2010 x64-et használok, abban nincs hiba, de más verziójú is a VBA benne, mint a 2007/2003-ban. Késő is volt, fáradt is voltam, erről megfeledkeztem, de a lényeg, hogy megoldottad. (2010-es automatikusan tudja/átadja, hogy melyik sheet-en kattintottak a parancsgombra, ezért nem kell neki külön megmondani, hogy az melyik sheet-en történt)
Amúgy meg szívesen.
-
#13447
Fire/SOUL/CD
félisten
ixtom
#13446
Készíts egy másolatot a Excel munkafüzetről a biztonság kedvéért, és csak ha tényleg jól dolgozik a makró, akkor mentsd a változásokat.
Ez a makró azt feltételezi, hogy az adott munkalapon (sheet) csak az a táblázat van, amiből a sorokat törölni kellene, és, hogy a táblázat első sora(ahonnan az adatsorok kezdődnek) az valóban első sortól indul. Ha nem így lenne, akkor ne is futtasd a makrót.Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
LastRow = UsedRange.Rows.Count
For i = 2 To LastRow \ 5 + 2
Range(i & ":" & i + 3).Delete
Next i
Range("A1").Activate
Application.ScreenUpdating = True
End Sub -
#13417
Fire/SOUL/CD
félisten
Sir Pocok
#13416
-
#13361
Fire/SOUL/CD
félisten
Oly
#13359
Ááá, bocsi, hülyeséget írtam...
Szóval az lehet a gond, hogy az m ciklusváltozód olyan értéket vesz fel (man_m), amilyen nevű objektum nincs a userform-on. Valószínűleg a for ciklusod 1-el (vagy többel) tovább szalad, mint kellene. (Ahogy írtad 1-től 30-ig kellene futni a ciklusnak) -
#13360
Fire/SOUL/CD
félisten
Oly
#13359
-
#13358
Fire/SOUL/CD
félisten
Oly
#13355
Én így oldanám meg ezt a feladatot
Public s As Integer, m As Integer
Sub MySubRoutine(MyIndex_s As Integer, MyIndex_m As Integer, Optional MyValue As Variant, Optional MyString As Variant)
Cells(MyIndex_s + 1, 11).Value = DateValue(Now)
Cells(MyIndex_s + 1, 12).Value = Cells(MyIndex_m + 1, 1).Value
Cells(MyIndex_s + 1, 13).Value = "A"
If Not IsMissing(MyValue) Then Cells(MyIndex_s + 1, 14).Value = MyValue
If Not IsMissing(MyString) Then Cells(MyIndex_s + 1, 15).Value = MyString
End Sub
Sub MyMainCode()
s = s + 1
MySubRoutine s, m, 48
s = s + 1
MySubRoutine s, m, 49
s = s + 1
MySubRoutine s, m, 31, "ID"
s = s + 1
MySubRoutine s, m
End Sub -
#13357
Fire/SOUL/CD
félisten
Oly
#13355
-
#13349
Fire/SOUL/CD
félisten
Oly
#13347
-
#13348
Fire/SOUL/CD
félisten
Oly
#13347
-
#13335
Fire/SOUL/CD
félisten
Mazaki
#13333
-
#13323
Fire/SOUL/CD
félisten
Delila_1
#13322
válasz
Delila_1
#13322
üzenetére
Nem kell szétválogatni, legalábbis ahogy Penty leírta, az alapján nem kell.
Szeretném, ha pl. a C1 cellában összeadná az A oszlopban lévő azon számokat, amelyek mellett a B oszlopban a banán szó szerepel. Tehát jelen esetben: 123+134+120+110=487
Ha megnézed a korábbi listáját, akkor az összes banán-t összeadta...
-
#13321
Fire/SOUL/CD
félisten
Penty
#13316
-
#13302
Fire/SOUL/CD
félisten
krisztian7
#13300
válasz
krisztian7
#13300
üzenetére
[link]
A1-be kézzel van beírva, nem képletet tartalmaz
B1 képlete (A1-nek kötött/fix formátumnak kell lennie)
=SZÖVEG(BAL(A1;5)+7;"hh.nn") & " - " & SZÖVEG(JOBB(A1;5)+7;"hh.nn")
És ezt a képletet másolod C1, D1 stb, ameddig kell. -
#13267
Fire/SOUL/CD
félisten
kokopeti
#13266
-
#13249
Fire/SOUL/CD
félisten
kokopeti
#13247
-
#13231
Fire/SOUL/CD
félisten
aisten
#13224
válasz
aisten
#13224
üzenetére
Nem tudom milyen verziót használsz ez most a 2010-esben így lehet
1. kijelölöd a másolandó tartományt (az egészet a rejtettekkel együtt)
2. kezdőlap fül/szerkesztés csoport/keresés és kijelölés lenyíló/ugrás
3. irányított gombon katt/csak a látható cellák kijelöl és ok
4. Másol/irányított beillszetés/Képlet bejelöl OK -
#13091
Fire/SOUL/CD
félisten
q13579
#13090
-
#13089
Fire/SOUL/CD
félisten
q13579
#13088
-
#13047
Fire/SOUL/CD
félisten
Winner_hun
#13046
válasz
Winner_hun
#13046
üzenetére
Ablakfelosztás van vagy be van kapcsolva a Scroll Lock
-
#13042
Fire/SOUL/CD
félisten
VGYke
#13041
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Play_Click()
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
WAVFile = "D:\test.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
Private Sub Stop_Click()
Call PlaySound(vbNullString, 0&, SND_ASYNC Or SND_FILENAME)
End SubMegjegyzés
A deklarációba bekerült nálam a PtrSafe, mert x64-es a rendszerem. 32 bites rendszernél nincs rá szükség. -
#13040
Fire/SOUL/CD
félisten
VGYke
#13039
-
#13034
Fire/SOUL/CD
félisten
csferke
#13032
-
#13020
Fire/SOUL/CD
félisten
#83216640
#13018
válasz
#83216640
#13018
üzenetére
Tartományban lévő számok szorzása egy számmal
Nyilván, hogy csökkentsd, így 1-nél kisebb számmal kell szoroznod, pl ha 1%-al csökkentenéd, akkor 0,99-el -
#12947
Fire/SOUL/CD
félisten
aisten
#12946
-
#12943
Fire/SOUL/CD
félisten
Gabriel_86
#12941
válasz
Gabriel_86
#12941
üzenetére
Ja és még annyit, hogy ezt eseményhez is rendelheted, azaz nem kell külön gomb, hogy lefusson a makró.
Nyomsz egy jobb egeret a Chart-ot tartalmazó lapfülön(ami az esetedben Munka1 nevű) , majd Kód megjelenítése és jobb oldalra meg bemásolod ezt
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Lekerekítetttéglalap_Kattintás
End Sub -
#12942
Fire/SOUL/CD
félisten
Gabriel_86
#12940
válasz
Gabriel_86
#12940
üzenetére
Így érthető, kösz.
Az fontos, hogy bizonyos esetekben elkerülhetetlen, hogy objektumokkal dolgozz, azaz a set segítségével, megfelelő objektum típust hozz létre, mert csak akkor érhető el számos tulajdonság. Másrészről túlbonyolítottad ezt a kérdést, én leegyszerűsítettem.
Sub Lekerekítetttéglalap_Kattintás()
Dim MyChart As Chart
Dim MyTrendLine As Trendline
Set MyChart = ActiveSheet.ChartObjects("Diagram 1").Chart
Set MyTrendLine = MyChart.SeriesCollection(1).Trendlines(1)
Range("C1") = MyTrendLine.DataLabel.Text
Set MyTrendLine = Nothing
Set MyChart = Nothing
End Sub -
#12935
Fire/SOUL/CD
félisten
Gabriel_86
#12934
válasz
Gabriel_86
#12934
üzenetére
"mert fix értékként szerepel a kódban."
Betennéd a kódot, mert ezt valahogy nem tudom magam elé képzelni...
(Ha kódot illesztesz be, akkor a hsz írásakor majd használd a programkód gombot) -
#12912
Fire/SOUL/CD
félisten
föccer
#12909
válasz
föccer
#12909
üzenetére
Ez meg egy makrós megoldás.
Function CountOfDistinctValues(MyTypeSrcRange As Range) As Long
Dim MyCollection As New Collection
Dim MyCell As Range
Dim MyTypeSrcRange As Range
Application.Volatile
For Each MyCell In MyTypeSrcRange
On Error Resume Next
MyCollection.Add MyCell.Value, CStr(MyCell.Value)
Next MyCell
On Error GoTo 0
CountOfDistinctValues = MyCollection.Values.Count
End FunctionSajnos most nem tudom tesztelni(nincs Office a gépen), csak megírtam, remélhetőleg így is működik...
-
#12887
Fire/SOUL/CD
félisten
Delila_1
#12886
-
#12885
Fire/SOUL/CD
félisten
Delila_1
#12884
-
#12880
Fire/SOUL/CD
félisten
exceltanulo
#12879
válasz
exceltanulo
#12879
üzenetére
-
#12759
Fire/SOUL/CD
félisten
kriszwells
#12757
válasz
kriszwells
#12757
üzenetére
Ez alapján, nem lesz nehéz kivitelezni a dolgot.
-
#12712
Fire/SOUL/CD
félisten
Delila_1
#12711
-
#12704
Fire/SOUL/CD
félisten
poffsoft
#12703
válasz
poffsoft
#12703
üzenetére
Makróban mindig a függvények angol nevét kell használni, akkor a Formula is jó lesz, minden esetben. Ez esetedben annyit jelent, hogy nem DARABTELI, hanem COUNTIF
UI: Azt hittem a kávéhiány, de úgy látszik le fogok padlózni(fáj e fejem, ver a wasser), valami vírus garázdálkodik bennem. Sebaj, kell vírusirtót szereznem, az majd helyretesz (3dl forraltbor, 1 dl pálinkával)
-
#12700
Fire/SOUL/CD
félisten
poffsoft
#12698
-
#12699
Fire/SOUL/CD
félisten
poffsoft
#12698
válasz
poffsoft
#12698
üzenetére
Képletet nem Value-val viszünk be, hanem FormulaArray-el, pl ahogy itt is láthatod.
(Már ha jól értem, hogy mit is szeretnél, mert nem olvastam el az összes HSZ-od...) -
#12688
Fire/SOUL/CD
félisten
bozsozso
#12687
válasz
bozsozso
#12687
üzenetére
Hát valami biztosan átkonvertálja a dátum formátumot, nyilván ez tény. Ha nem az OS, akkor csak a Word lehet. Indítsd el azt a Word-ot és manuálisan szúrj be egy dátumot Beszúrás/Dátum és idő és akkor meg kell jelennie egy ablaknak, hogy milyen formátumban, milyen nyelvnek megfelelően tegye. Add meg amit kell és kell lennie alapértelmezett gombnak is, azon katt.
Ha ezek után is gond lesz, akkor már passzolom.
-
#12680
Fire/SOUL/CD
félisten
bozsozso
#12679
-
#12677
Fire/SOUL/CD
félisten
bozsozso
#12676
-
#12675
Fire/SOUL/CD
félisten
bozsozso
#12674
-
#12673
Fire/SOUL/CD
félisten
bozsozso
#12672
válasz
bozsozso
#12672
üzenetére
A másik gépen az OS területi beállításait(terület és nyelv) nézd meg, ott lehet a dátum formátum megváltoztatva (és lehet, hogy nem csak az, hanem pénznem stb stb)
Arra viszont ügyelj, hogy ez globális jellegű beállítás. Ha a másik OS alatt esetleg adatbázis-kezelő alkalmazásokat is futtatnak, akkor lehet, hogy nem véletlenül mások a területi beállítások. Ha így lenne, akkor akár az adatbázis progi működését is felboríthatod.
-
#12650
Fire/SOUL/CD
félisten
Viktor89
#12649
-
#12598
Fire/SOUL/CD
félisten
Delila_1
#12597
-
#12595
Fire/SOUL/CD
félisten
Delila_1
#12594
-
#12593
Fire/SOUL/CD
félisten
Delila_1
#12592
válasz
Delila_1
#12592
üzenetére
Jól van leesett...
(Én a feltételen belüli ÉS kapcsolatról beszéltem, nem a szorzatösszeg tagjainak ÉS kapcsolatáról...)Egyébként osztom a véleményt, ehhez már egy kimutatás dukálna.
(4 évre visszamenőleg, 48 darab, kilométeres képletet kellene írogatni, másolgatni, módosítgatni) -
#12591
Fire/SOUL/CD
félisten
Delila_1
#12590
-
#12589
Fire/SOUL/CD
félisten
amdk7
#12587
-
#12586
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#12582
válasz
Fire/SOUL/CD
#12582
üzenetére
Ja, angol excel... Figyelmetlen vagyok...
SZORZATÖSSZEG = SUMPRODUCT
HÓNAP = MONTHErre cseréld le a képletben a függvényeket... Bocsesz...
-
#12582
Fire/SOUL/CD
félisten
amdk7
#12579
január
=SZORZATÖSSZEG((HÓNAP(A2:A8)=1)*(C2:C8))/SZORZATÖSSZEG((HÓNAP(A2:A8)=1)*(B2:B8))február
=SZORZATÖSSZEG((HÓNAP(A2:A8)=2)*(C2:C8))/SZORZATÖSSZEG((HÓNAP(A2:A8)=2)*(B2:B8))stb, stb.
Csak a képlet feltételében szereplő értéket (ami a hónap sorszáma) kell 2 helyen módosítani, illetve azokat a cellákat, amelyekbe ezek a képletek kerülnek, azokat %-ra kell formázni.
-
#12557
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#12556
válasz
Fire/SOUL/CD
#12556
üzenetére
Ja most nézem, Én még azt is beletettem, hogy a cella értékét is vizsgálja, nem csak a betűszínt/háttérszínt/betűkészletet...
Ha arra nincs szükséged, akkor töröld ki a .Value = MySrcRange.Value And _ sort. -
#12556
Fire/SOUL/CD
félisten
poffsoft
#12555
válasz
poffsoft
#12555
üzenetére
Ez most csak a példa kedvéért C1 cellával hasonlítja össze az A1:B10 tartományt és egy MsgBox fogja kiírni, hogy hány megegyező van a tartományban. Én egy Command Button-hoz rendeltem most, de természetesen ez már lényegtelen, utólag lehet módosítani a saját kedved szerint.
Private Sub CommandButton1_Click()
Dim MySrcRange As Range
Dim MyDestRange As Range
Dim MyCell As Range
Dim MyCounter As Integer
Set MySrcRange = Range("C1")
Set MyDestRange = Range("A1:B10")
MyCounter = 0
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) And _
.Value = MySrcRange.Value And _
.Interior.Color = MySrcRange.Interior.Color And _
.Font.Color = MySrcRange.Font.Color And _
.Font.Name = MySrcRange.Font.Name Then MyCounter = MyCounter + 1
End With
Next MyCell
Set MySrcRange = Nothing
Set MyDestRange = Nothing
MsgBox (MyCounter)
End Sub -
#12554
Fire/SOUL/CD
félisten
poffsoft
#12553
-
#12541
Fire/SOUL/CD
félisten
amdk7
#12540
Nem kell az egyenlőségjelek, meg a macskakörmök. Így legalább nem hibát dob, bár abban nem vagyok biztos, hogy úgy fog működni, ahogy azt szeretnéd, de legalább szintaktikailag helyes lesz a képlet.
=IF(J5>=1;DATE(YEAR(I5)+J5;MONTH(I5);DAY(I5));DATE(YEAR(I5);MONTH(I5)+(J5*12);DAY(I5)))
-
#12535
Fire/SOUL/CD
félisten
Delila_1
#12534
-
#12531
Fire/SOUL/CD
félisten
zoo8800
#12529
-
#12515
Fire/SOUL/CD
félisten
KMan
#12508
-
#12506
Fire/SOUL/CD
félisten
KMan
#12505
-
#12498
Fire/SOUL/CD
félisten
WLDRK
#12496
"Szerinted van erre megoldás ami nem makro?"
makró nélkül + emberi beavatkozás nélkül nem hiszem, hogy kivitelezhető. Ha meg már emberi beavatkozás kell, akkor ez a feladat max 5 percet vesz igénybe dec 31.-én...
(12x kell eljátszani a szűrést meg a copy/paste-et...)Olyan automatizált makrót lehet írni, ami ha valamilyen változás/módosítás hajtódik végre az összesítő munkalapon, akkor a megadott munkalapokra átmásolgatja az adott hónaphoz tartozó bejegyzéseket/sorokat. (pl van egy 2012 nevű munkafüzet, ezen belül egy összesítő nevű munkalap meg még 12 darab, a hónapok nevével illetett munkalap. Ha az összesítőn történik módosítás, akkor lefut a makró, és a háttérben elintézi a dolgot)
-
#12495
Fire/SOUL/CD
félisten
WLDRK
#12493
Használj szűrőt. A dátumokat tartalmazó oszlopokat szűrőd Dátumszűrők/E hónapban, aztán egérrel kijelölöd a szűrt területet és copy/paste, majd megszünteted a szűrést.
Egyszerűbb, mint feleslegesen függvényt írni (persze ha csak ennyi a feladat és nincs egyéb igény, amiről esetleg nem tettél említést)
-
#12494
Fire/SOUL/CD
félisten
fi:zi'k
#12492
válasz
fi:zi'k
#12492
üzenetére
Hogy mennyire jó, azt nem tudom, de ha úgy működik ahogy szeretnéd, akkor nyilván jó.
Szövegesen leírva ez a képlet azt csinálja, hogy ha az E19 számot tartalmaz, akkor megvizsgálja az Y19 tartalmát, ha Y19 nem üres, akkor összeszorozza a 2 megadott cellát, ha meg üres, akkor kerekítést is eszközöl.
Na ha ez volt a feladat/a cél, akkor a képlet jó.
Ha így mondatszerűen meg tudod fogalmazni a feladatot, akkor a képletek legyártása is könnyebb.
-
#12490
Fire/SOUL/CD
félisten
WLDRK
#12488
Először azért kérdezd meg, hogy elfogadják-e, mert a másik lehetőség az az, amit pedzegetsz is, azaz a makrózgatás, persze vannak olyan alapvető dolgok, amik esetén elkerülhető a makró, de ahhoz pontosan kell tudni a feladatot.
fi:zi'k
Az ÉS függvényen belül felsorolhatsz több feltételt, nem csak kettőt, és az hivatkozhat bármely cellára és annak tartalmára is. -
#12487
Fire/SOUL/CD
félisten
fi:zi'k
#12479
válasz
fi:zi'k
#12479
üzenetére
A 2 függvény között a hibakezelésben van különbség, mert az első azt is megvizsgálja, hogy ha az E19 nem üres, akkor szám-ot(vagy számmá alakítható szöveget) tartalmaz-e vagy sem, hisz string-el nem lehet matematikai műveleteket végezni. A második ezzel nem foglalkozik, így ha az E19-be beírod, hogy UBUL, akkor az #ÉRTÉK hibát ad eredményül, míg az első függvény nem csinál semmit(pontosabban a kötőjelet adja vissza, mint üres cella esetén is)
(Amúgy a vacsorázásra értettem a gonoszkodást... Az úgy hajnali fél 1 tájékán szokott esedékes lenni) 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
(Én a feltételen belüli ÉS kapcsolatról beszéltem, nem a szorzatösszeg tagjainak ÉS kapcsolatáról...)
Új hozzászólás Aktív témák
- Xiaomi 15T Pro - a téma nincs lezárva
- Pécs és környéke adok-veszek-beszélgetek
- Path of Exile (ARPG)
- gban: Ingyen kellene, de tegnapra
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Xiaomi 15 - kicsi telefon nagy energiával
- Sütés, főzés és konyhai praktikák
- Assetto Corsa Rally
- OLED monitor topic
- Riasztó topik
- További aktív témák...
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- 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!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- PC Game Pass előfizetés
- Dell Precision 7550,15.6,FHD,i7-10850H,16GB DDR4,256GB SSD,Quadro T2000 4GB VGA,WIN11,LTE
- Dell Latitude E7270,12.5",FHD,i7-6600U,8GB DDR4,256GB SSD,WIN11
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- iPhone 11 64GB 100% (3hónap Garancia)- AKCIÓ
- Lenovo ThinkPad L13 Gen 3 13,3" - i5 1235U, 16GB RAM, SSD, jó akku, magyar bill. - számla, 6 hó gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest