VBAエラー13種類：不一致

Question

私はVBAに慣れていませんが、3つ以上の条件付き書式を許可するように私のExcelを変更する必要がありました。

私は以下のコードをオンラインで見つけ、コンテンツに応じてセルの色を6種類の値から選択して変更したいと考えています。

私のコードは次のとおりです。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Set MyPlage = Range("G3:AG115") 

    For Each Cell In MyPlage 
    If Cell.Value = "." Then 
     Cell.Interior.ColorIndex=28 
     Cell.Font.Bold = True 
    End If 

    If Cell.Value = "X1" Then 
     Cell.Interior.ColorIndex=32 
     Cell.Font.Bold = True 
    End If 

    If Cell.Value = "1X" Then 
     Cell.Interior.ColorIndex=6 
     Cell.Font.Bold = True 
    End If 

    If Cell.Value = "2X" Then 
     Cell.Interior.ColorIndex=45 
     Cell.Font.Bold = True 
    End If 

    If Cell.Value = "3X" Then 
     Cell.Interior.ColorIndex=4 
     Cell.Font.Bold = True 
    End If 

    If Cell.Value = "XY" Then 
     Cell.Interior.ColorIndex=44 
     Cell.Font.Bold = True 
    End If 

    If Cell.Value = "bt" Then 
     Cell.Font.ColorIndex=27 
     Cell.Interior.ColorIndex=27 
    End If 

    If Cell.Value = "bl" Then 
     Cell.Font.ColorIndex=28 
     Cell.Interior.ColorIndex=28 
    End If 

    If Cell.Value <> "bt" And Cell.Value <> "bl" And Cell Value <> "." And Cell.Value <> "X1" And Cell.Value <> "1X" And Cell.Value <> "2X" And Cell.Value <> "3X" And Cell.Value <> "XY" Then 
     Cell.Interior.ColorIndex=xlNone 
    End If 
    Next 
End Sub 

内容は、BTとBLは、これらの行が強調表示されていることを確認するには書かれている他のドロップダウンリストから、どちらかを選択します。

コンテンツを変更しようとすると、Error: 13 Type Mismatchと表示されます。

ライン

If Cell.Value = "." Then 

は（私は問題が"."であるかもしれないと思ったが、私は説明書のセットを削除した場合、その後の行

If Cell.Value = "X1" Then 

が強調表示される）誤差源として強調されています

私はグーグルで、あなたがエラーThen Nextの場合、どのように私はこれを正確にコード化し、私は悪いクイックフィックスよりもコーディングの問題を解決します。

誰かが私がどこに間違っているのかについてのアイデアがあれば/素晴らしい解決策があります。あなたは（例えば#NA#DIV/0など）シート内の任意のエラー値を持っている場合は

Answer 1

EDIT

そしてIf Cell...行は失敗します

変更し、それに細胞内でどのような

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim Cell as Range 
    Set MyPlage = Range("G3:AG115") 
    For Each Cell In MyPlage.Cells 
     If Not IsError(Cell) Then 
      If Cell.Value = "." Then 
       Cell.Interior.ColorIndex=28 
       Cell.Font.Bold = True 
      End If 

      etc 

     End If 
    Next