小爪专区（提问二：网页读字效果）

欢欢

提问1:
413941727 18:17:46
你好
413941727 18:17:51
小爪
413941727 18:17:57
在吗？
413941727 18:19:55
原来看到一个电子表格，有宏自动将每张工作表建立超链接，并生成目录，这个宏不知怎么编的，小爪，你有现成的吗？
413941727 18:20:05
我在做审计底稿
413941727 18:24:51
小爪，在吗？
欢乐小爪 18:30:00
Private Sub CommandButton1_Click()
Dim huanhuanlele As Worksheet
Dim I%
I = 2
   For Each huanhuanlele In Worksheets
  Cells(I + 1, 1) = I - 1
  Cells(I + 1, 2) = huanhuanlele.Name
  I = I + 1
    Next huanhuanlele
    Set huanhuanlele = Nothing
End Sub
欢乐小爪 18:30:08
生成目录表
欢乐小爪 18:30:23
=HYPERLINK("#"&B4&"!A1","点击")
欢乐小爪 18:30:31
链接
结果附图（）

[ 本帖最后由 欢欢 于 2008-4-14 21:49 编辑 ]

欢欢

回复问题1:
方法2:
Sub 目录()
Dim shna$, i%
For i = 1 To Sheets.Count
shna = Sheets(i).Name
If shna <> "目录" Then
Sheets(1).Cells(i, 1).Formula = "=HYPERLINK(""#" & shna & "!A1"",""" & shna & """)"
End If
Next
End Sub

tmtony

学习一下!1

huhz

学习一下

huhz

用于创建目录非常好

小糊涂

[:27] 崇拜的眼神。。。。
[:17] 学习咯。。。

欢欢

问题二：征集：如图效果--网页读字效果vba

pureshadow

这个........我用PPT会做[:30]

hyy514

很久以前的