Ошибка компиляции;Конец с без С, хотя оба есть - PullRequest
Новая
       10

Ошибка компиляции;Конец с без С, хотя оба есть

0 голосов
/ 25 октября 2019

В настоящее время работает над сценарием, чтобы выделить строку, если определенная ячейка в строке содержит определенную фразу (ячейка содержит больше, чем просто определенная фраза). Однако при попытке выполнить тестирование я вижу ошибку «Ошибка компиляции: конец с без». Я вижу в своем коде как «С», так и «Конец», хотя, возможно, я слишком долго смотрел на это, чтобы заметитьочевидно. Кто-нибудь может заметить что-нибудь, что может быть причиной этого в коде? 

Sub Conversion()

Dim State As String
Dim County As String
Dim Date As String
Dim TC As String    
Dim H As String
Dim Tmp As String
Dim m As Long
Dim x As Long    

H = "not recognised"
With Sheets("Matched Date")
 For Each cell In Sheet
    m = UBound(Split(Rng.Value, H))
    If m > 0 Then
    Tmp = ""
    For x = 0 To m - 1
    Tmp = Tmp & Split(Rng.Value, H)(x)
    .Characters(Start:=Len(Tmp) + 1, Length:=y).EntireRow.Color = RGB(252, 227, 3)
    Tmp = Tmp & H
    Next
    End If
End With

Редактировать: Извините за любительский код здесь, я не обучен, просто пытаюсь сделать это на основе простых онлайн-видео и руководств Google, поскольку у нас больше нет никого, кто мог бы сделать это для нас.

1 Ответ

0 голосов
/ 25 октября 2019

Как уже упоминалось выше, правильный код кода ваш друг. При этом ваш код выглядит как 

With Sheets("Matched Date")
    For Each cell In Sheet
        m = UBound(Split(Rng.Value, H))
        If m > 0 Then
            Tmp = ""
            For x = 0 To m - 1
                Tmp = Tmp & Split(Rng.Value, H)(x)
                .Characters(Start:=Len(Tmp) + 1, Length:=y).EntireRow.Color = RGB(252, 227, 3)
                Tmp = Tmp & H
            Next
        End If
End With

Таким образом, легко заметить, что в вашем 1-м For цикле отсутствует закрывающий Next.

Это и подобные сообщения об ошибках могутбыть немного вводящим в заблуждение. В основном это означает, что «этот код каким-то образом пропускает закрывающую скобку», если вы думаете, что пары With/End With, For/Next, Select/End Select и т. Д. Являются парами открывающей / закрывающей скобки.

...