Kích thước của User Form và điều khiển Form

[thaibinh_excel]

Chào các bác,

1. Mình tạo 1 User Form để hiển thị ngay khi mở file Excel, nhưng mình muốn User Form này khi mở ra sẽ tự động phóng kích thước bằng đúng màn hình máy vi tinh. Mình có thể cài đặt nó như vậy được không hay là nó chỉ có thể thể hiện đúng kích thước mà mình quy định cho nó ? Nếu được thì cần những chỉnh những thông số nào ?

2. Sau khi tạo được User Form rồi, gán lệnh chuyển sheet cho Command Button thế nào a ? ( vi du click Button 1 sẽ chuyển sang sheet 1 )

Nhờ các cao thủ chỉ giúp nhé.

Cám ơn mọi người

 

[yeudoi]

Chào các bác,

1. Mình tạo 1 User Form để hiển thị ngay khi mở file Excel, nhưng mình muốn User Form này khi mở ra sẽ tự động phóng kích thước bằng đúng màn hình máy vi tinh. Mình có thể cài đặt nó như vậy được không hay là nó chỉ có thể thể hiện đúng kích thước mà mình quy định cho nó ? Nếu được thì cần những chỉnh những thông số nào ?

Bạn dùng câu lệnh này nha:

Private Sub CommandButton1_Click()
UserForm1.Top = 0
UserForm1.Left = 0
UserForm1.Width = Application.Width
UserForm1.Height = Application.Height
End Sub

[/QUOTE]
2. Sau khi tạo được User Form rồi, gán lệnh chuyển sheet cho Command Button thế nào a ? ( vi du click Button 1 sẽ chuyển sang sheet 1 )

Nhờ các cao thủ chỉ giúp nhé.

Cám ơn mọi người[/QUOTE]
Và câu lệnh này:

Sheet1.Select

 

[Po_Pikachu]

Bạn tham khảo trang này cũng có rất nhiều điều thú vị lắm! http://www.giaiphapexcel.com/forum/showthread.php?t=2237&page=3

 

[thaibinh_excel]

Bạn dùng câu lệnh này nha:

2. Sau khi tạo được User Form rồi, gán lệnh chuyển sheet cho Command Button thế nào a ? ( vi du click Button 1 sẽ chuyển sang sheet 1 )

Nhờ các cao thủ chỉ giúp nhé.

Cám ơn mọi người[/quote]
Và câu lệnh này:[/quote]

Yeudoi oi. Không thấy có gì thay đổi ? Nhờ bạn xem code giúp ( interface là tên userForm )

Private Sub Workbook_Open()
Interface.Show
Interface.Top = 0
Interface.Left = 0
Interface.Width = Application.Width
Interface.Height = Application.Height
End Sub

Best Regards,

 

[Po_Pikachu]

Bạn dùng Form này ha!

 

[thaibinh_excel]

Bạn dùng Form này ha!

Thank Po_pikachu, giúp người giúp cho trót,
Mình nhảy qua sheet 1, muốn quay về lại Interface, mình tạo 1 nút bấm "Back", gán 1 sub
Sub Back()
Interface.Show
End Sub

Báo lỗi. ??
( mình vẽ 1 ô vuông và asign macro back cho o vuông này)

 

[thaibinh_excel]

Thank Po_pikachu, giúp người giúp cho trót,
Mình nhảy qua sheet 1, muốn quay về lại Interface, mình tạo 1 nút bấm "Back", gán 1 sub
Sub Back()
Interface.Show
End Sub

Báo lỗi. ??
( mình vẽ 1 ô vuông và asign macro back cho o vuông này)

Tự hỏi tự trả lời. Thanks Po_pikachu, Mình làm được rồi.

Chúc 1 ngày vui !
TB

 

[thaibinh_excel]

Các bác cho mình hỏi. Mình mở workbook B và tạo 1 button "Back" cho nó trở ngược lại Workbook A bằng lệnh WorkBooks."A".Worksheet." a". Activate. nhưng bây giờ mình muốn ngay khi nó trở ngược lại thì hiện ra UserForm đang có ở file A. mình dùng UserForm1.Show trong Module của file B thì nó báo lỗi ???

Các bác chỉ giúp
Best Regards,
TB

 

[PhanTuHuong]

Bạn xem thêm 1 số thuộc tính điều khiển vị trí, kích thước Form trong hình dưới nhé:

 

[Po_Pikachu]

Trong file Book1.xls bạn xem code trong Module Trong file Interface.xls bạn xem code trong: Module, Thisworkbook. Cái này là mình dùng cách gửi phím tắt qua cho Workbook kia để chạy 1 lệnh nằm ở workbook kia! Thân.

 

[thaibinh_excel]

Trong file Book1.xls bạn xem code trong Module
Trong file Interface.xls bạn xem code trong: Module, Thisworkbook.
Cái này là mình dùng cách gửi phím tắt qua cho Workbook kia để chạy 1 lệnh nằm ở workbook kia!
Thân.

Po-Pikachu oi, khi nó quay lại nó vẫn không hiện UserForm ra lại ? mà nó chỉ hiện sheet 1 thôi ?? Ý của mình là muốn khi return lại Interface thì nó sẽ hiện ra UserForm lại như khi mới mở file Interface đó bác.

Nhờ bác xem giúp nhé,
Best Regards,

 

[Po_Pikachu]

Mình gửi lại file rồi ở top trên bạn tải lại nha! Mình tính dùng hàm onkey nhưng có vẻ nó không chịu chạy! Đành phải gán key vào trong Sub trực tiếp luôn. (bạn có thể làm như vậy bằng cách nhấn Alt + F8 -> chọn Sub -> nhấn vào nút Options -> OK). Bạn có thể vào xem sẽ rõ. Sorry.

 

[thaibinh_excel]

Mình gửi lại file rồi ở top trên bạn tải lại nha!
Mình tính dùng hàm onkey nhưng có vẻ nó không chịu chạy! Đành phải gán key vào trong Sub trực tiếp luôn. (bạn có thể làm như vậy bằng cách nhấn Alt + F8 -> chọn Sub -> nhấn vào nút Options -> OK). Bạn có thể vào xem sẽ rõ.
Sorry.

Hichic. Code nó chạy buồn cười lắm Po_pikachu ơi. Mình không hiểu luôn đó. hichic. Po tay. 02 file của mình 1 cái tên là "database' , 1 cái tên là " membership profile". mình gán lệnh giống y hệt như bạn đặt trong "interface" và "book1' nhưng no lại không chạy được. Chẳng hiểu thế nào nửa, Pó tay,

 

[Po_Pikachu]

Bạn gửi hai file đó lên đi! Mình sửa lại 1 chút là có thể chạy êm mà! Phần này đối với mình cũng hơi khó nên có vẻ hơi chập! Thân.

 

[thaibinh_excel]

Bạn gửi hai file đó lên đi! Mình sửa lại 1 chút là có thể chạy êm mà!
Phần này đối với mình cũng hơi khó nên có vẻ hơi chập!
Thân.

hichic. File tới 12MB vì có nhiều dữ liệu lắm, gửi không được Po_Pi ơi. Nhưng mình thấy file bạn làm thì okie mà? Mình bấm vào link Interface của book 1 thì nó quay lại "interface" và hiện userform lên liền. Mình cũng đã check kỹ các Module, Code và Sub của bạn rồi, apply đúng nhưng không hiểu sao khi bấm return thì nó quay lại 1 sheet của file và không hiện UserForm.

Trong trường hợp này, mình có lệnh nào để bẫy nó ví dụ như khi On Workbook "interface" activate thi show UserForm lên? Ý tưởng là vậy nhưng không biết làm hihihihi.

 

[Po_Pikachu]

Có thể là bạn chưa đặt phím tắt cho Macro mở Form kia. Bạn thử đặt lại xem sao! Mới vừa tìm được 1 lệnh nữa cũng có thể gọi form từ Workbook khác nè! Bạn thay code trên bằng code này nha!

 Sub moWorkbookInterface() 'Windows("Interface.xls").Activate                                      'Dong nay dung de hien Workbooks Interface.xls Workbooks("interface.xls").Activate                                     'Hoac 'Windows("Interface.xls").Application.SendKeys "^+J"                    'Gui phim tat Ctrl + Shift + J Workbooks("Interface.xls").Application.Run "Interface.xls!hien"         'Hoac End Sub

 

[thaibinh_excel]

Có thể là bạn chưa đặt phím tắt cho Macro mở Form kia. Bạn thử đặt lại xem sao!
Mới vừa tìm được 1 lệnh nữa cũng có thể gọi form từ Workbook khác nè!
Bạn thay code trên bằng code này nha!

Sub moWorkbookInterface()
'Windows("Interface.xls").Activate                                      'Dong nay dung de hien Workbooks Interface.xls
Workbooks("interface.xls").Activate                                     'Hoac
'Windows("Interface.xls").Application.SendKeys "^+J"                    'Gui phim tat Ctrl + Shift + J
Workbooks("Interface.xls").Application.Run "Interface.xls!hien"         'Hoac
End Sub

Chính xác . Ngồi suy nghĩ không biết cái Ctrl J mà bạn send key làm sao nó hiểu được, mới sực nhớ là mình chưa đặt phím tắt cho Sub Hien. Đặt xong là okie liền kekeke, qua đây xem lại thấy mình làm đúng hihi,

Cám ơn pác nhiều nhé. Bác cho số điện thoại hôm nào mời bác 1 ly cafe nhé.

best regards,
TB

 

[nguyenkhanhylpt]

Tạo 1 User Form để hiển thị ngay khi mở file Excel thì mình tạo được, nhưng mình muốn User Form này khi mở ra sẽ tự động phóng kích thước bằng đúng màn hình máy vi tinh và không cho người dung di chuyển nó thì chưa làm được. Các bạn có cách nào không