首页 综合问答正文

EXCEl索引是什么意思(excel索引)

综合问答 2024-06-24 05:17:17
导读 先可新建一个工作表《索引》。插入名称-定义。运用transpose(get,wordbook(1)提取足够多的工作表名再用超链接公式链接用宏就比较简单了 我...

先可新建一个工作表《索引》。

插入名称-定义。

运用transpose(get,wordbook(1)提取足够多的工作表名再用超链接公式链接用宏就比较简单了 我给你个宏的例子根据你表格的情况 还要做部分修改Sub mulu()On Error GoTo TuichuDim i As IntegerDim ShtCount As IntegerDim SelectionCell As RangeShtCount = Worksheets.CountIf ShtCount = 0 Or ShtCount = 1 Then Exit SubApplication.ScreenUpdating = FalseFor i = 1 To ShtCountIf Sheets(i).Name = "目录" ThenSheets("目录").Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name <> "目录" ThenShtCount = ShtCount + 1Sheets(1).SelectSheets.AddSheets(1).Name = "目录"End IfSheets("目录").SelectColumns("B:B").Delete Shift:=xlToLeftApplication.StatusBar = "正在生成目录…………请等待!"For i = 2 To ShtCountActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets("目录").SelectColumns("B:B").AutoFitCells(1, 2) = "目录"Set SelectionCell = Worksheets("目录").Range("B1")With SelectionCell.HorizontalAlignment = xlDistributed.VerticalAlignment = xlCenter.AddIndent = True.Font.Bold = True.Interior.ColorIndex = 34End WithApplication.StatusBar = FalseApplication.ScreenUpdating = TrueTuichu:End Sub。

郑重声明:本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。

头条推荐

EXCEl索引是什么意思(excel索引)

EXCEl索引是什么意思(excel索引)

什么叫帐载金额(账载金额是什么意思)

什么叫帐载金额(账载金额是什么意思)

女律师陨落电影在线观看(女律师)

女律师陨落电影在线观看(女律师)

八六中文 高(86中文网)

八六中文 高(86中文网)

桂花树的修剪方法图片大全(桂花树的修剪方法图)

桂花树的修剪方法图片大全(桂花树的修剪方法图)

凤于九天风弄小说完结了吗(凤于九天风弄小说)

凤于九天风弄小说完结了吗(凤于九天风弄小说)

河南科技职业学院简介(河南科技职业学院)

河南科技职业学院简介(河南科技职业学院)

合金工具钢分为哪三种(合金工具钢)

合金工具钢分为哪三种(合金工具钢)

锎的用途是什么(锎)

锎的用途是什么(锎)

服装外加工订单(服装加工厂求订单)

服装外加工订单(服装加工厂求订单)

图文推荐

社会学概论自考重点资料(社会学概论自考重点)

社会学概论自考重点资料(社会学概论自考重点)

上海奥特莱斯青浦店有地铁吗(上海奥特莱斯青浦店)

上海奥特莱斯青浦店有地铁吗(上海奥特莱斯青浦店)

对的符号加个框怎么读(对的符号加个框)

对的符号加个框怎么读(对的符号加个框)

氯化铵与熟石灰的化学方程式是什么(氯化铵与熟石灰反应的化学方程式)

氯化铵与熟石灰的化学方程式是什么(氯化铵与熟石灰反应的化学方程式)

图片只显示图标不显示图片(设置图标图片)

图片只显示图标不显示图片(设置图标图片)