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

• #19870 Mutt senior tag Gandalf80 #19835

  Új Válasz 2013-12-16 22:44:34 #19870

  Ú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

  

  Mutt

  senior tag

  válasz Gandalf80 #19835 üzenetére

  Hello,

  2. Feladat:
  Van-e arra mód, hogyha valaki áll egy cellába, akkor az adott sor színes legyen?

  Erre nem láttam még választ, de itt van pár lehetőség. A minta fájl letöltethető innen.

  1. Tisztán VBA-val vhogy így megoldható:
  Private korabbi As Range
  
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim kijelol As Range
  
  'elég csak 1 oszlopot megjegyeznünk
  Set kijelol = Target.Resize(, 1)
  
  'ha még nincs mit eltüntetni, akkor csak szinezünk
  If korabbi Is Nothing Then
  kijelol.EntireRow.Interior.Color = RGB(127, 127, 127)
  Else
  korabbi.EntireRow.Interior.Pattern = xlNone
  kijelol.EntireRow.Interior.Color = RGB(127, 127, 127)
  End If
  
  Set korabbi = kijelol
  
  End Sub

  A kód a kijelölt sorokat átszinezi, ezért ha eleve ki van szinezve az adatsor, akkor ez elrontja azt.

  2. Feltételes formázás
  Ehhez kell egy rövid kód:
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  'válassz a lapon egy üres cellát, ahol tárolhatjuk az aktuális sor számát
  Range("G1") = ActiveCell.Row
  
  End Sub

  Ha ez megvan, akkor már csak egy feltételes formázást kell beállítani.
  

  3. Add-in használata
  A Kutools tud ilyet.

  üdv

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