Tạo Button để truy cập vào TextBox trong sheet (1 người xem)

[Nguyễn Hồng Quang]

Em chào các anh , chị và các thầy cô trên diễn đàn GPE
Em có 1 bảng tính sử dụng TextBox để lọc
Em muốn 1 Button để Xóa nội dung hiện có trong TextBox và tiếp đó con trỏ chuột nằm trong TextBox (hay nói cách khác là truy cập vào TextBox) để tiếp tục gõ các mã khác.
Chi tiết em đã trình bày trong File gửi kèm
Mong các anh , chị và các thầy cô giúp đỡ
Em xin cảm ơn

 

[befaint]

Textbox của ActiveX control không có thuộc tính SetFocus.
Sao không dùng luôn cái cell B1 đó cho nhanh, vẽ thêm các textbox khó bỏ xừ.

Sub XoaLoc()
ActiveSheet.OLEObjects("TextBox1").Object.Text = ""
ActiveSheet.OLEObjects("TextBox1").Activate
End Sub
'Hoặc:
Sub XoaLoc2()
ActiveSheet.TextBox1.Text = ""
ActiveSheet.TextBox1.Activate
End Sub

 

[NguyenNgocThuHien]

Bạn thử xem được chưa?

 

[NguyenNgocThuHien]

Textbox của ActiveX control không có thuộc tính SetFocus.
Sao không dùng luôn cái cell B1 đó cho nhanh, vẽ thêm các textbox khó bỏ xừ.

Sub XoaLoc()
ActiveSheet.OLEObjects("TextBox1").Object.Text = ""
ActiveSheet.OLEObjects("TextBox1").Activate
End Sub
'Hoặc:
Sub XoaLoc2()
ActiveSheet.TextBox1.Text = ""
ActiveSheet.TextBox1.Activate
End Sub

Uổi, sao khi textbox đang active, mà click vào nút bấm là textbox có vẻ như bị ẩn đi, nhưng khi gõ thì lại hiện lại?

 

[befaint]

Uổi, sao khi textbox đang active, mà kick vào nút bấm là textbox có vẻ như bị ẩn đi, nhưng khi gõ thì lại hiện lại>

Không thấy dấu "?" nhưng vẫn trả lời "Không biết"!

 

[NguyenNgocThuHien]

Không thấy dấu "?" nhưng vẫn trả lời "Không biết"!

Em gõ nhầm dấu "?" đấy thôi.

 

[Nguyễn Hồng Quang]

Textbox của ActiveX control không có thuộc tính SetFocus.
Sao không dùng luôn cái cell B1 đó cho nhanh, vẽ thêm các textbox khó bỏ xừ.

Cảm ơn anh befaint đã giúp đỡ và góp ý
Vâng đúng là dùng cái Textbox của ActiveX control khó thật
Nghe lời khuyên của anh. Em chuyển sang hướng trình bày khác làm với UserForm và thấy ngon hơn rồi (cũng chỉ 1 lần kích chuột, các đoạn code lọc gần như vẫn giữ nguyên, chỉ thêm các code khác với UserForm dễ hơn hẳn).
Chúc anh những ngày vui
File gửi kèm.....

 

[Nguyễn Hồng Quang]

Bạn thử xem được chưa?

Cảm ơn bạn nhiều. Code chạy đúng như ý. Chỉ bị 1 chút như bạn nói