WPS表格快速隱藏不使用的地區方法

 　　在自動化辦公中，如果希望在WPS表格中只顯示指定的部分地區，其餘部分設定為隱藏，則需要多次使用行隱藏和列隱藏命令。作為辦公高手，可以用VBA代碼將選中的連續地區以外的地區一次性全部隱藏。

　　第一步，製作文檔。

　　開啟WPS表格 2009(線上文檔公測版)，建立一個空白文檔，在一些地區輸入數字，作為使用地區。

　　第二步，點擊“工具”—“宏”—“建立”新宏。

　　第三步，在Microsoft Visual Basic 中輸入或複製下列代碼。

　　Sub HiddenSurroundRange()

　　Dim CelFirst As Range, CelLast As Range

　　If Not Selection Is Nothing Then

　　With Selection

　　'當前選中地區的第一個儲存格

　　Set CelFirst = .Cells(1)

　　'當前選中地區的最後一個儲存格

　　Set CelLast = .Cells(.Cells.Count)

　　End With

　　If CelFirst.Address <> "$A$1" Then

　　'藍色地區

　　With Range([a1], CelFirst.Offset(IIf(CelFirst.Row = 1, 0, -1), IIf(CelFirst.Column = 1, 0, -1)))

　　'如果當前選中地區不包括第一行，則隱藏藍色地區所在的行

　　If CelFirst.Row <> 1 Then .EntireRow.Hidden = True

　　'如果當前選中地區不包括第一列，則隱藏藍色地區所在的列

　　If CelFirst.Column <> 1 Then .EntireColumn.Hidden = True

　　End With

　　End If

　　If CelLast.Address <> "$IV$65536" Then

　　'與上面類似處理綠色地區

　　With Range(CelLast.Offset(IIf(CelLast.Row = 65536, 0, 1), IIf(CelLast.Column = 256, 0, 1)),

　　[IV65536])

　　If CelLast.Row <> 65536 Then .EntireRow.Hidden = True

　　If CelLast.Column <> 256 Then .EntireColumn.Hidden = True

　　End With

　　End If

　　End If

　　End Sub

　　第四步，執行“視圖—工具—控制項工具箱”，單擊“按鈕”，選擇合適的位置插入一個懸浮的“隱藏”按鈕，為它指定HiddenSurroundRange宏。

　　第五步，選定使用地區，點擊“隱藏”按鈕，使用地區以外的地區一次性全部隱藏。

　　小提示：WPS預設安裝沒有VBA環境，也無法使用宏功能，若要實現教程所述功能，需要另外安裝VBA，WPS office線上文檔公測版可以共用文檔，只要有郵箱，就可以共用VBA文檔，免去尋覓、下載之苦。另外， 由於執行個體中運用了“宏”，在開啟該檔案時要啟用宏。