Подтвердить запись пользователя

Question

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

If Worksheets("New PN").Range("B12").Value = "" Then 
MsgBox "Date cannot be left empty.", vbOKOnly + vbExclamation, "Entry Error" 
Exit Sub 
End If 

Answer 1

Попробуйте ЭТОТ!

cellContent = Worksheets("New PN").Range("B12").Value 
leftCC = Left(cellContent, 1) 
rightCC = Right(cellContent, 1) 
If Len(cellContent) <> 2 Then 

     MsgBox "There needs to be 2 characters." 
     Exit Sub 

ElseIf (Asc(leftCC) < 65 Or Asc(leftCC) > 122 _ 
     Or (Asc(leftCC) > 90 And Asc(leftCC) < 97)) _ 
    Or _ 
     (Asc(rightCC) < 65 Or Asc(rightCC) > 122 _ 
     Or (Asc(rightCC) > 90 And Asc(rightCC) < 97)) Then 

     MsgBox "Both characters can only be letters." 
     Exit Sub 

End If 

Может быть большим и страшным, но это будет получить работу на 100%.

EDIT: Формула Asc(char) возвращает номер ascii для предоставленного символа. Внешние пределы a-z и A-Z равны 65 и 122, однако некоторые несимволы включены в середину (а именно [, \,], ^, _, `). Отсюда ужасное, если.

Answer 2

Попробуйте это:

my_string = Worksheets("New PN").Range("B12").Value 

If Len(my_string) = 2 And Left(my_string, 1) Like "[A-Za-z]" _ 
    And Right(my_string, 1) Like "[A-Za-z]" Then 
    '~~execute what you want here 
Else 
    MsgBox "Invalid input" & vbNewLine & "Enter 2 LETTERS only" 
End If 

Надеется, что это помогает.