Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Enter()
Call CommandButton1_Click
TextBox2.SetFocus

Code: Select all

Private Sub ChangeLabel()
    If Label1 = "เปลี่ยนชื่อแล้ว" Then
        GoTo pong
    End If
    Label1 = "เปลี่ยนชื่อแล้ว"
    Label1.BackColor = &H80FF80
pong:
End Sub

Private Sub CheckChange()
    Dim LResult As String
    Label1 = ""
    Label1.BackColor = &H8000000F
    On Error GoTo pong
    Range("G6").Select
    Cells.Range("G6:G600").Find(What:=TextBox2, _
        After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
        SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    TextBox3.Value = ActiveCell.Value
    ActiveCell.Offset(0, -4).Select
    LResult = Left(ActiveCell.Value, 7)
    TextBox1.Value = LResult
    Label1 = TextBox4 + "-" + TextBox1
pong:
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Call CheckChange
        With Me.TextBox2
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    End If
End Sub

Code: Select all

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        Me.Label1 = "กด Enter แล้ว "
        With Me.TextBox2
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    End If
End Sub