- UHD filmek lejátszása
- Vezetékes FÜLhallgatók
- E-book olvasók
- Azonnali notebookos kérdések órája
- Megérkezett a Razer DeathAdder V3 Hyperspeed verziója
- Milyen nyomtatót vegyek?
- Hobby elektronika
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- ASUS Vivobook Snapdragonnal: talán egy új korszak kezdete!
- TCL LCD és LED TV-k
Hirdetés
-
S.T.A.L.K.E.R.: Legends of the Zone Trilogy - Befutott a MOD támogatás
gp Mostantól a konzolos kiadásokhoz is elérhetők a különböző rajongói módosítások.
-
Spyra: nagynyomású, akkus, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Felskálázza a Nubia a Snapdragon 8 Gen 3 órajeleit
ma A Redmi Magic 9 Pro már télen felforrósodott, mi lesz nyáron a felturbózott 9S Próval?
-
PROHARDVER!
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
Topikgazda
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.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Android alkalmazások - szoftver kibeszélő topik
- Miskolc és környéke adok-veszek-beszélgetek
- UHD filmek lejátszása
- Politika
- Motorola Edge 40 neo - színre és formára
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- PlayStation 5
- Vezetékes FÜLhallgatók
- Futás, futópályák
- LEGO klub
- További aktív témák...
- Cégek számára kedvezmény! Irodai programok: Office, Word, Excel
- Microsoft Windows, Office Licencek. LEGKEDVEZŐBB ÁRON!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Védje meg számítógépét a vírusoktól!