Как можно разрешить вводить в ячейку на листе только русские буквы? Смогла найти запрет на ввод русских букв, а вот наоборот не получилось найти.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Column <> 1 Then Exit Sub
For i = 1 To Len(Target)
If Asc(Mid(Target, i, 1)) > 191 And Asc(Mid(Target, i, 1)) < 256 Then
MsgBox "Неправильный ввод", vbExclamation
Target = ""
Exit Sub
End If
Next
End Sub
Попыталась переделать под себя, но не работает
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim i As Integer
If Target.Column <> 10 Then Exit Sub
For i = 1 To Len(Target)
Select Case Asc(Mid(Target, i, 1))
Case 32, 45, 39, 96, 1040 To 1105
Case Else: Target = "": MsgBox "Только на кириллице!", vbCritical, "Ограничение ввода букв"
End Select
Next
End Sub