excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号

Sub Macro3()
Application.OnKey "^h", "sHide"   '仅隐藏选择的行2013.3.15 by lijilin
Application.OnKey "^+h", "sNHide"  '仅显示选择的行2013.3.15 by lijilin
End SubSub sHide()Application.ActiveWorkbook.ActiveSheet.UsedRange.EntireRow.Hidden = FalseSelection.EntireRow.Hidden = True
End SubSub sNHide()Application.ActiveWorkbook.ActiveSheet.UsedRange.EntireRow.Hidden = TrueSelection.EntireRow.Hidden = False
End Sub

附程序：提取多重选择区的行列号，方便更复杂的数据操作

Sub Macro1()
Dim rg As RangeSet 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 Thenl2 = Split(Split(s, ":")(1), "C")jsh = Split(l2(0), "R")(1)  '结束行jsl = l2(1)   '结束列Elsejsh = kshjsl = kslEnd IfEnd Sub

excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号相关推荐

Excel VBA 快速访问 Power Query 表格数据
1.PowerQuery 可以方便获取外部数据,并进行数据清洗,最后将结果返回到工作表中.每次刷新数据后,工作表中返回的数据的行数不是固定的. 2.在VBA中如何方便地访问PowerQuery返回的表 ...
Excel.VBA 快速删除重复记录
Excel.VBA 快速删除重复记录日常工作中的工作表中经常会有重复记录,清除这些重复记录是一个繁琐的工作,即使在排序之后再进行手工筛选,也经常会出现遗漏,而使用VBA代码就可以快速准确地删除重复记 ...
Excel如何快速汇总不同背景颜色数据和
今天跟大家分享一下Excel如何快速汇总不同背景颜色数据和 1.如下图我们想要将表格数据中所有不同颜色背景数据汇总 2.首先我们选择全部数据区域 3.点击下图选项 4.点击[统计与分析].[颜色统计] ...
Excel怎么快速显示隐藏区域
今天跟大家分享一下Excel怎么快速显示隐藏区域 1.打开Excel表格 2.点击下图选项(Excel工具箱,百度即可了解详细下载安装信息,本文这里就不做详细解说.) 3.点击[视图] 4.选择[显示 ...
kendo ui grid选中行事件，获取combobox选择的值
背景: 以前用 telerik ui做的grid现在又要换成kendo ui,不过说句实话kendo ui真的比telerik好多,可以说超级升级改头换面.当然用的mvc的辅助方法,以前的teleri ...
巧用Excel VBA 快速编排考场座位
百度文库下载地址: 学校考试考场编排软件(单年级) http://wenku.baidu.com/view/464023029ec3d5bbfc0a740f.html 学校考试考场编排软件(多年级) ...
Excel 2010 VBA 入门 039 按条件隐藏数据行
目录示例: 实现代码1 行和列的隐藏实例代码2 单元格对象的AutoFilter(自动筛选)方法实现代码3 单元格对象的AdvancedFilter(高级筛选)方法示例: 在E ...
用access做考场桌贴_巧用Excel VBA 快速编排考场座位
百度文库下载地址: 学校考试考场编排软件(单年级) 学校考试考场编排软件(多年级) 学校考试考场编排软件(多年级,文理绲编),请联系作者索要. 更多考试管理系统下载 [摘要]科学的考场座位编排方法可以 ...
Excel VBA数组拓展列表(可以用作数据容器)
应用场景: 从数据库获取数据暂存,多表汇总,数据分析等,因为数组是存在于内存的,所以运行速度会非常快. 一.先总结数组的特性数组转置必须在同过程或同函数内redim 否则报无效 redim: 起始 ...

excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号

excel vba 快速显示及隐藏所选数据行,并获取多重选择区地址的行列号相关推荐

最新文章

热门文章