Hiển thị UserForm nhưng không hiển thị TextBox

[dhtt]

Xin chào gia đình GPE!
Mình có 1 vấn đề cần sự giúp đỡ của GPE! như sau:
+ Khi chạy 1 đoạn Code mình cho hiển thị UserForm ( trên UserForm có 1 TextBox) nhưng chỉ hiển thị UserForm thôi. Khi Code thực hiện xong mới thấy TextBox xuất hiện.
+ Cho hỏi có cách nào để hiện TextBox đồng thời với UserForm khi chạy Code không?!. Xin chân thành cảm ơn GPE!

 

[ndu96081631]

Xin chào gia đình GPE!
Mình có 1 vấn đề cần sự giúp đỡ của GPE! như sau:
+ Khi chạy 1 đoạn Code mình cho hiển thị UserForm ( trên UserForm có 1 TextBox) nhưng chỉ hiển thị UserForm thôi. Khi Code thực hiện xong mới thấy TextBox xuất hiện.
+ Cho hỏi có cách nào để hiện TextBox đồng thời với UserForm khi chạy Code không?!. Xin chân thành cảm ơn GPE!

Mổi Object đều có thuộc tính Visible ---> Bạn bấm Alt + F11 vào trong Form chỉnh lại thuộc tính này = TRUE
Ngoài ra rất có thể trong code có đoạn điều khiển thuộc tính Visible của TextBox ---> Tìm trong code và xóa nó đi
Nói chung, nếu bạn không làm được thì phải đưa file lên (ai biết VBA thì vụ này quá dể)

 

[tam8678]

Xin hỏi thêm về UserForm

Mổi Object đều có thuộc tính Visible ---> Bạn bấm Alt + F11 vào trong Form chỉnh lại thuộc tính này = TRUE
Ngoài ra rất có thể trong code có đoạn điều khiển thuộc tính Visible của TextBox ---> Tìm trong code và xóa nó đi
Nói chung, nếu bạn không làm được thì phải đưa file lên (ai biết VBA thì vụ này quá dể)

---
Tôi có 1 FileA, trong FileA có 1 UserForm1 ( đã được gán phím tắt và actỉvate ), khi đứng ở 1 File bất kỳ ( FileA đang mở), gọi Form thì xuất hiện đồng thời với FileA. Cho tôi hỏi có cách nào để UserForm1 xuất hiện trong File bất kỳ được không ?
Xin cám ơn

 

[hoangdanh282vn]

---
Tôi có 1 FileA, trong FileA có 1 UserForm1 ( đã được gán phím tắt và actỉvate ), khi đứng ở 1 File bất kỳ ( FileA đang mở), gọi Form thì xuất hiện đồng thời với FileA. Cho tôi hỏi có cách nào để UserForm1 xuất hiện trong File bất kỳ được không ?
Xin cám ơn

Bạn viết một Sub để mở Form, sử dụng Onkey để chạy Sub mở Form nha.
Trong ThisWorkbook

Sub workbook_open()
Application.OnKey "{F6}", "MoForm"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F6}", ""
End Sub

Trong Module

Sub MoForm()
UserForm1.Show
End Sub

Bây giờ ở bất cứ file nào, bạn bấm F6 thì sẽ mở Form

 

[tam8678]

Bạn viết một Sub để mở Form, sử dụng Onkey để chạy Sub mở Form nha.
Trong ThisWorkbook

Sub workbook_open()
Application.OnKey "{F6}", "MoForm"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F6}", ""
End Sub

Trong Module

Sub MoForm()
UserForm1.Show
End Sub

Bây giờ ở bất cứ file nào, bạn bấm F6 thì sẽ mở Form

---
Nhờ bạn xem giúp, đã thực hiện theo sự hướng dẫn của bạn, nhưng khi đứng ở File khác click F6 vẫn báo lỗi, không mở form được. Cám ơn

 

[TrungChinhs]

---
Nhờ bạn xem giúp, đã thực hiện theo sự hướng dẫn của bạn, nhưng khi đứng ở File khác click F6 vẫn báo lỗi, không mở form được. Cám ơn

Code này đúng mà. Bạn đóng File lại rồi mở ra test lại thử xem.

 

[hoangdanh282vn]

Bạn xem file Vd ở đây nha.
http://www.giaiphapexcel.com/forum/showthread.php?t=17315

 

[sealand]

To tam 8678:
Bạn viết 1 file Excel có cái Form cần mở ở các file rồi lưu dưới dạng AdIn. Khai báo onkey vào sự kiện Open của This WorkBook. Vào file chọn Save as
Trong ô Save as type chọn Microsoft Office Excel Add-In
Gõ cho file 1 cái tên nào đó

Giờ bạn thoát ra rồi khởi động Exc trở lại vào Tools--Add-In đánh dấu cái Add-In bạn vừa đặt tên. Bạn lưu lại rồi thoát.

Giờ thì bất cứ file nào bạn nhấn phím tắt đều được. Nhưng target của các Control phải xác định theo ActiveWorkbook
Ví dụ: Nhấn nút chạy lệnh điền giờ hiện tại vào File đang mở, sheet đang mở ở ô A1:

Application.ActiveWorkbook.ActiveSheet.Range("A1") = Now()

Nếu không cẩn thận kết quả trả về từ Form lung tung đấy. Nói chung Form dạng này nên là giới thiệu, hay thông báo gì đó thôi.