- Telekom mobilszolgáltatások
- Eltűnhet a Dinamikus Sziget
- Fotók, videók mobillal
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Minden készen áll a Galaxy Unpackedre
- Samsung Galaxy S23 Ultra - non plus ultra
- iPhone topik
- Erős specifikáció, kompakt formában
- Nem fogy a Galaxy S25 Edge?
- Apple iPhone 16 Pro - rutinvizsga
-
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
veterán
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 -
Delila_1
veterán
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. -
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. -
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 -
Badb0y
addikt
-
Delila_1
veterán
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.
-
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.
-
Delila_1
veterán
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.
-
#4523
Fire/SOUL/CD
félisten
Lehdog
#4522
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.
-
-
Delila_1
veterán
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.
-
-
Delila_1
veterán
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.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Szeged és környéke adok-veszek-beszélgetek
- Kerékpárosok, bringások ide!
- AMD vs. INTEL vs. NVIDIA
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- ZEN.com
- Beszántaná a marketingért felelős részlegét az Intel
- Milyen belső merevlemezt vegyek?
- Luck Dragon: Asszociációs játék. :)
- Kerékpársportok
- Windows 11
- További aktív témák...
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- BESZÁMÍTÁS! Intel Core i9 9900K 8 mag 16 szál processzor garanciával hibátlan működéssel
- AKCIÓ! Sapphire Nitro+ RX 6800 XT 16GB videokártya garanciával hibátlan működéssel
- Telefon felvásárlás!! Samsung Galaxy S25, Samsung Galaxy S25 Plus, Samsung Galaxy S25 Ultra
- Csere-Beszámítás! Számítógép PC Játékra! Intel I7 6700/ RX 580 8GB / 32GB DDR4 / 500GB SSD
- KIÁRUSÍTÁS - REFURBISHED és ÚJ - Lenovo ThinkPad Ultra Docking Station (40AJ)
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest