2つのセルの色を比較して行を削除するVBA

Question

VBAの新機能です。私は、赤で同じ文字列を含むシートセルの2つの列のセルをハイライト表示するコードを作成しようとしています。そして、2つの赤いセルを持つ行を含むすべての行を削除します。

私はこれについて非常に新しく、これは私がこれまでに思いついたことです。最初のステージはうまく動作しますが、その後、セルの色を比較しようとしましたが、動作しませんでした。

Option Explicit 

Sub Macro1() 

Dim WhatFor As String 

WhatFor = InputBox("Enter your search word to highlight", "Search Criteria") 
If WhatFor = Empty Then Exit Sub 


    Range("A1").Select 
    Selection.CurrentRegion.Select 
    Selection.FormatConditions.Add Type:=xlTextString, String:=WhatFor, _ 
     TextOperator:=xlContains 
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority 
    With Selection.FormatConditions(1).Font 
     .Color = -16383844 
     .TintAndShade = 0 
    End With 
    With Selection.FormatConditions(1).Interior 
     .PatternColorIndex = xlAutomatic 
     .Color = 13551615 
     .TintAndShade = 0 
    End With 
    Selection.FormatConditions(1).StopIfTrue = False 

End Sub 


Sub Macro2() 


Dim i As Integer 
Dim cell As Range 

cell = ActiveWorkbook.ActiveSheet.Range 

i = 1 

Do While Cells("A, i").Value <> "" 

If cell("A, i").Interior And cell("F, i").Interior = 13551615 Then: 

Rows(i).EntireRow.Delete 

End If 


i = i + 1 
Loop 

End Sub 

Answer 1

はあなたのコードのエラーがあなたのIF文の条件である：

If (Cells(i, "A").Interior.Color = 13551615) And (Cells(i, "F").Interior.Color = 13551615) Then 

は次のようになります。

If (cell("A, i").Interior = 13551615) And (cell("F, i").Interior = 13551615) Then: 

残念ながら、条件付き書式は影響しません。 .InteriorColor。それは細胞の色を変えますが、この方法では確認できません。

実際に表示されている色を確認することは現在できません。

セルのすべての条件付き形式で条件をエミュレートする関数を作成することは可能ですが、Microsoftが条件付き形式の別の種類の条件を追加するたびにその関数を更新する必要があります。それが行うことができるかの非常に良い例を見つけることができます：here：（この機能はむしろ色よりもcolorindezを返すことに注意してください）

---

もう一つの論理的な問題は、あなたが行を削除する方法である：

'This method does not check each row! 
i = 1 
Do While Cells(i, "A").Value <> "" 
    If '<your condition> 
     Rows(i).EntireRow.Delete 
    End If 
i = i + 1 
Loop 

i = 5とし、その行を削除したいとします。そしてiは6になる 元の行5が削除された行6列5なり、行7等

、行6なり、あなたがその行チェック（元々行7であった...）

そうすれば、元の行6は決してチェックされません。

このような場合は、一般的に最後の行から開始し、上向きに作業することをお勧めします。それとも、.rowsプロパティを使用することができますし、FOR EACH建設：

Dim row As Range 

For Each row In [A1].CurrentRegion.Rows 
    If Intersect(row, [B:B]).Value Like "*" & WhatFor & "*" Then 
    row.Delete 
    End If 
Next row 

（例として、列Bを使用して、このバージョンチェックのみ1列には、）

---

しかし、あなたの問題への答えは何ですかjsotolaは言った： は、「それは、細胞を着色する全く意味がないだけの行を削除しますか？」 - 17分前jsotola

---

セルを着色せずに行を削除したい場合 - 基本コードはどうすればよいですか？私は "検索"のような細胞を "同等"のように比較する必要があります。各セルの文字列の一部のみを比較します。

は:-)ありがとうございました - 1分前yaeer、