Trắc nghiệm sheet có kích hoạt hay không? (1 người xem)

[hanhpptc]

Mình đang viết Macro để in dữ liệu. Trong đó cần đoạn mã như sau:
If sheet1 đang là sheet hiện hành thì thực thi các đoạn mã sau đó. Nhưng không biết câu lệnh sheet1 đang là sheet hiện hành viết như thế nào trong VBA. Rất mong có bạn nào biết hướng dẫn giúp. Xin cám ơn!

 

[nghiaphuc]

Mình đang viết Macro để in dữ liệu. Trong đó cần đoạn mã như sau:
If sheet1 đang là sheet hiện hành thì thực thi các đoạn mã sau đó. Nhưng không biết câu lệnh sheet1 đang là sheet hiện hành viết như thế nào trong VBA. Rất mong có bạn nào biết hướng dẫn giúp. Xin cám ơn!

Bạn thử dùng câu này: If ActiveSheet.Name="Sheet1" Then ...

 

[ndu96081631]

Mình đang viết Macro để in dữ liệu. Trong đó cần đoạn mã như sau:
If sheet1 đang là sheet hiện hành thì thực thi các đoạn mã sau đó. Nhưng không biết câu lệnh sheet1 đang là sheet hiện hành viết như thế nào trong VBA. Rất mong có bạn nào biết hướng dẫn giúp. Xin cám ơn!

Có thể làm như nghiaphuc, hoặc đơn giản là đưa code vào sự kiện Worksheet_Activate ---> Cứ sheet Active là code chạy

 

[talata2010]

Hỏi về cách kích hoạt giới hạn màn hình sheet khi vừa mở file tính

Có thể làm như nghiaphuc, hoặc đơn giản là đưa code vào sự kiện Worksheet_Activate ---> Cứ sheet Active là code chạy

Các ACE cho em hỏi vấn đề này với:

Em sử dụng đoạn code giới hạn màn hình bảng tính excell như sau:

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:M32"
End Sub

Tuy nhiên, khi mở file lên thì code này không hoạt động, chỉ khi nào em kích vào sheet chứa code thì lệnh trên mới được thực hiện. Có cách nào khi em mở file lên là sheet chứa code thực hiện lệnh trên không? Em xin cảm ơn!

 

[nghiaphuc]

Các ACE cho em hỏi vấn đề này với:

Em sử dụng đoạn code giới hạn màn hình bảng tính excell như sau:

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:M32"
End Sub

Tuy nhiên, khi mở file lên thì code này không hoạt động, chỉ khi nào em kích vào sheet chứa code thì lệnh trên mới được thực hiện. Có cách nào khi em mở file lên là sheet chứa code thực hiện lệnh trên không? Em xin cảm ơn!

Vậy thì đưa câu lệnh vào sự kiện Workbook_Open đi, cứ mỗi lần mở file là code hoạt động.
Code có dạng như vầy nè:

Private Sub Workbook_Open()
    Sheets("Sheet1").ScrollArea = "A1:M32"
End Sub

 

[Quang_Hải]

Ohhhh mình trả lời nhầm bài, MOD xóa bài này dùm

 

[talata2010]

Vậy thì đưa câu lệnh vào sự kiện Workbook_Open đi, cứ mỗi lần mở file là code hoạt động.
Code có dạng như vầy nè:

Private Sub Workbook_Open()
    Sheets("Sheet1").ScrollArea = "A1:M32"
End Sub

Với câu lệnh trên, khi đưa vào file tính không có tác dụng gì hết anh à. Anh xem lại giúp nhé.