Hirdetés
- Xiaomi Mi 9 - egy híján
- Fotók, videók mobillal
- Samsung Galaxy A53 5G - kevesebbet többért
- Kezünkben a Huawei Mate 80 és 80 Pro
- Milyen okostelefont vegyek?
- iPhone topik
- Kicsomagoljuk és bemutatjuk a Poco F8 Ultrát
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- A Huawei bemutatta a FreeBuds Pro fülhallgató 5. generációját
-
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
-
-
#7993
basaharc502
aktív tag
ollie
#7992
basaharc502
aktív tag
Hát, így se vágom nagyon :S :S
Felraktam egy képet:
http://kep.psharing.com/412503.jpgEzt a grafikont szeretném saját magam megcsinálni excelben...így egyértelműbb a dolog, hogy mit szeretnék..pl: ápr 29..0-ról fölmegy 400-ra, utána pár 30-án lentebb esik, de aztán ujra fölmegy...
Ha leírnád kicsit részletesebben hogyan csináljam azt megköszönném..nagyon
-
febi
tag
Bocsánat egy kicsit pontatlanul fogalmaztam
Olyan ''képletet szeretnék ami azt figyeli, hogy pl. A1 cellába mi van írva ha ''live'' van írva akkir írja ki(az A2-be), hogy ok és ezt a cellát szinezze is be mondjuk zöldre amúgy meg ha nem ''live'' van írva az A1-be hanem pl: ''teszt'' akkor írja ki, hogy ''hiba'' és színezze ki sárgára a cellát. (de nem szeretnék makrót használni, meg lehet -e makró nélkül csinálni!?)
Remélem érthetően írtam le..... -
-
lapa
veterán
...hmmm. sor minden cellája... szóval ha már pár ember volt olyan kedves, hogy megismertetett anno a vba-val azt hiszem az a legkevesebb, hogy próbálom átadni ugyanezt még több embernek.
a vba nem bonyolult, csak annak tűnik. rövid összefoglalás:
1 programkészítés:
1.1 bepipálod a menük közül a ''visual basic'' menüt.
1.2 megnyomod a ''rec'' gombot (mint a videón).
1.3 mentés mehet a tesztmunkafüzetbe.
1.4 csinálsz valami egyszerűt (pl egy cella kiszínezése).
1.5 megnyomod a ''stop'' gombot.
2 megtekintés:
2.1 a ''visual basic'' eszköztáron a ''visual basic editor'' gombra kattintasz.
2.2 az editorban baloldalt a könyvtárszerkezetben a tesztmunkafüzet alatt van ''modulok''. erre duplán kattintva jobb oldalon megjelenik a program, amit csináltál.
2.3 ha megnézed nem vészes (persze little english jól jön), kijelöli a cellát, majd a kijelölésen hajtja végre a műveletet.
2.4 az 1.1-2.3 lépéseket ismételve lehet nézkélődni, hogy milyen általad csinált dolgot hogyan rögzít. a leggyakrabban a kijelölt (selection) résszel foglalkozik.
3 továbbá
célszerű aktiválni az ''immediate window''-ot az editor ''view'' menüjében. az immediate ''azonnali'', egyszerű dolgokat helyben megcsinál. ha kérdezni szeretnél, csak rakj minden elé ?-et. pl. ?now kiadja az aktuális időt. hát nem tündéri?
a cellákat a makró általában vmi fix hivatkozással írja bele a programba. ezt én nem szeressem. sztem egyszerűbb ez:
cells(<sor>,<oszlop>).select ez kijelöli a megadott cellát.
cells(1,1).select ez pl. kijelöli az A1 cellát.
range(cells(1,1),cells(2,2)).Select a range használatával csak két végpontot kell megadni (a kijelölés itt A1:B2 lesz)
ezzel már jól lehet jelölgetni. ofkorsz a fentieket lehet próbálgatni az ''immediate'' ablakban, ezekhez nem kell ''?''.
a kijelölt részekkel nem sokra megyünk, ha sok cellán akarjuk ismételni a műveletet (pl. #321). persze néha elég az elején a kijelölt területet átírni (nem harap) de nem mindig. csinálhatunk ciklust (kicsit brute-force de legalább egyszerű). erre nagyon jók a cell hivatkozások. egy alap ciklus:
for i = 1 to 256
'legyen i betű amit használunk és egytől 256-ig vegyen fel egyesével növekvő értéket. 256 az oszlopok száma, tehát egy egész sor.
cells(1,i).select
'mindig kiválasztja i oszlop első sorát.
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:=''0'', Formula2:=''1''
Selection.FormatConditions(1).Font.ColorIndex = 6
'fenti két (három...) sorban egy feltételes formázást rögzítettem korábban. ha a cella értéke 0 és 1 között van, legyen sárga a cella. nem is fontos tudni, mi van odaírva, ha rögzítéssel (''rec'') csináltad tuti jó lesz.
next i
'utolsó sor, ez mondja meg a ciklusnak, hogy eddig tartott és most kezdje a mókát újra a következő i értékkel. i helyett (szinte) bármit használhatsz.
ha a fentieket bemásolod az immediate-be, akkor ha minden igaz egyből műxik is. persze itt a példában használt formázás mindig az aktuális cellára vonatkozik, de lehetne ilyen is:
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=''=$A$2=4''
Selection.FormatConditions(1).Font.ColorIndex = 6
a fenti azt eredményezi, hogy ha az A2 cella értéke 4 lesz, akkor a formázott (bármelyik) cella besárgul. persze ezt is rögzítettem, a rák se tud ilyeneket kívülről.
sztem aki már képes arra, hogy a gyakran használt képleteit ne varázslóval rakja be csak beírja, annak fél órás munka a fentiek megértése és utána csak használni kell, jön magától. remélem mindent korrektül írtam és pár ember kedvet kap hozzá.
Új hozzászólás Aktív témák
Fferi50- Villanyszerelés
- LEGO klub
- Spórolós topik
- Posta, csomagküldés
- GoodSpeed: Márkaváltás sok-sok év után
- Xiaomi Mi 9 - egy híján
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Fotók, videók mobillal
- A Microsoft bedurvult, így a jövőben keményen odacsapnak a veszélyes drivereknek
- LCD, plazma és projektoros TV-k hibái
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- PC Game Pass előfizetés
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- BLACK FRIDAY! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- HIBÁTLAN iPhone 12 Pro 256GB Graphite - 1 ÉV GARANCIA - Kártyafüggetlen, MS3283
- Huawei Quidway S5324TP-SI-AC - 24G, 4SFP, L2, managed switch
- GYÖNYÖRŰ iPhone 11 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3121, 100% Akkumulátor
- Bomba ár! Lenovo ThinkPad L13 G1i - i5-10GEN I 8GB I 256SSD I 13,3" FHD I HDMI I W11 I Cam I Gar
- BESZÁMÍTÁS! ASUS H510M i7 10700 16GB DDR4 512GB SSD RTX 2070 SUPER 8GB AeroCool Quantum Mesh 650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest