Xin code cố định Sheet (1 người xem)

[saomai6692]

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

 

[Ba Tê]

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.

Private Sub Workbook_Open()
Sheet1.Activate
[D8].Select
End Sub

 

[Quang_Hải]

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

 

[bebeen]

Cả cái này nữa:

Private Sub Workbook_Open()   
 Sheets("tensheet").Select
End Sub

 

[phạm văn trình]

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

 

[ndu96081631]

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

 

[Quang_Hải]

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

Vậy mình phải đề phòng mọi thứ

Private Sub Workbook_Open()
    Sheets("tensheet").visible =True
    Sheets("tensheet").Activate
End Sub

 

[Quang_Hải]

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?
2. Bạn có mở chức năng Macro lên chưa?

Chứ code thì không sai chỗ nào đâu. Có tẹo không lẽ sai.

 

[saomai6692]

vẫn chưa được các bác ạ, phiền quá

 

[ndu96081631]

vẫn chưa được các bác ạ, phiền quá

Làm vầy nè
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èn

Sub Auto_Open()
  With Sheets("[COLOR=#ff0000][B]Tên sheet[/B][/COLOR]")  ''<--- Thay tên sheet của bạn vào
    .Visible = True
    .Activate
  End With
End Sub

4> Đó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

 

[saomai6692]

Bác ndu96081631 chỉ dẫn thật chu đáo. Trân trọng cảm ơn

 

[saomai6692]

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)

 

[ndu96081631]

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!
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ê

 

[saomai6692]

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.

 

[Quang_Hải]

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

 

[phạm văn trình]

Cũng có thể bạn saomai6692 ghép các đoạn code(ráp) là được mà.