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

• #23155 Delila_1 veterán Dolphine #23151

  Új Válasz 2014-09-08 21:07:12 #23155

  Ú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

  Név megadása az alakzatokhoz

  

• #23154 Delila_1 veterán Dolphine #23151

  Új Válasz 2014-09-08 21:00:53 #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