Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Luck Dragon: MárkaLánc
- talmida: My Art II.
- btz: Internet fejlesztés országosan!
- hcl: Olympus E-PL1 nyomozás
-
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
-
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- Milyen TV-t vegyek?
- Gran Turismo
- Tesla topik
- Heroes of Might & Magic: Olden Era
- Váratlanul megerősítette a mobil GeForce RTX 5070-et az NVIDIA
- Probléma DVD/CD íróval
- Gaming notebook topik
- Elektromos autók - motorok
- HiFi műszaki szemmel - sztereó hangrendszerek
- Építő/felújító topik
- További aktív témák...
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Lenovo V15 G4 IRU laptop, 15.6", FHD, IPS, lntel Core i5-13420H, 2x8GB, 1TB SSD
- Lenovo ThinkPad X1 Nano Gen 1 2K kijelző / i7 / 1TB SSD / 1kg alatt
- 15" MacBook Air M3 16GB RAM/ 512GB SSD - 27% ÁFA (0424AB)
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB DDR5 RTX 5060 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest