2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #23154 Delila_1 veterán Dolphine #23151
    Új Válasz #23154
    Ú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
    Privát üzenet küldése

    Delila_1

    veterán

    válasz Dolphine #23151 üzenetére

    Megírtam a 3 színhez, tudod folytatni.

    Sub Piros()
    Selection.Offset(-1).Font.Color = vbRed
    End Sub

    Sub Kek()
    Selection.Offset(-1).Font.Color = vbBlue
    End Sub

    Sub Zold()
    Selection.Offset(-1).Font.ColorIndex = 10
    End Sub

    A zöldhöz számmal adtam meg az árnyalatot, mert a vbGreen nagyon világos.
    Tegyél ki 3 (5) alakzatot. Adj nekik nevet (itt Sz, I és T), és rendeld hozzájuk a megfelelő makrót.
    Ezek színeznek a következő képpen: beírod a számot pl. a B4 cellába, mire a fókusz a B5-be áll. Rákattintasz a megfelelő színű alakzatra, ami az aktuális (B5) cella fölötti cella tartalmát színezi ki.

    Írtam egy másik makrót, amit a lapodhoz kell rendelned. Ennek hatására az alakzatok mindig az aktuális cella mellett jelennek meg, kényelmesebbé téve a színezést.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Sz").Top = ActiveCell.Top
    ActiveSheet.Shapes("I").Top = ActiveCell.Top
    ActiveSheet.Shapes("T").Top = ActiveCell.Top
    End Sub

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