excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号
Sub Macro3()
Application.OnKey "^h", "sHide"
'仅隐藏选择的行 by lijilin
Application.OnKey "^+h", "sNHide"
'仅显示选择的行 by lijilin
Sub sHide()
Application.ActiveWorkbook.ActiveSheet.UsedRange.EntireRow.Hidden = False
Selection.EntireRow.Hidden = True
Sub sNHide()
Application.ActiveWorkbook.ActiveSheet.UsedRange.EntireRow.Hidden = True
Selection.EntireRow.Hidden = False
附程序：提取多重选择区的行列号，方便更复杂的数据操作
Sub Macro1()
Dim rg As Range
Set rg = Range("A1,B1:B3,C5:D8")
ad = rg.Address(ReferenceStyle:=xlR1C1)
s = rg.Areas(rg.Areas.Count).Address(ReferenceStyle:=xlR1C1)
'x = UBound(Split(s, ":"))
l = Split(Split(s, ":")(0), "C")
ksh = Split(l(0), "R")(1)
ksl = l(1)
If UBound(Split(s, ":")) & 0 Then
l2 = Split(Split(s, ":")(1), "C")
jsh = Split(l2(0), "R")(1)
jsl = l2(1)
没有更多推荐了，
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！如何使用 VBA 实现隐藏 Excel 2010 工作表？-正解问答-正解网8如何使用 VBA 实现隐藏 Excel 2010 工作表？作者：正解网来源：正解网链接：投票8好问题烂问题同问已同问修改分享扫码分享复制网址OK了，粘贴即可！解答:1个同问:0人浏览:119次修改提问如何使用 VBA 实现隐藏 Excel 2010 工作表？&&&&&提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交1个解答5正解隐藏工作表包括隐藏一个工作表和隐藏多个工作表，用户可按照指定的条件进行隐藏。利用 VBA 实现隐藏一个 Excel 2010 工作表只需要在代码窗口输入以下代码即可。具体操作方法如下：操作步骤1、点击 Excel 2010 「开发工具」选项卡下的「Visual Basic」按钮，打开 VBA 编辑器。2、在 VBA 窗口输入代码。1）隐藏一个 Excel 2010 工作表输入以下代码：Sub 隐藏一个工作表()Sheets(&Sheet2&).Visible=0 ’指工作表的显示属性End SubVisible 是工作表对象的属性，当其值为「0」或「xlSheetHidden」时将工作表隐藏，但可在 Excel 2010 中使用取消隐藏项取消该工作表的隐藏。如果 Visible 的值为 2 或 xlSheetVeryHidden
时，则会将 Excel 2010 工作表彻底隐藏，上述方法无法取消该工作表的隐藏。2）隐藏多个 Excel 2010 工作表输入以下代码：Sub 隐藏多个工作表()Sheets(Array(&Sheet1&,&Sheet2&)).Visible=0End Sub隐藏工作表包括隐藏一个工作表和隐藏多个工作表，用户可按照指定的条件进行隐藏。利用 VBA 实现隐藏一个 Excel 2010 工作表只需要在代码窗口输入以下代码即可。
具体操作方法如下：操作步骤
1、点击 Excel 2010 「开发工具」选项卡下的「Visual Basic」按钮，打开 VBA 编辑器。
2...作者：正解网来源：正解网链接：收藏已收藏感谢已感谢修改分享扫码分享复制网址OK了，粘贴即可！修改解答&&&&&隐藏工作表包括隐藏一个工作表和隐藏多个工作表，用户可按照指定的条件进行隐藏。利用 VBA 实现隐藏一个 Excel 2010 工作表只需要在代码窗口输入以下代码即可。
具体操作方法如下：
##操作步骤
1、点击 Excel 2010 「开发工具」选项卡下的「Visual Basic」按钮，打开 VBA 编辑器。
2、在 VBA 窗口输入代码。
1）隐藏一个 Excel 2010 工作表输入以下代码：
Sub 隐藏一个工作表()
Sheets(&Sheet2&).Visible=0 ’指工作表的显示属性
Visible 是工作表对象的属性，当其值为ĭ或「xlSheetHidden」时将工作表隐藏，但可在 Excel 2010 中使用取消隐藏项取消该工作表的隐藏。如果 Visible 的值为 2 或 xlSheetVeryHidden
时，则会将 Excel 2010 工作表彻底隐藏，上述方法无法取消该工作表的隐藏。
2）隐藏多个 Excel 2010 工作表输入以下代码：
Sub 隐藏多个工作表()
Sheets(Array(&Sheet1&,&Sheet2&)).Visible=0
End Sub提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交我的解答&&&&&提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交登录正解在 Excel 2010 中如何使用 VBA 隐藏指定单元格区域？-正解问答-正解网6在 Excel 2010 中如何使用 VBA 隐藏指定单元格区域？作者：正解网来源：正解网链接：投票6好问题烂问题同问已同问修改分享扫码分享复制网址OK了，粘贴即可！解答:1个同问:0人浏览:40次修改提问在 Excel 2010 中如何使用 VBA 隐藏指定单元格区域？&&&&&提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交1个解答8正解单元格对象的 Hidden 方法可以指定单元格区域的显示属性，当值为 True 时隐藏，当值为 False 时取消隐藏。在 Excel 2010 中可以使用 VBA 隐藏指定单元格所在行或列，也可以使用 VBA 隐藏单元格区域所在的行和列。具体操作方法如下：操作步骤1、点击 Excel 2010「开发工具」选项卡下的「 Visual Basic 」，打开 VBA 编辑器窗口。2、在 VBA 窗口中输入以下代码：1）隐藏 E6 单元格所在的行和列的代码：Sub 隐藏单个单元格所在的行和列()Range(&E6&).EntireRow.Hidden=TrueRange(&E6&).EntireColumn.Hidden=TrueEnd Sub当运行该程序后，即可隐藏 E 6所在的行和列。2）隐藏工作表中的 B2：D10 单元格区域所在的行和列的代码：Sub 隐藏单元格区域所在的行和列()Range(&B2:D10&).EntireRow.Hidden=TrueRange(&B2:D10&).EntireColumn.Hidden=True End Sub当运行该程序后，即可隐藏工作表中的 B2：D10 区域的行和列。其中，EntireRow 表示返回 Range 对象所对应的行；EntireColumn 表示返回 Range 对象所对应的列。单元格对象的 Hidden 方法可以指定单元格区域的显示属性，当值为 True 时隐藏，当值为 False 时取消隐藏。在 Excel 2010 中可以使用 VBA 隐藏指定单元格所在行或列，也可以使用 VBA 隐藏单元格区域所在的行和列。具体操作方法如下：操作步骤
1、点击 Excel 2010「开发工具」选项卡下的「 Vi...作者：正解网来源：正解网链接：收藏已收藏感谢已感谢修改分享扫码分享复制网址OK了，粘贴即可！修改解答&&&&&单元格对象的 Hidden 方法可以指定单元格区域的显示属性，当值为 True 时隐藏，当值为 False 时取消隐藏。在 Excel 2010 中可以使用 VBA 隐藏指定单元格所在行或列，也可以使用 VBA 隐藏单元格区域所在的行和列。具体操作方法如下：
##操作步骤
1、点击 Excel ;开发工具」选项卡下的「 Visual Basic 」，打开 VBA 编辑器窗口。
2、在 VBA 窗口中输入以下代码：
1）隐藏 E6 单元格所在的行和列的代码：
Sub 隐藏单个单元格所在的行和列()
Range(&E6&).EntireRow.Hidden=True
Range(&E6&).EntireColumn.Hidden=True
当运行该程序后，即可隐藏 E 6所在的行和列。
2）隐藏工作表中的 B2：D10 单元格区域所在的行和列的代码：
Sub 隐藏单元格区域所在的行和列()
Range(&B2:D10&).EntireRow.Hidden=True
Range(&B2:D10&).EntireColumn.Hidden=True End Sub
当运行该程序后，即可隐藏工作表中的 B2：D10 区域的行和列。其中，EntireRow 表示返回 Range 对象所对应的行；EntireColumn 表示返回 Range 对象所对应的列。提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交我的解答&&&&&提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交登录正解