Cố định cột A ở tất cả các Sheet luôn phía trái bảng tính khi mở File (đã thaotác) (1 người xem)

[CuocTinhChoMaiSau]

Chào các anh,chị
Giống như tiêu đề, làm sao ta có thể cố định cột A luôn ở bên trái bảng tính ở tất cả các Sheet mỗi khi mở File Excel.
Giống như mỗi khi ta mở 1 File exel mới vậy.
Xin cảm ơn và chúc mọi người 1 mùa xuân mới an lành.

 

[be_09]

Bác ơi, cái em cần là nhìn thấy, chứ không phải là chọn lấy

Bạn thử lại 1 lần nữa xem có đúng ý không?

Sub SplitGPE()
Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Activate
        With ActiveWindow
            .SplitColumn = 1: .SplitRow = 1
        End With
    Next
End Sub

 

[CuocTinhChoMaiSau]

Bạn thử lại 1 lần nữa xem có đúng ý không?

Sub SplitGPE()
Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.Activate
        With ActiveWindow
            .SplitColumn = 1: .SplitRow = 1
        End With
    Next
End Sub

Không phải như vậy bác be09.
Ai cũng hiểu chỉ 1 người không hiểu, đó là tôi?
Có lẽ Code không xong thì phải dùng Ctrl +Home cho từng Sheet thôi.

 

[befaint]

Có lẽ Code không xong thì phải dùng Ctrl +Home cho từng Sheet thôi.

Mời bạn xem file. Nếu không đúng thì

 

[ptm0412]

Tóm lại là tất cả phương pháp trên đây đều chạy đúng: chọn A1 và cho thấy A1. Chỉ có điều nếu dùng ScreeenUpdating = False thì màn hình không cập nhật chuyện "thấy". Tiếc là chủ topic hoặc không biết cách test, hoặc chỉ đọc mà không test.

 

[CuocTinhChoMaiSau]

Mời bạn xem file. Nếu không đúng thì

Cảm ơn bạn befaint.
Đây đúng là cái tôi cần.
Trước đó tôi đã thử tất cả các Code của các bạn, nhưng tôi đều nói là chưa đúng cái tôi cần. Bây giờ thì tôi đã biết lý do của nó.
Đó là các Sheets của tôi đều đã ẩn dòng, ẩn cột. Nên khi chạy các Code trên đều không cho kết quả.
Bài toán đến đây đã được giải quyết. Tôi xin cảm ơn tất cả các thành viên đã viết bài trả lời giúp tôi và chúc mọi người 1 năm mới sức khỏe và thành công.

 

[VetMini]

Tóm lại là tất cả phương pháp trên đây đều chạy đúng: chọn A1 và cho thấy A1. Chỉ có điều nếu dùng ScreeenUpdating = False thì màn hình không cập nhật chuyện "thấy". Tiếc là chủ topic hoặc không biết cách test, hoặc chỉ đọc mà không test.

Chủ thớt có nói "không muốn chọn A1".
ScrollColumn và ScrollRow là cách mà tôi biết để buộc bảng tính phải scroll về nơi mình muốn, và đồng thời vẫn giữ nguyên activecell

Các bạn có thể vào cửa sổ immediate để thử như sau:

[Z500].activate ' cell A1 sẽ biến khỏi màn hình
activewindow.ScrollColumn = 1: activewindow.ScrollRow = 1 ' cell A1 sẽ hiện trở lại màn hình
? activecell.Address ' đáp số: $Z$500 --> cell được chọn vẫn là Z500

Tôi đã từng:
1. nhắc nhở chủ thớt giải thích cho rõ ý của mình, trường hợp A1 bị ẩn thì sao?
2. giới thiệu kỹ thuật hiện cell mà không cần chọn
Nhưng chủ thớt chỉ biết tự ái vặt cái từ "lười biếng" mà không chịu đọc cho kỹ.

tb. Crtl+Home trogn VBA là Application.SendKeys "^{Home}"

 

[killitmore]

Mình nghĩ bạn có thể sử dụng tính năng Watch Window trong Excel đỡ phải code