Results 1 to 6 of 6

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Apr:2007
    Location: The Wide Pants Valley
    Posts: 20

    !
    , . , 5 1 5 / /, , .
    !

  2. #2
    Registered User
    Join Date: Apr:2007
    Location: The Wide Pants Valley
    Posts: 20
    , , .

  3. #3
    Registered User
    Join Date: Mar:2004
    Location: In your dreams
    Posts: 5,088
    . - , , . , regexp .

  4. #4
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    VBA .
    ( , )
    Code:
    Sub SeeRepetitions()
    
    nRow = 4
    nCol = 2
    'nless5 = 0
    While Not IsEmpty(Cells(nRow, nCol))
        nless5 = 0
        While Not IsEmpty(Cells(nRow, nCol))
            If Cells(nRow, nCol).Value < 6 And Cells(nRow, nCol).Value >= 1 Then
                nless5 = nless5 + 1
            Else
                If nless5 > 5 Then
                    For i = nCol - 1 To nCol - nless5 Step -1
                        Cells(nRow, i).Interior.ColorIndex = 3
                    Next i
                End If
                nless5 = 0
            End If
            nCol = nCol + 1
        Wend
        
        If nless5 > 5 Then
            For i = nCol - 1 To nCol - nless5 Step -1
                Cells(nRow, i).Interior.ColorIndex = 3
            Next i
        End If
    
        nRow = nRow + 1
        nCol = 2
    Wend
    
    End Sub
    Developer , Visual Basic , View Code .
    (nRow, nCol) , , .
    Macros SeeRepetitions().

    VBA VB , 1 . , .
    Last edited by tedych; 9th October 2011 at 10:50.

  5. #5
    Registered User
    Join Date: Aug:2009
    Location:
    Posts: 265
    Conditional Format . , , - .. OR , AND (AND(COUNTIF(;">=1")=6; COUNTIF(;"<=5")=6)). , .

  6. #6
    Registered User
    Join Date: Apr:2007
    Location: The Wide Pants Valley
    Posts: 20
    !

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |