Xin code (VBA) vị trí hiện form ở góc dưới cùng bên phải

[aviaiva]

như tiêu đề mong các bác giúp em, tìm cả buổi chiều trên diễn đàn rồi nhưng không có.

Em muốn form hiện ở góc dưới cùng bên phải và luôn đúng với mọi độ phân giải cũng như mọi kích thước màn hình mong các bác giúp code VBA.

 

[giola]

[h=2]Xin code (VBA) vị trí hiện form ở góc dưới cùng bên phải
[/h]

nhưng bên dưới-phải của cái gì???

 

[aviaiva]

nhưng bên dưới-phải của cái gì???

Của màn hình máy tính đó bác, mặc định là góc trái trên cùng, hoặc ở chính giữa màn hình máy tính, giờ em muốn khi mở form mặc định cái form đó nó chui xuống góc phải phía dưới màn hình

 

[giola]

Của màn hình máy tính đó bác, mặc định là góc trái trên cùng, hoặc ở chính giữa màn hình máy tính, giờ em muốn khi mở form mặc định cái form đó nó chui xuống góc phải phía dưới màn hình

Thử đặt code này vào trang form-code của form bạn mong muốn:

Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized        
        me.Top = .Height - me.Height
        me.Left = .Width - me.Width
    End With
End Sub

Nếu không cần đúng góc phải-dưới hết màn hình thì bỏ lệnh: .WindowState = xlMaximized

 

[giola]

Tôi nhầm sửa lại

Private Sub UserForm_Activate()
    With Application
        .WindowState = xlMaximized
        
        Me.Top = .Height - Me.Height - 30
        Me.Left = .Width - Me.Width - 30
    End With
End Sub

phải đặt vào form_Activate

số 30 là cho cách góc chút

vẫn chú ý

Nếu không cần đúng góc phải-dưới hết màn hình PC/Lap (khi đó nó gắn theo góc phải-dưới của cửa sổ Excel) thì bỏ lệnh: .WindowState = xlMaximized

 

[aviaiva]

Tôi nhầm sửa lại

Private Sub UserForm_Activate()
    With Application
        .WindowState = xlMaximized
        
        Me.Top = .Height - Me.Height - 30
        Me.Left = .Width - Me.Width - 30
    End With
End Sub

phải đặt vào form_Activate

số 30 là cho cách góc chút

vẫn chú ý

Nếu không cần đúng góc phải-dưới hết màn hình PC/Lap (khi đó nó gắn theo góc phải-dưới của cửa sổ Excel) thì bỏ lệnh: .WindowState = xlMaximized

em cảm ơn bác nhiều, chuẩn không cần chỉnh