看不懂这段，求大神翻译

gxgjack

  Private Sub TextBox1_Change()
       If Len(TextBox1.Text) > 0 Then
            If Right(TextBox1.Text, 1) Like "[a-z]" Then Exit Sub Else
  Me.TextBox1 = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
          End If

山菊花

Private Sub TextBox1_Change() '文本框内容发生改变时，运行下面程序
    If Len(TextBox1.Text) > 0 Then '如果文本框内容不为空，则（分两种情况）：
        If Right(TextBox1.Text, 1) Like "[a-z]" Then '如果最后一位字符是小字字母，则：
            Exit Sub '退出程序
        Else '否则（末位不是小写字母时）：
            Me.TextBox1 = Left(TextBox1.Text, Len(TextBox1.Text) - 1) '删去末位字符
        End If

程序作用，限制文本框只能输入小写字母。

gxgjack

山菊花 发表于 2023-12-27 19:11
Private Sub TextBox1_Change() '文本框内容发生改变时，运行下面程序
    If Len(TextBox1.Text) > 0 The ...

么么哒，还有一个为什么这个程序可以只用1个end if呢

山菊花

gxgjack 发表于 2023-12-27 19:35
么么哒，还有一个为什么这个程序可以只用1个end if呢

IF语句可以写为单行形式，不用End If。

大灰狼1976

限定输入小写字母也可以这样。

1. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   
2. If KeyAscii < 97 Or KeyAscii > 122 Then KeyAscii = 0
   
3. End Sub

复制代码

七之月

学了一招.