判斷數字 0-9 是否連續 求指教

adrian_9832

請問如何實現圖中 判斷數字 0-9是連續時 把他們都上了顏色  ;  然後在旁邊那個0 那個打上0-9都齊 這樣?

現在我的思路 是最右訪的字 如果是0才做 IF

然後 下一步是
IF 下一格 = 現在格 +1  THEN  
現在格 = 下一格
下一格 位置+1  '' 不太會用VBA表達

'
'
'當數字由 00 加到 09 都齊全 就打上 顏色 跟字
然後做下一個 最右邊也是0的字串


求指教 謝謝  

lmw17009

Sub funxx()
Dim StartLines As Integer
'Dim EndLines As Integer
Dim Value1, Value2 As Integer
Dim BoStartFind As Boolean
'Dim FindStart, FindEnd As Integer
Dim FindCount As Integer
Dim i As Integer

BoStartFind = False
For StartLines = 1 To Sheet1.Range("A1").End(xlDown).Row
    'If Not BoStartLines Then
        
        If BoStartFind Or CInt(Sheet1.Cells(StartLines, 1)) Mod 10 = 0 Then
            BoStartFind = True
            Value1 = CInt(Sheet1.Cells(StartLines, 1))
            Value2 = CInt(Sheet1.Cells(StartLines + 1, 1))
            If BoStartFind And Value1 + 1 = Value2 Then
                FindCount = FindCount + 1
                Sheet1.Cells(StartLines, 2) = "ok"
            Else
                BoStartFind = False
                FindCount = 0
                Sheet1.Cells(StartLines, 2) = "notok"
            End If
        Else
            Sheet1.Cells(StartLines, 2) = "notok"
        End If
        If FindCount = 9 Then
        'Debug.Print "..........."
            Sheet1.Cells(StartLines + 1, 2) = "检测成功"
            Sheet1.Cells(StartLines + 1, 1).Interior.Color = RGB(155, 155, 155)
            For i = 0 To 8
                Sheet1.Cells(StartLines - i, 2) = "检测成功"
                Sheet1.Cells(StartLines - i, 1).Interior.Color = RGB(155, 155, 155)
                FindCount = 0
            Next
                StartLines = StartLines + 1
                BoStartFind = False
        End If
Next
End Sub

lmw17009

判断写得有点儿繁琐 应该能达到你的要求，回复还在审核。

lmw17009

这是我的工程 2010的

lmw17009

我这里只是判断你的数据为整数  如果你要判断连续字符串用不了。

adrian_9832

謝謝高手你的幫助 學習學習去

1808835746

收到，正在看你的文档