Sub 載波抄讀失敗的命令幀該行標黃()

Sub 載波抄讀失敗的命令幀該行標黃()

Dim i As Long '這句定義變量
Dim x As Integer '這句定義變量

For i = 3 To Range("D65536").End(xlUp).Row

If Sheet1.Cells(i, 4).Text <> "0" And Sheet1.Cells(i, 7).Text = "" And Sheet1.Cells(i, 6).Text = "0x30" Then

For x = 1 To 100

If Sheet1.Cells(i + x, 4).Text <> "0" And Sheet1.Cells(i + x, 7).Text = "" And Sheet1.Cells(i + x, 6).Text <> "0x30" And Sheet1.Cells(i, 4).Text = Sheet1.Cells(i + x, 4).Text And Sheet1.Cells(i + x, 5).Text = "下行" Then

Excel.ActiveSheet.Rows(i + x).Interior.Color = vbYellow
Exit For
End If

Next x
End If

Next i
End Sub