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

• #15473 Delila_1 veterán Kicker #15472

  Új Válasz 2012-11-10 11:57:23 #15473

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

  A "Szakértő Úr" nem illik rám.

  Az értékadásnál értelemszerűen folytatsd a sort az A6, A7, ...A14-gyel. A
  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

  sorba további And operátorral add be a többi adatot. A hosszú sornál a törést úgy tedd be, hogy hagysz egy szóközt, majd írsz egy alsó kötjelet, és a következő sorban folytatod a felsorolást.

  Az Excelben az Alt+F11 előhozza a VB szerkesztőt. Bal oldalon kiválasztod a füzetedet, majd az Insert menü segítségével beszúrsz egy modult. Kiválasztod a modult, és a jobb oldalon kapott üres füzetbe bemásolod a makrót, beviszed a módosításokat. Visszalépsz a füzetbe, és Alt+F8-cal előhívod a makrók ablakot, ott tudod indítani.

• #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