-
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
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
Fferi50- Vírusirtó, Antivirus, VPN kulcsok
- Witcher 1 Collector's Edition
- Árváltozás+játék DVD: Borderlands 2 Ultimate Loot Chest Limited Edition
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Árváltozás + játék DVD: Splinter Cell Blacklist the 5th Freedom Edition
- GYÖNYÖRŰ iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3327, 94% Akkumulátor
- GYÖNYÖRŰ iPhone 12 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3395, 94% Akkumulátor
- GYÖNYÖRŰ iPhone 12 Pro Max 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS2107, 100% Akkumulátor
- Samsung Galaxy S21 Ultra / 12GB RAM 256GB / Gyárifüggetlen / 12Hó Garancia
- Általános igazgatóhelyettes tábla üvegből eladó
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest