-
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
-
Delila_1
Topikgazda
Ebben az esetben a legördülő bemeneti tartománya B1: B4, a cellacsatolás E2. A csatolást a legördülő "mögé" érdemes tenni, ott nem látszik, senkit sem zavar.
A makró:
Sub Ugras()
sor = Cells(2, 5) 'E2 cellában van a kiválasztott elem sorszáma
lapnev = Cells(sor, 2)
cell = Cells(sor, 3)
Sheets(lapnev).Select
Range(cell).Select
End SubMikor kiválasztasz egy munkalapot (Alma: Banán) a listából, az E2 cellába beíródik a listabeli sorszáma.
Az Ugras makrót rendeld hozzá a legördülőhöz.[ 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.
-
Delila_1
Topikgazda
Úgy írd be a szumha függvényt, hogy a tartományt és az összegtartományt $ jelekkel rögzítsd, csak a kritériumot nem. Másold végig a képletet.
Ezután készíthetsz egy irányított szűrést, más helyre, csak az egyedi rekordokat.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
Ez sokkal összetettebb annál, hogy egy fórumon el lehessen mesélni.
Nekiláttam csinálni egy 3 adatot tartalmazó förmedvényt mintának. Mikor majdnem a végére jutottam, elszállt a gépem, és vele a lelkierőm.
UserFormot kell készíteni hozzá, annak nézz utána.
Hány adatod van egy-egy rekordban?Szerk.: ne ijedj meg, nem nehéz, csak babrás munka.
[ 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.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
Biztosan nem az 1000-rel történő szorzásra, vagy osztásra gondoltál.
A CONVERT függvényt találták ki az átváltásokra, de a súgót nézve a km nem szerepel a választható mértékegységei között.
Szóval marad az első megoldás...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
-
félisten
Hali!
A SZUMHA függvényt nem egészen erre találták ki. Ha valakinek van rá megoldása, azt én is kiváncsian várom.
A Te esetedben egyszerűb lenne két egymásba ágyazott HA függvényt használni, pl így:=HA(Q1=D1;HA(P1=F1;SZUM(A1:A20);0);0)
(persze hogy melyik cellába rakod és milyen tartományt adjon össze a SZUM, azt már Te tudod)
Fire.
[ 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)
-
Delila_1
Topikgazda
Remélem, jól értem a kérdést.
A két oszlop adatait rendezd sorba. Első kulcs az A, második a B oszlop.C1-be: =HA(ÉS(A1=A2;B1=B2);1;0)
D1-be: =HA(C1=1;"";A1+B1)Minden egyedi pároshoz csak egyszer írja ki az A és B összegét. Amelyik párosból több van, csak az utoljára találthoz írja be az összeget.
Az előző kérdésedhez is jó a HA(ÉS(...)) függvények egymásba ágyazása.
[ 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.
-
dokar
addikt
ha saját meghajtóról nyitom akkor is ugyanez a probléma van. tehát xls fájl futtatásakor helyesen meghívja hozzá az excelt, csak a forrás xls fájl elérését dobja el.
a társítás be van állítva megfelelően.
nincs makróvédelem, amúgy sem lehetne ludas, mert akkor CTRL+O-val sem nyitná meg.
[ Szerkesztve ]
extra - SEXRay
-
Delila_1
Topikgazda
Két lapról van szó, ahol az adatok a 11. sorban kezdődnek, és az itt-ott 0-t tartalmazó oszlop a G.
Sub rejt()
Dim lap As Variant
lap = Array("Kaschieren", "Näherei")
For laap = 0 To 1
Sheets(lap(laap)).Select
For sor = Range("G65536").End(xlUp).Row To 11 Step -1
If Cells(sor, 7) = "" Then GoTo Köv
If Cells(sor, 7) = 0 Then
Range("G" & sor).Select
Selection.EntireRow.Hidden = True
End If
Köv:
Next
Next
End SubA range("G" & sor).select helyett először rows(sor & ":" & sor).select-et írtam. Akkor az volt a baj, hogy az egyik oszlopban lévő összevonások (merge) miatt több sort jelölt-, és rejtett el.
[ 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.
-
-
Badb0y
addikt
Konkrétan először valahogy le kellene kérni magát a táblázatot, de ezt sem engedi, se otp-ről sem bb-ról. Elvileg a külső adatok lekérésénél azt meg lehet ani frissítse mindig.
A probléma magával a táblázatba tétellel van, mert azt nem tudom, hogy kellene beletenni
Minőségi laptopok https://notebookokhu.business.site/
-
RoGGRR
csendes tag
Igen, köszi, így működik. Viszont így is egyenként végig kell menni minden cellán, mert ha olyan oszlopot is jelölök, amin nincs adat, akkor Érték hibát jelez. Tehát a képletet nekem kell az adattal teli oszlopok számához igazítanom, és így kissé lassú lenne a számolás.
De kaptam egy makrót is, csak nem tudom, miért nem működik.
=SumNum(cella) a képlet
Function SumNum(ByVal txt As String) As double
With CreateObject("VBScript.RegExp")
.Pattern = "\d+(,\d+)?"
.Global = True
For Each m In .execute(txt)
SumNum = SumNum + CDbl(Replace(m.Value, ",","."))
Next
End With
'SumNum = Replace(CStr(SumNum), ".",",")
End Function[ Szerkesztve ]
-
norb7
tag
Szia!
Köszi, ismerem a megoldást, de a gépen XP op rendszer van, szóval ez a funkció nem működik, de memória van bőven tehát ezért nem értem, hogy miért írja ezt.
Én arra gondoltam, hátha van az XP-ben vagy az Office-ban olyan erőforrás beállítás, hogy melyik programnak mennyi memóriát enged.
De eddig ilyet magamtól még nem találtam. -
Delila_1
Topikgazda
Ha az Űrlapok eszköztárról vitted be, akkor a Vezérlő formázása, Vezérlő fül, Bemeneti tartománynál adhatod meg.
Ha a Vezérlők eszközkészletéből, akkor a Tulajdonságok, ListFillRange mezőben. Ezt a Tervező módban lehet elérni.
Az esetleg hosszú listából az első betű leütésére a lista megfelelő helyére ugrik a kurzor.[ 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.
-
Delila_1
Topikgazda
Akkor az nem combo
Ott nem tudsz leütéssel közelebb jutni a megfelelő érték kiválasztásához. Hosszú lista esetén tegyél inkább a vezérlők eszköztáráról egy combót.
A LinkedCell-ben megkapod a kiválasztott értéket.
Vagy:
Private Sub ComboBox1_Change()
Cells(1,1) = ComboBox1.Value
End Sub[ 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.
-
Új hozzászólás Aktív témák
- Telekom mobilszolgáltatások
- Xbox Series X|S
- Politika
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- A fociról könnyedén, egy baráti társaságban
- World of Tanks - MMO
- Milyen CPU léghűtést vegyek?
- Motoros topic
- Kupon kunyeráló
- Otthoni hálózat és internet megosztás
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Microsoft licencek a KIVÉTELES ÁRAK - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!