国产宅男网站在线|亚洲A级性爱免费视频|亚洲中精品级在线|午夜福利AA毛

  • <dd id="gf5jf"><th id="gf5jf"></th></dd>

    <cite id="gf5jf"><label id="gf5jf"></label></cite>
  • <div id="gf5jf"><listing id="gf5jf"></listing></div>
    學(xué)習(xí)啦>學(xué)習(xí)電腦>工具軟件>辦公軟件學(xué)習(xí)>Excel教程>Excel2007教程>

    Excel2007如何將無數(shù)據(jù)空列隱藏

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

      在Excel操作中,我們有時(shí)需要自動(dòng)的隱藏某些空列,如何自動(dòng)的實(shí)現(xiàn)呢?這就需要用到VBA代碼,具體怎么做?對(duì)于新手來說還是有一定難度,怎么辦?下面學(xué)習(xí)啦給大家分享Excel2007將無數(shù)據(jù)空列隱藏的方法。

      Excel2007將無數(shù)據(jù)空列隱藏的方法

      打開Excel文件,設(shè)置表單控件按鈕并明確要隱藏列的數(shù)據(jù)范圍。

      同時(shí)按下ALT+F11鍵,在VBA代碼書寫界面寫下VBA代碼,如下。

      保存后,返回Excel SHEET表內(nèi),將表單按鈕指定到宏。

      點(diǎn)擊按鈕,直接運(yùn)行宏代碼,運(yùn)行后的效果如下,空列被隱藏了起來。

      對(duì)VBA代碼的解釋,隱藏區(qū)域內(nèi)的空列。

      Sub 運(yùn)行代碼()

      Dim Cel As Range

      For Each Cel In Worksheets("數(shù)據(jù)").Range("A1:Z1")

      If Cel = "" Then

      Cel.EntireColumn.Hidden = True

      Else

      Cel.EntireColumn.Hidden = False

      End If

      Next

      End Sub

      -------------------------------------------------------

      1.Sub后為宏的名稱,也為指定的名稱

      2.將Cel屬性定義為范圍

      3.在數(shù)據(jù)工作表A1:Z1范圍內(nèi)逐個(gè)的查找

      4.For next,如果單元格為空,則所在整列隱藏,如果不為空,則整列不隱藏。

      5.If then else end if語句

      6.End sub結(jié)束宏

      7.EntireColumn整列 EntireColumn整行 Hidden隱藏

      8.Then 和Else的語句必須在下一行


    猜你感興趣:

    1.excel2007取消隱藏列的設(shè)置教程

    2.2007excel表格隱藏后無法取消隱藏

    3.excel怎么隱藏列和取消隱藏列

    4.excel隱藏列怎么不能取消隱藏

    2475503