[已解决]请教获取工作表目录的问题

屈臣氏VBA · 发表于 2011-10-26 12:02

本帖最后由屈臣氏VBA 于 2011-10-26 12:07 编辑

下面这段代码可以获取电子表格中每个Sheet名称
当新加工作表sheet后再点HOME首页，就会在D列显示工作表sheet名称

想请教大侠帮忙修改下，在获取每个工作表sheet同时获取每个工作表B2的内容到HOME首页

请看附件原始效果，先新增SHEET工作表，然后再点击HOME首页。

Book31.rar (8.32 KB, 下载次数: 18)

爱疯 · 发表于 2011-10-26 12:14

Private Sub Worksheet_Activate()
   Dim sh As Worksheet
   Dim k As Integer
   k = 3 '下降3行
   Sheets("HOME首页").Range("D5:D65535").ClearContents
   For Each sh In ThisWorkbook.Sheets
      If sh.Name <> "HOME首页" Then
         Sheets("HOME首页").Cells(k, 4) = sh.Name '前进4列
         Sheets("HOME首页").Cells(k, 5) = sh.[b2]
         k = k + 1
      End If
   Next
End Sub

BAIXINGR · 发表于 2011-10-26 12:36

学习

屈臣氏VBA · 发表于 2011-10-26 13:54

回复爱疯的帖子

爱疯老师，
有没有办法能在获取到内容的同时，
将HOME首页D列或E列的数据与其它工作表相互建立来回的链接？

爱疯 · 发表于 2011-10-26 15:21

Private Sub Worksheet_Activate()
Dim sh As Worksheet, k%, s$
k = 3 '下降3行
s = "HOME首页"
Sheets(s).Range("D5:D65535").ClearContents
For Each sh In Sheets
If sh.Name <> s Then
With Sheets(s)
.Cells(k, "D") = sh.Name
.Hyperlinks.Add Anchor:=.Cells(k, "D"), Address:="", SubAddress:=.Cells(k, "D") & "!A1"
.Cells(k, "E") = sh.[b2]
.Hyperlinks.Add Anchor:=.Cells(k, "e"), Address:="", SubAddress:=.Cells(k, "D") & "!A1"
End With
k = k + 1
End If
Next
End Sub

复制代码

Book31b.rar (7.22 KB, 下载次数: 15)

joyark · 发表于 2011-10-31 23:17

学习学习学习一下

		自动登录	找回密码
密码			注册