• 所有问题

    • 请问高手怎么用excel的宏自动生成目录?一个表有很多n多sheet!用超连接很累

    如题所述

    举报该问题
    推荐答案   2007-11-23
    编一个宏,假设工作簿中有3个工作表
    Sub abc()
    For i = 2 To 3
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 1, "A"), Address:="", _
    SubAddress:= Sheets(i).Name & "!A1"
    Next i
    End Sub
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    Excel中一个工作薄有200多个工作表,如何快速的进行查找定位呢?答：1、首先我们打开电脑里的excel软件，打开需要查找的工作簿。2、然后我们按“Ctrl + F”打开查找窗口，点击“选项”。3、然后我们输入查找内容，点击“范围”旁的下拉菜单，选择“工作簿”。4、然后我们点击“查找全部”。5、然后我们这样就可以找到工作簿中所有关键字的位置了。6、然后我们点击查找结果窗...
    在excel中,打开一个工作薄,里面有三个工作表,怎么才能使三个工作表...答：Private Sub Workbook_Open()Dim Sht As Worksheet, rng As Range For Each Sht In Worksheets For Each rng In Sht.Range("a1", Sht.[a65536].End(3))rng(1, 2) = rng + 14 Next Next End Sub 如果工作薄中工作表数目为4 用以下代码:Private Sub Workbook_Open()Dim Sht As Worksheet...
    请问高手,如何在excel表里用宏实现下面的功能。答：代码复制到 第2图，假设表名为 Sheet2 Sub 查询()Range("C4:E500") = ""Dim i Application.ScreenUpdating = False For i = 5 To Sheets(1).Range("B65536").End(xlUp).Row Sheets(1).Select If Sheets(1).Cells(i, "b") = [C2] Then N = N + 1 Sheets(2).Cells(N + 3,...
    Excel高手,如何使用VBA来合并一个工作表里面的所有工作簿的指定行?答：分太少了，发一个之前写过的合并多张Excel到单张Sheet的代码，供参考：运行主函数 Excels_2_Sheet Sub deleteCells() Dim s Set s = ThisWorkbook.Sheets("Sheet1") s.Cells.Delete For Each shp In s.Shapes shp.Delete Next shp Set s = Nothing End Sub Sub Excels_2_Sheet() Dim ...
    请教excel的一些技巧答：7、如果在一个Excel文件中含有多个工作表,如何将多个工作表一次设置成同样的页眉和页脚?如何才能一次打印多个工作表? 把鼠标移到工作表的名称处(若你没有特别设置的话,Excel自动设置的名称是“sheet1、sheet2、sheet3...”),然后点右键,在弹出的菜单中选择“选择全部工作表”的菜单项,这时你的所有操作都是针对...
    excel 中这个宏语句怎么使用啊?这是一个使单元格只能输入一次的宏命令...答：打开你要实现这个效果的工作簿 按下alt+F11 左边工程框里，双击thisworkbook 右边出现一大片空白区，代码复制进去。存盘退出。重新打开你这个工作簿。打开时，会有窗口提示。按照里面的内容提示，最终选择“启用宏”然后，再关闭工作簿，你的代码开始起作用了 ...
    大家正在搜
    excel目录怎么自动生成excel自动生成目录链接excel怎么自动生成表格excel怎么生成目录excel自动生成对应表格excel表格日期自动生成excel自动生成工作表excel生成目录索引wps 目录自动生成