-
Fototrend
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 varikahun #10017 üzenetére
Jelöld ki a tartományt, amit színezni akarsz. Hívd be a Formátum - Feltételes formázást.
A feljövő ablakban a legördülőben legyen "A képlet értéke", a másodikba írd be: =$C$3="OK", a Formátumnál add meg a megfelelő formátumot.
Ez a 2003-as verzióra vonatkozik, szólj, ha nem ezt használod.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Delila_1
Topikgazda
válasz varikahun #10024 üzenetére
A lapfülön jobb klikk, Kód megjelenítése.
Bejutottál a VB szerkesztőbe, jobb oldalon kaptál egy üres felületet, ide másold be:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target = "OK" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
If Target.Column = 16 And Target = "Worn" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
End SubEz a C oszlopban megadott OK-ra sárga hátteret ad, a P-be beírt Worn-re pirosat.
A színeket a makróban a 6, ill. a 3 módosításával tudod változtatni.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz varikahun #10028 üzenetére
A 10032-be írt sor elé még egyet tegyél be, amivel együtt így néz majd ki az egész:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone
If Target.Column = 3 And Target = "OK" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
If Target.Column = 16 And Target = "Worn" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
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.
Új hozzászólás Aktív témák
- Samsung Galaxy S24 - nos, Exynos
- Mobilinternet
- WoW avagy World of Warcraft -=MMORPG=-
- Házimozi haladó szinten
- Milyen TV-t vegyek?
- Honda topik
- No Voice in the Galaxy
- gban: Ingyen kellene, de tegnapra
- KERÉKPÁR / BRINGA / ALKATRÉSZ beárazás
- Call of Duty: Modern Warfare III (2023)
- További aktív témák...
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig