Workbooks 标签

chlele

起因： 本来Excel 有个很好的插件Office  Tab, 用的很爽，如IE的多个标签。但是，在公司，变态的IT竟然不给安装，郁闷坏了。于是想自己用VBA编一个类似的功能，于是就有了这个。效果如图下所示：

原文件如下：
Workbooks 标签.zip (15.88 KB, 下载次数: 348)

2011-9-14 23:16 上传

点击文件名下载附件

通过这个也学了很多东西，呵呵

guojianlin1985

人的潜能是无限的，之所以有限是因为没有压力。呵呵。

丁俊晖

我还是觉得大师的满足需要，我安装了tab  感觉没有你这个好啊

丁俊晖

你好 ，哥哥，能不能把代码写个注释啊！ 我想把他改成观看E盘 和H盘 的加载宏！谢谢

chlele

把 "C",  "D" 改成 "E", "H" 即可。

Sub CreateToolBar()

On Error Resume Next
With Application.CommandBars.Add(Name:="文件管理", Position:=msoBarTop, temporary:=True)
.Visible = True

With .Controls.Add(Type:=msoControlPopup, temporary:=False)
.BeginGroup = True '添加分组线
.Caption = "E"
.TooltipText = "E:\"
.OnAction = "CreateChildFolder"
End With

With .Controls.Add(Type:=msoControlPopup, temporary:=False)
.BeginGroup = True '添加分组线
.Caption = "H"
.TooltipText = "H:\"
.OnAction = "CreateChildFolder"
End With


End With
End Sub
'-----------------------------------------------
最新附件，自动快速显示所有本地硬盘文件。
Workbooks 标签2.zip (15.28 KB, 下载次数: 138)

2011-9-15 23:44 上传

点击文件名下载附件

丁俊晖

，哥哥，能不能把代码写个注释啊！ 我好一下子看出你的模块的目的！谢谢大师 ，

丁俊晖

加载宏修改成的样式

哥哥，能不能把代码写个注释啊！ 我好一下子看出你的模块的目的！谢谢大师{:soso_e160:}
另外添加2个功能
1  把所有EXCEL2007 的文件名标记为红色，和文件夹 区别开来，（（（（一个文件夹内假设有文件夹和EXCEL2007文件的话，{:soso_e189:}那么不然看起来不是一目了然）
2  搜索出文件大于5M的EXCEL2007 文件名标记为蓝色。
谢谢大师，我就问这么多，在此鞠躬啦！{:soso_e178:}

chlele

丁俊晖 发表于 2011-9-16 03:59
哥哥，能不能把代码写个注释啊！ 我好一下子看出你的模块的目的！谢谢大师
另外添加2个功能 ...

Workbooks 标签.zip (17.12 KB, 下载次数: 143)

2011-11-21 20:29 上传

点击文件名下载附件

其实你可以在不同文件类型前面加上不同的Icon即可.
如本例把Excel 和 PPT 文档用不同的Icon来区别了. 效果如下:

liucqa

不错不错      

AVEL

嗯 的确是一个不错的辅助功能。
感谢分享。