Xin trợ giúp về resize userform (1 người xem)

[ntquantn]

Xin chào toàn thể anh chị em GPE,

Sau gần 1 tháng mày mò mình cũng đã làm được file excel bán hàng cho gia đình, mình đã test chạy thử thấy ok. Nhưng hôm qua khi chuyển file cho đứa em chạy thử thì ôi thôi cái userform mình làm nó to đùng. Mình đã đọc tìm hiểu hết các bài trong GPE và 1 số trang khác mà không sao làm được.

Rất mong các Anh, Chị, Em bớt chút thời gian xem và xử lý giúp mình sao cho cái userform trong file mình gửi kèm có thể "auto resize " hiển thị được đúng với màn hình và độ phân giải.

Màn hình của mình sử dụng: 15,6" độ phân giải 1920x1080
Màn hình máy tính bán hàng: 15,6" độ phân giải tối đa 1024 x 768

Vì sang Tháng 10 mình lại phải đi công tác, không thể tập trung được nên rất mong sự giúp đỡ của mọi người.

Minh chân thành cảm ơn.

 

[giaiphap]

Xin chào toàn thể anh chị em GPE,

Sau gần 1 tháng mày mò mình cũng đã làm được file excel bán hàng cho gia đình, mình đã test chạy thử thấy ok. Nhưng hôm qua khi chuyển file cho đứa em chạy thử thì ôi thôi cái userform mình làm nó to đùng. Mình đã đọc tìm hiểu hết các bài trong GPE và 1 số trang khác mà không sao làm được.

Rất mong các Anh, Chị, Em bớt chút thời gian xem và xử lý giúp mình sao cho cái userform trong file mình gửi kèm có thể "auto resize " hiển thị được đúng với màn hình và độ phân giải.

Màn hình của mình sử dụng: 15,6" độ phân giải 1920x1080
Màn hình máy tính bán hàng: 15,6" độ phân giải tối đa 1024 x 768

Vì sang Tháng 10 mình lại phải đi công tác, không thể tập trung được nên rất mong sự giúp đỡ của mọi người.

Minh chân thành cảm ơn.

Nhưng ý bạn là muốn nó như thế nào? không to hay to ra đầy màn hình,...

 

[ntquantn]

Ý mình là userform hiển thị đúng theo tỷ lệ của userform theo màn hình của máy mở file đó

 

[giaiphap]

Ý mình là userform hiển thị đúng theo tỷ lệ của userform theo màn hình của máy mở file đó

Tỷ lệ của User Form là sao bạn tôi thấy bạn có tính tỷ lệ nào đâu trong User Form ngoài việc cân chỉnh cho nó ở giữa (cái này thì chọn trong StartUpPosition là được rồi). Không biết ý bạn có giống với cái file này không nửa.

 

[ntquantn]

Ý mình tức là cái usercontrol đó sẽ hiển thị đúng tương ứng với màn hình hiển thị. Ví dụ file mình mở trên máy màn hình 15" độ phân giải 1920x1080 thì hiển thị đúng ý mình. Nhưng khi đổi độ phân giải còn 1280x768 thì nó vẫn to đùng --> ý mình tức là khi đổi như thế thì xử lý làm sao để cái userform đó nó cũng thay đổi theo độ phân giải tương ứng (

File ví dụ bạn gửi cho chỉnh được như thế thì quá tốt luôn.

 

[NguyenthiH]

Gửi bạn xem thử có đúng ý bạn không.

 

[ntquantn]

Gửi bạn xem thử có đúng ý bạn không.

Không hiểu sao file bạn gửi lại lỗi, mở vba thấy báo lỗi can't find project or library

 

[NguyenthiH]

Mình gửi lại file Binary

 

[ntquantn]

Mình gửi lại file Binary

Tỷ lệ của User Form là sao bạn tôi thấy bạn có tính tỷ lệ nào đâu trong User Form ngoài việc cân chỉnh cho nó ở giữa (cái này thì chọn trong StartUpPosition là được rồi). Không biết ý bạn có giống với cái file này không nửa.

Chân thành cảm ơn hai bạn

Nhờ có sự giúp đỡ file mẫu của các bạn mình đã làm được rồi.

Nhân đây mình cũng xin cảm ơn các thành viên GPE đã gián tiếp (thông qua cá bài post, hướng dẫn ví dụ), các bạn đã trực tiếp giúp mình từ một người mù tịt về VBA, và excel thì biết được copy, paste và Sum đã làm được 1 file excel hoàn chỉnh trong vòng gần 1 tháng (hic, lâu quá)

Mình, vốn dĩ không phải dân lập trình mặc dù tiếp xúc với máy tính khá sớm và từng học foxbase, pascal từ năm 94, nhưng có lẽ do khả năng có hạn nên mình thấy khó vào quá. Nhưng qua tháng vừa mình thấy có lẽ do mình hiểu đc nhu cầu mình cần gì nên cảm thấy việc ngồi làm file không đến nỗi oải như trước đây mình từng nghĩ. Phải công nhận ngồi lập trình vba thú vị thật, tiếc rằng mình không có nhiều thời gian để dành cho lập trình.

Một lần nữa xin cảm ơn, chúc sức khỏe toàn thể các anh chị em GPE, chúc GPE ngày càng phát triển và đem lại nhiều điều bổ ích cho mọi người.

Trân trọng. /.

 

[NguyenthiH]

Bạn giỏi rồi, chứ mình cả gần 3 năm chỉ có nhờ làm giúp không ah.
Code trong file mình đưa lên cho bạn là của Thầy Batman1 làm cho mình đó.

 

[be_09]

Ý mình tức là cái usercontrol đó sẽ hiển thị đúng tương ứng với màn hình hiển thị. Ví dụ file mình mở trên máy màn hình 15" độ phân giải 1920x1080 thì hiển thị đúng ý mình. Nhưng khi đổi độ phân giải còn 1280x768 thì nó vẫn to đùng --> ý mình tức là khi đổi như thế thì xử lý làm sao để cái userform đó nó cũng thay đổi theo độ phân giải tương ứng (

File ví dụ bạn gửi cho chỉnh được như thế thì quá tốt luôn.

Dùng code đơn giản này thử:

Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized
        Zoom = Int(.width / Me.width * 95)
        width = .width
        height = .height
    End With
End Sub

 

[ntquantn]

Dùng code đơn giản này thử:

Private Sub UserForm_Initialize()
    With Application
        .WindowState = xlMaximized
        Zoom = Int(.width / Me.width * 95)
        width = .width
        height = .height
    End With
End
[SIZE=16px]
  Mấy hôm nay bận quá nên chưa thử được code này, mấy hôm tới mình thử sẽ báo lại kết quả bạn nhé. 
Cảm ơn bạn[/SIZE]

Mình thử code này thấy nó cũng fix theo độ phân giải màn hình rất ok, không bị to đùng ra nữa. Thanks bạn