Nhờ giúp đỡ code ẩn hiện form (1 người xem)

  • Thread starter Thread starter dungnvps
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

dungnvps

Thành viên chính thức
Tham gia
8/7/16
Bài viết
77
Được thích
6
Chào mọi người như tiêu đề mong có cao nhân giúp đỡ
Mình có form như sau:
Capture.PNG
Khi chạy file excel thì form này xuất hiện lên. Vấn đề mình muốn hỏi là:
Khi buton chọn file thỉ sẽ textbox sẽ xuất hiện file và khi chọn vào button "mở file" thì file được chọn sẽ mở ra
Mình muốn nhờ giúp đỡ là khi chọn button "mở file" có cách nào làm cho form này ẩn đi tạm thời ko? khi mình đóng file vừa mở kia ra thì form sẽ xuất hiện trở lại
Đã tham khảo qua 2 bài này nhưng ko dc!!
http://www.giaiphapexcel.com/forum/showthread.php?2237-Trang-điểm-cho-User-Form
http://www.giaiphapexcel.com/forum/...-Form-chính-và-form-đang-làm-việc-như-thế-nào
 

File đính kèm

Cám ơn bạn đã giúp, nhưng vì file của mình có nhiều form và hơi rắc rối nên mình đã bỏ qua cách làm này rồi, dù sao cũng chân thành cám ơn bạn đã quan tâm

thử vậy xem
chép thêm 2 đoạn code này vào "thisworkbook"
Mã:
Private Sub Workbook_Activate()
If VBA.UserForms.Count Then UserForm1.Show
End Sub

Private Sub Workbook_Deactivate()
If VBA.UserForms.Count Then UserForm1.Hide
End Sub

code mở file
Mã:
Private Sub OpenF_Click()
Dim InO As Workbook, InOpen As String
InOpen = Inserttxt.Text
If Len(InOpen) Then
    Set InO = Workbooks.Open(InOpen)
    Application.Visible = True
  '  Application.ThisWorkbook.Close
End If
Application.ScreenUpdating = True
End Sub
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom