Muốn cố định dòng, cột cho tất cả các sheet thì làm thế nào (1 người xem)

[LinDan]

Các sheet của tôi làm thế nào để có thể cố định dòng, cột tại ô C4, nhờ mọi người viết hộ Code

Tôi viết như sau mà không được

Sub AllSheet()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
Ws.[C4].Select
ActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = True
Next
End Sub

 

[dhn46]

Bạn sử dụng cái này xem

Sub freepanes_Click()
   Dim Ws As Worksheet
       For Each Ws In ThisWorkbook.Worksheets
          Ws.Select
          [c4].Select
          Application.ActiveWindow.FreezePanes = True
       Next
End Sub

 

[LinDan]

Cảm ơn anh, nhưng tôi cứ tưởng viết Ws.[c4].Select cũng đúng?

Bởi vì tôi thấy có một số bài tính toán viết wS. [C4].Font.Name = ".VnTime" cũng được mà.

 

[nghiaphuc]

Cảm ơn anh, nhưng tôi cứ tưởng viết Ws.[c4].Select cũng đúng?

Bởi vì tôi thấy có một số bài tính toán viết wS. [C4].Font.Name = ".VnTime" cũng được mà.

Những câu lệnh thiết lập thuộc tính hay thay đổi giá trị cho Range thì không cần phải "nhìn thấy mặt" range đó ra sao, nhưng mà câu lệnh Ws.[c4].Select thì lại không được, phải chọn sheet rồi mới chọn ô được, kiểu như "phải chui vào hang cọp mới bắt được cọp" vậy đó mà.

 

[ndu96081631]

Cảm ơn anh, nhưng tôi cứ tưởng viết Ws.[c4].Select cũng đúng?

Bởi vì tôi thấy có một số bài tính toán viết wS. [C4].Font.Name = ".VnTime" cũng được mà.

Thích kiểu đó thì viết vầy:

Sub AllSheet()
  Dim Ws As Worksheet
  For Each Ws In ThisWorkbook.Worksheets
    Application.Goto Ws.Range("C4")
    ActiveWindow.FreezePanes = False
    ActiveWindow.FreezePanes = True
  Next
End Sub

 

[LinDan]

Bái phục thày NDU quá, thích kiểu gì thày cũng làm được được.