- Honor 200 Pro - mobilportré
- Fotók, videók mobillal
- iPhone topik
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
- VoLTE/VoWiFi
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen okostelefont vegyek?
- Xiaomi 14T Pro - teljes a család?
- Honor Magic6 Pro - kör közepén számok
- Android alkalmazások - szoftver kibeszélő topik
-
Mobilarena
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
-
kvoaksz
csendes tag
válasz
Delila_1
#18242
üzenetére
Ezt ábrázoltam.
Próbáltam ábrázolni, mert erre is lehetne valami egyszrűbb módszer.A lényeg szöveggel: Van egy táblázatom ami neveket tartalmaz, mellette két dátum, de a nevek ismétlődnek, mivel több részletben kaptak időpontokat (az alap táblázatot nem módosíthatom).
Ezt szeretném egybe ábrázolni:
ennél jobb képet nem tudok csinálni, amíg el enm árulja valaki hogyan kell egy excelt ide bemásolni.
-
kvoaksz
csendes tag
válasz
Delila_1
#18238
üzenetére
Köszönöm, nagyon jól néz ki!
, csak az a gond vele, hogy nekem az almát, körtét stb. egy sorban kell ábrázolnom, azaz folytonosan pl. :piros, piros fehér, fehér, piros! 
és az első táblát nem is nagyon módosíthatom, persze minimálisan ha nincs más megoldás!
Mindenesetre az egyik gondomat megoldottad!
Az a gyanum excelben ez nem is nagyon megoldható, mert az fkeres csak az első értéket veszi figyelembe.
Köszönöm. -
D5
aktív tag
válasz
Delila_1
#18205
üzenetére
Köszi szépen!
Viszont nekem igazából fontos lenne, hogy A1+1 (azaz a következő cella legyen), mivel itt vált egy ismétlődő felsorolás. Vagyis van 30 nevem, és nekem az kellene, hogy ha a 30. után következő cella megegyezik az első cellával, akkor már mást adjon eredményül a HA() függvény.
Vagy túl bonyolítom?
-
bozsozso
őstag
-
Tompkins
tag
válasz
Delila_1
#18161
üzenetére
Adott pl. a "78". Beütve ezt a számot és lefuttatva a makrót, meg szeretném kapni, hogy hányszor kell összeadni a tükörképével, majd annak a tükörképével stb., hogy egy önmagában tükrös számot kapjunk.
Tehát: 78 -> 78+87=165 -> 165+561=726 -> 726+627=1353 -> 1353+3531=4884 -> Válasz: 4 (négyszer kellett elvégeznie a megfordítását a számnak és összeadni)
Vagy egy másik példa: 34 -> 34+43=77 -> Válasz: 1
Vagy: pl. 8 ill. 11 esetén -> Válasz: 0 (önmagában tükrös)
-
-
petir
senior tag
válasz
Delila_1
#18032
üzenetére
Ez stimm így van van 5 oszlopom. amiből egyedül az idő hianyzik.
Ezt az auto szűrőt nem teljesen értem van egy minta táblám ha autoszurot hasznalok akkor a többi elemet miért tünteti el?
Illetve a beírt eredményt ahogy képen szemléltetted , hogy tudom kiiartni ?Úgy hogy már minden adat szerepel benne?
Meg most kicsit elbizonytalanodtam kell Nekem az acces adatbázis vagy elég ha simán excellbe irom be? -
petir
senior tag
válasz
Delila_1
#18030
üzenetére
Igen valami hasonlóra csak nekem kell egy kereses mező. Ugye vannak a mérő emberek akik mérnek ők felírják a mért eredményt és gyerekek sorszámát a papírrra. Ezt behozza hozzám a futár Nekem pedig sorszám alapján meg kell keresni a gyereket és párosítani őt az idejével...egyre biztosabb vagyok, hogy ebbe VB is kell...
-
Geryson
addikt
válasz
Delila_1
#18004
üzenetére
Így sem akarja. Átállítom az F2-öt "szöveg"-re, kiütöm belőle a képletet (merthogy ebben most egy "=KÖZÉP(E2;1;SZÖVEG.KERES("-";E2;1)-1)" képlet dolgozik. Beleírom manuálisan a "10463" értéket és így sem találja meg. Mellékelek egy képet, itt látszik, hogy hány értéket nem talál meg úgy, hogy ezek mindegyike megtalálható a "Forrás" fülön. Szemmel láthatóan a többivel nincs gondja... (Természetesen a "G" oszlop HIÁNYZIK értékeire gondolok, ott van a gond)
-
-
Sprite75
tag
válasz
Delila_1
#17954
üzenetére
Ezt a sort jelzi hibának
usorLap = Sheets(lapnev$).Range("A" & Rows.Count).End(xlUp).Row + 1
Biztosan működne ez csak én nem vágom ezt a macro dolgot.Lehet hogy az is gond, hogy a "példában" amit felraktam A és B neveket adtam a táblázatoknak.
Esetleg elküldhetném neked a konkrét táblázatot valahová? -
-
Kobe
veterán
válasz
Delila_1
#17970
üzenetére
köszi, ez így működik is
viszont a macskakaparás jelekkel megint gondban vagyok 
a fenti képletet egy stringben definiáltam:Code = Code & bla bla bla
Code = Code & "ActiveCell.FormulaR1C1= ""=RC[1]&"""-"""&RIGHT("""000"""&RC[2],3)""" & vbNewLinesajna valahol félrecsúsztak a macskakaparás jelek, és a VBA Expected end of statement üzenetet dob, de nekem minden idézőjel páros "rendben lezártnak" tűnik.
Any guess, hol typoztam el ?
-
Sprite75
tag
válasz
Delila_1
#17947
üzenetére
Nem csak 3 munkalapom van hanem kb 30 Van olyan hónap hogy a 30 járműből pl 10 nem tankol abban a hónapban. A példámban B táblázatnak nevezett "lista" munkalapjának a neve "szerkeszt" A járművek külön külön munkalapon vannak, ezek nevei az adott jármű rendszáma A képen amit felraktam csak példa adatok vannak
-
mr.nagy
tag
válasz
Delila_1
#17945
üzenetére
Nem írhat alá sem mert még ott is lesznek adatok.
Viszont eszembe jutott, hogy a Munka2-őn az M oszloptól már biztosan nincs adat, oda esetleg meglehetne csinálni egy segéd oszlopot ahova a cikkszámokat egymás alá bemásolja annyiszor amennyi a darabszám. Majd innen kezdi el a másik munkalapra másolni a már ismert kritériumok alapján a cikkszámokat 12-esével és amikor végzett vagy az egész procedúra előtt is törölheti ennek a segédoszlopnak a tartalmát.
-
Sprite75
tag
válasz
Delila_1
#17940
üzenetére
Az előbbi. Az A1 A2 táblázatok külön külön munkalapon vannak. Ezekben már benne vannak az előző havi tankolások. Az e havi tankolások egy B formátumú táblázatban gyűlnek egész hónapban aztán hónap végén át kéne rakni rendszámonként külön munkalapra ahol további számítások vannak járművenként (átlagfogyasztás havi összesítés stb) Eddig járművenként másolgattam és ezt szeretném könnìteni, automatizálni
-
mr.nagy
tag
válasz
Delila_1
#17943
üzenetére
Köszi a segítséget!
A darabszám lehet akár 40 - 50 is, ennél nem nagyon van több, bár előfordulhat.
Ezenkívűl ha jól értelmezem a makrót (de kijavítasz ha nem) a nyomtatás után törli a Munka1-ről a teljes C és L oszlopokban taláható adatot. Ha igen nekem ez nem jó, mert ott vannak függvények, stb amire szükség van, tehát csak a megadott cellák tartalmát törölheti.
-
Kobe
veterán
válasz
Delila_1
#17884
üzenetére
Igen de sok vba ban megirt vlookupnal elojon ez a hiba, eleg sok eset van neten errol. Gyakorlatilag az excel valamiert ugy erzekeli h a megadott munkafuzet nincs megnyitva ezert mar ertekadasnal nem tud hivatkozni ra, viszont ez hulyeseg, ott virit mellette a masik munkafuzet
-
biker
nagyúr
válasz
Delila_1
#17883
üzenetére
az a baj, hogy ezekkel az ALAP körlevél, boríték kérdésekre kaptam csak korábban választ, ahol egy oldal/egy levél van
címkénél laponként 30-50-100 is lehet, és ott minden cimke mezőbe egyesével kellene a mezőket hozzáadjam, mert az elsőbe felviszem, miket írjon bele, és nem mutatja a másodikon
de majd akkor ctrl+C ctrl+V-vel végigmásolom ezen az egy lapon, és onnan már generálja a többit
-
Kobe
veterán
válasz
Delila_1
#17879
üzenetére
Gyak ugyanazt csinaltam, mint amit te is mutattal a kodban, kicsit aktualizaltam a fileneveket de a valtozokhoz nem nyultam. Igazabol utananeztem neten es nagyon gyakran elojon ez a hiba vba s vlookupnal, csak epp mindig mas indokkal...igy eleg nehez sajna megoldast googlizni ra
-
Kobe
veterán
válasz
Delila_1
#17867
üzenetére
köszi
igazából pont fordítva megy, de az nem gáz, csak meg kell cserélni hogy melyik excel filet adod meg a WS változóban.
Egész pontosan úgy megy, hogy van a temporary.xls nevű file (ez egy adatbázis letöltés, access hozza létre és először ezt nyitja meg), és van a test.xls. A temporary.xls-ből szeretnék adatokat másolni a test.xls-be, de a többi úgy megy, ahogy leírtad - a test.xls INT nevű lapján az AB oszlopban található azonosítót keresem a temporary.xls ben, és a test.xls/INT lap T oszlopára írom vissza az értéket.
Viszont a makró nem tudom miért, de ennél a sornál elakad (ez az amit már átírtam, hogy a másik filera hivatkozzon):
Set WS = Workbooks("temporary.xls").Worksheets("Report")
gondoltam hogy nem találja a filet, ezért próbáltam a teljes hivatkozást berakni a filehoz így:
Set WS = Workbooks("C:/Users/Desktop/database test/test.xls").Worksheets("Report")
de sajnos ez esetben sem működött. Az excel azt írja hogy Run-time error 9: Subscript out of range
-
Kobe
veterán
válasz
Delila_1
#17863
üzenetére
valszeg valamit elrontottam a ctrl c ctrl v nél
Cells(sor, "X") & "-" & Round(Cells(sor, "W"), 0)
erre van emgadva az érték, de így nem működik. Igazából az érdekelne, hogy a VLOOKUP os részt hogyan kellene átírni ahhoz, hogy ugyanúgy működjön, mint a korábbi concatenates subod, hogy csak azokra a sorokra leressen rá, ahol az eredeti concatenates sub is
-
Kobe
veterán
válasz
Delila_1
#17724
üzenetére
helló
arra esetleg van valamilyen tipped, hogy a későbbiekben hogy lehetne dinamikusan azokra a cellákra hivatkozni pl VLOOKUP függvényben, amiket ez a sub amit mutattál kitöltött ?
Kicsit részletesebben: van ugye egy változó sorú adattábla ahol az egyik oszlopban Hazai vagy Külföldi van írva. Ez a sub kitölt egy oszlopot a Hazai sorokra. Ezt a "Hazai" sorokra visszakapott értéket én egy azonosítónak szánom, és egy vlookup függvénnyel egy másik fileból az ehhez tartozó plusz információkat szeretném bemásolni vele.
Az egyetlen gondom az, mint ami az eredeti subnál is volt: csak azokba a sorokba szeretnék beíratni valamit ahol az X oszlopban "hazai" volt, tehát valahogy dinamikusan szeretnék hivatkozni a VLOOKUP függvényben az Y oszlop kitöltött soraira.
Próbáltam úgy, hogy definiálok egy változót, tovább folytatva a te Subodat. Alul a konkrét kód, a hivatkozások és oszlopok kicsit mások lehetnek benne, mert ez már a végleges változat ami fut.
ez gyakorlatilag ugyanaz, mint amit te írtál, és klasszul működik: ehhez akarom majd hozzáépíteni a Vlookupot
Dim lnglastrow as Long
Dim lnglastrow2 as Long
lnglastrow2=Range("L"&Rows.Coun).End(xlUp).Row
For lnglastrow=2 to lnglastrow2
If Cells(lnglastrow,"R")="Hazai" then Cells(lnglastrow,"AB")=Cells(lnglastrow,"O")&"-"&Round(Cells(lnglastrow,"L"),0)
Nexta Vlookupot próbáltam így hhozzáépíteni:
Dim IDNUMBER as Long
IDNUMBER= Cells(lnglastrow,"AB")=Cells(lnglastrow,"O")&"-"&Round(Cells(lnglastrow,"L"),0)
For lnglastrow=2 to lnglastrow2
If Cells(lnglastrow,"R")="Hazai" then Cells(lnglastrow,"T")= "=VLOOKUP(IDNUMBER,'C:/test/[test.xls]INT'!$A$1:$P$65536,5,FALSE)"
Nexta Vlookup rendben le is fut, azonban az eredménycellákba csak ?#NAME hibaüziket ír vissza, mert rosszul hivatkoztam az IDNUMBER változóra. Ha az IDNUMBER-t manuálisan kicserélem pl AB1-re, akkor már a jó értéket írja vissza az eredménycellába.
Tudnátok segíteni mit kellene updatelnem ?
-
elmouse
aktív tag
válasz
Delila_1
#17658
üzenetére
Szia!
Az általad írt makróról lenne kérdésem.
A feladat most is hasonló, tehát egy adott oszlop utolsó 50 tagjának kellene kiszámolni az átlagát, de ciklusban. Vagyis először az A oszlop utolsó 50 tagjának az átlagát,aztán a B oszlopét is így tovább, míg van adatokat tartalmazó oszlop.
A kérdés persze nem csak neked szól. Bárki segítségét elfogadom.
Előre is köszönöm! -
Caipi
tag
válasz
Delila_1
#17711
üzenetére
Szia Delila_1,
Tegnap délután és most végre volt időm egy kicsit ezzel a diagrammal foglalkozni.
Oszlopdiagram lett belőle, félkész jelenleg.
Kérdésem, hátha tudsz segíteni:
Hogyan tudnám ezen a diagramon a keretösszeget is ábrázolni? Elképzelésem szerint ezt egy vonallal ábrázolnám
Köszönöm :-)
-
#17834
m.zmrzlina
senior tag
Delila_1
#17831
-
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?
-
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...
-
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 -
-
#17767
dellfanboy
őstag
Delila_1
#17764
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? -
Mutt
senior 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.
-
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
-
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
-
Caipi
tag
-
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 -
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.Így néz ki:
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.)
-
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? -
Delila_1
veterán
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 Sub
, csak az a gond vele, hogy nekem az almát, körtét stb. egy sorban kell ábrázolnom, azaz folytonosan pl. :piros, piros fehér, fehér, piros! 
A 2 lehetőség közül a második tűnik szimpatikusabbnak (de mindkettő tökéletes persze)...köszönöm szépen 
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Honor 200 Pro - mobilportré
- Milyen belső merevlemezt vegyek?
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Intel Core i3 / i5 / i7 / i9 10xxx "Comet Lake" és i3 / i5 / i7 / i9 11xxx "Rocket Lake" (LGA1200)
- Kerékpárosok, bringások ide!
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Fotók, videók mobillal
- Le Mans Ultimate
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Xbox Series X|S
- További aktív témák...
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RX 6600 8GB GAMER PC termékbeszámítással
- MacBook felvásárlás!! Macbook, Macbook Air, Macbook Pro
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RTX 4070Ti Super GAMER PC termékbeszámítással
- Csere-Beszámítás! RTX Gamer Számítógép PC Játékra! I5 12400F / RTX 3070 / 32GB DDR4 / 1TB SSD
- Beszámítás! HP Z2 G4 Tower Workstation számítógép garanciával, hibátlan működéssel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest