VBA Ошибка 13 тип: несоответствие - PullRequest
Новая
       11

VBA Ошибка 13 тип: несоответствие

1 голос
/ 08 января 2012

Я не очень знаком с VBA, но мне нужно было изменить Excel, чтобы разрешить более 3 условных форматов.

Я нашел приведенный ниже код в Интернете и хочу изменить цвет ячейки в зависимости от содержимого, выбрав шесть различных значений.

Мой код: 

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, я не уверен, как именно я это кодировал бы, и я скорее решил бы проблему кодирования, чем сделал бы быстрое исправление.

Если у кого-то есть идеи о том, что я делаю не так / решения, это было бы замечательно.

1 Ответ

2 голосов
/ 08 января 2012

EDIT

Если у вас есть какие-либо значения ошибок в листе (например, #NA #DIV/0 и т. Д.), То строка 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
...