Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  Excel, Dublicates funktsioon märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale.  :: Teata moderaatorile teata moderaatorile
otsing:  
eestirula3
HV kasutaja
eestirula3

liitunud: 07.12.2009
sõnum 05.11.2012 00:39:24 Excel, Dublicates funktsioon vasta tsitaadiga
Kuidas teha/Kust saada "Remove Dublicates" sarnast funktsiooni, kus kustutamise asemele teeks silmapaistvamaks(värviliseks) sarnased andmed.
Kommentaarid: 14 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 14
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 07.11.2012 19:31:21 vasta tsitaadiga
Proovi seda.

Option Explicit
Sub Värvi_duplikaadid()
Dim OCell As Range, ProductInfo As Range
Dim FirstAddress As String
Dim i As Integer, u As Integer, ProdCount As Integer
Application.ScreenUpdating = False

u = 3
Range("a1").Activate
  With ActiveSheet
     
     Do Until ActiveCell = ""
        Set ProductInfo = ActiveCell
        FirstAddress = ActiveCell.Address
         
          If ActiveCell.Interior.ColorIndex <> -4142 Then GoTo 10
         
             With .Columns("A:A")
                  ProdCount = WorksheetFunction.CountIf(.Columns("A:A"), ProductInfo)
       
                   If ProdCount > 1 Then
                    Set OCell = .Find(ProductInfo.Value, LookAt:=xlWhole)
                          OCell.Activate
                          ActiveCell.Interior.ColorIndex = u
                             For i = 1 To ProdCount - 1
                                 Set OCell = .FindNext(OCell)
                                 OCell.Activate
                                 ActiveCell.Interior.ColorIndex = u
                             Next i
u = u + 1
                  Else
                  Range(FirstAddress).Offset(1, 0).Activate
                  End If
            End With
10
       
                 Set OCell = Nothing
                 ProdCount = 0
                 Range(FirstAddress).Offset(1, 0).Activate
     Loop
  End With
Range("a1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Set ProductInfo = Nothing
Set OCell = Nothing
End Sub




PS.
Excel pikki ja keerulisi URL-e ei armasta.
Ja värvifont vöib tulla selline, et allolevat linki enam välja ei loe.

Näidis.
http://www.upload.ee/files/2810056/Duplic_varv.xls.html
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
eestirula3
HV kasutaja
eestirula3

liitunud: 07.12.2009
sõnum 07.11.2012 20:34:12 vasta tsitaadiga
alfreedo kirjutas:
Proovi seda.

Option Explicit
Sub Värvi_duplikaadid()
Dim OCell As Range, ProductInfo As Range
Dim FirstAddress As String
Dim i As Integer, u As Integer, ProdCount As Integer
Application.ScreenUpdating = False

u = 3
Range("a1").Activate
  With ActiveSheet
     
     Do Until ActiveCell = ""
        Set ProductInfo = ActiveCell
        FirstAddress = ActiveCell.Address
         
          If ActiveCell.Interior.ColorIndex <> -4142 Then GoTo 10
         
             With .Columns("A:A")
                  ProdCount = WorksheetFunction.CountIf(.Columns("A:A"), ProductInfo)
       
                   If ProdCount > 1 Then
                    Set OCell = .Find(ProductInfo.Value, LookAt:=xlWhole)
                          OCell.Activate
                          ActiveCell.Interior.ColorIndex = u
                             For i = 1 To ProdCount - 1
                                 Set OCell = .FindNext(OCell)
                                 OCell.Activate
                                 ActiveCell.Interior.ColorIndex = u
                             Next i
u = u + 1
                  Else
                  Range(FirstAddress).Offset(1, 0).Activate
                  End If
            End With
10
       
                 Set OCell = Nothing
                 ProdCount = 0
                 Range(FirstAddress).Offset(1, 0).Activate
     Loop
  End With
Range("a1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Set ProductInfo = Nothing
Set OCell = Nothing
End Sub




PS.
Excel pikki ja keerulisi URL-e ei armasta.
Ja värvifont vöib tulla selline, et allolevat linki enam välja ei loe.

Näidis.
http://www.upload.ee/files/2810056/Duplic_varv.xls.html


Silme ees läheb tõesti jube kirjuks, kui rohkem sarnaseid tulemusi on.
Kas sellist süsteemi on võimalik teha:
Kommentaarid: 14 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 14
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 07.11.2012 20:56:35 vasta tsitaadiga
Aga värvigammat siis pole vaja?
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
eestirula3
HV kasutaja
eestirula3

liitunud: 07.12.2009
sõnum 07.11.2012 21:28:25 vasta tsitaadiga
alfreedo kirjutas:
Aga värvigammat siis pole vaja?


Ei ole vaja.
Kommentaarid: 14 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 14
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 07.11.2012 21:47:07 vasta tsitaadiga
Aga palun.

http://www.upload.ee/files/2810623/Duplic_varv.xls.html
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
eestirula3
HV kasutaja
eestirula3

liitunud: 07.12.2009
sõnum 07.11.2012 22:11:54 vasta tsitaadiga
Vopsti perfekto:)

alfreedo kirjutas:
Aga palun.

http://www.upload.ee/files/2810623/Duplic_varv.xls.html
Kommentaarid: 14 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 14
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  Excel, Dublicates funktsioon
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.