Viết tắc trong TextBox (1 người xem)

[Thaiduc]

Nhờ anh, chị trong diễn đàn giúp mình code viết tắc trong TextBox (TextBox được tạo trong Form) giống như AutoCorrect.
Ví dụ: Trong TextBox nhập t/h sau khi nhấm phím Space Bar thì tự động thành thực hiện, ....
Rất mong các anh, chị giúp (mình còn lơ mơ về VBA lắm). Cám ơn.

 

[ndu96081631]

Nhờ anh, chị trong diễn đàn giúp mình code viết tắc trong TextBox (TextBox được tạo trong Form) giống như AutoCorrect.
Ví dụ: Trong TextBox nhập t/h sau khi nhấm phím Space Bar thì tự động thành thực hiện, ....
Rất mong các anh, chị giúp (mình còn lơ mơ về VBA lắm). Cám ơn.

Thử nghiệm đơn giản thế này:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  Dim sSrc As String, sDes As String, Text As String
  If KeyAscii = 32 Then
    Text = " " & Trim(Me.TextBox1.Text) & " "
    sSrc = Sheet1.Range("A1").Value
    sDes = Sheet1.Range("B1").Value
    Text = Replace(Text, " " & sSrc & " ", " " & sDes & " ")
    Me.TextBox1.Text = Trim(Text)
  End If
End Sub

Với cell A1 của Sheet1 ta gõ chữ t/h và B1 gõ chữ thực hiện
(Đương nhiên bạn cũng có thể lập 1 bảng tra ở đâu đó rồi thực hiện chuyển đổi thông qua bảng tra này)

 

[Thaiduc]

Viết đúng như hướng dẫn:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim sSrc As String, sDes As String, Text As String
If KeyAscii = 32 Then
Text = " " & Trim(Me.TextBox1.Text) & " "
sSrc = Sheet1.Range("A1").Value
sDes = Sheet1.Range("B1").Value
Text = Replace(Text, " " & sSrc & " ", " " & sDes & " ")
Me.TextBox1.Text = Trim(Text)
End If
End Sub
Không biết cách chỉnh Code để lập bảng tra tại Sheet1 từ A1 đến A5 và từ B1 đến B5, khi nhập từ viết tắt tại A1 thì hiện chữ thực hiện, còn gõ chữ k/k (trong A2) thì không hiện chữ khó khăn (trong B2), ...
Rất mong Anh chỉ giúp. Cám ơn