Avaleht
uus teema   vasta Tarkvara »  Tarkvara »  MS Excel ja conditional formatting 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:  
Petz
HV Guru

liitunud: 05.11.2001
sõnum 30.12.2013 02:25:53 MS Excel ja conditional formatting vasta tsitaadiga
Kuidas ühes veerus kõige lihtsamini võrdse väärtusega read visuaalselt ära grupeerida? Ükskõik, kas värvi, raami või millegi muu abil.
Proovisin COUNTIF funktsiooni, aga ei oska kõrvutiasetsevaid gruppe eri värvi maalida...

Põmst selline asi siis kuupäevade näitel:
01.12.2013
01.12.2013

10.12.2013
10.12.2013

15.12.2013

22.12.2013
22.12.2013
22.12.2013

Excel on 2003... icon_redface.gif Uuematega peaks vist lihtsamini saama...
Kommentaarid: 81 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 75
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010
sõnum 31.12.2013 17:02:55 vasta tsitaadiga
Ei saanud aru mida sa mõtled "kõrvutiasetsevaid gruppe"-de all.

Cond Formaat, sisesta valem:

tsitaat:
=IF(COUNTIF($A1:$A$1;$A1)-1>0;TRUE;FALSE)


ja vali värv.
Miinuseks see, et värvitakse küll dublikaadid aga köik samavärvilisena.
Soovides saada ka erinevaid värve peab vist ikka kasutama VBA-d:

Sub Värvi_duplikaadid()
Dim OCell As Range, Otsitav As Range
Dim FirstAddress As String
Dim i As Integer, u As Integer, Leitud As Integer
Application.ScreenUpdating = False

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


Ehk on abiks.
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum
Petz
HV Guru

liitunud: 05.11.2001
sõnum 01.01.2014 18:56:45 vasta tsitaadiga
tsitaat:
Ei saanud aru mida sa mõtled "kõrvutiasetsevaid gruppe"-de all.
Sedasama mõtlesingi:
tsitaat:
värvitakse küll dublikaadid aga köik samavärvilisena.
"Kõrvuti" all mõtlesin, et veerus vahetult üksteise järel. Ehk siis minu näites siis esimesed 4 rida (2 esimest gruppi) oleks kõik ühte värvi.
Tänan! beer_yum.gif Katsetan.
Kommentaarid: 81 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 75
tagasi üles
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Tarkvara »  MS Excel ja conditional formatting
[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.