精华内容
下载资源
问答
  • 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
     

    更多相关内容
  • vba隐藏,显示

    千次阅读 2020-04-17 10:24:54
    2个页面(首页、数据库整理),在首页中D列填写1...支持选择性隐藏列;显示隐藏的列;隐藏所有的列 '隐藏列 Sub hidden_Click() Debug.Print "===========隐藏列时,在D列中填写1===========" Dim rowSize, j ...

    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
    

     

    展开全文
  • 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...

    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被保护了,解除保护即可。

    展开全文
  • excel加密工具,转化为exe,隐藏公式,加密VBA代码,可编辑、保存,发布无需安装额外软件,保护Excel的首选工具
  • VBA示例之 求人不如自已动手 取消隐藏工作表(包括vba Project工程保护的),供初学者参考,大牛勿进~~~~~~~
  • Sub VBA小程序_遍历所有工作表_取消隐藏所有行_() Dim shp As Shape, sht As Worksheet Rem On Error Resume Next '忽略报错,防止有#N/A Rem 遍历所有工作表,取消隐藏行 + For Each sht In Worksheets ...
  • 删除空余: Dim LastColumn As Long, c As Long LastColumn = ActiveSheet.UsedRange.Columns.Count LastColumn = LastColumn + ActiveSheet.UsedRange.Column For c = LastColumn To 1 Step -1 If ...
  • access vba 用代码隐藏隐藏左边导航栏

    千次阅读 2018-01-09 21:36:45
    Private Sub 隐藏工具栏_Click()  DoCmd.SelectObject acForm, , True  DoCmd.RunCommand acCmdWindowHide End Sub Private Sub 不隐藏工具栏_Click()  DoCmd.SelectObject acForm, , True ' DoCmd....
  • excel 透视表 vba 使用Excel VBA删除数据透视表计算字段 (Remove Pivot Table Calculated Field With Excel VBA)Yesterday, I started out with the best of intentions, planning to get some work done, and find ...
  • 表格有隐藏列的功能,可以对不同人员浏览时,设置不同的列的隐藏,来避免保密信息被浏览 通过对表格进行保护(禁止设置列的格式),防止手工去除列的隐藏 通过设置登录用户的方法,来区别不同人员的查看、编辑权限 ...
  • 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 ...
  • 行和隐藏 实例代码2 单元格对象的AutoFilter(自动筛选)方法 实现代码3 单元格对象的AdvancedFilter(高级筛选)方法 ​​​​​​​ 示例: 在Excel中,经常使用自动筛选功能筛选数据,将某些条件的...
  • 快速隐藏周围区域__Excel VBA应用.rar,如果希望在工作表中只显示指定的部分区域,其余部分设置为隐藏,则需要多次使用行隐藏列隐藏命令。本例的代码可以将选中的连续区域以外的区域一次性全部隐藏
  • 在Excel中实现隐藏列或行保护方法,保护后没有密码看不到隐藏的列。。。
  • VBA 获取最大行数和最大

    万次阅读 2020-01-12 09:19:29
    在EXCEL中,对数据进行定位操作,必然要用到数据区域的最大行和最大,代码如下: columnmax = Range("IV1").End(xlToLeft).Column '取得1行的最大数 columnmax =cells(i,columns.count).end(xltoletf).column 'i行...
  • Sub 批量修改文件内预算页脚列宽行高批注隐藏等() Dim fn$ Dim A As String A = ThisWorkbook.Name fn = Dir(ThisWorkbook.Path & "\*.xls*") Do If fn = A Then GoTo 100 End If Set Wb1 = Workbooks....
  • access表隐藏列隐藏

    千次阅读 2013-12-09 10:38:30
    打开ACCESS发现表没有,列也没有。 这时可通过“工具”-“选项”将【隐藏】前打上勾号。 所有隐藏表就显示出来了。 打开表发现列都没有。 右击,选择【显示隐藏列】 上海企业网站建设OK,万事大吉。
  • vba excel排序 Excel VBA单击“形状以对进行排序” (Excel VBA Click Shape to Sort Column)People are lazy! Shocking, I know, but who wants to click twice in Excel, if you can do the same thing by only ...
  • 随复选框的开关而将表格中的空行自动隐藏 判断空行,隐藏
  • Sub 针对所有工作表_取消所有行_所有隐藏项() Dim sht As Worksheet For Each sht In Worksheets sht.Activate Cells.EntireColumn.Hidden = False Cells.EntireRow.Hidden = False Next End Sub
  • VBA各种常规使用的排序方法详细,原代码
  • excel迷你图 vba 显示隐藏数据的Excel迷你图 (Show Excel Sparklines for Hidden Data) Do you use the sparklines that were introduced in Excel 2010? Last week, I was building a dashboard, and wanted to ...
  • 函数作用:取消隐藏工作表(包括vba Project工程保护的)88 '75.函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展...
  • 1 如果有的工作表sheet设置了 visible属性为 xlsheetVeryHide ... 在sheet表右键点菜单,也不会出现 取消隐藏,也就是无法通过 菜单呼出 2 方法1:在VBE编辑器内能看到深度隐藏的worksheet 3 方...
  • 当用户向上滑动手指,标题栏隐藏,从而为用户展示更多的数据,当用户向下滑动手指时显示标题栏
  • VBA EXCEL 常用代码

    2022-03-18 11:54:57
    1.显示活动工作簿名称 MsgBox " 当前活动工作簿是 " & ActiveWorkbook.Name 2. 保存活动工作簿 Activeworkbook.Save 3. 保存所有打开的工作簿关闭 EXCEL For Each W in ...5. 将工作表 sheet1 隐藏 She
  • Public Sub 隐藏B() ' ' 隐藏B Macro ' 宏由 Administrator 录制,时间: 2022/05/14 ' Dim total As Integer ' 整型变量,存放总行数 Dim counter As Integer ' 整型变量,for循环变量,每循环一次该值加1 Dim st$ '...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧164 号转换为标 12 技巧165 判断工作表是否为空表 12 技巧166 查找指定工作表 12 技巧167 查找指定工作簿是否打开 12 技巧168 取得应用程序的安装路径 12 技巧169 数组的使用 12 169-1 代码运行时创建数组 ...

空空如也

空空如也

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

vba隐藏列