Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- 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- Yettel topik
- Sweet.tv - internetes TV
- Fejhallgató erősítő és DAC topik
- Külföldi prepaid SIM-ek itthon
- Spellforce 3
- Elektromos autók - motorok
- Milyen TV-t vegyek?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Teljes verziós játékok letöltése ingyen
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- The Elder Scrolls Online Imperial Collector s Edition
- Microsoft és egyéb dobozos és OEM szoftverek
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Acer Nitro V 16 AI Gaming Laptop! Ryzen 260 / RTX 5060 / 16GB DDR5 / 1TB NVMe! BeszámítOK
- darkFlash GR12 Darkstorm Blue/Green
- Lenovo ThinkPad W541,15.6,FHD,i7-4810MQ,32GB DDR3,256GB SSD,K1100 2GB VGA,WIN10
- Apple iPhone 15 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 13 mini / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 87%
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest