Khi nhập Textbox bị nhập chữ hoa

[nmh_phocu]

Em xin gửi một file của em lên nhờ các bác sửa giúp em với:

Vấn đề là ở chỗ :
Khi em ấn Ctrl +m thì UserForm1 hiện ra
Trường hợp 1: khi em dùng phím Tab để chuyển sang Textbox : Nhập tên khách hàng cần tìm" thì trong text box em có thể đánh tiếng Việt Unicode chữ thường, có dấu => ngon
Trường hợp 2: em không dùng phím Tab mà gõ luôn chữ bất kỳ thì ở Text box chỉ hiện ra chữ hoa và không đánh được tiếng Việt Unicode.

Các bác có thể giúp em trường hợp 2 được không, khi em đánh bất kỳ chữ nào thì vẫn hiện như trường hợp 1 (chữ thường, có dấu Unicode)
Thank các bác rấất nhiều

 

[nghiaphuc]

Em xin gửi một file của em lên nhờ các bác sửa giúp em với:

Vấn đề là ở chỗ :
Khi em ấn Ctrl +m thì UserForm1 hiện ra
Trường hợp 1: khi em dùng phím Tab để chuyển sang Textbox : Nhập tên khách hàng cần tìm" thì trong text box em có thể đánh tiếng Việt Unicode chữ thường, có dấu => ngon
Trường hợp 2: em không dùng phím Tab mà gõ luôn chữ bất kỳ thì ở Text box chỉ hiện ra chữ hoa và không đánh được tiếng Việt Unicode.

Các bác có thể giúp em trường hợp 2 được không, khi em đánh bất kỳ chữ nào thì vẫn hiện như trường hợp 1 (chữ thường, có dấu Unicode)
Thank các bác rấất nhiều

Trong sub UserForm_Initialize, bạn thêm câu lệnh TextBox.SetFocus vào sau câu lệnh TextBox = "" là được.

 

[nmh_phocu]

Trong sub UserForm_Initialize, bạn thêm câu lệnh TextBox.SetFocus vào sau câu lệnh TextBox = "" là được.

Được thì được nhưng phát sinh ra lỗi bác à:

Khi đánh mã vào ô thì bị liệt phím Enter bác à

Tiếp đến là nếu em gõ trực tiếp thì chỉ cần đánh Enter thì mã được nhận vào sheet ngay, nhưng khi em chuyển xuống Text tìm kiếm thì muốn chỉ dùng phím Enter thì lại phải sử dụng Shift +Tab để trở lại List box rồi mới đánh enter nó mới nhận mã

Bác giúp em vớới nhé

 

[nghiaphuc]

Được thì được nhưng phát sinh ra lỗi bác à:

Khi đánh mã vào ô thì bị liệt phím Enter bác à

Tiếp đến là nếu em gõ trực tiếp thì chỉ cần đánh Enter thì mã được nhận vào sheet ngay, nhưng khi em chuyển xuống Text tìm kiếm thì muốn chỉ dùng phím Enter thì lại phải sử dụng Shift +Tab để trở lại List box rồi mới đánh enter nó mới nhận mã

Bác giúp em vớới nhé

Bạn đặt thuộc tính Default cho nút OK là True nhé.
Thêm nữa, đặt thuộc tính Cancel cho nút Thoát là True để mỗi lần muốn thoát mà không tìm nữa, bạn chỉ cần nhấn phím ESC là được.

 

[nmh_phocu]

Bạn đặt thuộc tính Default cho nút OK là True nhé.
Thêm nữa, đặt thuộc tính Cancel cho nút Thoát là True để mỗi lần muốn thoát mà không tìm nữa, bạn chỉ cần nhấn phím ESC là được.

Em thử đặt như bác nó vẫn ra một số lỗi vẫn phải đánh hai lần Enter thì nó mới ổn, lúc đó dùng phím Tab không được, bắt buộc phải đánh Enter.

Khi em xóa TextBox.SetFocus thì nó lại ngon lành nhưng lại trở về lỗi là mục Texbox viết chữ hoa.

Hihiihi, cái code này em copy của người khác có sửa đi một tý nhưng không hiểu sao không ra chữ thường được nhỉ

 

[nghiaphuc]

Em thử đặt như bác nó vẫn ra một số lỗi vẫn phải đánh hai lần Enter thì nó mới ổn, lúc đó dùng phím Tab không được, bắt buộc phải đánh Enter.

Khi em xóa TextBox.SetFocus thì nó lại ngon lành nhưng lại trở về lỗi là mục Texbox viết chữ hoa.

Hihiihi, cái code này em copy của người khác có sửa đi một tý nhưng không hiểu sao không ra chữ thường được nhỉ

Có lẽ lỗi này là do sub ListBox1_KeyUp gây ra. Mình đã thiết kế lại Form của bạn theo hướng khác, không dùng thủ tục ListBox1_KeyUp nữa. Thực ra trong code của bạn có nhiều câu lệnh không cần thiết. Ví dụ: Sub

Private Sub CommandButton2_Click()
ActiveCell = ListBox1.Column(0)
Unload Me
ActiveCell.Offset(, 0).Select
End Sub

có thể thay bởi Sub này là đủ:

Private Sub CommandButton2_Click()
    ActiveCell = ListBox1
    End
End Sub

Trong code của bạn, câu lệnh ActiveCell.Offset(, 0).Select chẳng có ý nghĩa gì cả, nó chọn lại ô đã chọn!
Bạn xem code trong file mình đã sửa và so sánh với code của bạn nhé.