[已解决]有没有两句代码：统计工作表数量，禁止移动工作表

zhouyuma

1、工作薄中有很多工作表，在“信息”表前后表数量都不固定，现在要统计前面的数量，包含信息表。最好用句表达，就好象总表数为Sheets.Count
2、禁止移动“信息”工作表
谢谢帮忙

最佳答案

月排行榜 / 总排行榜

爱疯

2014-10-2 16:05

问1：Sheets("信息表").Index 表示信息表当前位置

问2：
'每次打开工作簿，信息表在第3的位置。（自己修改位置）
Private Sub Workbook_Open()
    Sheets("信息表").Move before:=Sheets(3)
End Sub

跳转到最佳答案楼层

qh8600

For x = 1 To Sheets.Count   
  Sheets(x).Name = “信息表”
  Exit For
Next
信息表就是第 “x” 个表
然后
for i = 1 to x-1 '信息表前一个表，所以减1
。。。。
next

zhouyuma

qh8600 发表于 2014-10-2 10:59
For x = 1 To Sheets.Count   
  Sheets(x).Name = “信息表”
  Exit For

看样不能只用一句能统计到指定工作表的数量，只有多写几行了，还有没有工作表事件类的：禁止移动指定的工作表，如禁止移动sheet("信息")，谢谢帮忙

爱疯

Sheets("信息表").Index

zhouyuma

爱疯 发表于 2014-10-2 11:52
Sheets("信息表").Index

我百度了Index怎么是一个函数的，和移动挂不上边呀

爱疯

问1：Sheets("信息表").Index 表示信息表当前位置

问2：
'每次打开工作簿，信息表在第3的位置。（自己修改位置）
Private Sub Workbook_Open()
    Sheets("信息表").Move before:=Sheets(3)
End Sub

zhouyuma

爱疯 发表于 2014-10-2 16:05
问1：Sheets("信息表").Index 表示信息表当前位置

问2：

大师傅，我的工作表有很多，在信息表前面为母表，后面为使用的表，前面的表有时会有变动，但不大，后面的一变动就大，不管大小，有一张增减，这样定位都不行，有没有更好的办法呢，比如说用工作表事件什么的，只要移动，松开鼠标就回到移动前的位置，谢谢了

爱疯

没有工作表移动事件，要实现“不让移动该表”，只好看你能接受怎样的间接效果，6#只是一种间接方式而已。

如果按6楼方式去做了后，有什么地方不好呢？