特黄特色三级在线观看免费,看黄色片子免费,色综合久,欧美在线视频看看,高潮胡言乱语对白刺激国产,伊人网成人,中文字幕亚洲一碰就硬老熟妇

學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>金山WPS教程>WPS表格教程>

WPS表格如何隱藏不使用區(qū)域

時(shí)間: 宇能938 分享

  學(xué)習(xí)啦小編教你在WPS表格隱藏不使用區(qū)域的方法,希望對你有幫助!

  WPS表格隱藏不使用區(qū)域的方法

  第一步,制作文檔。

  打開WPS表格 2009(在線文檔公測版),新建一個(gè)空白文檔,在一些區(qū)域輸入數(shù)字,作為使用區(qū)域。

  第二步,點(diǎn)擊“工具”—“宏”—“創(chuàng)建”新宏。

  第三步,在Microsoft Visual Basic中輸入或復(fù)制下列代碼。

  Sub HiddenSurroundRange()

  Dim CelFirst As Range, CelLast As Range

  If Not Selection Is Nothing Then

  With Selection

  '當(dāng)前選中區(qū)域的第一個(gè)單元格

  Set CelFirst = .Cells(1)

  '當(dāng)前選中區(qū)域的最后一個(gè)單元格

  Set CelLast = .Cells(.Cells.Count)

  End With

  If CelFirst.Address <> "$A class="main">

WPS表格如何隱藏不使用區(qū)域

時(shí)間: 宇能938 分享

  '藍(lán)色區(qū)域

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

  '如果當(dāng)前選中區(qū)域不包括第一行,則隱藏藍(lán)色區(qū)域所在的行

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

  '如果當(dāng)前選中區(qū)域不包括第一列,則隱藏藍(lán)色區(qū)域所在的列

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

  End With

  End If

  f CelLast.Address <> "$IV536" Then

  '與上面類似處理綠色區(qū)域

  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 IfEnd If

  End Sub

  第四步,執(zhí)行“視圖—工具—控件工具箱”,單擊“按鈕”,選擇合適的位置插入一個(gè)懸浮的“隱藏”按鈕,為它指定HiddenSurroundRange宏。

  第五步,選定使用區(qū)域,點(diǎn)擊“隱藏”按鈕,使用區(qū)域以外的區(qū)域一次性全部隱藏。

  小提示:WPS默認(rèn)安裝沒有VBA環(huán)境,也無法使用宏功能,若要實(shí)現(xiàn)教程所述功能,需要另外安裝VBA,WPSoffice在線文檔公測版可以共享文檔,只要有郵箱,就可以共享VBA文檔,免去尋覓、下載之苦。另外,由于實(shí)例中運(yùn)用了“宏”,在打開該文件時(shí)要啟用宏。

2042835