Hirdetés
-
Az Apple iPadOS-t is megrendszabályozza az EU
it Az EB közölte: az Apple iPad táblagépekre írt iPadOS rendszere is kapuőrnek számít, az üzleti felhasználókra gyakorolt fontossága miatt.
-
Karácsonyfaként világíthat a Thermaltake új CPU-hűtője
ph Az ASTRIA 600 ARGB ráadásul a hűtési teljesítmény szempontjából sem szégyenkezhet.
-
Konzolokra is megjelenik a Fera: The Sundered Tribe
gp A kooperatív szörnyvadászós játékhoz a minap egy friss trailert kaptunk.
-
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
-
Kal-El
senior tag
Hello!
Azt hogy lehet megadni egyéni számformátumként, hogy 1m, vagy 1M? Mert sehogy nem engedi.[ Szerkesztve ]
-
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. -
poffsoft
addikt
Sziasztok!
VBA-ban kellene ellenőrizni, hogy a selection egyetlen single cell-ből, vagy egyetlen merged range-ből áll-e.
De nem jutok vele dűlőre...
tipp?[ Szerkesztve ]
-
poffsoft
addikt
válasz Delila_1 #27710 üzenetére
pontosabban:
a selection áll az "A1"-ből, és az "A2"-ből : ez 2 single cell, és nem jó.
a selection áll "B1:B3"-ból, ez egy összevont cellákból álló range, de 1 db összevonás, ez jó.
a selection áll a "B1:B3" és "C1:C3" külön-külön összevont range-kből, ez nem jó.[ Szerkesztve ]
[ Szerkesztve ]
-
Fferi50
őstag
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.
[ Szerkesztve ]
-
Kal-El
senior tag
Hello!
Van lehetőség olyan formázásra, hogy a cella szélei vízszintesen, vagy függőlegesen lekerekítettnek tűnjenek? Tehát 2 különböző szín használata miatt. Vagy ehhez valami más program szükséges? -
poffsoft
addikt
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).[ Szerkesztve ]
[ Szerkesztve ]
-
Fferi50
őstag
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.
-
Mutt
aktív 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.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív 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.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív 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.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
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
MobileArsenal - World domination temporarily suspended...
-
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. -
Fferi50
őstag
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.
-
Fferi50
őstag
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
őstag
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 B11 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.
[ Szerkesztve ]
-
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íteniMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Fferi50
őstag
-
Mutt
aktív 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
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
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][ Szerkesztve ]
LG Velvet 5G Android 11 - Windows 10 Pro x64 & Debian 11 Bullseye - WoWS unsinkable_sam_
-
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]
[ Szerkesztve ]
-
Delila_1
Topikgazda
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 SubProgramozó: 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 olivera88 #27747 üzenetére
Egymás mellett oszlopok vannak, a sorok egymás alatt helyezkednek el. Gondolom, a D2 és E2 (fejlécet feltételezve) cellákat akarod összegezni. A képlet =D2+E2 Ezt a képletet lefelé húzással másolhatod a többi sorba.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.