cố định cả 1 bảng tính ko bị kéo đi bởi thanh scroll

[MrSky1988]

Xin chào cả nhà!
Minh đang có 1 vấn đề thắc mắc cần các bác xử lý giúp em.
Em đang có 1 sheet như trên và muốn cố định 1 bảng tính khi em cuộn và kéo thanh Scroll thì nó ko bị chạy theo ạ!
Thanks cả nhà!

 

[leonguyenz]

Xin chào cả nhà!
Minh đang có 1 vấn đề thắc mắc cần các bác xử lý giúp em.
Em đang có 1 sheet như trên và muốn cố định 1 bảng tính khi em cuộn và kéo thanh Scroll thì nó ko bị chạy theo ạ!
Cảm ơn cả nhà!

Tiêu đề chung chung là bài sẽ bay về box Hậu viên.

 

[HeSanbi]

Nếu bạn biết cách sử dụng code thì copy đoạn code sau vào Code của Workbook
Thay đổi tên Sheet muốn đặt SrollArea , thay đổi giới giạn vùng chọn.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh is ThisWorkbook.Worksheets("Sheet1") then
       'Cách 1'
       ThisWorkbook.Worksheets("Sheet1").ScrollArea = "A1:H30"
       'Cách 2'
      'With Windows(1)
         'If Not .FreezePanes Then
             '.SplitRow = 30: .SplitColumn = 10: .FreezePanes = True
        'End If
      'End With
    End If
End Sub