Results 1 to 6 of 6
Hybrid View
-
3rd October 2011 10:29 #1Registered User
Join Date: Apr:2007
Location: The Wide Pants Valley
Posts: 20
!
, . , 5 1 5 / /, , .
!
-
8th October 2011 23:18 #2Registered User
Join Date: Apr:2007
Location: The Wide Pants Valley
Posts: 20
, , .
-
9th October 2011 01:27 #3Registered User
Join Date: Mar:2004
Location: In your dreams
Posts: 5,088
. - , , . , regexp .
-
9th October 2011 10:17 #4
VBA .
( , )
Developer , Visual Basic , View Code .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
(nRow, nCol) , , .
Macros SeeRepetitions().
VBA VB , 1 . , .Last edited by tedych; 9th October 2011 at 10:50.
-
9th October 2011 10:55 #5Registered User
Join Date: Aug:2009
Location:
Posts: 265
Conditional Format . , , - .. OR , AND (AND(COUNTIF(;">=1")=6; COUNTIF(;"<=5")=6)). , .
-
10th October 2011 22:59 #6Registered User
Join Date: Apr:2007
Location: The Wide Pants Valley
Posts: 20
!




Reply With Quote
R9 280,
7th May 2023, 21:28 in