Hiện userform một cách thường trực trên file (4 người xem)

[khongaicanobody]

Xin chào các anh.

Khi mình muốn 1 nuserform hiện lên màn hình thì phải sử dụng userform.show. Tuy nhiên mình phải run sub lên thì nó mới xuất hiện. Tôi muốn khi khở động file (bật file) lên thì userform phải xuất hiện thường trực trên 1 sheet (ví dụ sheet2 chẳng hạn) thì code phải viết thế nào?

Cám ơn các anh. chúc mọi người một tuần vui vẻ.

 

[Hoàng Trọng Nghĩa]

Xin chào các anh.

Khi mình muốn 1 nuserform hiện lên màn hình thì phải sử dụng userform.show. Tuy nhiên mình phải run sub lên thì nó mới xuất hiện. Tôi muốn khi khở động file (bật file) lên thì userform phải xuất hiện thường trực trên 1 sheet (ví dụ sheet2 chẳng hạn) thì code phải viết thế nào?

Cám ơn các anh. chúc mọi người một tuần vui vẻ.

Dễ thôi, tạo một UserForm, sau đó đặt tại Module của sheet2 các sự kiện sau:

Private Sub Worksheet_Activate()
    UserForm1.Show
End Sub

Private Sub Worksheet_Deactivate()
    Unload UserForm1
End Sub

Lưu ý: Với UserForm phải đặt thuộc tính ShowModal là False nhé!

=================================================
Thêm vào:

Nếu mở file và nếu ActiveSheet là Sheet2 thì mở form:

Private Sub Workbook_Open()
    If ActiveSheet.Name = "Sheet2" Then
            UserForm1.Show
    End If
End Sub

 

[khongaicanobody]

Cám ơn anh Nghĩa. Tuy nhiên mình thấy nó cứ hiện lên ở giữa màn hình phải dùng chuột để di chuyển sang chỗ khác. Nếu mình muốn nó xuất hiện ở một vị trí nào đó, VD như ở góc phải màn hình chẳng hạn thì phải làm sao. Cám ơn anh nhiều.

 

[viehoai]

Cám ơn anh Nghĩa. Tuy nhiên mình thấy nó cứ hiện lên ở giữa màn hình phải dùng chuột để di chuyển sang chỗ khác. Nếu mình muốn nó xuất hiện ở một vị trí nào đó, VD như ở góc phải màn hình chẳng hạn thì phải làm sao. Cám ơn anh nhiều.

Bạn muốn nó ở góc trái , bên trên thì dùng
[GPECODE=vb]Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
End Sub[/GPECODE]
Hay bạn muốn ở vị trí nào?
Mà mình đoán bạn thích này này nè:
[GPECODE=vb]Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Width = Application.Width
End Sub[/GPECODE]

 

[khongaicanobody]

Đúng vậy anh Nghĩa, nhưng anh chỉ giúp tài liệu học về phần này với.

 

[Hoàng Trọng Nghĩa]

Đúng vậy anh Nghĩa, nhưng anh chỉ giúp tài liệu học về phần này với.

Hình như bạn đang nói đến bài giúp đỡ của anh Viehoai thì phải! Anh ấy giúp bạn mà!

Phần tài liệu để học tập thì bạn có thể mua sách mà diễn đàn đang phát hành. Hoặc bạn có thể tham khảo tại đây:

http://www.giaiphapexcel.com/forum/showthread.php?55485-Macro-là-gì&p=393612#post393612

 

[khongaicanobody]

Dạ, cám ơn anh, mình vừa mò trong phần propeties của userform xong. Cám ơn anh và anh viehoai nhiều.

 

[Hoàng Trọng Nghĩa]

Dạ, cám ơn anh, mình vừa mò trong phần propeties của userform xong. Cám ơn anh và anh viehoai nhiều.

Không cần phải gửi bài cám ơn đâu, có nút Cám ơn dưới bài viết của mỗi người, bạn cứ bấm vào đó là được rồi.

 

[cachabu]

Không cần phải gửi bài cám ơn đâu, có nút Cám ơn dưới bài viết của mỗi người, bạn cứ bấm vào đó là được rồi.

các bác vui lòng cho em hỏi trong userform có cách nào link tới sheet trong file excel có hình vẽ mà vẫn thấy rõ được không
có nghĩa là thay vì link tới sheet đó để xem, nhưng bây giờ là hiển thi trong userform form luôn.

 

[phucbugis]

các bác vui lòng cho em hỏi trong userform có cách nào link tới sheet trong file excel có hình vẽ mà vẫn thấy rõ được không
có nghĩa là thay vì link tới sheet đó để xem, nhưng bây giờ là hiển thi trong userform form luôn.

cái này bác Nghĩa siêu lắm : Tạo popup khi kích vào một ô

 

[Quang_Hải]

cái này bác Nghĩa siêu lắm : Tạo popup khi kích vào một ô

Cỡ lèo tèo như mình khi mò vô cái đường link đó, vừa thấy code là đã ói ra máu rồi. Chạy mất guốc luôn.