[分享]我的超级工具(293楼升级版)

深秋的大地

请教下 我怎样才能实现通过修改某一工作表中其中一列中的内容从面实际对其它工作表名称的修改

我找到一个宏但不知道怎么用才能实现

Sub 以指定区域为表目录补充新表()

Dim dic As Object, sh As Worksheet

Dim arr, item

arr = Range("B1:BB1")

Set dic = CreateObject("scripting.dictionary")

For Each sh In ThisWorkbook.Worksheets

dic.Add sh.Name, ""

Next

For Each item In arr

If item <> "" And Not dic.exists(Trim(item)) Then

With ThisWorkbook.Worksheets.Add

.Name = item

End With

End If

Next

Set dic = Nothing

End Sub

yblbao

太棒了

xiaoxun

精品就要的上面,顶起来

lgl8652961

绝，当代最牛的版主，，，顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

RXT6710

真是太棒了

dragonthree

学习了，特别是NOWW函数，不随时间改变的NOW函数！

dragonthree

我试了一下NOWW函数，虽然时间不会改变，但是双击公式所在的单元格时，还是会变成当前时间。

homeyou

下载了，就是安装不能进行到底。安版主的方法，加载了以后，提示“ActiveX部件不能创建对象”，也看不到工具的菜单，实际用不了。

什么原因呢

andysky

QUOTE:

以下是引用dragonthree在2008-6-20 21:18:51的发言：
我试了一下NOWW函数，虽然时间不会改变，但是双击公式所在的单元格时，还是会变成当前时间。

这才是正常的。

任何函数的共有特性都是双击编辑后会重算。如果不能重算，函数就没什么用了。

这个函数的功能是其它单元格重算时它不会更新时间。能达到这个功能就已经可以发挥它的优势了。

hbqchhp

谢谢指导!