-
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 paatrick #22670 üzenetére
A sorbeszúrásra nem tudok jó választ, legfeljebb azt, hogy ne laphoz rendelt makrót alkalmazz, hanem gombnyomásra változzanak a színek.
Az egyes színeket az RGB kódjukkal is megadhatjuk. Pl.
Range("A1").Interior.Color = RGB(0, 204, 255) Ez egy vil. kék.
RGB(255, 0, 0) piros
RGB(255, 255, 0) sárga
RGB(0, 255, 0) vil. zöld
RGB(255, 0, 255) lila
RGB(128, 0, 0) barnaBármilyen színt kikeverhetsz a 3 összetevőből, 0 és 255 között.
Makró, ami a C oszlopban lévő adatokat vizsgálja, és színezi a tartalmuknak megfelelően:
Sub Szinezes()
Dim ter As Range, CV As Object
Set ter = Range("C1:C" & Range("C1").End(xlDown).Row) 'Itt kell átírni a 3 C betűt
For Each CV In ter
Select Case CV
Case "K"
Range(CV.Address).Interior.Color = RGB(0, 204, 255)
Case "P"
Range(CV.Address).Interior.Color = RGB(255, 0, 0)
Case "Z"
Range(CV.Address).Interior.Color = RGB(0, 255, 0)
Case "S"
Range(CV.Address).Interior.Color = RGB(255, 255, 0)
Case "B"
Range(CV.Address).Interior.Color = RGB(128, 0, 0)
Case "L"
Range(CV.Address).Interior.Color = RGB(255, 0, 255)
End Select
Next
End SubAlt +F11-gyel bemész a VB szerkesztőbe. Bal oldalon kiválasztod a füzeted nevét. Insert menü, Module.
Jobb oldalon nagy üres felületet kapsz, oda másold be, az előző, laphoz rendelt makrót töröld ki.Lépj vissza a füzetedbe. Legegyszerűbb, ha pl. egy lekerekített téglalapot szúrsz be. Jobb klikk, makró hozzárendelése, Szinezes.
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
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs