- Honor Magic6 Pro - kör közepén számok
- iPhone topik
- Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
- Milyen okostelefont vegyek?
- Hatalmas külső kijelzővel és akkumulátorral érkezett meg a Honor Magic V Flip
- Bivalyerős lett a Poco F6 és F6 Pro
- Samsung Galaxy S23 Ultra - non plus ultra
- Android szakmai topik
- Nem egyedül érkezett a OnePlus 6
- Redmi Watch 4 - olcsó hús, sűrű a leve
Hirdetés
-
Computex 2024: várakozásokat felülmúló számok
ph Szinte megduplázta az előző évi látogatószámot a kiállítás, mutatva, hogy van momentum az iparágban.
-
Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
ma Több lesz kívül a változás, mint belül.
-
Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
it Adatvédelmi panasz érkezett Ausztriában a Google ellen, a vád szerint követik a Chrome böngésző felhasználóit.
-
Mobilarena
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
-
Delila_1
Topikgazda
válasz mr.nagy #11550 üzenetére
Majd kiderül, jól értettem-e. Mindkét lapon a G oszlopbeli értéket kell összegezni, vagy a különbségüket kiszámolni? Kivonásnál melyik a kivonandó?
A képen az első lap G értékéből vontam ki a második G-jét, ill. összegeztem azokat.
A második lap H2 cellájának képlete:
=HA(INDIREKT("első!A"&HOL.VAN(E2;első!E:E;0))=380;INDIREKT("első!G"&HOL.VAN(E2;első!E:E;0))+G2;INDIREKT("első!G"&HOL.VAN(E2;első!E:E;0))-G2)
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
válasz mr.nagy #11552 üzenetére
Ez a makró megoldja, bár egyúttal megszünteti az ellenőrzés lehetőségét. Az eredeti értékeket tartalmazó G oszlopot el is rejthetted volna.
Sub szamitas()
Dim WS1 As Worksheet, WS2 As Worksheet, sor%, usor%, lel
Set WS1 = Sheets("első")
Set WS2 = Sheets("második")
WS2.Select
usor% = Range("G2").End(xlDown).Row
For sor% = 2 To usor%
lel = WS1.Range("E:E").Find(Cells(sor%, "E")).Row
If WS1.Cells(lel, 1) = 380 Then
Cells(sor%, 7) = WS1.Cells(lel, 7) + Cells(sor%, 7)
Else
Cells(sor%, 7) = WS1.Cells(lel, 7) - Cells(sor%, 7)
End If
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz mhorvat #11549 üzenetére
Sajnos nem értem mit is szeretnél, mert vagy nem jól írtad le korábban, vagy Én nem értem jól... 60%-ra nem lehet felvinni az egyik oszlopot, csak ha arányosan csökkented a másikat, ellenkező esetben a szumma összege is megváltozik...
Próbáld meg újra leírni, egyszerű számokkal pl szumma=1000 (100%), részösszeg1=500(50%), részösszeg2=500(50%) és akkor ebből mit is szeretnél kapni. Így talán meg fogom érteni...
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)
-
Delila_1
Topikgazda
-
Mythunderboy
csendes tag
válasz Delila_1 #11513 üzenetére
Nagyon Köszi a segítséget! rájöttem,hogyan működik és egy problémára akadtam, azok az értékek amiket szűrnék hivatkozási értékek és ezért nem működik...ha simán beírok a vizsgált oszlopba számokat tudja szűrni..bár így is az első értéket duplán jeleníti meg...(miért?)..szerintem ez így jó segítség lenne ha ezeket a problémákat is segítenél megoldani...előre is Köszönöm:
Üdv:TBoy
Ui:Ha nem egy oszlopot vizsgálok hanem egy tömböt(Lásd kép) akkor hogy tudnám szűrni?Spacesynth 4 ever!
-
Delila_1
Topikgazda
válasz Mythunderboy #11558 üzenetére
A hivatkozási értéken mit értesz? Függvényt?
Most az A oszlopba képleteket vittem be (amik a D oszlop azonos sorában lévő értéket szorozzák 2-vel). A B oszlopba különböző számokat tettem. A
Sub EgyeniErtekek()
Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Munka2").Range("A1:B1"), Unique:=True
End Submakró rendben átviszi a Munka2 lapra a két oszlopból azokat a sorokat, ahol az A érték a B-vel együtt egyszer fordul elő. Pl. ha az A oszlopban 2× szerepel 6, a B oszlop hozzájuk tartozó értéke különböző, akkor a Munka2 lapon is 2× lesz ott a 6-os, a különböző B értékkel. Ha viszont mind a két 6-oshoz azonos B tartozik, a másik lapon csak 1× jeleníti meg.
Az oszlopok első sora cím legyen, lehet hogy ennek hiánya miatt duplázta az első sort.
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
válasz Mythunderboy #11561 üzenetére
Szívesen. Örülök, hogy összejött.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mythunderboy
csendes tag
válasz Delila_1 #11562 üzenetére
Még két dologban szeretnék segítséget kérni.
1,Mivel a megszűrendő értékek folyamatosan változnak mindig indítanom kell a makrót hogy frissüljön a szűrt érték. Van megoldás arra hogy magától frissítsen ha új értékek jelennek meg? Vagy egy aktiváló gombbal? Az auto_open csak az első nyitásnál frissit aszem...
2, A kapott értékeket növekvő sorrendbe tudom helyezni szintén frissülve egy makróval?
Köszönöm
TboySpacesynth 4 ever!
-
Delila_1
Topikgazda
válasz Mythunderboy #11563 üzenetére
Ha a Munka1 lap A vagy B oszlopába írsz, a makró megcsinálja. Ezt a makrót a lapodhoz kell rendelned - amire több leírást találsz itt a fórumon.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Then
Dim WS2 As Worksheet, usor%
Set WS2 = Sheets("Munka2")
Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Munka2").Range("A1:B1"), Unique:=True
usor% = WS2.Range("A1").End(xlDown).Row
WS2.Range("A1:B" & usor%).Sort Key1:=WS2.Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End SubSzerk.: a régi makrót töröld ki.
[ 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.
-
mr.nagy
tag
válasz Delila_1 #11553 üzenetére
Kipróbáltam, jól működik, úgy tűnik. Azonban közben rájöttem, hogy ez még így nem teljes, ugyanis még a következő lehetőségek is elő adódhatnak.
1. az első fülön a művelet oszlopban nem 380 vagy 390 szerepel, hanem bármilyen más érték. Ekkor ezeket figyelmen kívűl kellen hagynia.
2. az első fülön a művelet oszlop 380 értéket tartalmaz, azonban nincs a második fülön hozzá adat (azonosító). Ekkor az adott sor B, C, D, E, G oszlopában szereplő mezőket az első üres sorba át kellene tenni az elsőről a másodikra a megfelelő oszlopokba.[ Szerkesztve ]
HMNote10Pro
-
Pá
addikt
"Dinamikus web query jelszóval védett oldalakra" témában senki sincs otthon?
Közben még eszembe jutott ez+az, amivel fel lehetne turbózni.''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Delila_1
Topikgazda
válasz mr.nagy #11565 üzenetére
Teszteld ezzel. Csak estefelé leszek gép közelében, addig biztosan kibuknak a hibák.
A makró első részében (a **-os sorig) az első lap 100. oszlopába teszek egy x-et ahhoz, hogy a második rész gyorsabb futású legyen. Ezt az oszlopot a végén törlöm. Ha foglalt a 100. oszlop (CV), a 100-at a replace funkcióval írd át egy üres oszlop számára. Négy helyen szerepel.Sub szamitas()
Dim WS1 As Worksheet, WS2 As Worksheet, sor%, usor1%, usor2%, lel
Set WS1 = Sheets("első")
Set WS2 = Sheets("második")
WS2.Select
usor1% = Range("G2").End(xlDown).Row
For sor% = 2 To usor1%
On Error GoTo Köv
lel = WS1.Range("E:E").Find(Cells(sor%, "E")).Row
Select Case WS1.Cells(lel, 1)
Case 380
Cells(sor%, 7) = WS1.Cells(lel, 7) + Cells(sor%, 7)
WS1.Cells(lel, 100) = "x"
Case 390
Cells(sor%, 7) = WS1.Cells(lel, 7) - Cells(sor%, 7)
WS1.Cells(lel, 100) = "x"
End Select
Köv:
Next
'***************************************************************************
WS1.Select
usor1% = Range("A2").End(xlDown).Row
For sor% = 2 To usor1%
If Cells(sor%, 1) = 380 And Cells(sor%, 100) <> "x" Then
usor2% = WS2.Range("E2").End(xlDown).Row + 1
Range(Cells(sor%, 2), Cells(sor%, 5)).Copy WS2.Cells(usor2%, 2)
Cells(sor%, 7).Copy WS2.Cells(usor2%, 7)
End If
Next
Columns(100) = ""
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
AtHoS
nagyúr
Sziasztok!
Belefutottam 2003-as excelnél egy kis problematikába.
Van egy táblám, amiben oszloponként vannak tárolva különböző típusú kiadások.
Az egyik oszlopban több "beszállítótól" származó összeg szerepel, melyek egymástól a cella háttérszínével vannak megkülönböztetve.A tábla mellett található egy Kimutatás fül, melyen az előbbi oszlop értékeit cellaszínenként szétbontva kellene összegezni.
Kis keresgetés után kiderült, hogy a 2003-as excelben nincs beépített függvény ehhez, így kialakítottam a következőt, melyet beraktam egy modulba:
Function szinesosszeg(tartomany As Range, szin As Range)
Dim szam
For Each element In tartomany
If element.Interior.ColorIndex = szin.Interior.ColorIndex Then
szam = szam + element.Value
End If
Next
szinesosszeg = szam
End FunctionEz rendben is működik, szépen össze is számolja a kérdéses cellákat, de sajnálatos módon az összegzés nem frissül sem automatikusan sem F9-re.
Viszont, ha belemegyek a kérdéses cella/cellák szerkesztésébe és semmiféle változtatás nélkül ütök egy entert, akkor azonnal frissíti az összegzést. Persze mindezt az összes, a fenti függvény hívását tartalmazó cellára el kell végezni.
Ebből nekem nagyon úgy tűnik, hogy a kérdéses függvény hívását kellene valamilyen szinten automatizálni. Mivel az összegzendő cellák más lapfülön találhatóak, így kézenfekvő lenne a Kimutatás fül aktiválásával ezt végrehajtani.
Sajnos itt akadtam el, ezt hogyan lehetne általánosan megoldani, mivel a függvény cellánként változó bemenő paramétert igényel (szín kód).
read-only mode on the forum
-
Gab
senior tag
sziasztok,
sajnos az excel nem a fő területem
eddig minden rendben volt, az utóbbi egy hétbe jött elő a hiba, próbáltam 2003 és 2007 -ben is
egyszerűadott 2 szám oszlop A, B
C -ben summa szorzat amit meg is csinál, majd lehúznám érvényesítve a többi sorra is
a képletet rendben átmásolja megfelelően az adott oszlop, adott sorára hivatkozva, DE
a szorzat mégis mindenhol ugyanannyi lesz, hiába mások a számok és a másolt képletek -
félisten
-
radam
csendes tag
Sziasztok!
Egy apró gyors segítséget szeretnék kérni.
Feltételes formázást szeretnék beállítani egy oszlopra úgy, hogy ha egy adott cella a három elemű lista (pl.: H, VL, "" [üres]) értékeitől eltérő tartalmú, akkor legyen mondjuk piros.Illetve arra lehet feltételes formázást kérni, hogy ha egy oszlopban dátumok vannak viszont keveredik a rövid és a hosszú dátumformátum, akkot különböző színnel jelöljük meg őket.
Köszönöm.
-
Gab
senior tag
válasz Fire/SOUL/CD #11571 üzenetére
=SZUM(A1*B1)
=SZUM(A2*B2)
=SZUM(A3*B3)és mégis mindig az A1*B1 végeredménye jelenik meg mindnhol
tök egyszerű minden és mégsem
-
radam
csendes tag
Szia!
Van az excel-nek egy olyan beállítási lehetősége, hogy Számítási beállítások (2007-ben: Excel beállításai/Képletek/Számítási beállítások), itt a Munkafüzet kiszámítása beállítás neked valószínűleg nem Automatikusra van állítva (hanem Csak kérésre). Állítsd át Automatikusra és próbáld ki!
-
Zomb€€
őstag
Sziasztok!
Egy Access makróból szeretnék excelbe másolni fileokat, és közben el is szeretném nevezni az adott sheetet.
Az alábbi parancsot használom:
Set Wsheet = Wbook.Worksheets.Add
Viszont itt nem tudok nevet megadni. Hogy lehet megoldani, hogy a default "Munka4" helyett mindjárt bizonyos névvel hozza létre a munkalapot?"Egyszer fent...egyszer fent!"
-
m.zmrzlina
senior tag
Van egy UserForm-om aminek az Initialize eseményében értéket adok két (a kód elején) ilyen
formában deklarált változónak:Private jovalasz As Integer
Private roszvalasz As IntegerHogyan tudom ezt a változót átadni A UserForm-on lévő TextBox KeyDown eseményének?
A KeyDown esemény azt csinálja, hogy ha a TextBoxba valaki <Enter>-t üt akkor megvizsgálja hogy a TextBox tartalma egyenlő-e valamivel és ha igen akkor a jovalasz-t növeli eggyel hanem akkor a rosszvalaszt és egy Label-en kiírja azt. -
ArchElf
addikt
válasz m.zmrzlina #11581 üzenetére
Ha az Initialize-ban deklarálod, akkor sehogy (mert csak annak a kontextusában léteznek).
Ha viszont a Form-on definiálod, akkor a form bármely tagja eléri (nem kell átadni), ha Protected-ként deklarálod, akkor a Form és a leszármazottjai, ha Internal-nak, akkor az adott namespace-en belül bármelyik tag, ha pedig Public-nak, akkor akárki.AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
m.zmrzlina
senior tag
válasz ArchElf #11582 üzenetére
Nem az Initialize-n belül deklaráltam ott csak értéket adtam neki. Időközben kiderült, hogy elírtam a változó nevét (rossz egy sz-szel ) mindenhol máshol pedig kettővel.
Ha viszont a Form-on definiálod, akkor a form bármely tagja eléri (nem kell átadni),
Csak rendesen le kell írni.Köszi
-
ArchElf
addikt
válasz m.zmrzlina #11583 üzenetére
Option Explicit
AE
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
AtHoS
nagyúr
Erre valaki valami értelmeset?
Elgondolkodtam, hogy a Kimutatás fül aktiváláshoz beteszek hívást a kérdéses függvényre, mely hívásban fixen lesznek a tartományok és a színkódok. Bár a színkódokat le tudom kérni forrás cellákból, így talán azokat nem kell fixálni.
Minden esetre nem a legrugalmasabb ez a megoldás, de hát ha senki nem tud jobbat....
read-only mode on the forum
-
biker
nagyúr
OOO-ban hol van elrejtve az, hogy ÚJ dokumentum megnyitásakor automatikusan ne formázzon át cellákat?
van egy csv-m, benne ilyen adatok: 3215.05 pl, ezt megnyitva OOO-ben default dátummá alakítja, és 3215-05-01 lesz belőle, ami nem alakítható vissza
Elektromos autó töltő berendezések | Mesterséges növényvilágítás | Mai ajánlatunk: www.gerisoft.hu | www.e-autotoltokabel.hu | www.agrar-vilagitas.hu |
-
commanDOS
senior tag
Sziasztok!
Van egy 2 oszlopos 7 soros cellatartományom, a beírt számokat soronként el kellene osztani egymással, majd összeadni. Tehát pl A1/B1+A2/B2.
Eddig semmi. De a sorok közül változó hogy mennyit töltök fel. Lehet, hogy csak az első 3-mat, de így a többi üres lesz, azaz zérus. A 0-val meg ugye nem lehet osztani, így hibát dob.
Valami olyan "HA" fv. változat kellene, ami csak akkor enged osztani, ha az adott cellában számérték van. Egyéb esetben a teljes tagot ...+(A3/B3)+.... kihagyja az összeadásból.Tud valaki segíteni?
[ Szerkesztve ]
Kihelyezett tőke visszaáramoltatási szociális ügyintéző: pénzbehajtó :)
-
félisten
Válts LibreOffice-re, ami OOO után nem jelent nagy gondot, abban a Calc 1 millió sort kezel már. [link]
"Higher Number of Rows Per Calc Sheet
Calc spreadsheets now support 1 million rows instead of former 65,536 rows. "commanDOS
0-t lehet osztani, csak értelmetlen, viszont a 0-val való osztás nem is értelmezhető.
Ha azt szeretnéd, hogy ha 0 bármelyik is, attól még 0 legyen az eredmény, akkor ezt a képletet írd be és másold le majd szummázd=HA(HIBÁS(A1/B1);0;A1/B1)
[ Szerkesztve ]
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)
-
commanDOS
senior tag
válasz Fire/SOUL/CD #11598 üzenetére
Érthető, működik.
Köszi a segítséget!Kihelyezett tőke visszaáramoltatási szociális ügyintéző: pénzbehajtó :)
-
AtHoS
nagyúr
Ezt nem hiszem el
Megcsinálom a kódot a fül aktiválásához, ami működik is úgy ahogy kell (bár így persze rugalmatlan a kezelés, de legalább frissen mutatja az adatokat)
Ezután nekiálltam egy ellenőrzést belevinni a kimutatási táblába, hogy egyetlen sor se maradjon ki az összegzésekből.
Ezt is sikerült abszolválnom. Saját magam ill. az ellenőrzési folyamat kontrolljához a fejlesztés idejére beiktattam egy fül aktiválás nélküli színezett cella összeadást. Gondoltam majd manuálisan frissíttetem a tartalmát a kontrollhoz.
Viszont csak nézem, hogy folyamatosan jó értékek szerepelnek ebben a kontroll cellában.
Nekiálltam kutakodni mi is okozhatja ezt, de bevallom őszintén, hogy nem igazán jöttem rá.
Ekkor beiktattam egy a problémamegoldást elindító függvénylekérési csoportot és meglepően tapasztaltam, hogy ezek is frissülnek szépen, ahogy kell.Mivel nem tudtam mire vélni a dolgot kiszedtem a fül aktiválásakor lefutó kódot, hogy lássam mi is történik. Mondanom sem kell, hogy azóta is frissül rendesen minden egyes cella.
Legyen szíves valaki világosítson fel miért is kellett két napot azzal töltenem, hogy megoldjak egy olyan problémát, ami a jelek szerint nem is kellett volna, hogy probléma legyen
read-only mode on the forum
Új hozzászólás Aktív témák
- Skoda, VW, Audi, Seat topik
- Router gondok
- Gaming notebook topik
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Elektromos autók - motorok
- Computex 2024: analóg árkád kontroller a Varmilo gondozásában
- Computex 2024: jóvágású Gigabyte alaplap Threadripperek alá
- Veszprém és környéke adok-veszek-beszélgetek
- Honor Magic6 Pro - kör közepén számok
- Jövedelem
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )