Giúp em đoạn code tự lưu và đóng file cũ khi mở file mới

[thuanduc08]

E làm chương trình quản lý trường học gồm
1- Thông tin trường
2- Hồ sơ học sinh
3- Hồ sơ giáo viên
4- Điểm
5- Các loại báo cáo
Là các file khác nhau được link tới 1 trang chủ và ngược lại, nhưng khi em link đến file (5- Các loại báo cáo) thì lúc này máy đang chạy với 5 file khác nhau vì thế rất chậm.

E nhờ các cao thủ giúp em có thể tạo một đoạn code để khi link tới file thứ 2 thì file thứ nhất tự lưu và thoát ra không
em gửi tệp đính kèm anh chị giúp em nhé
thank

 

[Hai Lúa Miền Tây]

E làm chương trình quản lý trường học gồm
1- Thông tin trường
2- Hồ sơ học sinh
3- Hồ sơ giáo viên
4- Điểm
5- Các loại báo cáo
Là các file khác nhau được link tới 1 trang chủ và ngược lại, nhưng khi em link đến file (5- Các loại báo cáo) thì lúc này máy đang chạy với 5 file khác nhau vì thế rất chậm.

E nhờ các cao thủ giúp em có thể tạo một đoạn code để khi link tới file thứ 2 thì file thứ nhất tự lưu và thoát ra không
em gửi tệp đính kèm anh chị giúp em nhé
thank

Dùng code sau cho file Trang Chu

Sub Dong()
 For Each wkb In Application.Workbooks
  If Not wkb.Name = ThisWorkbook.Name Then
    wkb.Close True
  End If
  Next
End Sub

Nó sẽ đóng hết tất cả Workbook ngoại trừ Trang Chu

 

[thuanduc08]

Chào anh doomfootwear
E làm nhưng không được. Thú thật với bác là em chưa biết gì về code nên...
E đã làm như sau:
- Mở file Excel "trang chu", bấm Alt + F11 để vào của sổ Edit code
- Vào menu Insert\Module ---> Module1 ->Paste code


Sau đó
- Bấm Alt + Q để trở về bảng tính Excel
- Bấm Alt + F8, chọn vào tên " trang chu" rồi bấm nút Run
===> Xem kết quả nhưng ko chạy anh a.
Em làm thế còn sai ở bước nào nữa vậy anh ơi. Chỉ giúp em với nhé
Thank anh nhiều

 

[Hai Lúa Miền Tây]

Chào anh doomfootwear
E làm nhưng không được. Thú thật với bác là em chưa biết gì về code nên...
E đã làm như sau:
- Mở file Excel "trang chu", bấm Alt + F11 để vào của sổ Edit code
- Vào menu Insert\Module ---> Module1 ->Paste code


Sau đó
- Bấm Alt + Q để trở về bảng tính Excel
- Bấm Alt + F8, chọn vào tên " trang chu" rồi bấm nút Run
===> Xem kết quả nhưng ko chạy anh a.
Em làm thế còn sai ở bước nào nữa vậy anh ơi. Chỉ giúp em với nhé
Thank anh nhiều

Code trên có tên là Dong mà bạn. Với lại đặt tên cho macro là phải viết dính liền không cách quảng, nếu cách quảng phải nối với nhau bằng dấu gạch dưới_, bạn thử lại xem nhé. Còn điều này nữa là bạn phải set macro ở chế độ Medium... hoặc Low ... nhé.

 

[nam2806]

E làm chương trình quản lý trường học gồm
1- Thông tin trường
2- Hồ sơ học sinh
3- Hồ sơ giáo viên
4- Điểm
5- Các loại báo cáo
Là các file khác nhau được link tới 1 trang chủ và ngược lại, nhưng khi em link đến file (5- Các loại báo cáo) thì lúc này máy đang chạy với 5 file khác nhau vì thế rất chậm.

E nhờ các cao thủ giúp em có thể tạo một đoạn code để khi link tới file thứ 2 thì file thứ nhất tự lưu và thoát ra không
em gửi tệp đính kèm anh chị giúp em nhé
thank

Xin góp một ý: sao bạn không biến mỗi file (5 file của bạn) đó thành các Sheet trong cùng một Workbook nhỉ, sheet đầu tiên làm menu vùa gọn, vừa dễ quản lí và muốn ẩn muốn hiện kiểu gì cũng được, lại chạy "vèo vèo".

 

[thuanduc08]

Điều đó rất khó vì: tổng số sheet sẽ quá lớn, 1 lớp đã có từ 9-12 sheet rồi bạn ạ

 

[SA_DQ]

Với cộng đồng này, có khi vượt được cái mà bạn cho là khó đó thì sao?

Điều đó rất khó vì: tổng số sheet sẽ quá lớn, 1 lớp đã có từ 9-12 sheet rồi bạn ạ

Bạn hãy mô tả chi tiết các trang tính, các workBooks đó đi

Biết đâu Cộng đồng này sẽ giúp bạn những í tưởng hay hơn chăng; V/V quản CSDL í mà!