- A Sony szerint Japánon kívül is hódíthat az anime
- Szilárdtest-akkumulátorokat fejleszt Kína, jöhet az áttörés?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 11
- A választási tévinformációk ellen küzd a Meta
- Mikrotik routerek
- SQL kérdések
- Aliexpress tapasztalatok
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
-
IT café
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
-
Melorin
addikt
válasz Delila_1 #17574 üzenetére
És mi van akkor, ha az általam kijelölt táblázatba (ami a képemen pl Április) Február kerül, mert a kezdő dátum miatt ez rugalmas. Akkor 28-val véget ér a február, és folyatódik Március 1. Március 2. holott ez a táblázat csak egy hónapnak adhat helyet. A márciusnak a következő, alatta lévő táblázatban kéne folytatódnia.
-
Melorin
addikt
válasz Delila_1 #17582 üzenetére
Így csináltam
CTRL+F3-al készítettem egy-egy csoportot ELTOLÁS-sal minden hónap napjairól, (ami változik attól függően, hogy mi az induló hónap), mint ahogy a képen is látszik. Nevezzük most Csoport(1,2,3...)-nak őket.
Hogy lehet ezt a kis táblázatot valahová beszúrni? Mert akkor meg is oldódna a hónapok egymástól elkülönített megjelenítése.
Valahogy így képzelem el az én kis agyamban, persze ilyen képletsor nincs:A1 --> =Csoport1(1.sor;1.oszlop) B1 -->=Csoport1(1.sor;2.oszlop)
A2 --> =Csoport1(2.sor;1.oszlop) B1 -->=Csoport1(2.sor;2.oszlop)
..
..
A52 --> =Csoport2(21.sor;1.oszlop) B52 -->=Csoport2(21.sor;2.oszlop)Vagy akár el is hagyhatjuk a több oszlopot, mert ahogy írtad is, azok ugyan azok csak a formázás miatt írnak mást.
De akkor egy oszloppal is, hogy lehet megcsinálni a példám szerint? -
bteebi
veterán
válasz Delila_1 #17590 üzenetére
Köszi a tippet! Manuálisan meg tudtam csinálni eddig is a konverziót irányított beillesztéssel, de makróval nem megy. Megpróbálom azt is makróval, amit írtál.
#15791: Köszi a javaslatot. Már próbáltam, de önmagában a cellaformátum megadása, átállítása nem segít, ugyanúgy szövegként értelmezi a számokat.
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
m.zmrzlina
senior tag
válasz Delila_1 #17593 üzenetére
Ez a módszer miért nem működik ha nem használsz objektumváltozót?
Én ugyanis kipróbáltam úgy hogy:
For Each cella in Selection.Cells
cella.Value=cella.Value * 1
Nextde ez még az általam Szöveggé formázott számokon sem működött.
Úgy működött csak, ha nem helyben akartam szorozni, hanem odébbtettem egy másik cellába a végeredményt.
[ Szerkesztve ]
-
Melorin
addikt
válasz Delila_1 #17585 üzenetére
Köszönöm a töretlen segítséget
Jelenleg így néz ki:Most az a probléma, hogy nem tudom summázni a napok mellé írt számokat (a képen nincs beírva semmi) mert nem tudni, hogy mettől meddig terjed 1-1 hónap, mivel az a változtatható hónapok napjainak száma alapján más.
Mert most S2:S31-ig terjed március, de kerülhet ide akár február is, akkor meg már a március első napjait is beleszámolná, ráadásul elcsúszna emiatt az egész év is. -
dellfanboy
őstag
válasz Delila_1 #17607 üzenetére
ez jó de én nem látom benne hogy két év esetén 10%-nál magasabb kamattal nem számol ,csak a sztenderd 10%
ezt írtam a ha fv-be, de vmi oknál fogva nem megy...
=HA(B5=1;"B1*(1+B4)/B2+B3";"B1*(1+B4*b5)/B2+B3")eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz Delila_1 #17635 üzenetére
Reggel rohantam, most egy kicsit módosítottam a makrón. A színek kikavarásához normális értékeket kell írni, hogy jól mutassanak.
Sub mnmn()
usor% = Range("A1").End(xlDown).Row
maxx = Application.WorksheetFunction.Max(Range("A1:A" & usor%))
hatar1 = maxx * 0.2
hatar2 = maxx * 0.4
hatar3 = maxx * 0.6
hatar4 = maxx * 0.8
For sor% = 1 To usor%
szam = Cells(sor%, 1)
If szam < hatar1 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(0, 0, 255)
If szam >= hatar1 And szam < hatar2 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 50, 100)
If szam >= hatar2 And szam < hatar3 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(80, 20, 180)
If szam >= hatar3 And szam < hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(120, 200, 150)
If szam >= hatar4 Then Range("A" & sor% & ":J" & sor%).Interior.Color = RGB(255, 0, 0)
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Melorin
addikt
válasz Delila_1 #17619 üzenetére
Köszönöm, működik, és megértettem, mire való a $ jel. A MS oldalon eddig nem sikerült úgy elmagyarázniuk, hogy megértsem
Már majdnem kész a project. De van még 1-2 dolog, ami még furcsa.
Például mivel a hónapok napjainap a száma változik, ráadásul az elseje sem mindig Hétfő, stb, a táblázatom le-fel elmozdul jópár cellát. Viszont a beírt értékek ott maradnak ahol voltak, és a táblázat alá-fölé kerülhetnek.
Ezért a hónapok alatt nehezen tudnám összesíteni a napok mellé írt órákat.
Mutatok egy példát. Itt be voltak eredetileg írva a napok mellé az adatok, de aztán változtattam a "hűségidő" kezdetén. Csöppet elcsúsztak az adatok.
Az még haggyán, hogy az adatok elcsúsznak, mert új évkezdésnél lehet/kell is törölni az értékeket, de nem tudom, hogy hová tegyem az összesítőcellát. Az hülyén nézne ki, hogy a legszélsőségesebb esetet véve vagy' 7 cellával lejjebb legyen összesítve.
Nem lehet valami olyan diagrammot vagy akármit beszúrni, ami változtatgatja a helyét, és megadható, hogy mindíg a legalsó érték alá kerüljön? -
kekkec
aktív tag
válasz Delila_1 #17637 üzenetére
Szia!
Köszönöm a segítséged!
Az ami példaként szerepelt kissé eltér a "projektemtől" és gőzöm sincs hogyan applikálhatnám bele illetve abban százalékok (0 és 1 közti valós számok) alkotják az értékeket.Azon szenvedek, hogy a kisebb színes cellák háttérszínét felvegye a felettük lévő szöveget tartalmazó cella (mindegyik a saját "párjáét", tehát: B2 a B3-ét, C2 a C3-mét,... stb.)
-
Gandalf80
csendes tag
válasz Delila_1 #17668 üzenetére
Szia!
Bocs, azt tényleg rosszul hoztam a példában, természetesen nem kell a cellákat egyesíteni és több cella is tartalmazhat 1-1 napot.
Addig már eljutottam, hogy a SZUMHATÖBB-bel le tudom szűrni 1-1 napra, de ezzel még nem oldottam meg a másik részét a feladatnak. Azt, hogy ha az F2 illetve I2 cellába beírok bármelyik két napot, akkor csak pl. 5-20-ig terjedő értékekből adja össze, hogy pl. az alma eladásából mennyi bevételünk lett a 16 nap alatt.
Eddig ezt, egy segédtáblával oldottam meg. De arra lennék kíváncsi, hogy van-e egyszerűbb megoldás?
Üdv.
Gandalf80"Az élet pókerjátszmájában a nőket elviszi a bank." http://mikrolimitpoker.blog.hu
-
Caipi
tag
-
Kobe
veterán
válasz Delila_1 #17716 üzenetére
Koszi de nekem vba ban kellene es nem sima fuggvennyel megoldva, anyway az if csak 1 cellara vizsgalja a tartalmat, nekem megy valtozo sor szamu dinamikus listam van, mint irtam. Es az a baj, hogy nincs else statementem, mert nem kell, en azt szeretnem hogy a "kulfoldi" sorok cellait teljes mertekben hagyja beken, ne csinaljon vele semmit (azokat egy masik makro toltene fel)
a makronak automatikusan vegig kellene mennie az osszes soron es magatol beirni minden cellaba ahol hazai van
-
Kobe
veterán
válasz Delila_1 #17718 üzenetére
ez egy rendesen kitöltött táblázat, mindig ugyanaz a fejléc van az első sorban benne, a makró célja pedig hogy egyik excel fileból (ami adatbázisból ered), a másikba másoljak egy egy sorhoz fűzött kommenteket, adatokat
A-AB oszlopokig vannak megcímezve a fejléc cellái, a file "eredeti" állapotban csak A-X oszlopokban tartalmazza az adatokat folyamatosan, plusz ugye X-AB ig ures cellákat, ezekbe kellene majd makróval hozzáilleszteni az adatokat VLOOKUPPAL
A-X oszlopokban minden folyamatosan van kitöltve, egyedül a sorok száma változik, de minden oszlop ki van töltve.
A makró úgy indul, hogy Y oszlop elé beszúr egy új oszlopot, és ott CONCATENATE tel létrehozza az azonosítót, ami alapján másik fileból behúzza az adatokat Z-AB oszlopokba.
az Y2 es cella tehát így nézne ki: =CONCATENATE(X2,"-",ROUND(W2,0)) de ezt csak azokra a cellákra kellene beillesztenie, ahol X2="Hazai"
Mint írtam az IF nem igazán jó megoldás itt, illetve dinamizálni kellene valahogy, hogy mindig X2-Xn számú sort nézzen át
-
Mutt
aktív tag
válasz Delila_1 #17720 üzenetére
Hali,
Egy kicsivel rövidebb megoldás:
=HA(DARABTELI(A1;"*T*")>0;1;HA(DARABTELI(A1;"*A*")>0;2;HA(DARABTELI(A1;"*P*")>0;3;HA(DARABTELI(A1;"*M*")>0;4;HA(DARABTELI(A1;"*B*")>0;0;"")))))Ha a B-re nem 0-át, hanem mondjuk 5-öt kellene visszaadni és a szövegben mindig csak az egyik karakter van, akkor ez is működne:
=ELŐJEL(DARABTELI(A1;"*T*"))*1+ELŐJEL(DARABTELI(A1;"*A*"))*2+ELŐJEL(DARABTELI(A1;"*P*"))*3+ELŐJEL(DARABTELI(A1;"*M*"))*4+ELŐJEL(DARABTELI(A1;"*B*"))*5üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
dellfanboy
őstag
válasz Delila_1 #17764 üzenetére
köszi szépen, ez jónak tűnik de az első lépést nem tudom abszolválni mert azt a hibát kapom hogy aA kivonatolt tartományban egy mezőnév hiányzik??
próbálkoztam avval, hogy a mező formátuma nem jó, értsd létrehoztam magam az ország neveket de nem lett jó. mi lehet a hibA?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz Delila_1 #17766 üzenetére
Elnézést, hellyel-közzel B2 helyett B3-at írtam a képletben.
Kijavítva:
=HA(ÉS(C3=0;ÓRA(B2)<8);0;HA(ÉS(C3=0;ÓRA(B2)>8;ÓRA(B2)<=12);0,5;HA(ÉS(C3=0;ÓRA(B2)>12);1;HA(ÉS(C3>0;ÓRA(B2)<8);C3;HA(ÉS(C3>0;ÓRA(B2)>8;ÓRA(B2)<=12);C3+0,5;C3+1)))))Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
alfa20
senior tag
válasz Delila_1 #17777 üzenetére
Így kell?
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Add Key:=Range( _
"A2:A376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Add Key:=Range( _
"B2:B376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Active.Sheet").Sort
.SetRange Range("A1:Z376")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End Withennek a helyén
Range( _
"A2:A376")működhet usor-al:
Range( _
"A2:A" & usor)Ez az eredeti:
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Add Key:=Range( _
"A2:A376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Add Key:=Range( _
"B2:B376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("0416-kp").Sort
.SetRange Range("A1:Z376")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Delila_1 #17812 üzenetére
köszi,
ez jó lenne csak most az a baj, hogy végigmegy az összes cellán.
próba képen 8 cellába beírtam felváltva, alma, körte, majd futtattam a makrót és 8 szor kellett klikk-elni az ok-ra."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Delila_1 #17816 üzenetére
Bocsi,
szóval azt szeretném, hogy adott egy oszlop (legyen "A") amiben vannak állítások (több száz sor):
- ideális esetben csak "OK" szerepel, ekkor írja ki: "minden ok"
- az oszlopban szerepel az "OK" és a "STÁTUSZ HIBA!", ekkor írja ki: "Státusz hiba, javítsa!"
- az oszlopban szerepel az "OK" és az "ADAT HIBA!", ekkor írja ki: "Adat hiba, javítsa!"
- az oszlopban szerepel az "OK", a "STÁTUSZ HIBA!" és az "ADAT HIBA!", ekkor írja ki: "Státusz és adat hiba, javítsa!"a lényeg hogy csak egy ablak ugorjon fel.
remélem sikerült leírnom amit szeretnék...
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Delila_1 #17818 üzenetére
Szia Delila_1,
Kipróbáltam reggel, át ültettem a táblába, előbb volt egy hiba üzenet a "Dim sor%, usor%, szoveg$" ", usor%"-nál:
"Compire error:
Duplicate declaration in current scope
mivel van már 'usor' a táblába így a 'Dim' sorbol kivettem a többi 'usor%'-ot át írtam 'usor'-ra, így már végigfut, de csak egy üres ablak jelenik meg. próbáltam, hogy rögzítem a képletet hogy csak szöveg legyen a cellában, de akkor is csak üres ablakot dob fel.
Azt is megpróbáltam, hogy másik makróba tettem csak ezt a részt és egy 'CTRL+K'-val futtattam, de ez sem segített.
most így néz ki:
Dim sor%, szoveg$
Dim OK%, AH%
usor = Range("U" & Rows.Count).End(xlUp).Row
For sor% = 2 To usor
If InStr(Cells(sor%, 1), "OK") Then OK% = OK% + 1
If InStr(Cells(sor%, 1), "ADAT HIBA!") Then AH% = AH% + 1
Next
If OK% > 0 And AH% > 0 Then szoveg$ = "Adathibák száma: " & AH% & " db."
If OK% > 0 And AH% = 0 Then szoveg$ = "Nincsenek hibák."
MsgBox szoveg$viszont ami érdekes, ha egy üres munkafüzetbe teszem bele csak ezt a részt, akkor szépen működik, akkor meg szépen teszi a dolgát.
lenne ötleted?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
Új hozzászólás Aktív témák
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen