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

• #15471 Delila_1 veterán Kicker #15470

  Új Válasz 2012-11-09 12:12:04 #15471

  Ú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 Kicker #15470 üzenetére

  Ez a makró az egyforma oszlopoknak színes hátteret ad. Ha több azonos is van, azt már könnyen ki tudod választani a színezés alapján.

  Sub hasonlit()
  Dim oszlop%, oszlop1%
  For oszlop% = 1 To 29
  a1 = Cells(1, oszlop%)
  a2 = Cells(2, oszlop%)
  a3 = Cells(3, oszlop%)
  a4 = Cells(4, oszlop%)
  a5 = Cells(5, oszlop%)
  
  For oszlop1% = oszlop% + 1 To 30
  If Cells(1, oszlop1%) = a1 And Cells(2, oszlop1%) = a2 And Cells(3, oszlop1%) = a3 _
  And Cells(4, oszlop1%) = a4 And Cells(5, oszlop1%) = a5 Then
  szin = Int(Rnd() * 50) + 1
  Range(Cells(1, oszlop%), Cells(5, oszlop%)).Interior.ColorIndex = szin
  Range(Cells(1, oszlop1%), Cells(5, oszlop1%)).Interior.ColorIndex = szin
  
  End If
  Next
  Next
  End Sub

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