- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 148
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-5-21
- 最後登錄
- 2023-3-13
|
因為問頭那個 210280 與 210281 只有0跟1 條件是要 0 ,1,2,3,4,5,6,7,8,9 當都齊 才符合條件
只是想學習一下 別人的法子是怎樣弄 謝謝
以下是我的方法
Sub TE123ST()
Columns("e:e").Select
Selection.ClearContents
x = 1
Do Until Cells(x, 3) = ""
currentcell = Cells(x, 3)
If Right(currentcell, 1) = "0" Then
For i = 1 To 9
nextcell = Cells(x + i, 3)
If Val(nextcell) <> Val(currentcell) + i Then
Exit For
End If
If Val(nextcell) = Val(currentcell) + 9 Then
Range(Cells(x, 5), Cells(x + 9, 5)).Value = "abc"
Range(Cells(x, 3), Cells(x + 9, 3)).Select
With Selection.Interior
.Pattern = xlSolid
If abc = 34 Then
.PatternColorIndex = xlAutomatic
.ColorIndex = 35
abc = 35
Else
.ColorIndex = 34
abc = 34
End If
End With
End If
Next i
End If
x = x + 1
Loop
End Sub |
|
發表於 2019-3-1 21:11
| 
