vba隐藏模块代码（通过excelVBA代码隐藏满足条件的列）

本文目录

• 通过excelVBA代码隐藏满足条件的列
• Excel vba 如何通过代码隐藏文档标题
• Excel VBA单元格的插入、隐藏
• EXCEL表格中使用VBA如何自动隐藏不经常看到的表格
• excel VBA 按条件 显示/隐藏工作表
• 如何显示和隐藏VBA控件中的按钮

通过excelVBA代码隐藏满足条件的列

右击工作表标签（比如Sheet1）——查看代码，

复制粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VC1 As Integer
    If Target.Address 《》 Range("C1").Address Then Exit Sub
    VC1 = Range("C1").Value
    If VC1 《 2 Or VC1 》 31 Then Exit Sub
    Columns("D:AH").Hidden = False
    Range(Range("D1"), Range("D1").Offset(, VC1 - 2)).EntireColumn.Hidden = True
End Sub

示例：

【注：输入数据 《2 或》31  不进行处理】

Excel vba 如何通过代码隐藏文档标题

您可以使用VBA代码隐藏Excel文档的标题栏。以下是示例代码：
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000
Sub HideTitleBar()
Dim hwnd As Long
hwnd = FindWindowA("XLMAIN", Application.Caption)
If hwnd 《》 0 Then
SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) And Not WS_CAPTION
End If
End Sub
这段代码通过调用Windows API函数，找到Excel窗口的句柄，然后通过设置窗口风格来隐藏标题栏。将代码复制到VBA器中，然后运行HideTitleBar()子过程即可隐藏标题栏。请注意，这会影响到整个Excel应用程序的标题栏，而不仅仅是当前文档的标题栏。

Excel VBA单元格的插入、隐藏

表格中间的行或单元格不足时，需要插入新的行或单元格：当工作表的某些数据不需显示时，又需要对它进行隐藏。利用ExcelVBA 对单元格进行操作时也要涉及单元格的插入与隐藏，本节将介绍如何利用Excel VBA 控制单元格的插入和隐藏。

单元格的插入可以通过Insert 方法来实现。下面就不同要求来介绍单元格插入（Insert)方法。

指定行和列前插入一个空行和空列 下面的代码可以在第3 行前插入一个空行并在第2 列前插入一个空列。 sub 指定行列前插入空行() rows(2).insert columns(3).insert end sub

执行代码结果如下图所示：

指定行或列前插入多行和多列 Sub 指定行列前插入空行() Rows("2:4").Insert Columns("c:f").Insert End Sub

执行结果如下图所示

下列代码运行后可实现在B3:C3 单元格区域上方插入高度为三行单元格区域 Range("b3:c5").Insert shift:=xlDown Range（”B3:C5”）.Insert：插入和B3:C5 一样大小的区域。 shift:=x肌m：原来单元格向下移动。问方法的幽自变量表示原有单元格区域的移动方向。如果是shift:=xltoright 则表示向右移动。

执行结果如下图所示

单元格对象的Hidden 方法可以指定单元格区域的显示属性。当值为True 时隐藏，当值为False 时取消隐藏 Range(”B2”).EntireRow.Hidden=True Range(”B2”).EntireRow.Hidden=False

在Excel 中无法隐藏单个单元格，只能通过隐藏指定单元格所在行来实现隐藏该单元格的目的。 Range(”B2”).EntireRow: EntireRow 表示单元格B2 所在的行，即第2 行。 Range(”B2").EntireColumn: EntireColumn 表示单元格B2 所在的列，即第2 列。 Range（B2:D10").EntireRow: B2:Dl0 区域所在的第2 行至第10 行。 Range（”B2:D10"）.Ent让eColumn: B2:Dl0 区域所在的B 列至D 列。

EXCEL表格中使用VBA如何自动隐藏不经常看到的表格

可以做一个自动运行宏，在工作簿打开时自动执行，执行的结果是只显示表1与表2，隐藏其他表。
Private
Sub
Workbook_Open()
For
i
=
1
To
Worksheets.Count
If
Sheets(i).Name
《》
"Sheet1"
And
Sheets(i).Name
《》
"Sheet2"
Then
Sheets(i).Visible
=
False
End
If
Next
End
Sub

excel VBA 按条件 显示/隐藏工作表

Sub 显示首页()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name 《》 "首页工作表" Then sht.Visible = False
Next
End Sub
Sub 显示首页及A系列工作表()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name = "首页工作表" Or Left(sht.Name, 1) = "A" Then
   sht.Visible = True
 Else
   sht.Visible = False
End If
Next
End Sub
Sub 显示首页及B系列工作表()
Dim sht As Worksheet
For Each sht In Worksheets
 If sht.Name = "首页工作表" Or Left(sht.Name, 1) = "B" Then
   sht.Visible = True
 Else
   sht.Visible = False
End If
Next
End Sub

如何显示和隐藏VBA控件中的按钮

rivate Sub CommandButton1_Click()；

If Me.Columns("B").Width = 0 Then；
Me.Columns("B").Hidden = False；

Me.Columns("D").Hidden = False；

Me.Columns("F").Hidden = False；

Else

Me.Columns("B").Hidden = True；

Me.Columns("D").Hidden = True；

Me.Columns("F").Hidden = True；

End If

Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。

该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。

由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率。

例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单）等。