用Excel自动生成工作表目录
用Excel自动生成工作表目录,挺好的,不会的童鞋看看哦~也许能用上的~
Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中,直接将程序复制过去,运行--用户子过程/用户窗体---搞定
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"'" & Sheets(i).Name & "'!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
转载于:https://blog.51cto.com/xiweicheng/824871
用Excel自动生成工作表目录相关推荐
- latex自动生成中文目录_自动生成工作表目录三种方法,看哪种适合你?
如果在一个工作簿内有很多工作表需要去维护管理,一个个的查找显然是很麻烦的,建立一个工作表的导航目录无疑是最便捷的方法. 下面介绍三种生成工作表目录的方法: 一.利用宏表函数生成可导航目录 第1步:定义 ...
- (Java程序)Excel自动生成mysql表
读取excel生成字段 最近项目中遇到了一个费时间的事,就花了点时间写了一个小程序来做这件事. description:现在在项目的前期设计阶段,需要从excel的数据库表格字段生成数据库,开始是手动 ...
- 【Excel】给Excel生成工作表目录
当工作表太多时,尽管有响应的命名,但还是不容易维护.所以通过以下步骤制作一个Excel工作表目录就方便很多了. 操作步骤: 第一步,在第一个工作表前面插入新的工作表,并命名为目录: 第二步,打开公式选 ...
- excel自动生成创建表sql语句
Sub 选项按钮4_Click()Dim sqlStr, sqlTemp, pkStr, columnName, columnType, columnLength, isPk, notExistTab ...
- python制作表格的语句_python根据Excel自动生成创建表sql语句
1.Excel格式截图 2.配置文件脚本 # coding:utf-8 # 表英文名 table_name = '表英文名' # 表中文名 table_comments = '表中文名' # Exce ...
- excel怎么设置自动计算_超全8套工程测量计算Excel自动算量表,输入参数即可得出精准结果...
超全8套工程测量计算Excel自动算量表,输入参数即可得出精准结果 日常工程测量中需要大量的数据计算,一个失误可能就带从头再来,熬夜加班更是经常有的事情,测量计算的快速一定程度上也影响了工程的进度.今 ...
- excel链接隐藏工作表_自动隐藏Excel工作表
excel链接隐藏工作表 When you build a workbook for other people to use, there might be worksheets that can s ...
- EXCEL 批量生成sheet表+生成超链接目录+某列按多条件去重罗列+提取单元格中的字母、数字
文章目录 前言 一.EXCEL 公式实现多个条件值匹配 二.EXCEL 工作薄下SHEET表太多时你可以这样做 1.生成多个相同表头的SHEET表 1.1.批量生成SHEET表 1.2.批量更改多个S ...
- Excel工作表目录以及链接
Excel工作表目录以及链接 自动获取工作表名称并链接,单列显示 Sub TableOfContents_Create() 'PURPOSE: Add a Table of Contents work ...
最新文章
- 传蔚来计划回国内科创板上市,关闭硅谷办公室
- linux使用X11捕捉鼠标,如何在Linux下合法地以编程方式捕获第二个鼠标或轨迹球,X?...
- IOS中UITableView异步加载图片的实现
- java数组 —(7)
- 求100以内质数或者更多
- 过拟合和欠拟合_现代深度学习解决方案中的两大挑战:拟合和欠拟合
- 缺失值填充5——AutoEncoder填充序列缺失值
- (72)加法器设计(全加器)
- Bailian2975 Caesar Cryptogram【密码】
- SDUST 作业10 Problem D 魔方阵
- 数据库系统概论思维导图
- Linux 硬盘读写测速
- 爬PHP网站文件,蜘蛛来访爬取链接详情导出TXT文件(php脚本)
- activex控件无法安装解决方法
- JavaScript实现点击一下显示,再点击一下隐藏的功能(使用工厂函数)
- MySQL查询不同年份母亲节_日期习俗大不同 走近七个国家的母亲节
- 执行repo init提示error.GitError: manifests ls-remote解决方案
- 机器学习复盘(2):机器学习主要应用场景及典型案例
- python数据分析与应用第五章实训 2_第五章实训(二)
- 从红帽官网下载redhat企业版系统镜像
热门文章
- QBC (Query By Criteria)
- 我以后的生活态度,处事方式
- 第1讲 Android Camera性能分析 课程组织安排
- 2018第九届蓝桥杯省赛,国赛参赛经验心得分享(JavaB组)
- 【Proteus仿真】基于DHT11的温度测量,LCD1602显示
- JS、CSS解决标签颜色在黑色和白色背景颜色重叠问题/标签栏随背景切换变化而变化
- pytorch unsqueeze与squeeze
- Everything使用教程
- python趣味编程-盒子追逐者游戏
- 宋宝华:可以杀死的深度睡眠TASK_KILLABLE状态(最透彻一篇)