Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- eBay-es kütyük kis pénzért
- GoodSpeed: Márkaváltás sok-sok év után
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- N€T0X|N: Poloskahegy
- bb0t: Ikea PAX gardrób és a pokol logisztikája
-
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
válasz
paatrick
#12432
üzenetére
Sub ved()
Dim lap%
For lap% = 1 To Sheets.Count
Sheets(lap%).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SzuperTitok"
ActiveSheet.EnableSelection = xlNoSelection
Next
End SubA Password-nél add meg a saját jelszavadat, vagy ha nem akarod jelszavazni, akkor el is hagyhatod. Ebben az esetben a Scenarios:=True utáni vesszőt is töröld ki.
Az ActiveSheet.EnableSelection = xlNoSelection sor letiltja a zárolt cellák kijelölését, ezt is elhagyhatod. -
#12394
Delila_1
veterán
macimeister
#12391
Delila_1
veterán
válasz
macimeister
#12391
üzenetére
-
#12393
Delila_1
veterán
macimeister
#12391
Delila_1
veterán
válasz
macimeister
#12391
üzenetére
Legegyszerűbben egy kimutatással dobhatod össze.
Most nincs időm kipróbálni, de azt hiszem, csak az oszlopokban lévő értékeket tudod így összeszámolni. Ha igen, akkor a sorokat alakítsd át oszlopokká irányított beillesztéssel, transzponálva. -
#12392
Delila_1
veterán
macimeister
#12391
Delila_1
veterán
válasz
macimeister
#12391
üzenetére
Legegyszerűbben egy kimutatással dobhatod össze.
Most nincs időm kipróbálni, de azt hiszem, csak az oszlopokban lévő értékeket tudod így összeszámolni. Ha igen, akkor a sorokat alakítsd át oszlopokká irányított beillesztéssel, transzponálva. -
#12390
Delila_1
veterán
macimeister
#12389
Delila_1
veterán
válasz
macimeister
#12389
üzenetére
=SZORZATÖSSZEG((A1:I1<>"")/DARABTELI(A1:I1;A1:I1))
Ez a képlet az A1:I1 tartományban előforduló különböző értékű cellák darabszámát adja eredményül.
Ugyanígy megadhatod a képletet az oszlopokra is, ha az A1:I1 helyett a megfelelő tartományt írod be. -
Delila_1
veterán
-
Delila_1
veterán
válasz
tezse66
#12375
üzenetére
Laphoz rendelve:
Option Explicit
Public lel, R%, G%, B%
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lel, betu As String, cim As String
Dim R%, G%, B%
If Target.Column = 1 Then
betu = Target: cim = Target.Address
If IsEmpty(Target) Then
Range(Target.Address).Interior.ColorIndex = -4142
Exit Sub
End If
szin betu, cim
End If
End SubModulba:
Sub szin(betu, cim)
Dim lel, R%, G%, B%
On Error Resume Next
lel = Sheets("Munka1").Range("A:A").Find(betu).Row
If IsEmpty(lel) Then Exit Sub
R% = Sheets("Munka1").Cells(lel, 2)
G% = Sheets("Munka1").Cells(lel, 3)
B% = Sheets("Munka1").Cells(lel, 4)
Range(cim).Interior.Color = RGB(R%, G%, B%)
End SubAz A oszlopba beírt értékeket figyeli. Üres cella leenterezése, vagy előző adat törlése kitöltetlen hátteret ad.
-
Delila_1
veterán
válasz
jani-wan
#12369
üzenetére
Sub elrejt()
Dim sor As Integer, oszlop As Integer
Sheets("Munka1").Select 'ezt írd át arra a lapnévre,
'ahol rejteni akarod a sorokat és oszlopokat
'Sorok rejtése
For sor = 2 To 20 '2-től 20. sorig ellenőriz, írd át a tartományt
If Cells(sor, 2) = "" Then
Rows(sor).Hidden = True
Else
Rows(sor).Hidden = False
End If
Next
'Oszlopok rejtése
For oszlop = 2 To 60 'B-től BH oszlopig ellenőriz, írd át a tartományt
If Cells(2, oszlop) = "" Then
Columns(oszlop).Hidden = True
Else
Columns(oszlop).Hidden = False
End If
Next
End SubHa a képletet tartalmazó cellák soronként nem a B oszlopban vannak, a Sorok rejtése részben az If Cells(sor, 2) = "" Then sorban a 2-t írd át az oszlop számára.
Kitehetsz egy gombot a lapodra az Űrlapok eszköztárból, majd a jobb klikkre előjövő menüben hozzárendeled az "elrejt" makrót. Utána már gombnyomásra elvégzi a műveletsort.
-
Delila_1
veterán
válasz
tezse66
#12362
üzenetére
Azt már írtam, hogy függvénnyel nem lehet megoldani. A cellába vagy függvényt írsz, vagy a példád szerinti B 00-04 P értéket. A függvények a beírásuk helyén működnek, nem adhatod meg, hogy pl. a SZUM függvény eredménye a szomszédos cellában jelenjen meg.
A bővítménykezelőben jelöld be a két Analysis kezdetű bővítményt, akkor jó lesz a makró. Ennek a helyéről sokszor volt már szó, keress rá az Analysis szóra.
-
Delila_1
veterán
válasz
cousin333
#12302
üzenetére
Tömb rendezése 1 oszlop szerint: állsz a rendezendő oszlopban bárhol – nem jelölöd ki az oszlopot –, és rákattintasz az ikonra, amelyik A-tól Z-ig, vagy amelyik Z-től A-ig rendez.
Ha kijelölöd a rendezendő oszlopot, akkor csakis azt rendezi, nem viszi magával a többi oszlop sorait.Sorrend megfordítása: az első üres oszlop első cellájába írsz egy egyest, a másodikba egy kettest. A kettőt együtt kijelölöd, és a kijelölés jobb alsó sarkában lévő kis fekete négyzetre adsz egy duplaklikket. Ettől egyesével növekvő számsort visz az eddigi tartományod mellé. Ezt az oszlopot rendezd csökkenő sorrendbe úgy, ahogy az első bekezdésben leírtam.
Rendezés szempontjából mi a különbség a tartomány és a tömb között?
-
Delila_1
veterán
válasz
tezse66
#12279
üzenetére
Függvénnyel ezt nem lehet megoldani, mert vagy a függvényt írod a cellába, vagy azt a karaktert (karaktercsoportot), ami alapján a másik lapról veszi az RGB értékeket.
A Munka1 lap marad, ahogy a #12283-ban megadtam, a másik laphoz rendeld ezt a kódot:
Public lel, R%, G%, B%
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lel, betu As String, cim As String
Dim R%, G%, B%
betu = Target: cim = Target.Address
szin betu, cim
End SubModulba pedig ezt:
Sub szin(betu, cim)
Dim lel, R%, G%, B%
lel = Sheets("Munka1").Range("A:A").Find(betu).Row
R% = Sheets("Munka1").Cells(lel, 2)
G% = Sheets("Munka1").Cells(lel, 3)
B% = Sheets("Munka1").Cells(lel, 4)
Range(cim).Interior.Color = RGB(R%, G%, B%)
End SubMikor a Munka1 lap A oszlopában szereplő adatok közül beviszel egyet a másik lapra, azonnal megkapja az RGB hátteret.
Már csak azt lenne érdemes pontosítani, hogy a másik lap melyik oszlopában, vagy területén érvényesüljön a színezés, mert most az egész lapon működik, és ez valószínűleg felesleges. -
Delila_1
veterán
válasz
tezse66
#12279
üzenetére
A Munka1 lapon vannak a betűkhöz tartozó RGB értékek, a Munka2-n a színezendő cellák.
A makró, amit a gombbal indítasz:Sub szin()
Dim sor As Integer, lel
Dim R%, G%, B%
Sheets("Munka2").Select
For sor = 1 To 11
lel = Sheets("Munka1").Range("A:A").Find(Cells(sor%, "A")).Row
R% = Sheets("Munka1").Cells(lel, 2)
G% = Sheets("Munka1").Cells(lel, 3)
B% = Sheets("Munka1").Cells(lel, 4)
Cells(sor, 1).Interior.Color = RGB(R%, G%, B%)
Next
End SubFire az előző hsz-ben leírta, hogyan kell bevinni a makrót.
-
Delila_1
veterán
válasz
Geryson
#12263
üzenetére
Működik bugizozi Részösszeg függvénye több oszlop szűrése esetén is.
Ha külön táblázatban akarod hozni az értékeket, érdemes egy külön oszlopban összefűzni az A és B értékeit (közöttük egy elválasztó karakterrel, pl. szóközzel). Legyen ez a D oszlop. Ezután a D-re felviszel egy speciális szűrést, ami a minta szerint a G oszlopba teszi az egyedi értékeket. Ezek mellett a Szumha függvény megadja az összegzett értékeket.
-
Delila_1
veterán
válasz
csferke
#12245
üzenetére
1.
Sheets("Bilans").[E14] = Application.WorksheetFunction.Sum(Range(Cells(Target.Row, 5), Cells(Target.Row, 6)))*-1Az [E14] a Range("E14") rövidebb formája.
2.
=IF(LEFT(F29,6)="szöveg", ("fco. naš mag. "&I8&" radnih dana od dana prijema uplate"),)Az utóbbit (is) próba nélkül írtam. A LEFT(F29,6)="szöveg" az F29 cella kezdetét vizsgálja a "szöveg" szó hosszúságában. Ha az F29 tartalma pl. "szöveg a tartományban", akkor a képletet tartalmazó cella eredménye fco. naš mag. szöveg radnih dana od dana prijema uplate – bármit jelentsen is.
Nem szükséges a CONCATENATE függvényt kiírni, elég az összefűzendő értékek közé & jelet írni.
-
Delila_1
veterán
válasz
csferke
#12231
üzenetére
Az If Not Intersect(Target, [D:E]) Is Nothing Then sorban a [D:E]-t írd át [B:C]-re.
Az eseménykezelő makrókban azt kell figyeltetni, ami billentyűzetről változik.
Nincs szükség egy külön oszlopra az összegzéshez a másik lapra történő átvitelhez, a Sum(Range(Cells(Target.Row, 4), Cells(Target.Row, 5))) sor elvégzi az összeadást. A sok képlet lassítja a futást.Nem próbáltam ki!
-
Delila_1
veterán
válasz
coolmpi
#12184
üzenetére
Ez a kérdés valahogy kimaradt.
A csatolt füzet Munka1 lapján látszik, hogy a beléptető automata nem áll a helyzete magaslatán. Néhány sorban az egymást követő időpontokban kissé rapszodikusan követik egymást a be- és kilépések. A lapon piros karakterrel jelöltem ezeket a hibákat.
Készítettem egy másolatot a lapról, ahol – önkényesen – kitöröltem a hibás sorokat. Felvettem 3 új oszlopot, majd az egészből kimutatást készítettem.
Érdemes megnézni az összegző oszlop és -sor cellaformátumát. Ha egyszerűen ó:p alakban adjuk meg ezt, akkor csak a 24 órákon felüli időt mutatja (138:37 helyett 18:37 látszana), mert az alapértelmezett idő az Excelben 1 nap, vagyis 24 óra. -
-
Delila_1
veterán
válasz
csferke
#12213
üzenetére
Szívesen.
Ezt a Sheet3 laphoz rendeld:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A:A]) Is Nothing Then
Sheets("Sheet2").[B1] = Application.WorksheetFunction.Sum([D:E])
End If
End SubHa a Sheet3 lapon a D, vagy E oszlop változása után kellene az összegüket átvinni a Sheet2!B1 cellájába, akkor az
If Not Intersect(Target, [A:A]) Is Nothing Thensor helyére
If Not Intersect(Target, [E:D]) Is Nothing Then
kerüljön. Most a Sheet3 lap A oszlopába beírt érték hatására kerül a D:E oszlop összege a Sheet2!B1-be. -
-
-
Delila_1
veterán
válasz
torment
#12203
üzenetére
A lapnév mindig szöveg formátumú, még ha "szemre" dátumot mutat is.
Szúrj be egy lapot Lista névvel, ide listázza majd ki a lapok makró a dátumos lapneveket.
Sub lapok()
Dim lap%, lapnév As String, usor%
For lap% = 1 To ThisWorkbook.Sheets.Count
lapnév = Sheets(lap%).Name
If Len(lapnév) = 10 And Mid(lapnév, 5, 1) = "." And Mid(lapnév, 8, 1) = "." Then
usor% = Sheets("Lista").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Lista").Range("A" & usor%) = lapnév
End If
Next
End SubA makróban feltételeztem, hogy a lapnevek 2011.12.01 formátumúak. A feltételt tartalmazó sort lehetne bővíteni, pontosítani. Itt csak a lapnév hosszát, és a két pont helyét ellenőriztettem.
-
#12200
Delila_1
veterán
Fehér Mancs
#12199
Delila_1
veterán
válasz
Fehér Mancs
#12199
üzenetére
Ez az igazi!
Magyar Excelben
{=SZUM((A47:EQ47)*(MARADÉK(OSZLOP(A47:EQ47);3)=0))} -
-
#12170
Delila_1
veterán
superecneB
#12169
Delila_1
veterán
válasz
superecneB
#12169
üzenetére
A szerkesztőlécen beállsz a szövegbe, és Alt+Enterrel töröd a sort. Miért nem működik ez?
-
#12168
Delila_1
veterán
superecneB
#12167
Delila_1
veterán
válasz
superecneB
#12167
üzenetére
A cellaformázás Igazítás fülén jelöld be a Sortöréssel több sorba opciót.
Úgy is beállíthatod, hogy a szövegben Alt+Entert adsz, ahol törni akarod a szöveget. -
#12160
Delila_1
veterán
Fire/SOUL/CD
#12159
Delila_1
veterán
válasz
Fire/SOUL/CD
#12159
üzenetére
Analyzis ToolPak. Érdemes ennek a VBA-s változatát is bejelölni.
A #11102-es-re kellet volna irányítanom a linket, eltévesztettem.
-
#12158
Delila_1
veterán
Fire/SOUL/CD
#12157
Delila_1
veterán
válasz
Fire/SOUL/CD
#12157
üzenetére
Igen, csak elő kell csalni a bővítményekkel.
-
Delila_1
veterán
válasz
Sickboy25
#12139
üzenetére
Lehet, hogy itt-ott nem dátum formátumú az adatod.
Állítsd a teljes oszlopot dátum formátumra, és egyenként enterezd le, de úgy, hogy F2-t nyomsz a cellán, majd Enter. A teljes oszlopon F2-Enter, F2-Enter.Az a cella (G2) is dátum formátumú legyen, ahova a kiválasztott dátumot írod.
-
Delila_1
veterán
válasz
Sickboy25
#12131
üzenetére
Irányított (speciális) szűrőt alkalmazz.
Vegyük, hogy az adataid az A:E tartományban vannak. Az A oszlop tartalmazza a dátumot, az oszlop címe Kelt.
A G1 cella legyen Kelt, G2-be írd a keresendő dátumot, a példa szerinti 2011.09.11-et.
A szűrés párbeszéd doboza ilyen legyen:Más helyre másolja
Listatartomány: $A:$E
Szűrőtartomány: $G1:$G2
Hova másolja: $I$1:$M>1
Csak az egyedi rekordok megjelenítéseKépet akartam beszúrni, de a 15 KB-os, jpg kiterjesztésű képet nem megfelelőnek minősíti a fórummotor. Kiírja, hogy max 1920×1200 px, 1Mb, GIF/JPG/PNG képet tud csak fogadni.
-
#12122
Delila_1
veterán
Dre_Powell
#12121
Delila_1
veterán
válasz
Dre_Powell
#12121
üzenetére
-
#12120
Delila_1
veterán
Dre_Powell
#12119
Delila_1
veterán
válasz
Dre_Powell
#12119
üzenetére
=ha(k2<11;14300;k2*1300)
-
Delila_1
veterán
=HA(HIBÁS(FKERES(A526;$A$1:$B$10;2;HAMIS));"";FKERES(A526;$A$1:$B$10;2;HAMIS))
Ez a függvény hibás FKERES esetén – nem találja a keresett értéket – üres stringet ("") ad eredményül, látszólag üres lesz a cella. Találatkor kiírja a keresett értékhez tartozó B cella tartalmát.
-
#12099
Delila_1
veterán
JagdPanther
#12098
Delila_1
veterán
válasz
JagdPanther
#12098
üzenetére
Szívesen.
-
#12097
Delila_1
veterán
JagdPanther
#12096
Delila_1
veterán
válasz
JagdPanther
#12096
üzenetére
D1-be írtam a keresendő értéket, a számok az A oszlopban vannak.
A képlet
=HOL.VAN(D1;A:A;1)+1 -
-
Delila_1
veterán
válasz
Sir Pocok
#12084
üzenetére
Egy oszlopban (legyen ez most az F) összefűzöd a B és C oszlop értékeit, közöttük szóközzel.
=B2 & " " & C2
Ezt a képletet lemásolod végig az adatai mellé. A következő oszlopban az
=DARABTELI(F
;F2) képlet minden sorba kiírja, hányszor találta meg együttesen a B és C értéket. -
Delila_1
veterán
válasz
Geryson
#12078
üzenetére
A sz-eur kezedtű, és sz-exp kezdetű feltételt nemigen tudod megadni tartományra feltételként. Vegyél fel egy oszlopot a Munka2 lapon (nálam W), amibe beírod ezt a képletet:
=VAGY(BAL(A2;6)="sz-eur";BAL(A2;6)="sz-exp";C2>Munka3!$Q$3;C2<=Munka3!$S$3)
Feltételeztem, hogy a Q3 és az S3 cellák a Munka3 lapon vannak. A fenti képlet eredménye IGAZ, ha a 4 kritérium közül bármelyik teljesül, és HAMIS, ha egy sem.
Ezután az összegző képlet:
=SZUMHA(Munka2!W:W;IGAZ;Munka2!F:F)
-
Delila_1
veterán
válasz
Geryson
#12076
üzenetére
A SZUMHATÖBB függvény kritériumai ÉS kapcsolatban vannak egymással.
Ez azt jelenti, hogy a feltétel akkor igaz – akkor veszi be a G oszlop értékét az összegzésbe –, ha a tartomány cellái egyszerre tartalmazzák teljes egészükben a Sz-Exp és Sz-Eur értéket. Mivel ez nem lehetséges, egyik cella sem felel meg ennek a kritériumnak, az eredmény nulla lesz.
-
#12075
Delila_1
veterán
Apollo17hu
#12073
Delila_1
veterán
válasz
Apollo17hu
#12073
üzenetére
A feltételt ilyen formában kell megadni: ">" & MA().
-
Delila_1
veterán
válasz
torment
#12026
üzenetére
Perfag makrójába írtam be a
lap = "gép" & Range("X15") & "_heti" sort, és a másolásnál a lap helyét ennek megfelelően módosítottam.Sub Másol()
Sheets("Lemez_Spc").Select
Dim lap As String, sor As Integer, oszlop As Integer
lap = "gép" & Range("X15") & "_heti"
sor = Range("Y21")
oszlop = Range("Y6")
Range("B35:F42").Copy Sheets(lap).Range("B3").Offset((sor - 1) * 8, (oszlop - 1) * 5)
End Sub
helyére...
Új hozzászólás Aktív témák
Fferi50- One otthoni szolgáltatások (TV, internet, telefon)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Telekom mobilszolgáltatások
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Nothing Phone (3a) Lite – mennyit ér a név?
- Milyen routert?
- A fociról könnyedén, egy baráti társaságban
- Elemlámpa, zseblámpa
- További aktív témák...
- Apple iPhone 13 mini Red Kompakt méret, nagy teljesítmény 256 GB Használt,szép állapot, 100%
- GYÖNYÖRŰ iPhone 12 mini 128GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3856, 100% Akksi
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4050, 100% Akkumulátor
- PocketBook Touch Lux 5 (PB628) /hibás/
- LG UltraGear Gaming Monitorok : BLACK NOVEMBER -30%
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest