- bitpork: Augusztus 2- szombat jelen állás szerint.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
- sziku69: Szólánc.
- Aggregátor gondjai, örömei, és elmélkedései
- Chosen: Canon 5D II - portrézás 2025-ben
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
-
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
-
#22100
Delila_1
veterán
King Unique
#22099
Delila_1
veterán
válasz
King Unique
#22099
üzenetére
If CV.Value Like ("[AEIOU]") Then -> ha a ciklusváltozó (CV) egyenlő a LIKE kulcsszó utáni valamelyik karakterrel, akkor...
Az A ASCII értéke 65. Le tudod kérdezni a KÓD függvénnyel. Az i itt egy 1 és 26 közötti véletlen egész szám. A Chr(i+64) egy 65 és 90 közötti értéknek megfelelő karaktert adja, A-tól Z-ig.
A kis a betű ASCII kódja 97, ott az i-hez 96-ot kell adni.
Kulcsszavakat nem adhatunk változónévként, ezért a maxx.
Minden maxx-szal azonos értékű cella színezése:
Range("A1").Select
hely = Selection.CurrentRegion.Address
maxx = Application.Max(Range(hely))
For Each CV In Range(hely)
If CV = maxx Then Range(CV.Address).Font.ColorIndex = 5
Next -
#22099
King Unique
titán
Delila_1
#22096
King Unique
titán
válasz
Delila_1
#22096
üzenetére
Elsőnél a Z26 gondolom az angol ABC 26 betűjéből jön. Az "i+64" és a "Like ("[AEIOU]")" részeket nem értem, utóbbi vmi spec paraméter, parancs lehet gondolom??
Ha az elsőhöz jön egy olyan feltétel: ha nem csak angol nagybetűk, hanem kisbetűk is vannak. Természetesen ekkor is a kiemelés kezelje a kisbetűs magánhangzókat.
--------------------------------------------------------------------------------------------------------------Második az nagyjából érthető
, a "maxx" az gondolom megkülönböztetésül direkt van ilyen alakban 2 x-szel?A Maximum nyomógomb legnagyobb elemnek, nem csak az elsőnek, hanem az összesnek az előfordulását hogyan tudom kiemelni egy Összes jelölőnégyzettel?
Nagyon köszönöm a segítséget
-
#22097
Delila_1
veterán
King Unique
#22094
Delila_1
veterán
válasz
King Unique
#22094
üzenetére
Második kérdés: a legördülő csatolását az AB1 cellába tettem.
Private Sub General1_Click()
Dim szam As Integer, CV As Object
Dim also As Integer, felso As Integer
Dim hely As String
Range("A1").Select
Selection.CurrentRegion.Font.ColorIndex = 0
Selection.CurrentRegion.ClearContents
szam = Range("AB1")
also = 1: felso = 100
For Each CV In Range(Cells(1, 1), Cells(szam, szam))
Randomize
CV = Round(Rnd * (felso - also) + also, 0)
Next
End SubPrivate Sub Max_Click()
Dim maxx As Integer, hely As String, CV As Object, cim As String
Range("A1").Select
hely = Selection.CurrentRegion.Address
maxx = Application.Max(Range(hely))
cim = Range(hely).Find(maxx).Address
Range(cim).Font.ColorIndex = 5
MsgBox "A maximális érték helye: " & cim & ", " & _
"értéke: " & maxx
End Sub -
#22096
Delila_1
veterán
King Unique
#22094
Delila_1
veterán
válasz
King Unique
#22094
üzenetére
Az első kérdéshez:
Private Sub General_Click()
Dim tomb(26), sor As Integer, oszlop As Integer, i As Integer
Dim usor As Integer, uoszlop As Integer
Dim felso As Integer, also As Integer
Range("A1:Z26").ClearContents
Range("A1:Z26").Font.ColorIndex = 0
Randomize
also = 1: felso = 5
usor = Round(Rnd * (felso - also) + also, 0)
felso = Int(26 / usor)
Randomize
uoszlop = Round(Rnd * (felso - also) + also, 0)
For sor = 1 To usor
For oszlop = 1 To uoszlop
Ujra:
Randomize
felso = 26
i = Round(Rnd * (felso - also) + also, 0)
If tomb(i) > 0 Then GoTo Ujra
tomb(i) = i
Cells(sor, oszlop) = Chr(i + 64)
Next
Next
End SubPrivate Sub Kiemel_Click()
Dim terulet As String, CV As Object
Range("A1").Select
terulet = Selection.CurrentRegion.Address
For Each CV In Range(terulet)
If CV.Value Like ("[AEIOU]") Then CV.Font.ColorIndex = 3
Next
End Sub -
#22094
King Unique
titán
King Unique
titán
Sziasztok!
Milyen makrók (2 külön) tudják megvalósítani az alábbiakat:
1. Egy Generál nyomógomb megnyomására generáljunk véletlenszerűen egy Méret x Méret méretű adatblokkot A1-es cellától kezdődően úgy, hogy minden cellába egy angol nagybetű kerüljön!
A generálást úgy végezzük, hogy a generált adatok között ne legyen két egyforma! Egy Kiemelés nyomógombbal emeljük ki piros színnel a magánhangzókat, a nem magánhangzók feketék legyenek!2. Egy Generál nyomógomb megnyomására generáljunk véletlenszerűen egy Méret x Méret méretű adatblokkot az első munkalapra, ahol a méret a legördülő lista (2-10) aktuális értékeit jelöli!
A blokk bal felső sarokcellája A1 legyen, az adatok legyenek véletlen egész számok és essenek bele a [0,100] intervallumba!
A munkalapon lévő előző adatblokk kerüljön törlésre! Határozzuk meg egy szubrutinnal az adatblokk legnagyobb adatát és annak helyét (sor, oszlop)! Ha több ilyen adat is lenne, akkor az első ilyet (I)(legkisebb sor, illetve oszlop index)(/I) adjuk eredményként! Egy Maximum nyomógombbal emeljük ki a megfelelő cellát kék betűszínnel! -
ZGO
tag
válasz
Delila_1
#22083
üzenetére
Az "A" oszlopban van az új táblázat terméknevei és tulajdonságai összevonva (C2&E2&F2)
C2-->termékazonosító
E2 + F2 -->tulajdonság
(a "B" oszlopban országjelölő)A két összehasonlítandó adat eredeti helyükön:
új táblázat adata: G:G
régi táblázat adata: N: NOffice 2007-et használom.
-
Delila_1
veterán
Ennél az elrendezésnél a 2003-as verzió képlete a G2 cellában:
=HA(HIBÁS(HOL.VAN(A2;J:J;0));"új tétel";HA(INDEX(J:O;HOL.VAN(A2;J:J;0);6)=F2;"maradt";"változott"))
2007-től kicsit egyszerűbb a HAHIBA függvény bevezetése által:
=HAHIBA(HA(INDEX(J:O;HOL.VAN(A2;J:J;0);6)=F2;"maradt";"változott");"új tétel")
-
ZGO
tag
Sziasztok, egy kis segítség kellene:
Adott 2 adattáblám, melyben külön oszlopokban rendezve vannak termékekhez tartozó tulajdonságok, és mennyiségek.
A két adattáblában szereplő termékek mennyiségei vagy megegyeznek, vagy eltérnek, vagy egyáltalán nem szerepelnek (nem szerepelnek-->mivel új termékek és a régi adattáblán nem található).Ahhoz, hogy megtudjam melyek mennyiségei változtak, az "FKERES" függvénnyel az új termék mennyisége mellé kikerestettem a régi adattábla termékeinek mennyiségét. (=FKERES(A2;$J$2:7900;5;HAMIS)
Majd ezen oszlop mellé "HA" függvényt alkalmazva kiírattam, hogy mely termék mennyisége "változott", vagy "nem változott". (=HA(G2=H2;"nem változott";"változott") Ebbe az oszlopban viszont megjelent az új termékek mennyisége mellett a "#HIÁNYZIK" üzenet értelem szerűen, mivel ezek a régi adattáblában nem szerepelnek.Van lehetőség arra, hogy az új adattábla termékeinek mennyiségei mellé/vagy helyett azonnal kiírassuk, hogy azok az adatok a régi mennyiségekhez képest "változtak", "változatlanok", vagy "új termékek"? Azért, hogy ne kelljen külön oszlopba mennyiségeket egyeztetni, majd másik oszlopba megállapíttatni, hogy vagy használt, vagy nem használt, vagy #HIÁNYZIK--> új termék. Lehet az "FKERES" és a "HA" függvényt így integrálni egymással?
Ha túl komplikált a kérdésem akkor szóljatok, megpróbáltam minél részletesebben leírni mit is szeretnék.
Köszönöm előre is a segítséget.
-
-
DopeBob
addikt
válasz
Delila_1
#22065
üzenetére
Igen, elég, de már megvolt a +1 hónapos verziós képlet, amit máshogy nem sikerült összehoznom (de ha van rá valami egyszerűbb, nagyon szívesen veszem!), és azért lett ez a szörny... ugyan ezzel a zárójelezéssel az is jó lett... na mindegy
Köszönöm, hogy szakítottál rá időt és megnézted
-
DopeBob
addikt
válasz
Delila_1
#22063
üzenetére
Köszi,
közben jó lett, így:
="(DÁTUM(ÉV($A$1);HÓNAP($A$1);NAP($A$1)+7))>=MA()"
Ha mai nap és a beírt dátum közötti különbség egy hétnél kisebb. Ez lenne a feltétel.
így érdekes módom már nincs baja vele... +1 zárójelbe az egész kifejezés... azért ilyen bonyorult, mert +1 hónapos színezés is van
-
Delila_1
veterán
válasz
DopeBob
#22062
üzenetére
"a mai naphoz képes egy héten belülre kerül".
Ezt úgy érted, hogy az aktuális dátumhoz képest az 1 héttel előbbi, és 1 héttel későbbi dátumot tartalmazó cellákat akarod formázni? Ha igen, a képlet a lenti (persze ha A1-ben kezdődnek a dátumaid.
=ÉS(A1>=MA()-7;A1<=MA()+7)
-
DopeBob
addikt
Sziasztok,
Excel feltételes formázásban szeretném megoldani, hogy ha egy adott dátum a mai naphoz képes egy héten belülre kerül, akkor legyen piros a háttere.
Feltételes formázásnál ezzel a képlettel próbálkozom: ="DÁTUM(ÉV($A$1);HÓNAP($A$1);NAP($A$1)+7)>=MA()"
de nem működik.
Ugyan ez egy HA() függvénnyel megy, elvileg a képletem jó... mi lehet a gond?
-
csongi
veterán
Sziasztok!
Az alabbira keresek megoldast!
Van két táblázatom. Mindkettő tartalmazza az iktatószámot, számlaszámot, dátumot, és mondjuk az összeget. Szeretném megtudni, hogy az első táblázatban szereplő iktatószámok megtalálhatóak-e a másik táblázatban (persze ne csak az iktatószámot hozza fel, hanem a hozzá tartozó adatokat, dátum, összeg stb.. ami abban a sorban szerepel) Ha egyesével csinálom fkeres-el, az hosszú időt vesz igénybe -
#22056
lappy
őstag
dellfanboy
#22052
lappy
őstag
válasz
dellfanboy
#22052
üzenetére
Ha ppt is megengedett akkor teszel be két képet és animálod őket hol az egyik állapot hol a másik állapot jön elő és a lejátszást végteleníted.
Excelben is meg lehet oldani de sokkal nehezebb dolgod lenne vele. -
-
#22052
dellfanboy
őstag
dellfanboy
őstag
van két kördiagrammom. az egyik az előtti állapot a második az utána.(diagram1:a 30%b70% diagram2: a45%b55%)
meg tudom csinálni úgy, hogy 1 kördiagrammon legyen ábrázolva a mozgás mint pl egy gif esetén?
fontos hogy a mozgástér csak xls, és ppt lehet.
köszi -
Delila_1
veterán
válasz
Prancz
#22050
üzenetére
Nevezd el a rövidítéseket tartalmazó tartományt rövidítésre, a magyarázatok 2 oszloposát pedig teljesre. A makrót lefuttatva megkapod az eredményt.
Sub csere()
Dim cv As Object
For Each cv In Range("rövidítés")
Range(cv.Address) = Application.VLookup(cv, Range("teljes"), 2, 0)
Next
End Sub -
Prancz
csendes tag
Üdv!
Az alábbiakban kérném a hozzáérték segítéségét:
Van egy táblázat, amelynek egyik oszlopában rövidítések vannak. A táblázat alján de ugyanazon a munkalapon, egy másik táblázatban vannak hozzá a magyarázatok: az egyik oszlopban a rövidítések, a másikban annak magyarázatai. Hogy kezelhető legyen, a rövidítéseket lecserélném a magyarázatokra. Olyan függvény kellene nekem, ami végigmegy valamennyi rövidítésen, megkeresi a másik táblázatban, hogy hol szerepel, majd lecseréli az adott cella szomszédos cellájára, vagyis a magyarázó szövegre.
Ha erre tud valaki egyszerű megoldást annak nagyon örülök.
-
valkesz93
csendes tag
válasz
Delila_1
#22035
üzenetére
Szia, 170-et azért mondtam mert a mellékelt táblázatban ott volt megegyező adat. Megpróbálom máshonnan megközelíteni a dolgot. Egy sorban alapvetően a B oszlopban szerepel a szám címe és az E oszlopban pedig az előadó. Én kitöltöm a C,H, I oszlopokat a megfelelő adatokkal. Mivel ez egy több mint 2000 soros táblázat és a számok sokszor ismétlődnek, így szeretném ha nem kéne még 1x kikeresnem az adatokat a számhoz ha már egyszer bevittem a táblázatba. Mivel az előadó nem mindig egyezik meg az eredetivel így csak a szám címét nézze a függvény és az előadót másolja az f oszlopba, h letudjam ellenőrizni, h stimmel-e. Ha nincs adat akkor nem kell semmit beillesztenie a függvények.
A függvény mindig az első megtalált adatot másolja ki.Előre is köszi
-
-
Delila_1
veterán
válasz
bepken
#22038
üzenetére
Próbáld ki ezzel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.EnableEvents = False
On Error GoTo Hiba
If Target.Value <> "" Then
Cells(Target.Row, 2) = Date
Cells(Target.Row, 2).NumberFormat = "yy/mm/dd"
Else
Cells(Target.Row, 2) = ""
End If
Application.EnableEvents = True
End If
Exit Sub
Hiba:
MsgBox "Egyszerre csak egy adatot adj meg, vagy törölj!", vbOKOnly + vbExclamation
Application.EnableEvents = True
End Sub -
bepken
veterán
válasz
Delila_1
#22037
üzenetére
akkor most már csak abban reménykedjek, hogy nem akar majd senki sem egyszerre több értéket törölni a C oszlopból
egyébként a táblázat funkciója ezt a lépést nem is igazán indokolja, szóval valószínűleg még egyesével se lesz törölve belőle...csak próbáltam volna "bolondbiztosra" csinálni
-
-
bepken
veterán
válasz
Delila_1
#22026
üzenetére
köszi szépen!
a két feltétel már kínomban volt, mert azt hittem azzal van a baj, hogy egybe írtam.
ha több értéket törlök egyszerre, akkor most is kiakad sajnos, de ha jól értem, ezt nem is nagyon lehet kezelni...annak megértésében még segítenél, hogy mit is csinál esetünkben az "Enable.Events" tiltása?
valami olyasmit szűrtem le belőle, hogy amíg a makró fut, addig nem figyeli a munkalap változásait (ami ugye aktiválja magát a makrót)
de itt most a C oszlop változásait figyeljük, ami meg ugye egyszer változik csak, aminek hatására lefut a makró. gondolom itt attól akadna ki igazán, ha azt a cellát figyelné a makró, amit épp módosít (de lehet, hogy félreértem a jelentőségét) -
Delila_1
veterán
válasz
valkesz93
#22032
üzenetére
• Hol adod meg, hogy pl. a B170 tartalmát keresed?
• Ha nem talál, mi legyen?
• Ha a 20. sorban talál azonos értéket, akkor a C20:C170, stb tartományt másolja?
• Hova másoljon? A keresett cella mellé? Most adatok vannak mellette. Felülírja azokat, vagy egy üres oszloptól kezdve valahova? -
Delila_1
veterán
válasz
#02644736
#22031
üzenetére
A lapodhoz kell rendelned a lenti makrót, ennek a módját több helyen megtalálod a fórumon.
Az X1 helyett olyan címet írj, ahol biztosan nincs adatod.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Range("A1") = Range("X1") + Target
Range("X1") = Range("A1")
Application.EnableEvents = True
End If
End Sub -
valkesz93
csendes tag
Sziasztok!
Egy olyan "függvényt" keresnék, ami egy cella alapján, ami szöveget tartalmaz visszakeres a táblázatban és ha talál egyezőt akkor a sorból x oszlopot kimásol és beilleszti a keresett cella mellé.
itt a táblázat egy kis része: http://data.hu/get/7804321/munka.xlsx
Ha esetleg így jobban érthető lenne, hogy mit szeretnék.
pl:
keres b170-es cellával egyező a b1-es cella akkor másol c1-c170,e1-f170,h1-h170,i1-170
Ha megoldható lenne, hogy ne látszódjon, hogy ez egy függvény, azaz amikor rákkationtok, ne egy függvényt, csak egy szöveget lássak az lenne a legjobb. Gondolom ez makróval lehetséges.
az fkeressel próbálkoztam, de nem sok sikerrel.Előre is köszönöm
-
alfa20
senior tag
válasz
tgumis
#22027
üzenetére
A personal.xlsb-nek pont az lenne a lényege, hogy saját makrók tudj futtatni az Excel indításával és azért rejtett, hogy ne zavarjon.
Elérni, szerkeszteni az ALT+F11-el tudod.
Ha másik gépen is szeretnéd az ebben lévő makrókat futtatni, akkor a legegyszerűbb módja, ha készítesz egy makróbarát munkafüzetet, abba átmásolod a makrókat, és azt küldöd el másik gépre.Ha meg akarsz tőle szabadulni, akkor innen kell törölni:
c:\Users\*****\AppData\Roaming\Microsoft\Excel\Xlstart\Win7 esetében!
-
tgumis
tag
válasz
Delila_1
#22003
üzenetére
Szóval minden nap kölönböző termékeket értékesìtek. Viszont adott terméklista van.
Pl.:
Facsava
Kalapâcs
Tűzőgép
Stb.
Most úgy oldottam meg a dolgot, hogy van 34 munkalap. Mibdegyik munkalapon felsorolva a tételek és az adott napon értékesìtett db szàm. A 32. lapon a szum függvénnyel összesìtem 1-től 15-ig a 33.lapon 16-tól 31-ig a 34.lapon meg 1-től 31-ig. Szeretnék egy viszonylag egyszerű megoldàst hogy beìrom az egyik cellâba, 1 a màsikba hogy 24 akkor a munkalapomon az 1-től 24-ig elaott kalapàca,facsavar stb. mennyiségét -
Delila_1
veterán
válasz
bepken
#22025
üzenetére
Igen, az a baja.
Egy kicsit másképp a makró. Ebben már az is benne van, hogy egyszer fusson le. Mikor beírsz a lapra valamit, beíródik a B oszlopba a dátum, erre újból lefut az EnableEvents ideiglenes letiltása nélkül.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Value <> "" Then
Cells(Target.Row, 2) = Date
Cells(Target.Row, 2).NumberFormat = "yy/mm/dd"
Else
Cells(Target.Row, 2) = ""
End If
Application.EnableEvents = True
End SubMivel a C oszlop változtatását akarod figyeltetni, érdemes az egészet egy feltételbe beírni.
if target.column=3 then
...
endif -
bepken
veterán
sziasztok!
a következő dolgot szeretném megoldani: ha C oszlop adott sora nem üres, akkor azon sor B oszlopában jelenjen meg az aktuális dátum.
ennek az értéknek viszont statikusnak kell maradnia, tehát a (tök egyszerűnek hitt) MA() függvényes megoldás sajnos nem jött be...illetve az is fontos volna, hogy ha a C oszlopban lévő értéket törlöm, akkor a dátum is törlődjön.ahogy néztem, annak idején ezen topic első hozzászólásaiban már ki lett tárgyalva egy megoldás, épp erre a problémára, így most ezt a megoldást szeretném saját táblázatomban is használni, de sajnos egy apró szépséghibáját sehogy sem tudom eltüntetni....
most így néz ki a makró:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value <> "" Then
Cells(Target.Row, 2).Activate
ActiveCell.Value = Date
ActiveCell.NumberFormat = "yy/mm/dd"
Target.Activate
End If
If Target.Value = "" Then
Cells(Target.Row, 2).Activate
ActiveCell.Value = ""
Target.Activate
End If
End Subtehát ezzel mindössze annyi a baj, hogy ha egyszerre több sort jelölök ki és úgy törlöm az értéküket, akkor 13-as kódot ír. ha jól sejtem az a kínja, hogy nem tudja értelmezni, melyik a "target.row" vagy méginkább a "target.value"
nem nagy probléma ez, hiszen egyesével törölgetve tökéletesen működik...csupán kíváncsiságból érdekelne a megoldás
-
#22022
Delila_1
veterán
LordVader80
#22021
Delila_1
veterán
válasz
LordVader80
#22021
üzenetére
Szívesen.
-
#22020
Delila_1
veterán
LordVader80
#22019
Delila_1
veterán
válasz
LordVader80
#22019
üzenetére
Most már csak a kibővített feltételt írom be.
If CV > "" Then
CV.Copy
Sheets("Munka2").Range("A" & sor).PasteSpecial xlFormats
Sheets("Munka2").Range("A" & sor).PasteSpecial xlValues
sor = sor + 1
End If -
#22019
LordVader80
őstag
Delila_1
#22016
-
#22018
Delila_1
veterán
lordeklvin
#22017
Delila_1
veterán
válasz
lordeklvin
#22017
üzenetére
Szívesen.
-
#22016
Delila_1
veterán
LordVader80
#22015
Delila_1
veterán
válasz
LordVader80
#22015
üzenetére
Kiegészítve az üres cellák másolásának elhagyásával:
Sub Egymas_ala()
Dim ter As String, CV As Object, sor As Long
Range("A1").Select '*
ter = Selection.CurrentRegion.Address
sor = 1
For Each CV In Range(ter)
If CV > "" Then
Sheets("Munka2").Range("A" & sor) = CV.Value '**
sor = sor + 1
End If
Next
End Sub -
#22015
LordVader80
őstag
Delila_1
#22012
LordVader80
őstag
válasz
Delila_1
#22012
üzenetére
Köszönöm, alakul, de még nem az igazi, bár én voltam pontatlan, szerintem az lesz a baj.
A tartományom nem egyforam "széles", tehát van olyan sor, ahol csak az első cellában van adat, van olyan, ahol a 60-ban is van.
A makró működik, viszont minden sort 60 szélességig néz át, és az üres cellákat is berakja egymás alá. Ezeket valahogy ki lehet szűrni? -
#22014
Delila_1
veterán
lordeklvin
#22010
Delila_1
veterán
válasz
lordeklvin
#22010
üzenetére
Ezt a szép hosszú képletet tedd egy másik oszlopba, a C-ben meg – ahol a / utáni részt akarod megjeleníteni – hivatkozz erre a segédoszlopra.
-
#22012
Delila_1
veterán
LordVader80
#22011
Delila_1
veterán
válasz
LordVader80
#22011
üzenetére
Az eredeti lapon lévő, A1 cellában kezdődő táblázat adatait másolja a makró a Munka2 lapra abban a sorrendben, ahogy írtad.
Két helyen kell módosítanod a makróban, ahol megjelöltem.
'* ha nem az A1-ben kezdődik a táblázatod, '** ha nem Munka2 a másolat lap neve.Sub Egymas_ala()
Dim ter As String, CV As Object, sor As Long
Range("A1").Select '*
ter = Selection.CurrentRegion.Address
sor = 1
For Each CV In Range(ter)
Sheets("Munka2").Range("A" & sor) = CV.Value '**
sor = sor + 1
Next
End Sub -
#22011
LordVader80
őstag
LordVader80
őstag
Sziasztok!
Van egy tartományom, minden cellában tele értékekkel. Hogyan tudom azt megcsinálni, hogy pl: egy új lapon egy oszlopba egymás alá rendezze a tartomány értékeit: először az első sor értékeit, utána a második sor értékeit és így tovább..
Köszönöm előre is
-
#22010
lordeklvin
újonc
Delila_1
#22007
lordeklvin
újonc
válasz
Delila_1
#22007
üzenetére
Szia! köszi a válaszod
pl a C10-es celábba jelenleg az jelenik meg h 6:00/0 ezt egy másik táblából szedi ez az összesítő táblázat.
én azt szeretném h ebbe a táblázatba 6:00 -át ne hozza magával hanem csak a "/" jel mögötti számot ide a C10-es oszlopba. A C10-es cellába jelenleg ez a képlet van: =HA(C4="0";"--/0";HA(INDIREKT(C51)=0;"--/0";INDIREKT(C51))) ez alapján hozza át a másik táblázatból a c51-es sorba valamilyen segédképlet van arra hivatkozva írja ba a c10-es cellába a c51-es cellába ez a képlet található: =ÖSSZEFŰZ($C$1;SOR(A10) -
Delila_1
veterán
válasz
kopogo
#22006
üzenetére
Az első kérdés megválaszolásához szükséges a füzet ismerete.
A másodiknál érvényesítést kell bevinned, ahol egész számot engedsz meg, minimum érték 1, maximum 5000.
A Hibajelzés fülön a Hibaüzenet rovatban adod meg a szöveget.
Az oszlopra feltételes formázást adsz. Itt a képlet =I1>2000, formátumként pedig beállítod a háttérszínt. -
#22007
Delila_1
veterán
lordeklvin
#22005
Delila_1
veterán
válasz
lordeklvin
#22005
üzenetére
A kép alapján nekem nem egészen tiszta, melyik adatoknak a / jel utáni részét akarod megjeleníteni, és hol.
Vegyük, hogy az adat (6:00/0) a C10-ben van. A képlet
=JOBB(C10;HOSSZ(C10)-SZÖVEG.KERES("/";C10)) -
kopogo
tag
Hello
1. Az a feladat, hogy az "adatok" fül A,G, H oszlopában lévő adatokat kell megfeleltetni az új "díjtételek" munkalap A oszlopában lévő adatokkal.
Amennyiben egyezést találunk, akkor az "adatok" fül I oszlopában szereplő "Megvalósult_KERDOIV_DB" számot szorozni kell az "új díjtételek" fül C oszlopadatával, melyet az "adatok" fül K oszlopába kell beírni!2. Csak az adatok munkalap I oszlopában a megvalósult_kérdőív_db számot lehessen módosítani úgy, hogy csak 1 és 5000 közötti adatokat fogadjon el szigorúan, írja ki, hogy szigorú hiba, ha elrontják és a 2000 felettieket pirosítsa is ki.
köszönöm
-
#22005
lordeklvin
újonc
lordeklvin
újonc
Sziasztok!
Lenne egy kis problémám. van 2 táblázatom az egyik hivatkozik a másikra
http://kepfeltoltes.hu/view/140616/K_pkiv_g_s4_www.kepfeltoltes.hu_.png
Így néz ki a táblázat az lenne a kérdésem h h tudom a "ha" függvénybe beékelni egy szöveg.keres függvényt mert nekem az lenne a lényeg h a "/" jel mögötti számokat hozza csak át ebbe a táblázatba vagy esetleg milyen más megoldás van? válaszotok előre is köszönöm.
-
Delila_1
veterán
válasz
tgumis
#22000
üzenetére
Az Összesítés lap A1 cellája az első-, az A2 az utolsó hónap, amit összesíteni akarsz.
Legegyszerűbb, ha minden lapon egy cellában összesíted az aznapi eladásokat. Legyen ez a példában az N1 cella. Ha a bevételeid a D oszlopban vannak, akkor az N1 képlete =SZUM(D:D).A makró az Összesítés lap B4 cellájába írja be a beírt lapok összbevételét.
Sub Osszesen()
Dim lap%, elso%, ucso%, osszes As Long
elso% = Sheets("Összesítés").Range("A1")
ucso% = Sheets("Összesítés").Range("A2")
For lap% = elso% To ucso%
osszes = osszes + Sheets(lap%).Range("N1")
Next
Sheets("Összesítés").Range("B4") = osszes
End Sub -
Louro
őstag
válasz
slashing
#22001
üzenetére
Én is az összesítőn oldanám meg. Lenne két mező: Mettől és Meddig. Az összegzés pedig a két paraméter között sheet-eket összesítené. (Elgondolkodtam a megvalósításán és valamiért a makró nekem használhatóbb.)
De, ha makró, akkor ugyanúgy kellene a Mettől Meddig mezők és a ciklus a paraméterben megadott értékek között futna le.
Összegző sheet-en lenne valahol a táblázat nagyon végén vagy az első oszlopban lenne.Makróban ennyi lenne:
Dim Mettol As Integer, Meddig As IntegerActiveWorkbook.Worksheets("Osszegzes").Select
Mettol = Cells(1, 1)
Meddig = Cells(2, 1)If Mettol > Meddig Then
MsgBox "Nagyobb a Mettől mező, mint a Meddig."
Else
For i = Mettol To Meddig
itt van az összeadás
Next
End If -
slashing
senior tag
válasz
tgumis
#22000
üzenetére
Hát ezt elvileg ha van az összesítő táblázatban dátum akkor egy kimutatással vagy kimutatás diagrammal és egy idősor beszúrásával egyszerűen meg lehet oldani ha újabb excelt használsz. Azthiszem Pivot a hivatalos megnevezése....
A képletes megoldást másra hagyom... de én tuti kimutatással csinálnám még ha ehhez teljesen át kéne strukturálnom az egész munkafüzetet, mivel százszor egyszerűbb mint sok képlettel elérni ugyan azt.
, a "maxx" az gondolom megkülönböztetésül direkt van ilyen alakban 2 x-szel?
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Mikrotik routerek
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- eMAG vélemények - tapasztalatok
- Konzolokról KULTURÁLT módon
- Linux kezdőknek
- EAFC 25
- exHWSW - Értünk mindenhez IS
- Xbox tulajok OFF topicja
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Gyermek PC játékok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- BESZÁMÍTÁS! ASUS ROG STRIX X570-E Gaming alaplap garanciával hibátlan működéssel
- Lenovo ThinkPad L16 Gen 1 - 16" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- Samsung Galaxy A04 128GB, Kártyafüggetlen, 1 Év Garanciával
- Felújított laptopok Számlával, garanciával! Ingyen Foxpost!
- BESZÁMÍTÁS! ASUS ROG STRIX Z270G GAMING WiFi alaplap garanciával hibátlan működéssel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest