设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 4218|回复: 11
打印 上一主题 下一主题

[其它] 小爪专区(提问二:网页读字效果)

[复制链接]
跳转到指定楼层
1#
发表于 2008-4-13 18:41:25 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
提问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 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2008-4-13 18:51:23 | 只看该作者
回复问题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

点击这里给我发消息

3#
发表于 2008-4-13 20:08:01 | 只看该作者
学习一下!1

点击这里给我发消息

4#
发表于 2008-4-13 22:12:30 | 只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
5#
发表于 2008-4-13 23:51:53 | 只看该作者

很实用

学习一下
6#
发表于 2008-4-13 23:56:38 | 只看该作者
用于创建目录非常好
7#
发表于 2008-4-14 09:59:09 | 只看该作者
[:27] 崇拜的眼神。。。。
[:17] 学习咯。。。
8#
 楼主| 发表于 2008-4-14 21:51:09 | 只看该作者
问题二:征集:如图效果--网页读字效果vba

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

9#
发表于 2008-4-14 23:00:05 | 只看该作者
这个........我用PPT会做[:30]
10#
发表于 2008-4-14 23:41:40 | 只看该作者
很久以前的

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:01 , Processed in 0.091926 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表