Code giới hạn thanh cuốn

[hongtruong101186]

Em muốn thanh cuốn ngang trên sheet chỉ có thể kéo đến cột AZ. còn hàng thì tự do.
Đoạn code đó như thế nào ạ.

 

[huuthang_bd]

Em muốn thanh cuốn ngang trên sheet chỉ có thể kéo đến cột AZ. còn hàng thì tự do.
Đoạn code đó như thế nào ạ.

Bạn dùng code này:

ActiveSheet.ScrollArea = "A:Z"

 

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

Em muốn thanh cuốn ngang trên sheet chỉ có thể kéo đến cột AZ. còn hàng thì tự do.
Đoạn code đó như thế nào ạ.

Không cần dùng code bạn à, nếu dữ liệu của bạn sử dụng đến cột AZ thì từ cột BA trở đi bạn ẩn nó đi là được.
Ẩn bằng cách là đến cột BA bạn nhấn Ctrl+Shift+Mũi tên qua phải , nhấn Ctrl+0 (Số không) là được

 

[khoavu87]

Em muốn thanh cuốn ngang trên sheet chỉ có thể kéo đến cột AZ. còn hàng thì tự do.
Đoạn code đó như thế nào ạ.

Bạn tham khảo thêm bài viết này nhé: kèm trong file

 

[wangzhu]

Không cần dùng code bạn à, nếu dữ liệu của bạn sử dụng đến cột AZ thì từ cột BA trở đi bạn ẩn nó đi là được.
Ẩn bằng cách là đến cột BA bạn nhấn Ctrl+Shift+Mũi tên qua phải , nhấn Ctrl+0 (Số không) là được

Chào bạn!
Mình gà quá nên không biết sau khi ẩn các cột trong sheet (Ctrl+0) rồi thì làm sao để các cột đó unhide lại. Thanks nhiều.

 

[ptlong04x1]

Chào bạn!
Mình gà quá nên không biết sau khi ẩn các cột trong sheet (Ctrl+0) rồi thì làm sao để các cột đó unhide lại. Thanks nhiều.

Bạn chọn hết cả bảng tính (nhấn Ctrl A vài lần) --> Ctrl Shift 0.

 

[anhtotbung35]

Bạn dùng code này:

ActiveSheet.ScrollArea = "A:Z"

Mình đã thử code này rồi, nhưng để nó chạy thì mình phải Atl+F11 và click Run thì code mới có tác dụng.
Mình muốn khi mở file lên thì nó tự chạy code và có thể giới hạn thanh cuộn cho mỗi Sheet khác nhau được không (dĩ nhiên là khi mở file thì code này tự chạy nhé).

 

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

Mình đã thử code này rồi, nhưng để nó chạy thì mình phải Atl+F11 và click Run thì code mới có tác dụng.
Mình muốn khi mở file lên thì nó tự chạy code và có thể giới hạn thanh cuộn cho mỗi Sheet khác nhau được không (dĩ nhiên là khi mở file thì code này tự chạy nhé).

Bạn bỏ code vào trong thủ tục Workbook_Open() hoặc vào module nhưng phải đặt tên cho nó là auto_open() là được

TenSheet.ScrollArea = "A:Z"

 

[anhtotbung35]

Bạn bỏ code vào trong thủ tục Workbook_Open() hoặc vào module nhưng phải đặt tên cho nó là auto_open() là được

Cảm ơn. Mình đã làm được rồi.