Tạm thời ẩn Form chính và form đang làm việc như thế nào?

[manhhung12]

Chào các bạn.
Tôi có 1 form chính (menu) có kích thước toàn mành hình.
Và 1 form đang làm việc. Trên form này có 1 Cmd mà nếu tôi click vào đó thì nó hiển thị lên 1 Sheet (dạng như report) đồng thòi tam thời ẩn các form nói trên (để xem report) sau đó bằng việc click vào 1 ô chẳng hạn A1 thì hiển thị lại các form vùa bị dấu đi (ẩn).
đoạn Code này sẽ như thế nào các bạn giúp đỡ

 

[manhhung12]

Chào các bạn.
Tôi có 1 form chính (menu) có kích thước toàn mành hình.
Và 1 form đang làm việc. Trên form này có 1 Cmd mà nếu tôi click vào đó thì nó hiển thị lên 1 Sheet (dạng như report) đồng thòi tam thời ẩn các form nói trên (để xem report) sau đó bằng việc click vào 1 ô chẳng hạn A1 thì hiển thị lại các form vùa bị dấu đi (ẩn).
đoạn Code này sẽ như thế nào các bạn giúp đỡ

Hoặc theo cách:
Cho hiển thị 1 vùng (để xem và in) trên 1 form.
Sau khi xem hoặc in xong thì quay trở lại form đang làm việc

 

[rollover79]

Bạn không đưa file lên nên hơi khó hình dung được ý của bạn. Bạn tham khảo thử đoạn code sau rồi thử vận dụng xem sao nhé
1. Sự kiện OnClick của nút lệnh trên Form

    Dim iCount
    Dim i As Integer
    For i = 0 To UserForms.Count - 1
        If UserForms(i).Visible Then
            iCount = iCount + 1
            ReDim Preserve arrVisibleForm(1 To iCount)
            Set arrVisibleForm(iCount) = UserForms(i)
            UserForms(i).Hide
        End If
    Next
    Sheet1.Activate

2. Sau khi xử lý xong, hiện lại các Form

    Dim i As Integer
    For i = LBound(arrVisibleForm) To UBound(arrVisibleForm)
        arrVisibleForm(i).Show
    Next

3. arrVisibleForm là 1 mạng động kiểu variant khai báo trên 1 public module

Public arrVisibleForm()

 

[ptm0412]

Khi nhấn nút trên form Lamviec:

FormMain.Hide
FormLamviec.Hide
Sheets("ABC").Activate

Khi click vào 1 ô nào đó của sheet:

FormMain.show

 

[manhhung12]

Khi nhấn nút trên form Lamviec:

FormMain.Hide
FormLamviec.Hide
Sheets("ABC").Activate

Khi click vào 1 ô nào đó của sheet:

FormMain.show

Không được bạn ah. Nếu:

frmain.hide
frlamviec.hide

nó báo lỗi: must close or hide topmost modal form first
Còn Ngược lai

frlamviec.hide
frmain.hide

thì frmain vãn hiển thị

 

[rollover79]

Bạn chuyển hết thuộc tính Show modal của các Form thành false là chạy ok.

 

[manhhung12]

Bạn chuyển hết thuộc tính Show modal của các Form thành false là chạy ok.

Mình cũng vừa kịp đọc đến Modal properties. Nhưng vấn đề dùng các event trên Sheet để quay trở lại form là không đơn giản mà cuối cùng phải dùng đến embed(commandbutton).

 

[rollover79]

Mình cũng vừa kịp đọc đến Modal properties. Nhưng vấn đề dùng các event trên Sheet để quay trở lại form là không đơn giản mà cuối cùng phải dùng đến embed(commandbutton).

Dùng event của Sheet và CommandButton thì có khác gì nhau đâu, vấn đề là mong muốn của bạn như nào thôi, không rõ bạn gặp khó khăn gì khi sử dụng event của Sheet?