Hỏi cách ẩn màn hình excel khi form xuất hiện (1 người xem)

[doanduy]

bạn nào chỉ giùm mình cách ẩn màn hình excel khi form xuất hiện. vd ở sheet 1 mình có một nút commandbutton để điều khiển form xuất hiện. làm thế nào khi ấn vào nút đó màn hình form xuất hiện thì màn hình excel ân đi.khi thoát form thì màn hình excel lại hiện lên

 

[khoa140383]

bạn nào chỉ giùm mình cách ẩn màn hình excel khi form xuất hiện. vd ở sheet 1 mình có một nút commandbutton để điều khiển form xuất hiện. làm thế nào khi ấn vào nút đó màn hình form xuất hiện thì màn hình excel ân đi.khi thoát form thì màn hình excel lại hiện lên

Code ẩn : Application.Visible = False

Code hiện : Application.Visible = True

Còn áp dụng nó như thế nào là tùy bạn.
Nice day !!

 

[Tuấn Bụng Bự]

bạn nào chỉ giùm mình cách ẩn màn hình excel khi form xuất hiện. vd ở sheet 1 mình có một nút commandbutton để điều khiển form xuất hiện. làm thế nào khi ấn vào nút đó màn hình form xuất hiện thì màn hình excel ân đi.khi thoát form thì màn hình excel lại hiện lên

Sau câu lệnh userform.show thì bác thêm câu lệnh this workbook.visible = false

Khi bác đóng userform thì this workbook.visible = true

 

[tvgtyb08]

Cho phép mình ko tạo Topic mới xin hỏi ké với:
Mình muốn Form luôn hiển thị trên các chương trình khác thì khai báo ở đâu ạ?

 

[Tuấn Bụng Bự]

Cho phép mình ko tạo Topic mới xin hỏi ké với:
Mình muốn Form luôn hiển thị trên các chương trình khác thì khai báo ở đâu ạ?

không biết có đúng ý bạn không:
bạn chỉnh thuộc tính showmodal = false

 

[tvgtyb08]

không biết có đúng ý bạn không:
bạn chỉnh thuộc tính showmodal = false

Mình không tìm thấy nó đâu bác ạ. Bác hướng dẫn lại mình mới.
Cảm ơn bác.

 

[HeSanbi]

@tvgtyb08 Muốn Form hiển thị trên tất cả chương trình thì bạn sử dụng hàm API lấy Handle của userform và đặt chỉ số vị trí cửa sổ.

(Chép mã vào Userform để thực hiện, lưu ý khi hiện form, sử dụng lệnh userform1.Show vbModeless)

#If VBA7 Then
Private Declare PtrSafe Function IUnknown_GetWindow Lib "shlwapi" Alias "#172" (ByVal pIUnk As Any, ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
Private Enum LongPtr: [_]: End Enum
Private Declare Function IUnknown_GetWindow Lib "shlwapi" Alias "#172" (ByVal pIUnk As Any, ByVal hwnd As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End If
Dim hHWnd As LongPtr

Private Sub UserForm_Activate()
  IUnknown_GetWindow Me, VarPtr(hHWnd)
  Call SetWindowPos(hHWnd, -1, 0, 0, 0, 0, &H2 Or &H1) ' Hủy đặt về -2
End Sub

Để biết rõ hơn về hàm API SetWindowPos và cách thiết đặt đối số bạn hãy đọc thêm qua mạng.

 

[kokoro mitsubishi]

Chào cả nhà
Mình xin ké nội dung nhờ giúp đỡ trong mục này như sau : hiện tại mình đang sử dụng sheet form để nhập liệu , vùng dữ liệu sử dụng từ A1:AH40 cả nhà giúp xem có cách nào khi mình mở file chỉ vùng nhập đó hiển thị không ạ nhũng sheet khác không hiển thị
Cảm ơn cả nhà

 

[Hoàng Tuấn 868]

Mình xin ké nội dung

Sao không lập chủ đề riêng của mình mà lại phải đi "ké" vậy.

 

[kokoro mitsubishi]

Sao không lập chủ đề riêng của mình mà lại phải đi "ké" vậy.

cảm ơn bác , em sẽ lập chủ đề riêng