close
阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
'四個區段的搜尋比對和標示.....................................
For i = 1 To r – s
For j = 1 To 7
If .Cells(i + 1, j + 11) = .Cells(i + 1, j + 29) Then
If Application.CountIf(AH(1, 2).Resize(1, 7), AH(r - i - s + 2, j + 1)) And Application.CountIf(AH(r - s + 1, 2).Resize(1, 7), AH(i, j + 1)) Then
If Application.CountIf(AH(r + 1, 2).Resize(1, 7), AH(i + s, j + 1)) Then
.Cells(i + 1, j + 2).Interior.ColorIndex = 4
.Cells(i + 1, j + 11).Interior.ColorIndex = 4
.Cells(i + 1, j + 20).Interior.ColorIndex = 4
.Cells(i + 1, j + 29).Interior.ColorIndex = 4
.Cells(r - s + 2, Application.Match(AH(r - i - s + 2, j + 1), AH(1, 2).Resize(1, 7), 0) + 2).Interior.ColorIndex = 4
.Cells(r - s + 2, Application.Match(AH(i, j + 1), AH(r - s + 1, 2).Resize(1, 7), 0) + 11).Interior.ColorIndex = 4
.Cells(r - s + 2, Application.Match(AH(i + s, j + 1), AH(r + 1, 2).Resize(1, 7), 0) + 20).Interior.ColorIndex = 4
Else
.Cells(i + 1, j + 2).Interior.ColorIndex = 8
.Cells(i + 1, j + 11).Interior.ColorIndex = 8
.Cells(i + 1, j + 20).Interior.ColorIndex = 8
.Cells(i + 1, j + 29).Interior.ColorIndex = 8
If .Cells(r - s + 2, Application.Match(AH(r - i - s + 2, j + 1), AH(1, 2).Resize(1, 7), 0) + 2).Interior.ColorIndex <> 4 Then
.Cells(r - s + 2, Application.Match(AH(r - i - s + 2, j + 1), AH(1, 2).Resize(1, 7), 0) + 2).Interior.ColorIndex = 8
End If
If .Cells(r - s + 2, Application.Match(AH(i, j + 1), AH(r - s + 1, 2).Resize(1, 7), 0) + 11).Interior.ColorIndex <> 4 Then
.Cells(r - s + 2, Application.Match(AH(i, j + 1), AH(r - s + 1, 2).Resize(1, 7), 0) + 11).Interior.ColorIndex = 8
End If
End If
End If
End If
Next
Next
以下內文出自: http://tw.knowledge.yahoo.com/question/question?qid=指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯4031901932阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
本篇文章引用自此: http://tw.knowledge.yahoo.com/question/question?qid=1014031901932阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
For i = 1 To r – s
For j = 1 To 7
If .Cells(i + 1, j + 11) = .Cells(i + 1, j + 29) Then
If Application.CountIf(AH(1, 2).Resize(1, 7), AH(r - i - s + 2, j + 1)) And Application.CountIf(AH(r - s + 1, 2).Resize(1, 7), AH(i, j + 1)) Then
If Application.CountIf(AH(r + 1, 2).Resize(1, 7), AH(i + s, j + 1)) Then
.Cells(i + 1, j + 2).Interior.ColorIndex = 4
.Cells(i + 1, j + 11).Interior.ColorIndex = 4
.Cells(i + 1, j + 20).Interior.ColorIndex = 4
.Cells(i + 1, j + 29).Interior.ColorIndex = 4
.Cells(r - s + 2, Application.Match(AH(r - i - s + 2, j + 1), AH(1, 2).Resize(1, 7), 0) + 2).Interior.ColorIndex = 4
.Cells(r - s + 2, Application.Match(AH(i, j + 1), AH(r - s + 1, 2).Resize(1, 7), 0) + 11).Interior.ColorIndex = 4
.Cells(r - s + 2, Application.Match(AH(i + s, j + 1), AH(r + 1, 2).Resize(1, 7), 0) + 20).Interior.ColorIndex = 4
Else
.Cells(i + 1, j + 2).Interior.ColorIndex = 8
.Cells(i + 1, j + 11).Interior.ColorIndex = 8
.Cells(i + 1, j + 20).Interior.ColorIndex = 8
.Cells(i + 1, j + 29).Interior.ColorIndex = 8
If .Cells(r - s + 2, Application.Match(AH(r - i - s + 2, j + 1), AH(1, 2).Resize(1, 7), 0) + 2).Interior.ColorIndex <> 4 Then
.Cells(r - s + 2, Application.Match(AH(r - i - s + 2, j + 1), AH(1, 2).Resize(1, 7), 0) + 2).Interior.ColorIndex = 8
End If
If .Cells(r - s + 2, Application.Match(AH(i, j + 1), AH(r - s + 1, 2).Resize(1, 7), 0) + 11).Interior.ColorIndex <> 4 Then
.Cells(r - s + 2, Application.Match(AH(i, j + 1), AH(r - s + 1, 2).Resize(1, 7), 0) + 11).Interior.ColorIndex = 8
End If
End If
End If
End If
Next
Next
以下內文出自: http://tw.knowledge.yahoo.com/question/question?qid=指揮棒高雄鳳山台北松山新莊泰山阿囉哈led總匯4031901932阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
本篇文章引用自此: http://tw.knowledge.yahoo.com/question/question?qid=1014031901932阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發阿囉哈led指揮棒交通棒警示燈客製化訂製批發
全站熱搜
留言列表
