-
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
-
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
- Feketelista, avagy a rossz boltok topicja
- Vodafone mobilszolgáltatások
- Energiaital topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- E-roller topik
- Amlogic S905, S912 processzoros készülékek
- sziku69: Fűzzük össze a szavakat :)
- Most vegyünk RAM-ot, mert drágulni fog
- iPad topik
- Milyen monitort vegyek?
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Eladó Steam kulcsok kedvező áron!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap - NYÁRI AKCIÓ!