Office中国论坛/Access中国论坛

标题: 小爪专区（提问二：网页读字效果） [打印本页]

作者: 欢欢 时间: 2008-4-13 18:41
标题: 小爪专区（提问二：网页读字效果）
提问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 编辑 ]

作者: 欢欢 时间: 2008-4-13 18:51
回复问题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 时间: 2008-4-13 20:08
学习一下!1

作者: ganrong 时间: 2008-4-13 22:12
提示: 作者被禁止或删除内容自动屏蔽

作者: huhz 时间: 2008-4-13 23:51
标题: 很实用
学习一下

作者: huhz 时间: 2008-4-13 23:56
用于创建目录非常好

作者: 小糊涂 时间: 2008-4-14 09:59
[:27] 崇拜的眼神。。。。
[:17] 学习咯。。。

作者: 欢欢 时间: 2008-4-14 21:51
问题二：征集：如图效果--网页读字效果vba

作者: pureshadow 时间: 2008-4-14 23:00
这个........我用PPT会做[:30]

作者: hyy514 时间: 2008-4-14 23:41
很久以前的

作者: 欢欢 时间: 2008-4-15 15:19
楼上的不错!

作者: hyy514 时间: 2008-4-15 15:41
标题: dfdsfsd
fdfd

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)