Code tự động chuyển Sheet (1 người xem)

[saomai6692]

Em chào các anh chị
Em xin anh chị viết giúp em code tự động chuyển sheet khi nó hiện ngày tháng. Trân trọng cảm ơn

 

[nghiaphuc]

Em chào các anh chị
Em xin anh chị viết giúp em code tự động chuyển sheet khi nó hiện ngày tháng. Trân trọng cảm ơn

Bạn thêm câu lệnh này vào cuối đoạn code đã có là được: Application.Goto Sheet2.[A1]

 

[saomai6692]

Trong trường hợp nó mặc định về ô A1 cho tất cả các Sheet khi mở ra thì code viết sao ạ; em nhờ các anh giúp đỡ. Trân trọng cảm ơn.

 

[Hoàng Trọng Nghĩa]

Trong trường hợp nó mặc định về ô A1 cho tất cả các Sheet khi mở ra thì code viết sao ạ; em nhờ các anh giúp đỡ. Trân trọng cảm ơn.

Bạn thêm ở cuối thủ tục:

ActiveSheet.Range("A1").Select

 

[sealand]

Bạn thêm ở cuối thủ tục:

ActiveSheet.Range("A1").Select

Không cần mà chỉ như NghiaPhuc là đủ

 

[Hoàng Trọng Nghĩa]

Không cần mà chỉ như NghiaPhuc là đủ

Vì bạn đó hỏi sau bài của NghiaPhuc, nên em nghĩ là một thủ tục khác, đồng thời, NghiaPhuc gọi đích danh Sheet2, em lại nghĩ thủ tục phát triển thêm các sheet khác thì sao, nên hướng dẫn thêm một thủ tục chọn ô cần select.

 

[saomai6692]

Đúng như anh chị Hoàng Trọng Nghĩa, nhưng em thêm vào vẫn chưa được, không biết em nhầm ở chỗ nào, Anh chị viết giup em đoạn code độc lập được ko ạ. Trân trọng cảm ơn

 

[Hoàng Trọng Nghĩa]

Đúng như anh chị Hoàng Trọng Nghĩa, nhưng em thêm vào vẫn chưa được, không biết em nhầm ở chỗ nào, Anh chị viết giup em đoạn code độc lập được ko ạ. Trân trọng cảm ơn

Nhìn file của bạn, tôi cũng không biết phải hiểu như thế nào nữa.

Với nút lệnh, bạn viết thế này là ổn rồi:

Sub Button2_Click()
    With Sheet1
        .Unprotect 123
        .[A1] = "8/27/2012"
        .Protect 123
    End With
    Application.Goto Sheet2.[A1]
End Sub

Vấn đề của bạn hỏi có phải rằng, khi nhảy qua sheet X nào đó, thì nó ô A1 sẽ là ô được chọn phải không?

 

[nghiaphuc]

Đúng như anh chị Hoàng Trọng Nghĩa, nhưng em thêm vào vẫn chưa được, không biết em nhầm ở chỗ nào, Anh chị viết giup em đoạn code độc lập được ko ạ. Trân trọng cảm ơn

Bạn thử sử dụng đoạn code này cho đối tượng ThisWorkbook xem có đúng ý không:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("A1").Select
End Sub

 

[saomai6692]

Rất đúng rồi các anh, chị ạ, cả anh chị Hoàng Trọng Nghĩa và Hoàng Nghĩa Phục đều đúng, em đã tet thử chạy rất tốt. Trân trọng cảm ơn các anh chị

 

[xuan.nguyen82]

Rất đúng rồi các anh, chị ạ, cả anh chị Hoàng Trọng Nghĩa và Hoàng Nghĩa Phục đều đúng, em đã tet thử chạy rất tốt. Trân trọng cảm ơn các anh chị

...........................................................