精华内容
下载资源
问答
  • excel - VBA - 显示或隐藏指的
    2021-10-11 17:07:49

    点击按钮,显示或隐藏包含Sa或Su的列:

    Public hiddenTrigger As Integer '0: hide Sat&Sun; 3:unhide

    Sub RectangleBeveled9_Click()
        Dim i, j As Integer
        i = 6
        j = Worksheets(1).UsedRange.Columns.Count 'max column number
        Rem MsgBox ("Column Max No.:" & j)
        Rem MsgBox ("hidden:" & hiddenTrigger)
        For i = 6 To j
            If Cells(5, i) = "Sa" Or Cells(5, i) = "Su" Then 'cells(row,column)
                Rem MsgBox ("Column No.:" & I)
                Rem exit for
                Set hideColumns = Columns(i)
                If hiddenTrigger = 0 Then
                    hideColumns.Hidden = True
                Else
                    hideColumns.Hidden = False
                End If
            End If
        Next
        
        If hiddenTrigger = 0 Then
            hiddenTrigger = 3
        Else
            hiddenTrigger = 0
        End If
        
        
    End Sub
     

    更多相关内容
  • 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隐藏,显示

    千次阅读 2020-04-17 10:24:54
    2个页面(首页、数据库整理),在首页中D填写1来选择数据库整理页面中要隐藏。首页中C内容通过超链接连接到数据库整理页面的对应中。 支持选择性隐藏列;显示隐藏隐藏所有的 '隐藏列 Sub ...

    2个页面(首页、数据库整理), 在首页中D列填写1来选择数据库整理页面中要隐藏的列。 首页中C列内容通过超链接连接到数据库整理页面的对应列中。

    支持选择性隐藏列;显示隐藏的列;隐藏所有的列

    '隐藏列
    Sub hidden_Click()
        Debug.Print "===========隐藏列时,在D列中填写1==========="
        Dim rowSize, j
        rowSize = Range("C2").End(xlDown).Row
        Debug.Print "选中数量:", rowSize
        
        For j = 2 To rowSize
            selectOk = LTrim(RTrim(Range("D" & j).Value))
            If selectOk = 1 Then
                '获取内容对应的链接地址
                'addr = Range("C" & j).Hyperlinks(1).SubAddress
                'tmp = Split(addr, "!")
                'linkAddr = tmp(1)
                'Debug.Print "内容:", Range("C" & j).Value, "超链接地址:", addr, linkAddr
                
                '通过内容名称找到超链接对应的列,然后隐藏 (名称必须相同否则无法隐藏)
                colValue = Range("C" & j).Value
                hidden_column (colValue)
            End If
        Next
        
    End Sub
    
    '隐藏选中的列
    Function hidden_column(colValue)
    
        Debug.Print "隐藏列:", colValue
        Sheets("数据库整理").Select
        
        Set rng1 = Cells.Find(colValue)
        rng1.Select
        
        Selection.EntireColumn.Hidden = True
        Sheets("首页").Select
    End Function
    
    
    '显示所有隐藏的列
    Sub show_Click()
        Debug.Print "==========显示所有的列=========="
        Sheets("数据库整理").Cells.EntireColumn.Hidden = False
        Sheets("首页").Select
    End Sub
    
    
    '隐藏所有的列
    Sub hidden_all_Click()
    
            Debug.Print "==========隐藏所有的列=========="
            
            Debug.Print "总列数:", Sheets("数据库整理").UsedRange.Columns.Count
            
            Sheets("数据库整理").UsedRange.Columns.Hidden = True
            Sheets("首页").Select
    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...

    VBA 列的隐藏和显示,密码验证

    Sub button1_Click()
      'default password
      finalPwd = "123456"
    
      '
      If Sheets("Sheet1").Columns("E:G").Hidden = True Then
         'INPUT PASSWORD
         inputPwd = InputBox("INPUT PASSWORD!", "INFO", Default)
         
         If finalPwd = inputPwd Then
            Sheets("Sheet1").Columns("E:G").Hidden = False
         Else
            MsgBox ("password error!")
         End If
      Else
         Sheets("Sheet1").Columns("E:G").Hidden = True
      End If
    End Sub
    
    

    效果验证:
    在这里插入图片描述
    按下【button】,输入密码
    在这里插入图片描述
    指定列表示
    在这里插入图片描述

    ※显示隐藏的时候如果报 Range类无法定义Hidden,是因为sheet被保护了,解除保护即可。

    展开全文
  • 行和隐藏 实例代码2 单元格对象的AutoFilter(自动筛选)方法 实现代码3 单元格对象的AdvancedFilter(高级筛选)方法 ​​​​​​​ 示例: 在Excel中,经常使用自动筛选功能筛选数据,将某些条件的...
  • excel vba Excel VBA:将标题切换为数字 (Excel VBA: Switch Column Headings to Numbers) It's Friday, and your brain is almost full, but let's try to cram a little bit of Excel VBA in there before ...
  • 快速隐藏周围区域__Excel VBA应用.rar,如果希望在工作表中只显示指定的部分区域,其余部分设置为隐藏,则需要多次使用行隐藏列隐藏命令。本例的代码可以将选中的连续区域以外的区域一次性全部隐藏
  • 随复选框的开关而将表格中的空行自动隐藏 判断空行,隐藏
  • 点击按钮隐藏指定行 Private Sub CommandButton1_Click() '按钮名称,点击事件 If Rows("4:4").Hidden = True Then '以某一行为标识,根据一行的显示、隐藏做标识,hidden是否隐藏的标识 Range("4:4,9:10,13:13,21:...
  • 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 仅复制数值到另...
  • 当将多列列表框的数据写入工作表中时,只能将boundcolumn属性所指定列中的值写入工作表,而不能将选中的整行内容写入工作表中。如果需要将选中行的整行内容写入工作表,则需要用到以上循环。 当然也可以用数组的...
  • 函数作用:返回指定列数的列标.......................42 '13.函数作用:用指定字符替换某字符.....................43 '14.函数作用:从右边开始查找指定字符在字符串中的位置...43 '15.函数作用:从右边开始查找指定...
  • 利用的自动隐藏实现不同浏览权限自动设置需求实现思路及方案主要界面 需求 表格中的某些的内容属于保密内容,但表格又要放到公共区供不同人员浏览,需要对设置权限,确保即能够共享信息,又能保护保密内容 ...
  • 指定Sheet工作表的数据合并; 要求: <p>1、如上图,有两个工作簿,每个工作簿里有多个工作表,需要将两个工作簿指定Sheet工作表(战力值排名)的数据合并在一个新工作...
  • 由于在记录时并未标记供应商来源地,只能通过E供应商名称中寻找。现需要筛选出所有上海的供应商采购记录,该如何用VBA实现? 商品编码 入库日期 部门 业务员 供应商 数量 单价 金额 GXGY...
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • Sheets("AddSheet").Select Sheets("AddSheet").Activate Range("A1").Select i = 0 ReDim ar(i) '// loop A Do '// cell值取得 s = ActiveCell.Offset(i, 0).Value '// cell值为空的场合 If (s = "") Then '// ...
  • 要使用VBA,首先打开你的Excel电子表格,然后将Microsoft Visual Basic窗口打开,这样才能使用VBA代码!  方法是:在Excel中直接按下组合键Alt F11即可打开VB窗口,倘若VB默认没有打开代码窗口,请执行操作:...
  • Excel Vba范例

    2022-02-16 14:02:03
    实例1选择A最后一个非空单元格 Sub 选择A最后一个非空单元格() Range("a1048576").End(xlUp).Select End Sub 讲解 (1)Range():返回一个Range对象,它代表一个单元格或单元格区域。区域的大小由其参数决定...
  • Vba菜鸟教程

    万次阅读 多人点赞 2020-05-02 18:21:15
    文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作...
  • VBA dialogs 调用对话框

    2021-11-03 12:05:43
    XlBuiltInDialog 枚举 (Excel) 指定要显示的对话框。 名称 值 说明 xlDialogOpen 1 【打开】对话框 xlDialogOpenLinks 2 【打开链接】对话框 xlDialogSaveAs 5 【另存为】对话框 xlDialogFileDelete 6 【文件删除】...
  • VBA 数据透视表的创建

    千次阅读 2021-01-21 15:21:37
    是否启用汇总 .RowGrand 读/写 Boolean True 是否启用行汇总 .HasAutoFormat 读/写 Boolean True 数据透视表在刷新或移动域时自动设置格式 .DisplayErrorString 读/写 Boolean False 如果数据透视表在有错误...
  • VBA透视表

    千次阅读 2019-05-11 23:34:29
    VBA透视表代码示例,有需要的朋友,复制粘贴稍微修下基本就可以了。
  • 在之前的文章中我们学习了VBA的基本语法,接下来我们就要学习如何使用VBA开发宏命令脚本,如何与Excel进行交互。 我了解的内容仅限于我自己的使用,可能并不系统,还请谅解。 首先我们可能需要操作Sheet页 1....
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧3 获得指定行、中的最后一个非空单元格 17 技巧4 定位单元格 20 技巧5 查找单元格 21 5-1 使用Find方法 21 5-2 使用Like运算符 25 技巧6 替换单元格内字符串 26 技巧7 复制单元格区域 27 技巧8 仅复制数值到另...
  • 读取文件信息是进行多工作簿汇总的基本步骤之一,如图所示,如何利用VBA获取A2单元格所示路径的文件夹下所有的文件清单? 文件路径 D: 文件清单 实现代码 Option Explicit Sub 创建文件清单() Dim sPath...
  • VBA常用代码合集

    万次阅读 多人点赞 2020-12-19 11:13:11
    VBA常用代码模版Tp0️⃣—零零散散小功能(持续更新)Tp1️⃣—输出活动页面筛选后的行数Tp2️⃣—创建数组存放数据Tp2-1 静态数组Tp2-2 动态数组Tp3... ' 剪切一列到指定列 With ThisWorkbook.Sheets(2) .[AI:AI]
  • 如何在Excel中用VBA代码清除组合框的内容?通常,您可以通过清除输入范围列表数据来清除组合框的内容。 但是,如何清除Excel工作表中所有组合框的内容? 本文准备了两个VBA代码,它们不仅可以帮助您清除组合框的内容...
  • 【excel vba】自动触发事件

    千次阅读 2020-08-02 22:15:38
    Workbook_Open打开触发事件 application.EnableEvents响应触发事件 登录页面 避免别人看到工作表的其他内容 before close & open 1、在before close隐藏除第一页外的所有表 2、在打开open事件中输入字 3、循环隐藏...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,797
精华内容 718
热门标签
关键字:

vba隐藏指定列