Cách khóa giao diện Sheet giống File kèm theo (1 người xem)

[doibuonhokem]

Mình có tham khảo được File của 1 bạn và đã đính kèm hình ảnh theo dưới đây, mình xin hỏi các bạn là cách khóa các Sheet như File gốc bằng cách nào mà chỉ thấy được những cột, hàng nào mình sử dụng thôi còn các cột, hàng khác thì không thấy.

Ví dụ như mình tô tròn đỏ hình kèm theo đây ạ.

​

Cám ơn các bạn nhiều.

 

[be_09]

Cái đó người ta chỉ làm ẩn cột thôi, cách người ta làm vầy nè chọn cột cần ẩn và bấm giữ phím Shift, kéo thanh cuộn đến cột cuối cùng (Excel 2003 là IV), click vào cột IV và click phải chọn Hide, tiếp tục làm như thế cho dòng (thì giống hình trên.

Còn mấy cái hình chữ nhật xanh, đỏ chỉ là Shapes thôi.

 

[doibuonhokem]

Hi cám ơn bạn, nhưng Excel 2013 kéo mãi mà không đến cuột cuối cùng được

 

[befaint]

Hi cám ơn bạn, nhưng Excel 2013 kéo mãi mà không đến cuột cuối cùng được

Click chuột vào cell thuộc cột đầu tiên cần ẩn.
ctrl + space bar
ctrl + shift + left arrow (nhấn giữ cho tới khi nhảy tới abcxyz)
Click phải chuột, nhấn chữ cái H

 

[giaiphap]

Một cách khác sử dụng code thử thế nào nhé, quét chọn vùng (một vùng nhiều ô liền nhau) và cho chạy thử code sau, muốn trở lại như bình thường thì cho chạy code lại lần nửa.

Sub GPE()
On Error Resume Next
        Dim row1 As Long, row2 As Long
        Dim col1 As Long, col2 As Long
        If Rows(Rows.Count).EntireRow.Hidden Or _
            Columns(Columns.Count).EntireColumn.Hidden Then
            Cells.EntireColumn.Hidden = False
            Cells.EntireRow.Hidden = False
            Exit Sub
        End If
        row1 = Selection.Rows(1).Row:         row2 = row1 + Selection.Rows.Count - 1
        col1 = Selection.Columns(1).Column:   col2 = col1 + Selection.Columns.Count - 1
        Range(Cells(1, 1), Cells(row1 - 1, 1)).EntireRow.Hidden = True
        Range(Cells(row2 + 1, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True
        Range(Cells(1, 1), Cells(1, col1 - 1)).EntireColumn.Hidden = True
        Range(Cells(1, col2 + 1), Cells(1, Columns.Count)).EntireColumn.Hidden = True
End Sub

 

[be_09]

Hi cám ơn bạn, nhưng Excel 2013 kéo mãi mà không đến cuột cuối cùng được

Muốn chơi 1 nhát ăn ngay thì làm như vầy:

Chọn cột đầu tiên (ví dụ cột H), nhấn giữ phím Ctrl + Shift và nhấn vào mũi tên sang phải (nó sẽ chọn cột H đến cột cuối XFD), xong click phải chọn Hide.

 

[doibuonhokem]

Cảm ơn các bạn nhé