精华内容
下载资源
问答
  • 点击按钮隐藏指定行 Private Sub CommandButton1_Click() '按钮名称,点击事件 If Rows("4:4").Hidden = True Then '以某一行为标识,根据一行的显示、隐藏做标识,hidden是否隐藏的标识 Range("4:4,9:10,13:13,21:...

    点击按钮隐藏指定行

    Private Sub CommandButton1_Click()
    '按钮名称,点击事件
    
    If Rows("4:4").Hidden = True Then
    '以某一行为标识,根据一行的显示、隐藏做标识,hidden是否隐藏的标识
    Range("4:4,9:10,13:13,21:21,23:25,28:28,30:32,35:37").Select
    '选中区域,数字标识具体的行
    Selection.EntireRow.Hidden = FLASE
    '设置属性为flase
    Range("A1").Select
    '选中a1单元格,否则上一行选中了隐藏行,不好看
    Else
    '切换是否隐藏
    Range("4:4,9:10,13:13,21:21,23:25,28:28,30:32,35:37").Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
    End If
    
    End Sub
    
    展开全文
  • VBA 隐藏指定workbook

    千次阅读 2019-11-02 20:46:47
    打开一个excel文件前需要验证时可用先隐藏该文件,然后通过验证后再设置为可见 代码: Private Sub Workbook_Open() Windows("****.xlsm").Visible = False '将当前workbook 设置为不可见 Login.Show '验证窗口 ...

    打开一个excel文件前需要验证时可用先隐藏该文件,然后通过验证后再设置为可见

    代码:

    Private Sub Workbook_Open()
        Windows("****.xlsm").Visible = False  '将当前workbook 设置为不可见
        Login.Show     '验证窗口
    End Sub
    

     

    展开全文
  • 和列的隐藏 实例代码2 单元格对象的AutoFilter(自动筛选)方法 实现代码3 单元格对象的AdvancedFilter(高级筛选)方法 ​​​​​​​ 示例: 在Excel中,经常使用自动筛选功能筛选数据,将某些条件的...

    目录

    示例:

    实现代码1

    行和列的隐藏

    实例代码2

    单元格对象的AutoFilter(自动筛选)方法

    实现代码3

    单元格对象的AdvancedFilter(高级筛选)方法


    ​​​​​​​

    示例:

        在Excel中,经常使用自动筛选功能筛选数据,将某些条件的数据显示而隐藏其他数据。如图所示,该表为某公司商品出口数据记录。现希望筛选出销往印度尼西亚的所有销售记录,并隐藏其他销售记录,该如何用VBA实现?

    日期产销国地区出口金额
    2010/1/1韩国A18879
    2010/1/1台湾省A17245
    2010/1/2土耳其A10500
    2010/1/2韩国A367
    2010/1/5印度尼西亚A33050
    2010/1/7印度尼西亚A22150
    2010/1/7印度尼西亚A20832
    2010/1/8香港A8216
    2010/1/9土耳其A19583
    2010/1/9突尼斯AF25200
    2010/1/9越南A51920
    2010/1/10俄罗斯联邦E37840
    2010/1/11台湾省A32032
    2010/1/11菲律宾A14586
    2010/1/12香港A6723
    2010/1/13韩国A19460
    2010/1/13台湾省A178507
    2010/1/13越南A6580
    2010/1/13荷兰E99084
    2010/1/14阿根廷SA12000
    2010/1/15南非AF22700
    2010/1/16泰国A23065
    2010/1/16加拿大NA20000
    2010/1/17澳大利亚A3783
    2010/1/18越南A1100
    2010/1/19比利时E54180
    2010/1/19叙利亚A6800
    2010/1/20马来西亚A16211
    2010/1/20阿拉伯联合酋长国A11120
    2010/1/20澳大利亚A9219
    2010/1/21泰国A5300
    2010/1/21埃及AF72260
    2010/1/22沙特阿拉伯A16980
    2010/1/22香港A2190
    2010/1/22巴西SA92340
    2010/1/23俄罗斯联邦E37180
    2010/1/24泰国A22800
    2010/1/24日本A21800
    2010/1/24韩国A152210
    2010/1/25法国E47103
    2010/1/25波兰E21062
    2010/1/27澳大利亚A23180
    2010/1/27阿尔及利亚AF36200
    2010/1/27英国E27210
    2010/1/28新加坡A22400
    2010/1/28委内瑞拉SA42140
    2010/1/28印度A15501
    2010/1/28日本A12650
    2010/1/29韩国A24766
    2010/1/29泰国A23148
    2010/1/30墨西哥SA36260
    2010/1/30香港A2125
    2010/1/31土耳其A12090
    2010/1/31韩国A21180
    2010/1/31印度尼西亚A22100
    2010/1/31印度尼西亚A7500
    2010/1/31南非AF21499
    2010/1/31俄罗斯联邦E34620

    实现代码1

    Option Explicit
    
    Sub 按条件隐藏数据行()
        Dim Rng As Range
        For Each Rng In Range(Range("B2"), Cells(Rows.Count, "B").End(xlUp))
            '判断是否为印度尼西亚
            If Rng.Value <> "印度尼西亚" Then
                Rng.EntireRow.Hidden = True
            End If
        Next
    End Sub

    行和列的隐藏

        Hidden属性是单元格对象(Range)的一个属性,该属性表示单元格是否隐藏,其值可为True或者False,当为True时,表示隐藏。
        Hidden属性仅能用于整行或整列的单元格区域,而不能用作某一个单元格。如本例中,当找到满足条件的数据单元格时,需要对该单元格所在的整行设置Hidden属性为True。若本例直接使用代码Rng. Hidden=True,则会出现如图所示的错误。

    实例代码2

    Sub 按条件隐藏数据行2()
        'criteria1,最后一个字符是数字1,不是字母l
        Range("A1").AutoFilter Field:=2, Criteria1:="印度尼西亚" 
    End Sub
    

    单元格对象的AutoFilter(自动筛选)方法

        自动筛选功能是Excel常用的一个重要功能之一,利用该功能可以方便地筛选并隐藏数据。在VBA中对应的方法为AutoFilter方法,该方法的语法为

    Rng.AutoFilter [Field],[Criteria1],[Operator],[Criteria2],[VisibleDropDown]

        其中,Rng为单元格,使用AutoFilter方法只需指明数据区域的任何一个单元格即可,因而本例使用A1单元格。

    •     参数Field为字段的序号,即表示该数据区域第几列为条件进行筛选。本例中需要以产销国为筛选条件,而该列为该数据区域的第2列,因而该参数设置为2。
    •     参数Criteria1和Criteria2为筛选的条件。本例只需要一个条件,筛选值为“印度尼西亚”的数据,因而可以直接设置Criterial为“印度尼西亚”。当筛选条件不等于“印度尼西亚”时,使用Criteria1:="印度尼西亚"
    •     参数Operator表示Criteria1和Criteria2的筛选条件操作符,可以为表中的任一常量。

                            表  AutoFilter方法的Operator参数

        常  量

     

        说  明

    xlAnd

    1

    Criteria1和Citeiia2的逻辑与

    xlOr

    2

    Criteria1和criteria2的逻辑或

    xlFilterCellColor

    8

    单元格颜色参数Criteria1的值为指定的颜色值)

    xlFilterDynamic

    11

    动态筛选

    xlFilterFontColor

    9

    字体颜色(参数Criteria1的值为指定的颜色值)

    xlFilterIcon

    10

    筛选图标

    xlFilterValues

    7

    筛选值

    xlBottom10Items

    4

    显示最低值项(参数Criteria1的值为指定的项数)

    xlBottom10Percent

    6

    显示最低值项(参数Criteria1的值为指定的百分数)

    xlToplOItems

    3

    显示最高值项(参数Criteria1的值为指定的项数)

    xlTop1OPercent

    5

    显示最高值项(参数Criteria1的值为指定的百分数)

    • 参数VisibleDropDown为是否显示下拉箭头,为True时表示显示,为False时表示不显示。

    ​​​​​​​实现代码3

    Sub 按条件隐藏数据行3()
        '创建临时条件区域
        Range("H1").Value = "产销国"
        Range("H2").Value = "印度尼西亚"
        '高级筛选
        Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("H1:H2"), unique:=False
        '清除临时条件区域
        Range("H1:H2").Clear
    End Sub

    单元格对象的AdvancedFilter(高级筛选)方法

        使用按条件的高级筛选功能时,需要创建一个条件区域。因而本例使用VBA首先创建一个临时的条件区域,高级筛选执行完成之后,删除该区域。该使用临时辅助区域的方法在VBA开发中是经常用到的。AdvancedFilter(高级筛选)方法对应工作表中高级筛选的基本操作,其语法为

     Rng.AdvancedFilter [Action ],[CriteriaRange],[CopyToRange],[Unique]

    其中,Rng为进行高级筛选的区域,该区域为完整的数据区域。

    •     参数Action为筛选的方式,xIFilterCopy表示将筛选结果复制到新区域,xIFilterInPlace表示在数据区域原地筛选。
    •     参数CriteriaRange表示条件区域。
    •     参数CopyToRange表示复制到的区域,该参数只有当Action参数设置为xIFilterCopy时才有效。
    •     参数Unique表示是否筛选不重复的记录,当为True时,表示筛选不重复记录,为False时表示筛选所有满足条件的记录。
       

     

    展开全文
  • 通过在主表输入框模糊查询表明,显示包含相关名的Sheet,除了主表外不匹配的表都会被隐藏
  • Excel 表 使用VBA 隐藏不需要的列

    千次阅读 2020-05-01 13:36:05
    最近需要处理 工作表 为了提高效率 记下vba 隐藏列的方法 在底部sheet tab 右键 选view code 或者 Alt+F11 打开代码界面 Sub filter() Dim i Dim title As String j = UsedRange.Rows.Count For i = 1 To ...

    最近需要处理 工作表 为了提高效率 记下vba 隐藏列的方法

    在底部sheet tab 右键 选view code 或者 Alt+F11 打开代码界面

    Sub filter()

        Dim i

        Dim title As String

        j = UsedRange.Rows.Count

        For i = 1 To UsedRange.Columns.Count '遍历的列数

            title = Cells(1, i)'遍历第一行的每一列

            If ( _

            title <> "Number" And _ '第i列 第一行不是Number 并且

            title <> "Date" And _ '第i列 第一行不是Data

             ) Then

            Columns(i).Hidden = True '隐藏这一列

            End If

        Next

    End Sub

    展开全文
  • VBA 列的隐藏和显示,密码验证 Sub button1_Click() 'default password finalPwd = "123456" ' If Sheets("Sheet1").Columns("E:G").Hidden = True Then 'INPUT PASSWORD inputPwd = InputBox("INPUT PASSWORD...
  • 快速隐藏周围区域__Excel VBA应用.rar,如果希望在工作表中只显示指定的部分区域,其余部分设置为隐藏,则需要多次使用行隐藏和列隐藏命令。本例的代码可以将选中的连续区域以外的区域一次性全部隐藏
  • 正在使用的工作簿,嫌窗口太多,不利于操作,想把窗口隐藏,该怎么做呢?Public Sub 隐藏正在使用的工作簿() Application.Visible = False MsgBox "已经隐藏工作簿!" MsgBox "下面即将还原正在使用的工作簿!" ...
  • vba 在网页中抓取指定内容

    千次阅读 2021-02-09 17:00:35
    vba程序到网站上抓取你想要的内容
  • ications (VBA) (Visual Basic for Applications (VBA):宏语言版本的 Microsoft Visual Basic,用来编写 Windows 应用程序,它包含在几种 Microsoft 应用程序中。) 代码,可以通过以 .accde 文件格式保存 Microsoft ...
  • Find方法按查找和按列查找的区别 实现代码2 获取工作表总行数 实现代码3 单元格对象的End属性 End属性的局限性 其他获取最后数据行行号的方法 1.定位(SpeciaICells) 2.UsedRange 实现代码4 3. ...
  • 1.利用VBA指定Excel表格在指定电脑打开: http://jingyan.baidu.com/article/148a1921ce4df54d71c3b18d.html?allowHTTP=1 引用上述网页的代码: Private Sub Workbook_Open()  Dim DriveID  Dim ...
  • Private Sub Worksheet_Activate() Dim A As Range, RN As Range, RNS As Range, i As Integer For Each A In [c6:c9,c12:c50] If A = "" And A.Height <> 0 Then k = k + 1 If k = 1 Then
  • 该资源实现VBA对文件的操作,包括:新建文件、打开文件、写入文件等以及实现自动添加超链接和新建sheet
  • 利用VBA,使用一个按钮实现工作表中指定插图的显示与隐藏切换。尝试了两种方法,每种方法在调试过程中都发生了点意外情况,本文对调试过程进行了总结和分析,此经验分享与大家,顺道换取点下载别人经验及知识的积分...
  • 有同学问:能不能使用union函数将符合条件的单元格所在全部选中,然后删除. 如下图:删除黄色底纹的标题 为此,给出代码如下: Sub test() Dim arr, myrow As String Dim cc As Variant, ran As Range r = Sheet...
  • 现需要筛选出所有上海的供应商采购记录,该如何用VBA实现? 商品编码 入库日期 部门 业务员 供应商 数量 单价 金额 GXGY023 2009/1/1 采购部 刘清 上海照明公司 200 41....
  • String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配。 语法 Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分: 部分 描述 pathname...
  • 这篇教程将教会你使用 CorelDRAW VBA代码来调用默认浏览器打开指定的网址(URL),并可同时指定打开后的浏览器的焦点模式。 注意:在32位和64位的Windows系统中,具体调用的方法有所不同。请看详细代码: 一、...
  • 即在工作袭标签所显示的名称 CodeName 工作表对象的名称 Viiible 工作表的可见性,可以为如下值 xlSheetVisible:显示工作表 xlSheetHidden:隐藏工作表,可以通过基本操作取消隐藏 xlSheetVeryHidden:深度隐藏,...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧3 获得指定行、列中的最后一个非空单元格 12 技巧4 定位单元格 12 技巧5 查找单元格 12 5-1 使用Find方法 12 5-2 使用Like运算符 12 技巧6 替换单元格内字符串 12 技巧7 复制单元格区域 12 技巧8 仅复制数值到另...
  • 对用户隐藏 VBA 代码

    2021-04-20 11:39:42
    如果 Access 数据库包含 Visual Basic for Applications (VBA) ,则可以通过将 数据库 保存为 .accde 文件格式来隐藏该代码。 将数据库保存为 .accde 文件会编译所有 VBA 代码模块,删除所有可编辑的源代码,并压缩...
  • 在 Excel 中,使用 Alt+F11 快捷键打开 VBA 项目窗口,在左侧的工作表名称上点右键,选择查看代码,即可出出现右侧的代码编辑窗口 Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range,...
  • 函数作用:取消隐藏工作表(包括vba Project工程保护的)88 '75.函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展...
  • VBA 有很多用于文件操作的语句和函数,能满足绝大多数场景下的文件操作要求。本文将按操作目的一一进行介绍。
  • 获取当前文件夹的名称(CurDir 函数)当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:CurDir([drive])Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。CurDir函数...
  • [VBA]探讨在工作表中找到最后一

    万次阅读 2012-02-02 14:35:42
    在ExcelVBA中,使用End(xlUp)查找最后一是最常使用且最为简单的方法,它假设要有一列总包含有数据(数字、文本和公式等),并且在该列中最后输入数据的单元格的下一不会包含数据,因此不必担心会覆盖掉已有数据。...
  • 大家好,我们今日讲解"VBA信息获取与处理"教程中第十七个专题"文件及文件夹信息的获取及操作"的第三节"利用VBA获取文件的信息和属性",这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序文件。...
  • 该楼层疑似违规已被系统折叠隐藏此楼查看此楼Sub 合并()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenhangNum = j + 1ActiveSheet.Cells(hangNum,...
  • 不能有空白; <p>4、新的Sheet页里面合并的数据格式为“常规”格式; <p>5、如果需要合并的数据有筛选或隐藏,在合并数据时取消筛选和隐藏,合并Sheet页里的所有数据; <p>6、...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,452
精华内容 980
关键字:

vba隐藏指定行