Code Freeze Panels của các Sheets trong nhiều Files (1 người xem)

[baucua]

Các bạn giúp mình viết code trên file thứ 11 đáp ứng công việc sau:
Giả sử mình có 10 files,trong mỗi file có 10 sheets
Yêu cầu tự động duyệt 10 files này đóng băng (Freeze Panels) 10 sheets ở vị trí chọn
ô F6 vùng từ A1:F6

 

[ndu96081631]

Các bạn giúp mình viết code trên file thứ 11 đáp ứng công việc sau:
Giả sử mình có 10 files,trong mỗi file có 10 sheets
Yêu cầu tự động duyệt 10 files này đóng băng (Freeze Panels) 10 sheets ở vị trí chọn
ô F6 vùng từ A1:F6

Cái này bạn record macro rồi sửa code cũng được mà
Còn muốn "ăn liền" thì đây:

Sub MakeFreezePanes()
  Dim fn, Sh As Worksheet
  On Error Resume Next
  With Application.FileSearch
    .NewSearch
    .LookIn = ThisWorkbook.Path
    .Execute
    For Each fn In .FoundFiles
      If fn <> ThisWorkbook.FullName Then
        With Workbooks.Open(fn)
          For Each Sh In ActiveWorkbook.Worksheets
            Application.Goto Sh.Range("F6")
            ActiveWindow.FreezePanes = False
            ActiveWindow.FreezePanes = True
          Next Sh
          .Save
          .Close (True)
        End With
      End If
    Next fn
  End With
End Sub

 

[anh2hn]

Cái này bạn record macro rồi sửa code cũng được mà
Còn muốn "ăn liền" thì đây:

em cóp vào sheet có thây ăn liền gì đâu?

 

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

em cóp vào sheet có thây ăn liền gì đâu?

Vấn đề bạn "cóp" như thế nào và dán ở đâu, và cho nó chạy ra sao ?

-Mở file của bạn.
-Nhấn tổ hợp phím Alt+F11
-Insert\Module: Dán code đó vào.
-Nhấn F5 để chạy thử.
-Nhấn Alt+F11 để về bảng tính, kiểm nghiệm lại các file có trong folder của file chứa code coi đúng chưa.

Thân

 

[ongtrungducmx25]

đây là code bằng cách ghi lại macro đơn giảng thôi

Sub Macro1()
    Range("C6").Select
    ActiveWindow.FreezePanes = True
End Sub

còn file đính kèm thì mình lấy lại code của ndu96081631

chú ý : bạn click vào cell nào thì nó tự tìm và đóng băng cell đó luôn để chạy bạn chỉ cần ấn phím Ctrl+F8 chỉ đến lệnh macro tên là MakeFreezePanes

 

[baucua]

Code ndu96081631 chạy rất tốt, nhờ có cái này mà gần 600 sheets đã được xử lý nhanh chóng.
Thank so much