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]

[h=2]đã thao tác[/h]

Câu trên là sao? chẳng thành viên nào hiểu câu này.

 

[ndu96081631]

Câu trên là sao? chẳng thành viên nào hiểu câu này.

Tức là làm sao đó để luôn luôn nhìn thấy được cell A1 (ở tất cả các sheet)

 

[be_09]

Tức là làm sao đó để luôn luôn nhìn thấy được cell A1 (ở tất cả các sheet)

Ý anh hiểu chủ Topic có 1 File với tất cả các sheet có cột A nằm bên phải màn hình (thông thường khi mở bất kỳ File nào thì mặc định cột A luôn luôn nằm bên trái).

Với Excel 2010 thì chỉ chỉnh được riêng cho từng sheet, còn chỉnh 1 lần cho tất cả các sheet thì không được vì không chọn được Workbook, còn Excel 2003, 2007, 2013 anh chưa thử nên chưa biết có chỉnh được 1 lần hay không?

 

[befaint]

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.

Sau khi thao tác... , rồi tắt file thì vị trí cell đang chọn ở tại các sheet nằm chỗ nào đó không phải là cell A1 (cell A1 bị khuất khỏi màn hình)
và bạn muốn khi mở file lên thì cell A1 ở vị trí như khi mở 1 file Excel mới?
Hiểu vậy không biết đúng ý không..
Bạn chép đoạn sau vào ThisWorkbook:

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim sh As Worksheet, wh As Worksheet
Set wh = ThisWorkbook.ActiveSheet
For Each sh In ThisWorkbook.Worksheets
    sh.Activate
    sh.Range("A1").Select
Next
wh.Select
Application.ScreenUpdating = True
End Sub

Lưu file (.xls, .xlsm, .xlsb), tắt file rồi mở lại.

 

[CuocTinhChoMaiSau]

Chào bạn befaint
Ý của tôi là khi mở File luôn nhìn thấy Cell A1 ở mọi Sheet.
Code của bạn mới dừng lại ở việc chọn Cell A1 ở mọi Sheet.
Chúc bạn năm mới mọi sự như ý.

 

[befaint]

Ý của tôi là khi mở File luôn nhìn thấy Cell A1 ở mọi Sheet.

Xin hỏi là đứng ở bất kỳ sheet nào cũng nhìn thấy cell A1 của tất cả các sheet trong workbook?
À mà thôi...

 

[CuocTinhChoMaiSau]

Xin hỏi là đứng ở bất kỳ sheet nào cũng nhìn thấy cell A1 của tất cả các sheet trong workbook?
À mà thôi...

Tôi xin nói rõ:
Ví dụ tôi có 10 Sheet, tính từ Sheet1 đến Sheet10. Vậy thì khi tôi mở Sheet1 tôi nhìn thấy Cell A1 của Sheet1, ..., mở Sheet10 tôi cũng nhìn thấy Cell A1của Sheet10.

 

[Phuocam]

Tôi xin nói rõ:
Ví dụ tôi có 10 Sheet, tính từ Sheet1 đến Sheet10. Vậy thì khi tôi mở Sheet1 tôi nhìn thấy Cell A1 của Sheet1, ..., mở Sheet10 tôi cũng nhìn thấy Cell A1của Sheet10.

Bạn chép thử đoạn này vào ThisWorkbook:

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

 

[VetMini]

Tôi xin nói rõ:
Ví dụ tôi có 10 Sheet, tính từ Sheet1 đến Sheet10. Vậy thì khi tôi mở Sheet1 tôi nhìn thấy Cell A1 của Sheet1, ..., mở Sheet10 tôi cũng nhìn thấy Cell A1của Sheet10.

Bạn nói như thế vẫn chưa rõ:
1. Yêu cần này khác với yêu cầu ban đầu (#1). Mở sheet khác với mở book.
2. Nếu vì lý do nào đó, A1 bị che đi (hidden/filtered, ...) thì sao? có mở nó ra không?

Nếu không hidden, chỉ vỏn vẹn có phím tắt Ctrl+home mà cũng làm biếng ????

 

[befaint]

2. Nếu vì lý do nào đó, A1 bị che đi (hidden/filtered, ...)...

Nếu chỉ filtered thì cell A1 không bị che đi chứ ạ.
Nếu có Freeze thì ctrl + Home chưa chắc về cell A1.

 

[CuocTinhChoMaiSau]

Bạn nói như thế vẫn chưa rõ:
1. Yêu cần này khác với yêu cầu ban đầu (#1). Mở sheet khác với mở book.
2. Nếu vì lý do nào đó, A1 bị che đi (hidden/filtered, ...) thì sao? có mở nó ra không?

Nếu không hidden, chỉ vỏn vẹn có phím tắt Ctrl+home mà cũng làm biếng ????

Không phải vì tôi làm biếng như bác nói, có điều tôi đang "thiết kế" 1 File cho người khác dùng. Tôi không muốn khi người dùng mở từng Sheet trong File ra họ không phải dùng bàn phím hay trỏ chuột để tìm tới cột A, B,C... nơi đó là nơi cần bổ sung dữ liệu đầu vào.
Vậy thôi, vì vậy mới cần các bác giúp 1 tay, tự động bằng VBA code.

 

[CuocTinhChoMaiSau]

Bạn chép thử đoạn này vào ThisWorkbook:

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

Chưa đúng như ý muốn bạn ah.

 

[ptm0412]

Không phải vì tôi làm biếng như bác nói, có điều tôi đang "thiết kế" 1 File cho người khác dùng. Tôi không muốn khi người dùng mở từng Sheet trong File ra họ không phải dùng bàn phím hay trỏ chuột để tìm tới cột A, B,C... nơi đó là nơi cần bổ sung dữ liệu đầu vào.
Vậy thôi, vì vậy mới cần các bác giúp 1 tay, tự động bằng VBA code.

Nếu vậy phải ấn định ScrollArea, không nhất thiết phải là A1.
Và nếu cần A1 thì select cũng đã được rồi, tôi đã test code bài #5 và đã đạt, chỉ cần bỏ ScreenUpdating đầu và cuối. Chớp chớp thì phải chịu.

 

[be_09]

Không phải vì tôi làm biếng như bác nói, có điều tôi đang "thiết kế" 1 File cho người khác dùng. Tôi không muốn khi người dùng mở từng Sheet trong File ra họ không phải dùng bàn phím hay trỏ chuột để tìm tới cột A, B,C... nơi đó là nơi cần bổ sung dữ liệu đầu vào.
Vậy thôi, vì vậy mới cần các bác giúp 1 tay, tự động bằng VBA code.

Vậy bạn thử cái này, sẽ đóng băng từ A1:C2 của tất cả các sheet có trong File của bạn.

Sub DongBang()
Dim sh As Worksheet
Application.ScreenUpdating = False   
   For Each sh In Worksheets      
      sh.Activate      
      Range("D3").Select   
      ActiveWindow.FreezePanes = True   
   Next sh
Application.ScreenUpdating = True
End Sub

 

[CuocTinhChoMaiSau]

Xin cảm ơn mọi sự chia sẻ của các thành viên. Tuy nhiên những đoạn Code trên vẫn chưa tháo gỡ được khó khăn của tôi.

 

[CuocTinhChoMaiSau]

Nếu vậy phải ấn định ScrollArea, không nhất thiết phải là A1.
Và nếu cần A1 thì select cũng đã được rồi, tôi đã test code bài #5 và đã đạt, chỉ cần bỏ ScreenUpdating đầu và cuối. Chớp chớp thì phải chịu.

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

 

[ptm0412]

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

Cái tôi đã test (code bài #5, bỏ 2 câu ScreenUpdating), là cái đã "nhìn thấy". Chỉ có bạn là chưa thấy thôi.
Và cái tôi gợi ý, đó là để nhìn và để sử dụng (ScrollArea).

 

[befaint]

Chắc bạn chủ topic chưa test code (thấy .select nghĩ là chọn) hoặc mọi người chưa hiểu được yêu cầu của bạn đó.
Nên chăng bạn chủ topic biểu đạt rõ ràng, cụ tỉ yêu cầu của mình (chú ý sử dụng đúng thuật ngữ như bài #10 đã nêu).
p/s: Đọc đến bài #17 là chạy rồi. Thấy bài #18 vào "chém" phát cuối.

 

[VetMini]

Activewindow.ScrollRow = 1
Activewindow.ScrollColumn = 1

Nếu A1 khong bị hidden thì sẽ hiện ra bên trái màn hình.
Lỡ cell đang chọn nằm ngoài thì không nhìn thấy con trỏ ráng chịu - người dùng vẫn phải nhấn Ctrl+Home