Visual Basic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Új hozzászólás Aktív témák

Delila_1 veterán

#2955
#2954 vilag
2017-12-13 09:35:20

Új Válasz
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Delila_1

veterán

#2954 vilag

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim elozo As String Range(Target.Address).Interior.Color = vbYellow If Range("AA1") <> "" Then elozo = Range("AA1").Value Range(elozo).Interior.Color = xlNone End If Range("AA1") = Target.Address End Sub
Színezi a kiválasztott területet, majd az AA1-be beírja a jelenlegi területet. A következő kijelölésnél a színezésen kívül az AA1-ben tárolt cím (terület) színezését megszünteti.

Új hozzászólás Aktív témák

Aktív témák

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek