Giữ nguyên ô hoạt động khi di chuyển giữa các trang bảng tính

[ottieu]

Khi di chuyển qua lại giữa các trang bảng tính, mình lại nghĩ giá mà có thể di chuyển từ bảng tính này sang bảng tính khác mà vẫn giữ được con trỏ ở cùng vị trí như trong bảng tính cũ thì tốt quá, sẽ tiết kiệm được rất nhiều thời gian. Liệu có cách nào thực hiện mong muốn này không nhỉ? Mong được mọi người giúp đỡ.

 

[anhtuan1066]

Nếu là các sheet trong 1 file thì tôi nghĩ có thể dc đấy! Đầu tiên bạn Select All Sheets, chọn 1 cell nào đó trong sheet hiện hành... Bấm Ctrl + Page Up hoặc Ctrl + Page down đễ di chuyển qua lại giữa các sheet... Khi ấy ActiveCell của sheet này luôn trùng với ActiveCell của sheet kia...
Còn như di chuyển qua lại giữa 2 file thì.. ko biết!
ANH TUẤN

 

[Mr Okebab]

Nếu là các sheet trong 1 file thì tôi nghĩ có thể dc đấy! Đầu tiên bạn Select All Sheets, chọn 1 cell nào đó trong sheet hiện hành... Bấm Ctrl + Page Up hoặc Ctrl + Page down đễ di chuyển qua lại giữa các sheet... Khi ấy ActiveCell của sheet này luôn trùng với ActiveCell của sheet kia...
Còn như di chuyển qua lại giữa 2 file thì.. ko biết!
ANH TUẤN

Cái này thì . . . không phải bác ạ. Active Cell lúc đó là Active Cell của lần ta Deactive Sheet gần nhất.

Thân!

 

[salam]

Cám ơn bác Tuấn nhé em dùng chế độ in black and white cho các sheet của mình mà phải đặt từng sheet một nay em select all theo cách của bác và đặt chế độ in black and white được cho tất cả các sheet.

 

[SoiBien]

Khi di chuyển qua lại giữa các trang bảng tính, mình lại nghĩ giá mà có thể di chuyển từ bảng tính này sang bảng tính khác mà vẫn giữ được con trỏ ở cùng vị trí như trong bảng tính cũ thì tốt quá, sẽ tiết kiệm được rất nhiều thời gian. Liệu có cách nào thực hiện mong muốn này không nhỉ? Mong được mọi người giúp đỡ.

bạn right click vào biểu tượng excel ở bên trái của menu File, chọng view code, paste đoạn code sau vào đó, bấm alt+Q để đóng cửa sổ soạn thảo VBA trở về bảng tính Excel, từ giờ trở đi đối với file nào có code này thì mỗi khi bạn qua sheet mới con trỏ tự động di chuyển đến địa chỉ cùng với địa chỉ của sheet trước đó. Lưu ý là ta phải một lần di chuyển con trỏ chọn ô để kích hoạt các thủ tục, và nó chỉ làm việc với các trang trong cùng một bảng tính.

[color=darkblue]Public[/color] Lastadd [color=darkblue]As[/color] [color=darkblue]String[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_SheetActivate([color=darkblue]ByVal[/color] Sh [color=darkblue]As[/color] [color=darkblue]Object[/color])
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    Range(Lastadd).Select
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Workbook_SheetSelectionChange([color=darkblue]ByVal[/color] Sh [color=darkblue]As[/color] [color=darkblue]Object[/color], [color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Range)
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    Lastadd = Target.Address
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

Thân.