[已解决]批量插入返回目录的按纽

xiaoni · 发表于 2012-8-25 18:12

大家好！我做的一个批量插入目录工作表的按纽怎么怎么返回不了目录工作表呢？点哪个都没反应，如附件

客户信息.zip (253.74 KB, 下载次数: 35)

hwc2ycy · 发表于 2012-8-25 18:18

hwc2ycy · 发表于 2012-8-25 18:20

本帖最后由 hwc2ycy 于 2012-8-25 18:31 编辑

对于比较简单应用，且每个返回目录的位置相同的情况下，这个很容易实现。

再设置下单元格样式，就可以做成一个假按钮了，

hwc2ycy · 发表于 2012-8-25 18:22

hwc2ycy · 发表于 2012-8-25 18:22

本帖最后由 hwc2ycy 于 2012-8-25 18:42 编辑

sheet1里的返回目录过程必须放在标准模块里，这样才能被其它的过程直接调用，否则就需要加上模块名前缀了。

新建一个模块，把sheet1里的返回目录这个过程移到模块中来，这样就可以实现了。

hwc2ycy · 发表于 2012-8-25 18:26

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

帮你改好了的。

客户信息.rar (252.09 KB, 下载次数: 193)

zjdh · 发表于 2012-8-25 18:30

本帖最后由 zjdh 于 2012-8-25 18:35 编辑

只要把这句（红色的）修改一下：
Sub 生成返回目录按钮()
Dim sh As Worksheet
For Each sh In Worksheets
      If sh.Name <> "目录" Then
         With sh
            With .Buttons.Add(.Cells(2, 2).Left, .Cells(2, 2).Top, 60, 20)
                  .Characters.Text = "返回目录"
                  .OnAction = "sheet1.返回目录"
            End With
         End With
      End If
Next
End Sub

hwc2ycy · 发表于 2012-8-25 18:32

zjdh 发表于 2012-8-25 18:30
或者把这句（红色的）修改一下：
Sub 生成返回目录按钮()
Dim sh As Worksheet

恩，这个也可以。
放标准模块应该是最好的，到时如果工作表如果改名了，这样要改的地方就多了。

hwc2ycy · 发表于 2012-8-25 18:33

工程浏览器中看到的sheet1应该是codename吧。

xiaoni · 发表于 2012-8-25 21:29

本帖最后由 xiaoni 于 2012-8-25 21:34 编辑

只要把这句（红色的）修改一下：
Sub 生成返回目录按钮()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "目录" Then
With sh
With .Buttons.Add(.Cells(2, 2).Left, .Cells(2, 2).Top, 60, 20)
.Characters.Text = "返回目录"
.OnAction = "sheet1.返回目录"
End With
End With
End If
Next
End Sub
这样改也不对，只有放在模块中才对，2楼说的对

复制代码

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

[已解决]批量插入返回目录的按纽

相关帖子

点评

评分

点评