- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Samsung 980 PRO 1TB M.2 (MZ-V8P1T0BW) vs Samsung 990 PRO 2TB M.2 (MZ-V9P2T0BW)
- sziku69: Szólánc.
- Elektromos rásegítésű kerékpárok
- Magga: PLEX: multimédia az egész lakásban
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Imilenni: Egy kis depi, remélem elfér itt :) 2#
-
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
-
Carasc0
őstag
-
Fferi50
Topikgazda
válasz
Carasc0
#27795
üzenetére
Szia!
A cellákban levő szöveg betűszínét változtasd meg a háttérszínnek megfelelően - akkor nem fog látszani, mi van bele írva. Amikor megmutatod, akkor visszaváltod a színt. (Range("A1").font.color=vbwhite fehér színű betűk, Range("A1").font.color=vbblack fekete színű betűk.)
Üdv.
-
Carasc0
őstag
válasz
Fferi50
#27788
üzenetére
Jaj köszönöm! Működik minden...
Delila: Oké betettem, így már villámgyorsan rendez!
Viszont van egy "AJAJ" problémám. A táblázat celláit, amely a script alapján írja bele randomra amit kell, képek takarják. Ha nagyítok/kicsinyítek akkor hirtelen a képek eltünnek majd visszajönnek. Ez nem jó, mert így lehet látni a cellák tartalmát egy pillanatra. Ez ellen nem lehet valamit csinálni?
-
#27794
Crystalheart
őstag
Crystalheart
őstag
Üdv, belefutottam egy nem várt gondba. Adott két, majdnem azonos kinézetű munkalap, az egyiken a raktáron lévő termékek nyilvántartását, a másikban ugyanolyan elrendezéssel a termékek eladási számait tárolom. (Ergo igyekszem a kétdimenziós celláknak egy új dimenziót adni, ahol az eladási számláló van.)
Hogy az eladások regisztrálásakor mindkettőt könnyen elérjem, párhuzamosan jelenítem meg a két munkalapot.Amikor csak egy munkalapon szerkesztek, például új termékek felvitelekor vagy létező termékek darabszámának növelésekor, akkor a 2 soros fejlécet és az első oszlopot rögzítem, különben összekeverednék.
Ha ezt mindkét megjelenített munkalapon megteszem, akkor sajnos a párhuzamos görgetés megbolondul. A bal oldali, első panel görgetésekor előbb lép kettőt, mire a második panelon is elkezd görgetni, mintha a párhuzamosság csak akkor működne, amikor a mozgatható rész is túllép a fejlécen. Az eredmény, hogy hacsak nem görgetem az oldalt a legtetejére, akkor elcsúszik a két lista, és semmit sem érek az egész párhuzamossággal, mert nem párhuzamos, és biztosan tévesztek. Nem találok megoldást...
Excel 2007-et használok XP-n, nem tudom, az újakban is jelen van-e ez a probléma, vagy hogy egyáltalán probléma-e, nem csak én szúrok el valamit. Próbáltam neten kutatni, de nem leltem még az említését sem. Tudnátok ajánlani valami megoldást?
Mod: a párhuzamos görgetés ki-bekapcs megoldotta, én lame, csak ezt nem próbáltam. De érdekes, hogy mitől lehetett, még mindig nem tudom.
-
Delila_1
veterán
válasz
Hege1234
#27785
üzenetére
Most igen, előbb volt kép.
A mostaniból tudtam meg, hogy az F és G oszlopokban képletek vannak, és ezek törteket adnak eredményül.
A kigyűjtésben a DARABTELI függvény kritériumába egész számot írtunk, hát persze, hogy nem talált megfelelőt.A könnyebb utat választottam. Felvettem 2 segédoszlopot. Az elsőben (H) nullát íratok oda, ahol az F és G is üres(nek látszik), ahol pedig az F-ben érték van, oda a kerekített értékét íratom. Ebben az oszlopban számol a K:L tábla.
Az I oszlop a G értékeit kerekíti, ezt az N:O számlálja össze. -
Fferi50
Topikgazda
válasz
Carasc0
#27787
üzenetére
Szia!
A munkalap activate eseménykezelőjébe kell betenned a makró meghívását.
Munkalapfülön jobb egérgomb - kód megjelenítése - bal oldalon a lenyílóban Worksheet kiválasztása, utána jobb oldali lenyílóban activate kiválasztása. A megjelenő sub end sub sorok közé beírod a makród nevét.Ezek után minden olyan alkalommal, amikor aktívvá teszed a lapot (másik lapról ide átjössz), lefut a makród.
A másik kérdésedre igen a válasz.
Üdv.
-
Carasc0
őstag
válasz
Delila_1
#27602
üzenetére
Szia!
Még egyszer köszönöm (meg a többieknek is) a kódot. #27602. számú hozzászólás kódját alkalmazom, mert a céljaimnak ez bőven jó. Annyi hogy kiterjesztettem 36 sorra és csináltam egy mátrixot ami a kevert számokat kirakja nekem randomra (FKERES-el megoldottam könnyedén). Egyedüli kis mütyürke problémám hogy egy picit lassú. Tegnap még tök gyorsan dutott a makró. Ma meg indítom a makrót hogy csináljon egy új keverést és olyan 3-5 másodpercet várnom kell legalább. Nem értem mi a gondja. Tehát 1-36 közötti számokat rendez a kódod szerint. Nem hiszem hogy ilyen lassan kéne futnia.
És egy másik kérdés. Azt hogy lehet megoldani hogy ha elindítom az Excel dokumentumot, akkor a Makró automatán egyszer fusson le. Bár igazából az lenne a legtutibb ha ez az automata makrófutás annyiszor következne be, ahányszor arra a munkalapra kattintok amelybe megvan írva a VBA kód.
Egy másik (nehezebb) kérdés. Excel-be VBA segítségével programozható animált Progressbar?
-
-
Zola007
veterán
Köszönöm srácok
D5, Mutt, Fferi50egy újabb probléma merült fel, névszerint hogy a másik táblázatban több oszlopban vannak az adatok
Se az index, se az indirekt nem nagyon fogadja el, ha több oszlopot akarok beadni
Mindig jobbra haladva kellene egy adott oszlop adott tartományát átvizsgálni, ha ez tele, akkor ugorjon a következő megadott tartományra és ha az nincs tele, akkor az utolsó nem üres cella értékére lenne szükség.
Ha ez az tartomány is tele van, akkor megint a következőre, stb.Ez is meg lehet oldani még makró nélkül?
Másodsorban azt szeretném kérdezni, hogy valami jó anyagot tudnátok ajánlani a függvényhasználatok megtanulásához és makróíráshoz?
Egyrészt zavar, hogy nem értem hogyan is működik amit írtok megoldást.
Másrészt gyakran futok ilyen problémákba és a topikot nem akarnám mindig ezzel terhelni + nekem is jobb lenne, ha instant meg tudnám oldani. -
Delila_1
veterán
A lenti makró az A1 cellában lévő rajzszámhoz tartozó képhez készít hiperlinket a B1 cellába. A makróban kell megadni az elérési útvonalat, és a kép kiterjesztését.
Sub rajz()
Dim utvonal As String
utvonal = "F:\jpg\Fotó\" 'ide kell a saját útvonalad
ActiveSheet.Hyperlinks.Add Anchor:=Range("B1"), Address:= _
utvonal & Range("A1").Value & ".jpg", TextToDisplay:=Range("A1").Value
End SubAhhoz, hogy az összes rajzszámhoz beírhassuk a hiperlinket, meg kell adnod, melyik oszlopban vannak a rajzszámok, melyik oszlopba kéred a hiperlinket.
Az is fontos, hogy a rajzszámos oszlop hányadik sorában kezdődnek a számok, és hogy vannak-e olyan sorok, amikben nincs rajzszám. -
-
Delila_1
veterán
válasz
Hege1234
#27760
üzenetére
Felvettem egy segédoszlopot, a H-t. Itt nullát ad, ha az F és G is üres. A zöld hátterű oszlop helyett ebben számoltatom össze az egyes értékek előfordulásának a darabszámát a J és K oszlopban. A pirosakat az M és N számolja meg.
A K3 és M3, valamint a H2 képletét lemásoltam az alattuk lévő sorokba.
Remélem, kifér a kép teljes egészében.
-
Fferi50
Topikgazda
Szia!
A válasz IGEN, meg lehet csinálni.
Bővebben: A rajzszámot tartalmazó cellát kijelölöd, jobb egérgomb, hivatkozás - kiválasztod a megfelelő fájlt, kitöltöd a szükséges mezőket, majd ok.
Ezt az egészet makrórögzítővel felveszed, majd "paraméterezed" és lefuttatod minden cellára nézve.
Ha a makrót rögzítetted és ide felteszed, segítünk a paraméterezésben.Üdv.
-
Telda
addikt
Hali!
Van nekem sok-sok rajszámom az excelben.
Illetve van egy mappám, ahol ugyan ilyen néven megtalálható az összes műhelyrajz.
Az excelben lévő rajzszámok mellé oda lehet valahogy tenni a mappában lévő fájlok hyperhivatkozását?
Hogy csak rá kelljen kattintani és megnyitja a rajzot. -
Hege1234
addikt
-
Fferi50
Topikgazda
válasz
sedyke
#27761
üzenetére
Szia!
Úgy gondolom, megszületett a kielégítő megoldás:
A makró:
Sub termeklistas()
Dim sh As Worksheet, ws As Worksheet, xx As Integer, yy As Integer
Set ws = Sheets("Munka1")
yy = 1
For Each sh In Worksheets
xx = 1
If sh.Name <> ws.Name Then
Do While True
If sh.Cells(xx, "B").Value = "" Then Exit Do
ws.Cells(yy, "N").Value = sh.Cells(xx, "B").Value
ws.Cells(yy, "O").Value = sh.Name & "!"
ws.Cells(yy, "P").Value = xx - 1
xx = xx + 51
yy = yy + 1
Loop
End If
Next
End SubA makró az N oszlopba beírja a termékkódot, az O oszlopba a munkalap nevét, felkiáltójellel kiegészítve, a P oszlopba pedig az adott termék hol kezdődik a munkalapon -1.
Hibaellenőrzés (mármint, hogy valóban termékkód van-e minden 51. cellában, nincs benne, azt a listából láthatod, ha átnézed).
Ezek után a képletek:
R1 cella (M)[/=FKERES($B$1;$N$1:$P$10;2;0)M]
S1 cella (M)=FKERES($B$1;$N$1:$P$10;3;0)(/M)
B3 cella (M)=INDIREKT($R$1 & "B" & $S$1+SOR())(/M)
C3 cella (M)=INDIREKT($R$1 & "C" & $S$1+SOR())(/M)Az első sor tovább értelemszerűen változtatva csak a B,ill. C helyére írva az aktuális oszlopot.
Ezután lefelé másolhatod a képleteket.A B1 cella érvényesítése: lista - forrás N1:P10
Ezután a listából kiválasztod a termékkódot, a lap pedig automatikusan kitöltődik.
A $P$10-ben a 10 helyett az utolsó "tele" cella sorszámát kell írni. (Minden másra ott a MasterCard
)A makróra a lefuttatás után, amennyiben jónak találod az eredményt, nincs szükséged. Ha meg szeretnéd tartani, akkor makróbarátként kell elmenteni a munkafüzetet.
Remélem, sikerülni fog.
Üdv.
-
Hege1234
addikt
Hello!
a zöld és piros oszlopot
meg lehet valahogy úgy csinálni hogy összeszámolja
hogy a zöld oszlopban1-es számból van 2 db
2-es számból van 8 db
.
.
.pirosnál ugyan így
de pl a 19. sorban 2 üres van ezt 0 nak kellene (de nem úgy hogy a piros is és a zöld is kap egy nullát
hanem csak 1 -et kapjon ) érzékelnie és a nullákat is össze kellene számolniés ezeket szeretném egy külön diagramon megoldani (még nem tudom melyik lesz a megfelelő hozzá)
plusz ugye jó lenne ha nem tudna belekavarni a függvényes adatokba
köszi!
-
Fferi50
Topikgazda
válasz
sedyke
#27758
üzenetére
Szia!
A munkalapokon való elhelyezkedés mennyire "szabályos", azaz mindig egymás alatt vannak és soha nem egymás mellett a termékek?
Ez így egy kicsit bonyolítja a helyzetet, de nem megoldhatatlan. Természetesen a makró így nem azt csinálja, amit szeretnénk.
Mondjuk a 4 termékes munkalap képét feltehetnéd, hogy látni lehessen az elhelyezkedés logikáját.
Üdv.
-
sedyke
tag
válasz
Fferi50
#27755
üzenetére
Bocsi, ugy ertettem, hogy mindegyik termek rendelkezik egy olyan 51 soros adatlappal, mint a kepen szerepel, de ezek egymas alatt helyezkednek el a kulonbozo munkalapokon, amelyek termekkategoriankent vannak kialakitva (kb. 20db).
Tehat az elso 1-51 sorokban, masodik 52-102 sorokban es igy tovabb. Ezekbol van kozel 800db. Ebbol az elso munkalapon van pl 110, mig a masodikon csak 4db. Sajnos eleg vegyes. -
Fferi50
Topikgazda
válasz
sedyke
#27756
üzenetére
Szia!
A Q1 cellában a képlet: =Fkeres($B$1;$N$1:$O$21;2;0) Természetesen a sorok száma a ténylegesen kitöltött soroké legyen.
B3 cella képlete: =INDIREKT($Q$1 & "!B" & SOR())
A C3 - F3 - H3 - J3 cellák képlete ugyanaz, csak a B helyére a megfelelő oszlopot írod.Ha a cellákba ezt a képleted írod, akkor megtalálja. A Q1 cellában az Fkeres eredménye annak a munkalapnak a neve lesz, ahol a B1 cellába beírt termékkód van.
Üdv.
-
Fferi50
Topikgazda
válasz
sedyke
#27746
üzenetére
Szia!
Ha jól emlékszem, azt írtad a legelején, hogy minden terméknek külön terméklapja van. Ez azt jelenti, hogy már 800-nál több munkalapot tartalmaz a munkafüzeted.
Nincs mese, egyszer végig kell menni rajta és megnézni, melyik termék melyik lapon van - különben nem tudod ezt a "behívósdit" megcsinálni.
Erre itt egy makró:
Sub vegigkeres()
Dim sh As Worksheet, ws As Worksheet, xx As Integer
Set ws = Sheets("Főlap") ' ide a Főlap helyére annak a munkalapnak a nevét írod, amelyre a kigyűjtést szeretnéd.
xx = 2
For Each sh In Worksheets
If sh.Name <> ws.Name Then
ws.Cells(xx, "N").Value = sh.Cells(1, "B").Value
ws.Cells(xx, "O").Value = sh.Name
xx = xx + 1
End If
Next
End SubEzt akár egy általános modulba, akár a "Főlap" kódlapjára bemásolhatod - ez utóbbi: jobb egérgomb a lapnéven alul, kód megjelenítése, bemásolás.
Egyszer lefuttatod, akkor az N-O oszlopba beírja a munkafüzetben talált termékkódokat (a munkalapok B1 cellájában levő értéket, mellé pedig annak a munkalapnak a nevét, amelyen találta). Vigyázat, nem ellenőrzi, ha esetleg duplikált termékkód fordul elő.
Ezután a Főlapod B1 cellájának érvényesítésére megadhatod az N oszlopban levő értékeket.Ha mindez megvan, a makróra már nincs is szükséged, mentheted makrómentesen a füzetet.
Üdv.
-
-
Delila_1
veterán
válasz
RedHarlow
#27748
üzenetére
A makró az U oszlopba írja ki a nevet és a jogosultságot.
Sub Jogosultsag()
Dim sor As Long, usor As Long, oszlop As Integer
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = 2 To usor
Cells(sor, "U") = "[" & Cells(sor, "A") & "] "
For oszlop = 7 To 20
If Cells(sor, oszlop) = "true" Then
Cells(sor, "U") = Cells(sor, "U") & "[" & Cells(1, oszlop) & "] "
End If
Next
Next
End Sub -
RedHarlow
aktív tag
Sziasztok,
Erre tud valaki valamilyen jó függvényt, Azt szeretném megoldani, hogy a személyek mellé odaírja hogy milyen jogosultságai vannak. A true szó jelenti azt, hogy van ilyen jogosultsága. Tehát valami ilyesmit szeretnék.
[Nagy Tamás] [Diákigazolvány] [Gólya]
-
olivera88
veterán
Hogyan lehet összeadni nem egész számokat Excelben, egymás melleti sorokban. Ha így van beírva nem tud mit kezdeni vele 200.30 + 320.50 akkor nem tusja kiszámolni. rácsnév? jön ki eredménynek
Libreofficenál szinten ugyanez van.
Ezeket kellene összeadni.
[link] -
Mutt
senior tag
válasz
Zola007
#27742
üzenetére
Hello,
...meg kell kerestetni a függvénnyel valahogy a legutolsó nem üres cellát.
Ha összefüggő a tartomány (nincs benne üres sor), akkor egyszerűen:
=INDIREKT("B"&DARAB2(B:B))Ha van benne üres sor és csak számokat tartalmaz: =FKERES(9^99;B:B;1)
Ha csak szöveget: =FKERES(SOKSZOR("z";50);B:B;1)Illetve egy univerzális megoldás tömbképlettel: =INDEX(B:B;MAX(HA(B:B<>"";SOR(B:B);0)))
üdv
-
-
Zola007
veterán
Üdv
szükségem lenne egy cellában feltüntetni egy másik oszlopban lévő legutolsó cella értékét.
Az oszlophoz minden nap adódik egy új érték, tehát meg kell kerestetni a függvénnyel valahogy a legutolsó nem üres cellát.próbálkoztam már az FKERES és HOL.VAN függényekkel és ezek kombinációjával, de nem sokra jutottam.
lehetőleg függvény kellene, nem makró
ha valaki tud segíteni -
Fferi50
Topikgazda
válasz
sedyke
#27740
üzenetére
Szia!
A sheetlistát ki kell egészíteni a termék kódokkal, beszúrsz még egy oszlopot az N elé és oda beírod azt a temékkódot, amelyik a mellette levő sheet-en van. Tehát a sheetlistád az N:O oszlopokban lesz.
A Q1 cellát kinevezhetjük "munkacellának". Ebben a képlet: =Fkeres($B$1;$N$1:$O$21;2;0) Természetesen a sorok száma a ténylegesen kitöltött soroké legyen.B3 cella képlete: =INDIREKT($Q$1 & "!B" & SOR())
A C3 - F3 - H3 - J3 cellák képlete ugyanaz, csak a B helyére a megfelelő oszlopot írod.A B1
1 cellánál gondolom érvényesítéssel listából lehet választani.Ezután már tudod másolni a képletet lefelé irányba.
Remélem, sikerül.
Üdv.
-
Fferi50
Topikgazda
válasz
sedyke
#27731
üzenetére
Szia!
Igen, hiszen csak úgy tudod az adatokat átvenni az adott terméklapról.
Viszont ha ügyesen írod be, akkor lehet húzni a függvényt.
A "munkacella" (amit S1-nek adtam meg) az mindig ugyanaz, tehát annak $S$1 módon kell megadni a címét. A tartalmát pedig Fkeres képlettel adod meg. (=Fkeres(temék;terméklapoklistája;1;0)).Az oldalrovatokat és a fejrovatokat természetesen nem kell képlettel megadni.
Üdv.
-
Fferi50
Topikgazda
válasz
sedyke
#27729
üzenetére
Szia!
Egy tartományba beírod a termék munkalapok nevét.
Fkeressel megkeresed az adott termékhez kapcsolódó munkalapot egy munkacellába.
Majd az indirekt függvényt használva megkapod az adott táblából az adatot.
A munkacella (S1) tartalma Termék1Az A5 cellában a képlet =indirekt(S1 & "!A5")
Üdv.
-
sedyke
tag
Sziasztok,
Van egy munkafuzetem tobb munkalappal (termekcsaladonkent). Minden termekre keszitettem egy koltsegszamito adatlapot a termekkomponensek alapjan. Ezekbol az adatlapokbol mara tobbszaz osszegyult. Mindegyik azonos felepitesu.
Szeretnek letrehozni egy adatlapot, ahova ha beirnam a termekkodjat, akkor kikeresne hozzatartozo adatokat.
Milyen megoldas lenne erre?
Minden adatlap 51 soros es 12 oszlop szelessegu, ezek egymast kovetik a kulonbozo munkalapokon. -
Szaszati
tag
válasz
azopi74
#27699
üzenetére
Hmm, még mindig okvetlenkedek kicsit, bocsi
Ez még nem tökéletes mert így valóban kilistázza az összes terméket, de azoknál, ahol egy sem volt eladva, ott is beteszi az összeghez az egységárat (mert ugye a terméklistából veszi). Így meg olyan mintha minden termékből legalább egy el lett volna adva, s ez is eltolja a számokat
-
Mutt
senior tag
válasz
csongi
#27684
üzenetére
Hello,
...egy adott cellába, legyen egy képlet, de ha kézzel beleírok akkor a beírt érték legyen, viszont ne vesszen el a képlet sem....
Van egy kevésbé használt függvény az S (angolul N), ami ha szöveget kap értéknek, akkor nem számol vele.
pl. =N("komment") értéke 0 és ezek után =2+N("komment") cella értéke is 2 lesz.Ez a függvény jön itt nekünk segítségre, mivel a cella képletét ebbe a függvénybe elrejtjük.
A lenti makróval első lépésként megjegyezzük a cella tartalmát és képletét ha van a Worksheet_SelectionChange eseménnyel. Az egyszerűség kedvéért csak akkor tesszük, ha egyszerre 1 cella van módosítva.
A második lépésben ha a változik vmi a lapon, akkor a Worksheet_Change esemény lép akcióba és attól függően, hogy volt-e képlet vagy sem, esetleg töröltük a cella bedobja ami kell éppen.
A kód nem tökéletes, iránymutatásnak szántam.
Option Explicit
Dim KepletVanBenne As Boolean
Dim Tartalom As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
KepletVanBenne = False
Tartalom = ""
If Target.Cells.Count = 1 Then 'egyszerűség kedvéért csak 1 cellára dolgozunk
KepletVanBenne = Target.HasFormula 'megnézzük hogy van-e képlet a cellában
If KepletVanBenne Then Tartalom = Target.FormulaLocal 'elmentjük a képletet egy változóba
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim EredetiKeplet
Dim Keresni As String
'Excel nyelvének megállapítása
If Application.LanguageSettings.LanguageID(msoLanguageIDUI) = 1038 Then
Keresni = "+S("
Else
Keresni = "+N("
End If
If Target.Cells.Count = 1 Then 'egyszerűség kedvéért csak 1 cellára dolgozunk
'ha az új cella konstans akkor mögétesszük a képletet, ha volt korábban
If Not Target.HasFormula Then
'megnézzük hogy a korábban volt-e képlet a cellában, ha igen akkor kinyerjük az eredeti képletet onnan
EredetiKeplet = Split(Tartalom, Keresni) 'bízunk benne, hogy nincs a cellában +N( kifejezés más indok miatt
If IsArray(EredetiKeplet) And UBound(EredetiKeplet) > 0 Then
'itt kicsit formázni kell mivel vmi ilyet kapunk vissza "=A1"), de nekünk csak =A1 kell
Tartalom = Mid(EredetiKeplet(1), 2, Len(EredetiKeplet(1)) - 3)
End If
'ha törlik a cella tartalmát, akkor berakuk az eredeti képletet
If Target.Value = "" Then
Target.FormulaLocal = Tartalom
Else
Target.Formula = "=" & Target.Value & "+N(""" & Tartalom & """)" 'az új cellatartalom az lesz, hogy bevitt érték + korábbi formula
End If
End If
End If
End Subüdv.
-
Mutt
senior tag
Sziasztok,
Több tucat könyvet tett angol nyelven ingyenesen elérhetővé a Microsoft a héten.
Innen lehet elérni őket. http://blogs.msdn.com/b/mssmallbiz/archive/2015/07/07/i-m-giving-away-millions-of-free-microsoft-ebooks-again-including-windows-10-windows-8-1-windows-8-windows-7-office-2013-office-365-sharepoint-2013-dynamics-crm-powershell-exchange-server-lync-2013-system-center-azure-clo.aspxVan köztük pár Excel témájú is. Haladóknak javaslom a DAX könyvet is, ha már ennyiszer felmerül mostanában a PowerQuery. VBA témájú könyv nincs köztük.
üdv.
-
Mutt
senior tag
Hello,
...meg kellene adnom egy képletet, amellyel ki tudom számolni a típusonkénti átlagárat.
Felraktam ide 2 megoldást.
Az első megoldás nem használ kimutatást (Pivot-ot), viszont az ismétlődések kiszűréséhez tömb függvényt használ ami lassítja a számítást, valószínű nem éred el azt az adatmennyiséget amelynél ez már zavaró lenne.
A második megoldás kimutatást használ, ez gyorsabb nagy adatmennyiségnél is.
Mindkét esetben a logika, hogy első lépésként a javított neveket bemappeljük az eredeti adatsorhoz (ha nem akarod odarakni a neveket, akkor kell egy plusz lap ahol ez megtehető). Ezek után erre a javított oszlopra dobjuk a számítást rá.
üdv.
-
Fferi50
Topikgazda
válasz
poffsoft
#27720
üzenetére
Szia!
Szerintem ezt több lépésben tudod csak megnézni.
1. Selection.Cells.Count=1 akkor biztosan nincs összevonva, mert az összevont cellákat nem tudod egyedüliként kijelölni.
2. Selection.Cells.Count>1, akkor meg kell nézni a Selection.MergeCells tulajdonságot (értékeit írtam korábban).Üdv.
-
poffsoft
veterán
válasz
Fferi50
#27716
üzenetére
Szia,
értem, ezért mondtam, hogy az előző módszerem favágós.
Másképpen próbálom elmondani a problémát:
A selection-ban lévő cellákról kell megállapítanom, hogy 1 db single cella vagy 1 db összevont cellák a tartalma.
vagyis ha egy area (feltételezzük, hogy mindig egy area, nem többszörös kijelölés), de két összevont cellák, az is hiba
(a példámnál a "B1:B3", és a "C1:C3", amiről tudjuk, hogy összevont cellák).
-
-
Fferi50
Topikgazda
válasz
poffsoft
#27711
üzenetére
Szia!
Bocs, de én úgy gondolom, hogy a B1:B3 selection az nem egyenlő összevont cellákból álló tartománnyal, hanem csak 3 cellával. Ez igaz a C1:C3 tartományra is, Illetve, mindkét tartományban ettől függetlenül lehetnek összevont cellák!!
Ezért mindenképpen meg kell nézni a MergeCells tulajdonságot.
Ez úgy viselkedik, ha a kijelölt tartomány összevont, akkor True, ha vegyes, akkor Null, ha nincs benne összevont cella, akkor False az értéke.Azt, hogy összefüggő-e a kijelölés, az Areas tulajdonsággal tudod megnézni. Ha Selection.Areas.Count<>1, akkor a kijelölés nem összefüggő. A Count megmondja, hány részből áll a kijelölés, ezeken külön-külön kell végigmenni.
Az Activecell.Mergearea.Cells.Count pedig csak azt az egy cellát nézi, amit éppen kijelöltél - többszörös kijelölésnél is! - tehát félrevezető eredményt ad.
Üdv.
-
-
poffsoft
veterán
-
cekkk
veterán
Sziasztok!
Egy kis segítséget szeretnék kérni megint tőletek
Excelhez nem értek így nem tudok benne függvényeket írni.
A problémám az lenne, hogy van kést oszlopom az egyik cikkszámok a másik darabszám.
A darabszám lehet kisebb mint nulla vagy 1/2/3/4 valamint "több mint 5". A kérdésem az lenne, hogyan lehetne megcsinálni, hogy ha kisebb mint nulla a szám nulla legyen ott ha a "több mint 5" akkor 5.
A számlázó rendszer nem tudja értelmezni a több mint 5 szöveget.
)
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Greenwashing és zöld sivatag miatt támadják az Apple Watch-ot
- Sorozatok
- Kuponkunyeráló
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- sziku69: Fűzzük össze a szavakat :)
- Yettel topik
- Soundbar, soundplate, hangprojektor
- Battlefield 6
- CES 2025: Megjött az Amazfit Active 2
- További aktív témák...
- Bomba ár! Dell Latitude 7390 - i7-8GEN I 16GB I 256GB SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! MSI MAG 325CQRXF QHD VA 240Hz 1ms monitor garanciával hibátlan működéssel
- Gamer PC-Számítógép! Csere-Beszámítás! Ryzen 5 8400F / 32GB DDR5 / RX 7800XT 16Gb / 1TB SSD!
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: FOTC
Város: Budapest