Anh chị cho em xin đoạn code: mỗi khi mở file thì nó sẽ mở sheet đó trước [tạm gọi là sheet cố định]. Trân trọng cảm ơn Chép code này vào ThisWorkbook thử xem. PHP: Private Sub Workbook_Open[]
Sheet1.Activate
[D8].Select
End Sub
- #3
Xai cái này. Thay chữ tensheet bằng tên sheet muốn nha Private Sub Workbook_Open[]
Sheets["tensheet"].Activate
End Sub
- #4
Cả cái này nữa: PHP: Private Sub Workbook_Open[]
Sheets["tensheet"].Select
End Sub
- #5
Chào các anh chị, tôi đã thử đoạn code trên khi copy vào thử mở bảng tính của bạn saomai6692 và save shet khác lại chưa được, xin được chỉ giúp. Cảm ơn
- #6
Bài này giải quyết bằng câu lệnh Sheets["Tên Sheet"].Activate thì đúng rồi, nhưng đặt trường hợp Sheet bị ẩn thì sao?
Vậy lý ra code đầy đủ phải là:
- Cho sheet hiện lên
- Active sheet ấy
- #7
Bài này giải quyết bằng câu lệnh Sheets["Tên Sheet"].Activate thì đúng rồi, nhưng đặt trường hợp Sheet bị ẩn thì sao? Vậy mình phải đề phòng mọi thứ PHP:
Vậy lý ra code đầy đủ phải là:
- Cho sheet hiện lên
- Active sheet ấy Private Sub Workbook_Open[]
Sheets["tensheet"].visible =True
Sheets["tensheet"].Activate
End Sub
- #8
Chào các anh chị, tôi đã thử đoạn code trên khi copy vào thử mở bảng tính của bạn saomai6692 và save shet khác lại chưa được, xin được chỉ giúp. Cảm ơn 1. Bạn có thay cái [tensheet] chưa? Chứ code thì không sai chỗ nào đâu.
Có tẹo không lẽ sai.
2. Bạn có mở chức năng Macro lên chưa?
- #9
vẫn chưa được các bác ạ, phiền quá
- #10
vẫn chưa được các bác ạ, phiền quá Làm vầy nè Mã:
1> Mở file của bạn lên, bấm Alt + F11 để vào cửa sổ lập trình
2> Trong cửa sổ lập trình, hãy vào menu Insert, chọn Module để chèn 1 Module
3> Xong, copy đoạn code dưới đây paste vào khung phải của Module
vừa chènSub Auto_Open[]
With Sheets["[COLOR=#ff0000][B]Tên sheet[/B][/COLOR]"] '' Đóng và lưu file của bạn
5> Mở file và kiểm tra
---------------
Lưu ý:
- Phải hạ mức Security xuống mức Medium thì mới chạy được code ---> Về việc chỉnh Security thế nào, hãy tham khảo ở các bài khác nhé
- Bạn không thể gõ tên sheet bằng tiếng Việt có dấu trong cửa sổ VBA. Vậy nên tốt nhất nên đặt tên sheet ngắn gọn và là tiếng Việt không dấu. Trong trường hợp bắt buộc phải dùng đến tên sheet là
tiếng Việt có dấu, ta phải có cách khác [dùng hàm Chr] để code VBA hiểu được tên sheet tiếng Việt có dấu ấy
Lần chỉnh sửa cuối: 10/8/12
- #11
Bác ndu96081631 chỉ dẫn thật chu đáo. Trân trọng cảm ơn
- #12
Nhưng trong trường hợp này thì nó lại không mở được. Kính mong các anh giúp đỡ.[file này em xin ở trên diễn đàn] Chu chay OK.xls 46 KB · Đọc: 7
- #13
Nhưng trong trường hợp này thì nó lại không mở được. Kính mong các anh giúp đỡ.[file này em xin ở trên diễn đàn] Trời! Mã:
Trong file ấy có sự kiện Workbook_Open, đương nhiên nó sẽ hoạt động trước Sub Autpen
Với cái code RunMarquee trong file này,
khi nó chạy sẽ chẳng có cái quái gì chạy được cả [code này thuộc dạng dở ẹc]
------------
Ngoài ra, code của bạn là Sub Auto_Open[]
With Sheets["[COLOR=#ff0000][B]MENU[/B][/COLOR]"]
.Visible = True
.Activate
End With
End Sub
Trong khi tên sheet của bạn là MUNE ---> Bạn nói láy cũng hay ghê
- #14
Không phải đâu anh, em gõ nhầm, em gửi lại lên mong các anh giup đỡ. Bây giờ thì làm thế nào anh ơi. Chu chay sua.xls 46 KB · Đọc: 6
- #15
Không phải đâu anh, em gõ nhầm, em gửi lại lên mong các anh giup đỡ. Bây giờ thì làm thế nào anh ơi. Mấy thứ này xa xỉ quá, không đáp ứng được cho công việc nhiều nên không khoái lắm Copy of Chu chay sua.rar 19.4 KB · Đọc: 20
- #16
Cũng có thể bạn saomai6692 ghép các đoạn code[ráp] là được mà. Chu chay sua.xls 48 KB · Đọc: 21