excel - 如何编辑此 VBA 代码以接受不同的值？

Question

让这个在线 copypasta 正常工作时遇到了一些麻烦。第一个字符必须是 A 到 Z，第二个字符必须是 1 到 5，第三个字符必须是“”或 0 到 9。

Box 功能是指定 Range A1:Z53 中的一个单元格。

关于语法的想法？

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Asc("-")
        If Instr(1,Me.TextBox1.Text,"-") > 0 Or Me.TextBox1.SelStart > 0 Then
            KeyAscii = 0
        End If
    Case Asc(".")
        If InStr(1, Me.TextBox1.Text, ".") > 0 Then
            KeyAscii = 0
        End If
    Case Else
        KeyAscii = 0
End Select
End Sub

Answer 1

谢谢，但我得到了一个使用 RegEx 的好技巧。这最终成为我的应用程序的最佳解决方案。搜索后，我找到了一个先前的答案，只需要进行以下修改即可在这种情况下工作:

.IgnoreCase = False

.Pattern = "[A-Z]([1-9]|[1-4][0-9]|[5][0-3])$"

代码可以在这里找到:
Apply Regex into a textbox form VBA