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

• Baboka tag

  #1569

  #1562 Homer

  2011-12-27 10:22:22

  Ú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

  

  Baboka

  tag

  #1562 Homer

  #1562 Homer

  Szia!

  Nem teljesen értettem amit akartál, de ha minden igaz akkor ilyesmi válaszra vársz.
  Egyrészt az nem teljesen világos, hogy az intersect minek bele? Gondolom a több cella egyszerre történő kijelölése végett van benne, így ez esetben az általam javasolt megoldás nem működik majd. De azért gondolkodtam rajta. Tess:

  Public elozo, default As Integer
  Const uj = 3

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  'Az új sor színének beállítására
  Rows(Target.Row).Interior.ColorIndex = uj

  'Annak a vizsgálatára, hogy kell-e visszaállítani formátumot, azaz első kijelölés, vagy már volt előtte kijelölve valami?
  If elozo <> 0 Then
  Rows(elozo).Interior.ColorIndex = default
  End If

  'Az előzőleg kijelölt sor száma
  elozo = ActiveCell.Row

  ' itt az eredeti cella formátumát kellene beállítani az 5 helyett de ezt pontosan nem értettem a leírásodból... :S
  default = 5
  End Sub

  Köszönöm ez egyelőre jó. Az előző formátumnál arra gondoltam hogy ez a színezés ez egy előre formázott táblázatban lesz, nagyon sok oszlopa van azért kell ez hogy az egész sort átszínezi ha rajta állok és ha más sorba kerül az aktív cella akkor, az előző sornak a formátumát állítsa vissza. Nem tudom mennyire írom érthetően, még eléggé amatőr vagyok VBA-ból

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