社区
Office开发/ VBA
帖子详情
Office VBA隐藏模块查看或恢复
小污云姐姐
2016-11-05 04:25:30
我在对象管理器中能看到这个模块,但是我在左边为什么找不到这个模块呢?是不是被隐藏了还是怎么了?
...全文
6176
5
打赏
收藏
Office VBA隐藏模块查看或恢复
我在对象管理器中能看到这个模块,但是我在左边为什么找不到这个模块呢?是不是被隐藏了还是怎么了?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
小污云姐姐
2017-07-07
打赏
举报
回复
引用 1 楼 csdp5的回复:
已破解
请问是用什么方法怎么破解的?
dsd999
2017-01-25
打赏
举报
回复
文件能发出来吗?
jack_sparrow_52
2016-11-12
打赏
举报
回复
怎么破解的啊,能具体讲下吗?
qq_20755495
2016-11-10
打赏
举报
回复
这个是怎么破解的,能简要解释下吗?
csdp5
2016-11-09
打赏
举报
回复
已破解
隐藏
VBA
模块
工具.XLL
隐藏
VBA
模块
工具,excel可双击运行
office
,可完美
隐藏
VBA
的
模块
自动生成
VBA
窗体菜单
自动生成
VBA
窗体菜单 '*************************** '* 菜单类 * '*************************** Option Explicit Private WithEvents MenuBar_MenuItem As MSForms.Label '菜单项 Private WithEvents WorkForm As MSForms.UserForm '工作窗口 Private WithEvents MenuBar As MSForms.Image '菜单栏 Private BackMenu_BackGroud As MSForms.Image '菜单背景图片 Private BackMenu_Caption As MSForms.Label '菜单标题标签 Private Const DISTANCE As Integer = 5 '菜单与左边框距离 Private Const MENUTOP As Integer = 2 '菜单项顶点Y轴位置 Private Const MENUHEIGHT As Integer = 14 '菜单项高度 Private intIndex As Integer '索引变量 Private sAction As String '宏名称变量 Private Property Let Index(N As Byte) '指定索引属性 intIndex = N End Property Private Property Get Index() As Byte '获得陇望蜀索引属性 Index = intIndex End Property Private Property Let OnAction(sAct As String) '行为属性 sAction = sAct End Property Private Property Get OnAction() As String OnAction = sAction End Property Public Sub AddMenu(wform As MSForms.UserForm, sCaption As String, sAction As String, Optional Acc As String = vbNullString) Dim MenuLeft As Single, MenuWidth As Single '由两个标签和一个图形控件组成一个主菜单项 MenuCount = MenuCount + 1 '主菜单项总数加1 Index = MenuCount '设置索引 Set WorkForm = wform With WorkForm Set MenuBar = .FormMenuBar Set BackMenu_Caption = .Controls.Add("forms.label.1") '添加一个标签,显示菜单标题 With BackMenu_Caption .Accelerator = Acc .AutoSize = True .BackStyle = fmBackStyleTransparent .Caption = sCaption .Font = "宋体" .Font.Size = 9 .Name = "BackMenu_Caption" & MenuCount .TextAlign = fmTextAlignCenter .Top = MENUTOP + 3 .WordWrap = False .Visible = True End With If MenuCount = 1 Then MenuLeft = DISTANCE Else With .Controls("BackMenu_Caption" & MenuCount - 1) MenuLeft = .Left + .Width End With End If MenuWidth = BackMenu_Caption.Width + 10 Set BackMenu_BackGroud = .Controls.Add("forms.image.1") '添加一个image,作为背景图片 With BackMenu_BackGroud .Name = "BackMenu_BackGroud" & MenuCount .BorderStyle = fmBorderStyleNone .Move MenuLeft, MENUTOP, MenuWidth, MENUHEIGHT .BackStyle = fmBackStyleTransparent .PictureSizeMode = fmPictureSizeModeStretch BackMenu_Caption.AutoSize = False BackMenu_Caption.Left = .Left BackMenu_Caption.Width = .Width End With BackMenu_Caption.ZOrder '将标签置前 Set MenuBar_MenuItem = .Controls.Add("forms.label.1") '添加一个Label,用于触发事件 With MenuBar_MenuItem .Name = "MenuBar_MenuItem" & MenuCount .BorderStyle = fmBorderStyleNone .BackStyle = fmBackStyleTransparent With BackMenu_BackGroud MenuBar_MenuItem.Move .Left, .Top, .Width, .Height End With End With End With OnAction = sAction End Sub Private Sub MenuBar_MenuItem_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Button = 1 Then bMenuSelected = True: Menu_Select End Sub Private Sub MenuBar_Click() UnSelectLastMenu bMenuSelected = False End Sub Private Sub MenuBar_MenuItem_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UnSelectLastMenu Call Menu_Select End Sub Private Sub MenuBar_MouseMove1(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu End Sub Private Sub WorkForm_Click() '窗体单击时 UnSelectLastMenu bMenuSelected = False End Sub Private Sub WorkForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not bMenuSelected Then UnSelectLastMenu '窗体 End Sub Private Sub Menu_Select() '选择菜单 On Error Resume Next Dim Pt_Menu_RightBottom As POINTAPI, Pt_Menu_LeftTop As POINTAPI With WorkForm UnSelectLastMenu Set LastSelect_Menu = BackMenu_BackGroud With BackMenu_BackGroud .BorderStyle = fmBorderStyleSingle .BorderColor = RGB(0, 0, 128) .BackStyle = fmBackStyleOpaque If bMenuSelected = False Then WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HFFC0C0 Else WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HE0E0E0 pt.X = MenuBar_MenuItem.Left * 1.33 pt.Y = (MenuBar_MenuItem.Top + MenuBar_MenuItem.Height) * 1.33 + 3 ClientToScreen hForm, pt If OnAction "" Then Application.Run OnAction End If End If End With End With End Sub Private Sub UnSelectLastMenu() '取消上次选择 If Not LastSelect_Menu Is Nothing Then With LastSelect_Menu .Picture = LoadPicture() .BackStyle = fmBackStyleTransparent .BorderStyle = fmBorderStyleNone End With End If End Sub '********本
模块
结束********** '*************************** '* 菜单执行
模块
* '*************************** Public Type POINTAPI X As Long Y As Long End Type Public Declare Function FindWindow Lib "user32.dll" Alias"FindWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function ClientToScreen Lib"user32"(ByVal hwnd As Long, lpPoint As POINTAPI) As Long Public Popup_Menu As CommandBar '指定弹出式菜单 Public LastSelect_Menu As MSForms.Image '最后选择的菜单 Public MenuCount As Integer '子菜单数量 Public hForm As Long '窗口句柄 Public intLevel As Integer '级别标识,用于设置Radio菜单(游戏菜单中:初级,中级,高级) Public bAbortEnabled As Boolean '标识放弃菜单项是否可用 Public bItemCheck As Boolean '标识音效菜单是否CheckOn Public bMenuSelected As Boolean '标识菜单是否点击 Public pt As POINTAPI '定义点 Public faceid As Integer '图标ID Public faceidselect As Integer '选择的图标 Public fistid As Integer '第一个图标号 Public lastid As Integer '最后一个图标号 Public selectrow,selectcol as integer Public Mcro(50) AS String SUB 文件() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "打开 ", "", False, True,33,"" AddCustomCommandBarPopup1 "新建 ", "BB", False, True,18,"" AddCustomCommandBarPopup2 ("另存为 ") Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBarPopup3 cmb, "
OFFICE
97-2003文件 ", "DD", False, True, 3, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ") AddCustomCommandBarPopup4 cmb, "
OFFICE
2007工作表 " Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("
OFFICE
2007工作表 ") AddCustomCommandBarPopup3 cmb, "
office
2007启用宏的工作表 ", "FF", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("另存为 ").Controls("
OFFICE
2007工作表 ") AddCustomCommandBarPopup3 cmb, "
OFFICE
2007工作表 ", "GG", False, True, 253, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 公式() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "文本 ", "WB", False, True,7,"" AddCustomCommandBarPopup2 ("名称 ") Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBarPopup3 cmb, "定义 ", "DY", False, True, 0, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ") AddCustomCommandBarPopup4 cmb, "单元格 " Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "合并 ", "HB", False, True, 592, "" Set cmb = Application.CommandBars("CELL").Controls("名称 ").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "从属 ", "CS", False, True, 564, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 开发工具() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "插入 ", "CR", False, True,548,"" AddCustomCommandBarPopup1 "模式 ", "MS", False, True,590,"" AddCustomCommandBarPopup2 ("宏 ") Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "录制宏 ", "LZH", False, True, 205, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "安全性 ", "AQX", False, True, 279, "" Set cmb = Application.CommandBars("CELL").Controls("宏 ") AddCustomCommandBarPopup3 cmb, "
查看
代码 ", "CKDM", False, True, 289, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 窗口() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "并列比较 ", "BLBJ", False, True,250,"" AddCustomCommandBarPopup1 "冻结 ", "DJ", False, True,288,"" AddCustomCommandBarPopup1 "
隐藏
", "YC", False, True,237,"" AddCustomCommandBarPopup1 "拆分 ", "CF", False, True,292,"" AddCustomCommandBarPopup1 "取消冻结 ", "QXDJ", False, True,232,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 工具() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "拼写检查 ", "PXJC", False, True,246,"" AddCustomCommandBarPopup2 ("保护 ") Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "保护工作表 ", "BHGZB", False, True, 277, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "保护工作薄 ", "BHGZBB", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "工作表菜单栏 ", "gzbcdl", False, True, 142, "" Set cmb = Application.CommandBars("CELL").Controls("保护 ") AddCustomCommandBarPopup3 cmb, "图表菜单栏 ", "tbgjl", False, True, 164, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 常用() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "格式 ", "gs", False, True,108,"" AddCustomCommandBarPopup1 "数据透视表 ", "sjtsb", False, True,125,"" AddCustomCommandBarPopup1 "图表 ", "tb", False, True,127,"" AddCustomCommandBarPopup1 "审阅 ", "sy", False, True,124,"" AddCustomCommandBarPopup1 "窗体 ", "ct", False, True,128,"" AddCustomCommandBarPopup1 "停止录制 ", "tzlz", False, True,185,"" AddCustomCommandBarPopup2 ("外部数据 ") Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "公式审核 ", "gssh", False, True, 129, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "全屏显示 ", "qpxs", False, True, 130, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup3 cmb, "循环引用 ", "xhye", False, True, 132, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ") AddCustomCommandBarPopup4 cmb, "VisualBasic " Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "Web ", "web", False, True, 173, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "控件工具箱 ", "kjgjx", False, True, 174, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "退出设计模式 ", "tcsjms", False, True, 162, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "刷新 ", "sx", False, True, 165, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "监视窗口 ", "jsck", False, True, 168, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "数据透视表字段列表 ", "sjtsbzdb", False, True, 170, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "边框 ", "bk", False, True, 178, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "保护 ", "bh", False, True, 160, "" Set cmb = Application.CommandBars("CELL").Controls("外部数据 ").Controls("VisualBasic ") AddCustomCommandBarPopup3 cmb, "文本到语音 ", "wbdyy", False, True, 164, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 列表() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "并排比较 ", "bpbj1", False, True,180,"" AddCustomCommandBarPopup1 "绘图 ", "bpbj2", False, True,182,"" AddCustomCommandBarPopup1 "数据透视图菜单 ", "bpbj3", False, True,184,"" AddCustomCommandBarPopup2 ("工作簿标签 ") AddCustomCommandBarPopup2 ("单元格 ") Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "列 ", "bpbj6", False, True, 190, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "行 ", "bpbj7", False, True, 192, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "单元格 ", "bpbj8", False, True, 194, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "柱形图 ", "bpbj9", False, True, 196, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup3 cmb, "行 ", "bpbj10", False, True, 198, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ") AddCustomCommandBarPopup4 cmb, "工作表 " Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "XLM 单元格 ", "bpbj12", False, True, 202, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "文档 ", "bpbj13", False, True, 204, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "桌面 ", "bpbj14", False, True, 206, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "非默认拖放 ", "bpbj15", False, True, 208, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "自动填充 ", "bpbj16", False, True, 210, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "按钮 ", "bpbj17", False, True, 212, "" Set cmb = Application.CommandBars("CELL").Controls("单元格 ").Controls("工作表 ") AddCustomCommandBarPopup3 cmb, "对话框 ", "bpbj18", False, True, 214, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 序列() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "图形区 ", "bpbj20", False, True,218,"" AddCustomCommandBarPopup1 "基底和墙纸 ", "bpbj21", False, True,220,"" AddCustomCommandBarPopup1 "趋势线 ", "bpbj22", False, True,222,"" AddCustomCommandBarPopup1 "图表 ", "bpbj23", False, True,224,"" AddCustomCommandBarPopup1 "设置数据系列格式 ", "bpbj24", False, True,226,"" AddCustomCommandBarPopup2 ("设置数据轴格式 ") Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "设置图例项格式 ", "bpbj26", False, True, 230, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "编辑栏 ", "bpbj27", False, True, 232, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "数据透视表上下文菜单 ", "bpbj28", False, True, 234, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "查询 ", "bpbj29", False, True, 236, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup3 cmb, "查询布局 ", "bpbj30", False, True, 238, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ") AddCustomCommandBarPopup4 cmb, "自动计算 " Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBarPopup3 cmb, "对象/图形区 ", "bpbj32", False, True, 242, "" Set cmb = Application.CommandBars("CELL").Controls("设置数据轴格式 ").Controls("自动计算 ") AddCustomCommandBarPopup3 cmb, "标题栏(图表) ", "bpbj33", False, True, 244, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 框架() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "数据透视图快捷菜单 ", "bpbj35", False, True,248,"" AddCustomCommandBarPopup1 "拼音信息 ", "bpbj36", False, True,250,"" AddCustomCommandBarPopup1 "自动合计 ", "bpbj37", False, True,252,"" AddCustomCommandBarPopup1 "选择性粘贴下拉框 ", "bpbj38", False, True,254,"" AddCustomCommandBarPopup2 ("查找格式 ") Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "替换格式 ", "bpbj40", False, True, 258, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域快捷菜单 ", "bpbj41", False, True, 260, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域布局快捷菜单 ", "bpbj42", False, True, 262, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "XML 区域快捷菜单 ", "bpbj43", False, True, 264, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "列表区域布局快捷菜单 ", "bpbj44", False, True, 266, "" Set cmb = Application.CommandBars("CELL").Controls("查找格式 ") AddCustomCommandBarPopup3 cmb, "艺术字 ", "bpbj45", False, True, 268, "" AddCustomCommandBarPopup2 ("图片 ") Set cmb = Application.CommandBars("CELL").Controls("图片 ") AddCustomCommandBarPopup3 cmb, "阴影设置 ", "bpbj47", False, True, 272, "" AddCustomCommandBarPopup2 ("三维设置 ") Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "绘图画布 ", "bpbj49", False, True, 276, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "组织结构图 ", "bpbj50", False, True, 278, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "图示 ", "bpbj51", False, True, 280, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "墨迹绘图与书写 ", "bpbj52", False, True, 282, "" Set cmb = Application.CommandBars("CELL").Controls("三维设置 ") AddCustomCommandBarPopup3 cmb, "墨迹注释 ", "bpbj53", False, True, 284, "" AddCustomCommandBarPopup2 ("边框 ") Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBarPopup3 cmb, "边框 ", "bpbj55", False, True, 288, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ") AddCustomCommandBarPopup4 cmb, "绘图边框 " Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "图表类型 ", "bpbj57", False, True, 292, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "图案 ", "bpbj58", False, True, 294, "" Set cmb = Application.CommandBars("CELL").Controls("边框 ").Controls("绘图边框 ") AddCustomCommandBarPopup3 cmb, "字体颜色 ", "bpbj59", False, True, 296, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 填充颜色() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "线条颜色 ", "bpbj61", False, True,300,"" AddCustomCommandBarPopup2 ("绘图与书写笔 ") Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "批注笔 ", "bpbj63", False, True, 304, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "绘图和书写笔 ", "bpbj64", False, True, 306, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "注释笔 ", "bpbj65", False, True, 308, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "叠放次序 ", "bpbj66", False, True, 310, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "微移 ", "bpbj67", False, True, 312, "" Set cmb = Application.CommandBars("CELL").Controls("绘图与书写笔 ") AddCustomCommandBarPopup3 cmb, "对齐或分布 ", "bpbj68", False, True, 314, "" AddCustomCommandBarPopup2 ("旋转或翻转 ") Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBarPopup3 cmb, "直线 ", "bpbj70", False, True, 318, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ") AddCustomCommandBarPopup4 cmb, "连接符 " Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBarPopup3 cmb, "自选图形 ", "bpbj72", False, True, 322, "" Set cmb = Application.CommandBars("CELL").Controls("旋转或翻转 ").Controls("连接符 ") AddCustomCommandBarPopup3 cmb, "标注 ", "bpbj73", False, True, 324, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 流程图() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "箭头总汇 ", "bpbj75", False, True,328,"" AddCustomCommandBarPopup1 "星与旗帜 ", "bpbj76", False, True,330,"" AddCustomCommandBarPopup1 "基本形状 ", "bpbj77", False, True,332,"" AddCustomCommandBarPopup1 "插入形状 ", "bpbj78", False, True,334,"" AddCustomCommandBarPopup2 ("形状 ") Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBarPopup3 cmb, "非活动图表 ", "bpbj80", False, True, 338, "" Set cmb = Application.CommandBars("CELL").Controls("形状 ") AddCustomCommandBarPopup3 cmb, "Excel 控件 ", "bpbj81", False, True, 340, "" AddCustomCommandBarPopup1 "曲线 ", "bpbj82", False, True,342,"" AddCustomCommandBarPopup1 "曲线结点 ", "bpbj83", False, True,344,"" AddCustomCommandBarPopup1 "曲线段 ", "bpbj84", False, True,346,"" AddCustomCommandBarPopup1 "图片上下文菜单 ", "bpbj85", False, True,348,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB OLE对象() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "ActiveX 控件 ", "bpbj87", False, True,352,"" AddCustomCommandBarPopup1 "艺术字上下文菜单 ", "bpbj88", False, True,354,"" AddCustomCommandBarPopup1 "旋转方式 ", "bpbj89", False, True,356,"" AddCustomCommandBarPopup1 "连接符 ", "bpbj90", False, True,358,"" AddCustomCommandBarPopup1 "脚本标记快捷菜单 ", "bpbj91", False, True,360,"" AddCustomCommandBarPopup1 "Canvas Popup ", "bpbj92", False, True,362,"" AddCustomCommandBarPopup1 "Organization Chart Popup ", "bpbj93", False, True,364,"" AddCustomCommandBarPopup2 ("图表 ") Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBarPopup3 cmb, "选择 ", "bpbj95", False, True, 368, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ") AddCustomCommandBarPopup4 cmb, "版式 " Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBarPopup3 cmb, "符号栏 ", "bpbj97", False, True, 372, "" Set cmb = Application.CommandBars("CELL").Controls("图表 ").Controls("版式 ") AddCustomCommandBarPopup3 cmb, "任务窗格 ", "bpbj98", False, True, 374, "" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 添加命令() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "内置菜单 ", "bpbj100", False, True,378,"" AddCustomCommandBarPopup1 "剪贴板 ", "bpbj101", False, True,380,"" AddCustomCommandBarPopup1 "信封 ", "bpbj102", False, True,382,"" AddCustomCommandBarPopup1 "联机会议 ", "bpbj103", False, True,384,"" AddCustomCommandBarPopup1 "SnagIt ", "bpbj104", False, True,386,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB SUB 关于() Clear_menu '清除弹出菜单上菜单项 Dim cmb As CommandBarControl AddCustomCommandBarPopup1 "我的
VBA
", "WD
VBA
", False, True,400,"" AddCustomCommandBarPopup1 "帮助 ", "BZ", False, True,402,"" Popup_Menu.ShowPopup pt.X, pt.Y END SUB Public Sub ClearBar() '清除Cell弹出式菜单中菜单项 Dim ctr As CommandBarControl With Popup_Menu .Enabled = True For Each ctr In .Controls ctr.Delete Next End With End Sub Sub RemoveCustomMenu() '
恢复
系统菜单的各弹出菜单 Application.CommandBars("CELL").Reset End Sub Sub clear_menu() Dim cmb As Object For Each cmb In Application.CommandBars("cell").Controls Application.CommandBars("cell").Controls(cmb.Caption).Delete Next End Sub Sub AddCustomCommandBarPopup1(Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级菜单选项 Dim cbb As CommandBarButton Set cbb = Application.CommandBars("CELL").Controls.Add(msoControlButton) cbb.Caption = Caption If FId > 0 Then cbb.faceid = FId If ShortT "" Then cbb.ShortcutText = ShortT cbb.OnAction = Macro cbb.BeginGroup = NewGroup cbb.Enabled = Enable End Sub Function AddCustomCommandBarPopup2(Caption As String) As CommandBarControl '添加子菜单项 Dim cmb As CommandBarControl Set cmb = Application.CommandBars("CELL").Controls.Add(msoControlPopup) cmb.Caption = Caption cmb.Visible = True Set AddCustomCommandBarPopup2 = cmb End Function Sub AddCustomCommandBarPopup3(cmb As Object, Caption As String, Macro As String, NewGroup As Boolean, Enable As Boolean, FId As Integer, ShortT As String) '添加一级菜单选项 Dim cbc As CommandBarButton Set cbc = cmb.Controls.Add(msoControlButton) cbc.Caption = Caption If FId > 0 Then cbc.faceid = FId If ShortT "" Then cbc.ShortcutText = ShortT cbc.OnAction = Macro cbc.BeginGroup = NewGroup cbc.Enabled = Enable End Sub Function AddCustomCommandBarPopup4(cmd As CommandBarControl, Caption As String) As CommandBarControl '添加子菜单项 Dim cme As CommandBarControl Set cme = cmd.Controls.Add(msoControlPopup) cme.Caption = Caption cme.Visible = True Set AddCustomCommandBarPopup4 = cme End Function '********本
模块
结束********** '*************************** '* 窗口
模块
* '*************************** Private menu(1 To 50) As New Menu_Class '定义50个cMenu菜单类型 Private Sub UserForm_Initialize() hForm = FindWindow(vbNullString, Me.Caption) '程序中需要用到窗口句柄,先获得它 MenuCount = 0 Set Popup_Menu = Application.CommandBars("Cell") '程序中需指定一个弹出式菜单,我们指定为单元格右键菜单,您可另外指定一个弹出式菜单,请注意,是弹出式菜单 Dim bar As Control Set bar = Me.Controls.Add("Forms.image.1", "IM1", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "IM2", Visible) With bar .Visible = True .Left = -100 .Top = 0 .Height = 20 .Width = 20 .BackColor = &HFFC0C0 .BorderStyle = 0 End With '*************** Set bar = Me.Controls.Add("Forms.image.1", "FormMenuBar", Visible) With bar .Visible = True .Left = -1 .Top = -1 .Height = 20 .Width = 2000 .BackColor = &HFFC0C0 .BorderStyle = 0 End With menu(1).AddMenu Me,"文件","文件","" menu(2).AddMenu Me,"公式","公式","" menu(3).AddMenu Me,"开发工具","开发工具","" menu(4).AddMenu Me,"窗口","窗口","" menu(5).AddMenu Me,"工具","工具","" menu(6).AddMenu Me,"常用","常用","" menu(7).AddMenu Me,"列表","列表","" menu(8).AddMenu Me,"序列","序列","" menu(9).AddMenu Me,"框架","框架","" menu(10).AddMenu Me,"填充颜色","填充颜色","" menu(11).AddMenu Me,"流程图","流程图","" menu(12).AddMenu Me,"OLE对象","OLE对象","" menu(13).AddMenu Me,"添加命令","添加命令","" menu(14).AddMenu Me,"关于","关于","" end sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim i As Integer For i = LBound(menu) To UBound(menu) Set menu(i) = Nothing Next Popup_Menu.Enabled = True Popup_Menu.Reset end sub '********本
模块
结束**********
EXCEL集成工具箱V8.0完整增强版(精简)
EXCEL集成工具箱V8.0 多国语言版(2003-2010通用)增强版! * 软件大小: 22.90MB * 软件授权: 免费共享软件 * 软件语言: 多国语言[中文繁体/简体/英文] * 开 发 商: 创思维软件工作室 * 更新时间: 2010-09-22 * 应用平台: Win9X/Win2000/WinXP/Win2003/Vista/Wind7 Excel集成工具箱8.0是利用
VBA
(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右 自定义函数,集160个工具于一身,但体积小于16MB。当安装集成工具箱后,如果您使用Excel 2003,则将产生【工具箱】菜单, 包括160多个子菜单;如果您使用Excel 2007或者2010,将产生【集成】与【工具箱】功能区。根据各功能的特点,对子菜单 作了18个分类, 而在函数向导对话框中也生成100个左右新的函数,用于扩展Excel的计算功能。且所有功能都通用于 Excel 2002、2003和2007、2010。支持中英文显示与繁简体操作系统、拥有20多款华丽的皮肤界面,支持Excel2007全面
隐藏
选项卡,这个插件还模拟了一个Excel2003样式的菜单,目的就是方便那些从Excel2003转向使用2007或2010版的朋友使用。 ============================================================================================ 下载地址(集成工具箱本身3.84MB,解压后超过16MB,不含帮助文件): 网盘下载:http://www.brsbox.com/jackeyliang(含帮助,解压超过50MB) 共享资料下载: http://ishare.iask.sina.com.cn/f/10201782.html EXCEL集成工具箱V8.0完整增强版.rar 多特软件站下载: http://www.duote.com/soft/1495.html EXCEL集成工具箱V8.0完整版.rar (22.90MB) 非凡软件站下载: http://www.crsky.com/soft/22056.html EXCEL集成工具箱V8.0完整版.rar (22.90MB) 绿色软件站下载: http://soft.syue.com/soft/98/99/2010/2010081491963.html EXCEL集成工具箱V7.0完整版.rar (19.42MB) 软件屋下载: http://soft.softhouse.com.cn/software/show/76357.html EXCEL集成工具箱V7.0完整版.rar 大观软件站下载: http://guansky.com/soft/html/15828.html EXCEL集成工具箱V7.0完整版.rar IT资讯平台下载: http://download.it168.com/547/1483/index.shtml EXCEL集成工具箱V7.0完整版.rar ============================================================================================= 本工具箱160个菜单工具的功能介绍如下: 分类 功能名称 功能介绍 繁简转换 【简体转繁体】 将选中区域存储格的简体字批量转换成繁体。 【繁体转简体】 将选中区域存储格的繁体字批量转换成简体。 【综合计算显示】 综合计算并显示选中区域存储格的最大值、最小值、平均值、求和、存储格个数、筛选状态下的的加总求和,以及显示选区包含的数字、字符、汉字的个数等信息。 【GB2转BIG5】 将选中区域存储格的简体字(GB2)批量转换成繁体操作系统的繁体(BIG5)。 【BIG5转GB2】 将选中区域存储格的繁体字(BIG5)批量转换成简体操作系统的简体(GB2)。 完 美 背 景 着 色 【选区背景】 默认启动智能着色方式,此功能会清除一部分背景颜色,但对工作表中的条件格式会作完全保留,丝毫没有影响。最大的特点是支持屏幕行列捲轴的操作而不影响显示。 【选区背景选择】 进行着色功能切换,支持行着色、列着色、行与列同时着色、智能着色、选区着色、反向着色共6种方式供选择,可以自定义56种基本及颜色板任意着色颜色。 【条件背景】 默认启动智能着色方式,此功能不会清除背景颜色,但会对工作表中的条件格式作自动清除。最大的特点是支持屏幕行列捲轴的操作而不影响显示。 【条件背景选择】 进行着色功能切换,支持行着色、列着色、行与列同时着色、智能着色、选区着色、反向着色共6种方式供选择,可以自定义56种基本及颜色板任意着色颜色。 【高级背景】 将选择的行进行颜色标示,以突出当前行,有利于数据
查看
。可以随心所欲地定义颜色,还可以自由调整颜色的深浅。本工具相对于同类工具有不破坏背景色、条件格式、复制粘贴和撤消功能之优点。 【高级背景选择】 背景着色的高级功能,支持行着色、列着色、行与列同时着色共3种方式供选择。 快捷取数 【快捷取数列】 随存储格即时移动的快捷数据清单,可取任意区域的数据为唯一值清单,提高数据录入效率。最重要的是清单的最后6项为子程序功能,点击则可以完成增加清单显示宽度,选中或反选所有清单、写清单到任意存储格、重新加载数据等操作。也可以重新加载另外一区域或某几列的数据,也可以重新设定功能的生效存储格范围。 【快捷取日期】 随存储格即时移动的快捷日期数据清单,且有已录入日期的记忆功能。所有快捷取数工具都具有使用30秒钟则自动
隐藏
功能,用户可以决定是否取消其自动
隐藏
清单。 【快捷综合取数】 功能较功能更强大,支持同时取6个不同存储格区域(或列)为6个唯一值清单,并在指定的6个不同的生效范围自适应地显示对应的清单。清单的最后6项也为子程序功能,能完成相关操作。且支持重新加载数据及重设定生效存储格范围。 财 务 工 具 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上一不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。极力推荐的工具之一。 【取唯一值】 能瞬间取任意存储格区域的内容为不含重复值的唯一值清单,加载到工具中并提供随时随地调用,具有重复加载与读写的特点。 【添加注解】 可视化地窗体添加与修改注解功能。提供50种美观大方的批注样式供选择,支持图片背景批注与批量写批注。最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号连接成一个字符串写入指定的存储格或新工作表中。可以生成含重复值与不含重复值并可选是否排序的连接字符串。连接上万个字符只需短短1分钟即完成。 【隔行插入】 在当前工作表中允许从M行到N行,隔X行插入Y行,并允许是否需复制标题Z行。 【制作工资条】 瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条标题的行数以及相隔行数、插入行数等。并能动态地显示运行过程,支持程序运行后中途暂停。 【
恢复
工资条】 能将已生成工资条的工资明细表,快速地还原为初始状态,支持多种参数设定。 【生成数据列】 生成发票号码序列的得力助手,可以生成任意的奇偶数列,差值或倍值或者递增、递减的任意有理数数据序列,支持先行后列与先列后行两种方式,支持瞬时
恢复
清除。 【取RMB张数】 根据员工的工资计算需要多少张100元、50元......1元的钞票,可以批量累计计算。发现金工资的财务工作者的必备工具之一。 【数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到EXCEL文档中。提供两种导入方式。 【EXCEL转文本】 将当前工作表中存储格的内容按指定分隔符号导出为TEXT文本,此为银行代发工资数据与邮局或银行传递数据的便利工具之一。并提供两种方式的转换。 成本核算 【取唯一值】 还在使用或功能对数据进行唯一值的繁锁操作吗? 本工具可快捷方便地取任意选中区域的存储格内容为唯一值清单,快捷且高效。 【取产品型号】 功能较在字符串中取数字强大多倍。能批量取某列存储格按指定长度的数字并允许特定数字串的获取,例如M76000,RC76000等。而小于指定长度的数字串则不予获取。 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用范围(Where Used)。 常 用 工 具 【繁简转换】 可视化的繁简体GB与BGK码以及GB2与BIG5码相互转换,可以复制文本到当前窗体中文本进行转换,也可以实现单个文件或批量文件的转换。在窗体中双击文本字符串尾即可实现自动选定文本并自动复制功能。本工具较同类转换工具准确率达100%。 【背景颜色】 提供可视化的可选择着色方式的背景着色功能,默认启用智能着色。 【文件批量改名】 功能完善的文件或图片批量改名工具。细分为多方式改名,优点明显。例:替换字符串就支持起始长度、替换个数、GB2与BIG5码相互转换等多选项操作,也支持文件扩展名的修改。现为市场上功能最强大的一款文件及图片批量改名工具。 【工作表保护】 对当前工作薄中的各工作表批量一次性用指定密码进行锁定与解锁操作。 【工作表
隐藏
】 对当前工作薄中的各工作表批量一次性进行
隐藏
与取消
隐藏
操作。 【新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为批注背景来插入一个带图片背景的批注。可视化窗体操作,可随时更换批注样式,也支持批量多存储格样式修改。 【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 【查找与替换】 增强型EXCEL内置查找与替换功能。可以按设置搜索任何字符串(包括*或?符以及公式中包含的某字符),也可以将搜索结果写入到一新的工作表中以备查。 【工具箱选项】 集成工具箱的基本选项设置。基本分为。其中功能窗体显示区(NoTaskbar)功能可设置本工具启用的窗体图标是否在状态栏显示,并允许切换功能。 扩 展 工 具 【屏幕截图】 可以截取屏幕任意一区域并复制或另存为图片,可随意更改大小,操作灵活性特强。 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为
VBA
开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两时点间的相隔天数等。 【LED时钟与样式】 超漂亮的LED时钟,有默认时钟、蓝色时钟、经典时钟三种样式供选择。 【系统常用工具】 系统常用工具的快捷调用,例如:计算器、记事本、WORD、画图板。 【
隐藏
选项卡】 可以
隐藏
Excel2007及2010功能区的各选项卡(如:开始、插入、开发工具等)。 图 片 工 具 【选择本表图片】 将工作表中的图表导出为图片保存起来。 【批量导入图片到右列】 批量将图片导入到工作表中对应图片名字的右边。 【将选区转换成图片】 将工作表中的当前选中区域另存为图片。 【一键导出图形】 将工作表中的图片导出为图片文件。 【导入图片到工作表】 将磁盘中的图片导入到工作表中。 【删除选中区域图形】 将工作表中当前选中区域的所有图片与图形删除。 【删除所有导入图形】 将工作表中存在的所有图片与图形瞬间删除。 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按对应名称)按指定图片大小导入EXCEL中。允许一次性多图片格式(*.JPG/*.GIF/*.BMP/*.PNG),且支持模糊与非模糊方式导入图片,还可以在导入的图片上显示其文件名称以易于管理。 【批量导出图片】 将EXCEL中指定某列中的图片按显示图片大小导出到指定的文件夹中。 批 注 工 具 【插入样式批注】 提供50种花样的批注供选择,可随时更换,且美观大方。 【插入图片批注】 不仅提供多样的批注供选择,且支持批注中加入图片背景。 【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应名称生成带图片背景的批注。 【显示与
隐藏
批注】 显示或
隐藏
工作表中选中区域的批注。 【可视化批注】 可视化地窗体操作添加与修改注解完整功能。 安全工具 【工作表解密】 可以破解工作表密码和工作簿密码。在不知道密码的前提下找回密码。 【
VBA
工程解密】 将有密码的
VBA
工程代码破解,直接打开即可修改代码。相当于
VBA
工程免密
查看
。 【
隐藏
与显示磁盘】
隐藏
与显示磁盘本地磁盘盘符(无需重启动)。 【端口进程查询】
查看
本机开放的系统端口以及使用该端口的进程一览表。 系 统 工 具 【锁定屏幕】 快捷一键式登出当前用户并锁定电脑,类似于CTRL+ALT+DEL功能。 【系统待机】 使用此功能可以达到节能及锁定电脑一键式进入系统待机状态,再次使用时恢復速度是最快的,一般五秒之內就可以恢復到上次使用状态而无需要重新开机了。 【锁定鼠标】 可即时锁定屏幕鼠标且支持密码锁定,有密码才可以解锁
恢复
被禁止的所有操作,能屏蔽所有的系统按键如:ALT+F4、CTRL+ALT+DEL、ESC、WIN等,支持桌面锁。 【任务管理器】 增强型的系统任务管理器,提供进程的PID及路径、进程文件属性及详细说明,以及进行结束进程与删除进程及设置LEVEL等操作。 【系统功能信息】 系统功能调用及相关信息,关闭电脑、重启电脑、电脑使用时间、磁盘剩余空间。 【
查看
IP信息】
查看
本机LAN局域网的IP地址以及WAN外部网的公共IP地址(需要接入Internet)。 【显示桌面】 快捷的一键式显示桌面,有时桌面图标找不到时特别有用。 【资源管理器】 快捷的打开系统IE资源管理器,便于游览与管理文件夹与文件目录。 【系统分区表】
查看
系统分区表与引导区(BOOT)内容,备份起来以防止CIH病毒的破坏。 函数工具 【插入函数】 以对话窗体方式插入类别中大约一百个左右的自订增益函数。 【函数帮助】 提供最常用的绝大多数自订增益函数的详细说明信息。 【函数实例】 以实例文档Function Sample.xls来列举常用自订增益函数的使用方法举例。 快 捷 工 具 【快捷简转繁】 将当前工作表中所有存储格的简体字批量转换成繁体,如果选NO时,则还包括当前工作表中的所有窗体控件中的文本也进行转换。 【快捷繁转简】 将当前工作表中所有存储格的繁体字批量转换成简体,如果选NO时,则还包括当前工作表中的所有窗体控件中的文本也进行转换。 【
隐藏
非使用区】 对当前工作薄中各工作表未使用区域进行快速
隐藏
。 【删除空白行】 以当前工作表已使用区域中的空行进行快速删除。 【反向选择】 选择当前选中区域相反的已使用存储格。 【数字转英文】 将当前工作表中所有存储格的金额数字转换成英文格式显示的表达字串,在确认之前可以更改选项以转换为值或用公式表达两种方式供选择。 【删除超级链接】 瞬间删除当前工作薄中所有的超级链接。 【删除工作薄链接】 瞬间删除当前工作薄中所有的地址引用链接。 【工作表目录】 对当前工作簿的所有工作表建立目录与编号,且生成链接,单击可以打开工作表。 【建文件夹目录】 可按选中存储格内容或者当月日期天数值来创建文件夹到指定文件夹中。 【建工作表及目录】 可按选中存储格内容或者当月日期天数值来创建EXCEL文档到指定文件夹中。 【取文件目录】 对指定文件夹中的文件在Excel中建立目录,且生成链接,单击可以打开对应的文件。 【IE论坛收藏】 将IE游览器收藏夹中的WEB地址名称及链接写入EXCEL中保存起来。 【ABC序列】 为EXCEL生成一个可用鼠标拖值处理的A-Z字母序列,一次生成,重复使用。 【百家姓序列】 为EXCEL生成一个可用鼠标拖值处理的百家姓序列,一次生成,重复使用。 【压缩工作薄】 对当前工作薄进行压缩减肥操作,适当缩小文件大小。 【数字小字转大写】 将选中区域存储格的小写金额批量转换成中文大写金额。 【数字大写转小写】 将选中区域存储格的中文大写金额批量转换成小写金额。 【筛选复制可见】 在筛选状态下,对选中区域复制时不复制已
隐藏
的内容,支持Excel2003以下版本。 【选中相同值】 可瞬间选中与当前某存储格内容相同的工作表中所有存储格,比多次选中操作省时。 【修复EXCEL】 当您的Excel某些功能无法使用时,或者无缘无故多出很多菜单、工具栏时,本工具可以瞬间
恢复
Excel到默认状态,本功能较同类工具清除更彻底。 合 并 唯 一 值 工 具 【筛选选区唯一值行】 以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则
隐藏
重复值所在行。 【消除选区重复值】 将选择中重复出现的数据删除,显示唯一值的数据序列。 【突出显示重复值】 将选择中重复出现的数据均以圈号标示出来。 【生成随机不重复值】 在A列生成指定数据范围1-9000000以及上的随机数序列。 【控制单列不重复值】 可控制任意一列(取值1-255表示A-IV列)存储格内容的是否出现重复值,当出现重复值时则自动适时弹出信息提醒,若取消控制(取0或空值)即可。 【可还原之合并】 用此功能对存储格合并后,可在任何时候还原为合并前的状态。 【还原合并数据】 对一列中合并后的单元格取消合并,且
恢复
合并前所有数据。 【还原合并且填充】 对一列中合并后的单元格取消合并,且用第一个存储格值进行向下与向右填充。 【合并数据并复制】 可以将一个区域的数据直接复制粘贴到一个单元格中。 【合并数据并居中】 合并居中数据,可以保留合并前的所有数据。而且取消合并后可以还原数据,强过Excel自带的合并 居中多倍。 【可视化合并数据】 用显示窗体可视化操作对存储格字符串进行合并连接。 增强插入 【插入FLASH动画】 将Flash动画嵌入到工作表中,并播放,可以随意定制Flash动画的显示大小和位置。动画嵌入工作表中,删除FLASH原文件不影响Excel中的效果,且允许是否需要保留Flash的缩放等操作菜单。 【插入GIF动画】 将GIF动画插入到工作表中播放,可以随意定制GIF的大小和位置,删除GIF原文件不影响Excel中的效果。 【插入MV动画】 将MV等多媒体动画或电影插入到工作表中播放,可以定制MV视频的大小和位置。 增 益 工 具 【存储格加解密】 对工作表选区的数据进行加密,转换成乱码,有密码才可以
查看
。第二次执行时即可以
恢复
数据。理论上支持反复加密,但解密时需用相对应的密码。 【文本文件加密】 对文本TXT文件进行加密与解密操作。 【禁用USB使用】 禁止USB的即插即用功能,防止他人非正常使用外存储设备(无需重启动)。 【启用USB使用】
恢复
USB的即插即用功能(无需重启动)。 【清除历史记录】 彻底清除垃圾文件、临时文件、IE缓存、历史记录、升级下载记录、IE地址记录、运行记录等,为系统磁盘赢得更多的剩余空间,较同类清除工具效果更明显。 【修改文件时间】 可随心所欲修改文件的创建、修改、访问时间,包括年月日时分秒,支持修改单个文件、批量文件以及包括子文件夹等多种方式修改。 【下载地址转换】 可在讯雷(Thunder)、网际快车(FlashGet)、QQ旋风(Qqdl)、普通地址(Http)之间相互转换下载地址,这样就无需同时安装多个下载工具了,为下载提供了方便。 【星号密码
查看
】 拖动图标到任何程序窗体中的密码框上方,即可将其密码显示出来。用IE密码
查看
器还可
查看
IE游览器(包括傲游览器)WEB网页中的密码框中的密码。 【程序调试工具】 用作程序自身的DEBUG调试与程序崩溃的自动修复等。 动 画 工 具 【鼠标跟随动画】 非常灵活的鼠标跟随动画,有四种样式自动切换且支持各种显示参数值设定,可以修改参数固定为其中的一种动画方式。 【显示茸茸小兔】 可爱的茸茸小兔显示在屏幕右下角,仿瑞星杀毒软件的卡卡动画。 【启用特效动画】 随鼠标选中不同存储格变化而出现的6个绿色自转动环的特效动画,第一次有了“这是在使用EXCEL中的功能吗”的惊奇。有随鼠标移动(选YES)与不随鼠标移动两种方式,可以通过禁用此动画。动画工具中的经典之一。 【多个休闲动画】 具有休闲与娱乐于一体的多个动画:喜悦黄鹂、勤劳蜜蜂、经梅迎春、青青竹子、时针指南、葡萄熟了、果实累累、花好月季等。为EXCEL增添一丝喜色。 【关闭所有动画】 一键迅速关闭所有已经打开的休闲动画。 休 闲 工 具 【媒体播放器】 简洁媒体播放器,可打开MP3、MP4、MPG、DVD等几乎所有格式的多媒体文体。 【播放FLASH】 支持打开所有SWF格式的FLASH文件进行播放,可以暂停或按帧播放。 【屏幕放大镜】 可以缩放屏幕任意区域,支持0.5倍、1倍、2倍、3倍、6倍放大效果。 【屏幕画笔】 可以手写并在当前屏幕背景图上圈、点、划、作波浪标记等均可,并可将结果保存为图片文件或插入到Excel中,可自定画笔粗细与颜色选择,支持随时清除所有标记。 【俄罗斯方块】 非常经典的俄罗斯方块积分小游戏,支持鼠标操作与键盘方向键(或WSADZ键)两种操作方式,空格与回车键为暂停切换键。 【在线音乐】 非常流行的网络在线音乐播放器,自动加载最近音乐排行榜,也可按名字或歌星搜索到最热的歌曲并加到播放清单中。 开 发 辅 助 【获取系统菜单】 获取
VBA
编程人员需要的关于菜单及及控件的名称及ID等相关信息。 【生成系统图标A】
VBA
编程人员常用的工具。可以每页500项查询Excel内部图标及FaceId。 【生成系统图标B】
VBA
编程人员常用的工具。增强查询与写Excel内部图标的ID号于空白的工作表中。 【显示基本颜色值】 显示最基本的56种基本颜色ID、名称与相对应的RGB颜色值以及网页颜色值。 【删除注释行】 可以瞬间清除当前工作薄中的所有
模块
、类
模块
及
VBA
子程序中的所有注释语句。 定制开发 【定制功能
模块
】 根据客户需求定制开发的
模块
功能:Aging库存报表、ERP存货报表、BOM表整理、标签制作、付款通知书、报表格式转换等。 帮助工具 【集成工具箱】 关于本工具必要帮助以及作者(梁瑞春)的EMAIL、个人主页、联系方式等相关信息。 【中英文显示】 支持繁简体操作系统,以及多语言显示:中文简体(黙认)、中文繁体、英文显示。 【更换皮肤】 支持窗体界面的皮肤切换,具有二十多款超漂亮的皮肤包供免费选择。 【仿2003样式菜单】 开始使用2007版朋友来说,有很大的不适应。这个插件模拟了一个Excel2003样式的菜单,目的就是方便那些从Excel2003转向使用2007或2010版的朋友使用。 100个左右的自订EXCEL内置增益函数: 分类 函数名称 功能介绍 字 符 转 换 GB2BIG5 将存储格的简体字(GB2)转换成真正繁体字(BIG5)。一个参数即单元格引用。 BIG5GB2 将存储格的真正繁体字(BIG5)转换成简体字(GB2)。一个参数即单元格引用。 JianToFan (JtoF) 将存储格的简体字(GB2)转换成繁体字(GBK)。一个参数即单元格引用。 FanToJian (FtoJ) 将存储格的繁体字(GBK)转换成简体字(GB2)。一个参数即单元格引用。 ColumnNumber 将某字符所表示的列(或某单元格引用)转换为数字形式所表于的列号。一个参数取值范围为A--AZ。例如: ColumnNumber("AZ")=52表示为第52列。 ColumnText 将某数字所表示的列号(或某单元格引用)转换为字符形式所表于的列。一个参数取值范围为1--702。例如: ColumnText(256)=IV表示为IV列。 NumUpper 将存储格的小写数字金额转换为中文大写金额。一个参数即单元格引用。 NumLower 将存储格的中文大写金额转换为小写数字金额。一个参数即单元格引用。 NumtoEnglish 将存储格的小写金额转换为英文字符串表示的金额。第一个参数即单元格引用,第二个参数可省略,最标准的英文表达方式。 SpellNumber 将存储格的小写金额转换为英文字符串表示的金额。一个参数即单元格引用,适合美国美元表达习惯。 TextReverse 反转(倒置)文本字符串函数。一个参数即字符串表达式或单元格引用。 字 符 操 作 ChineseBiHua 取存储格的中文汉字的笔画。一个参数即单元格引用或中文汉字字符串。 Found 查找某字符在某字符串表达式的位置。第一个参数为要查找的字符串,第二个参数为字符串表达式或单元格引用,第三个参数为查找到的第N个字符串,若省略则表示查找第1个字符串。例如:Found("A","ABCDAEFGHAAA",3)=10 GetModelNumber 取产品MODEL型号。第一个参数为产品的英文数字描述的字串,第2个参数为指定MODEL型号的长度(默认为4),第3个参数为MODEL型号间的分隔符号,可任意。 GetMoneyPcs 取存储格的数字金额中包含对应人民币面额(100/50/20/10/5/2/1等)的张数。第一个参数即单元格引用,第二个参数为人民币(RMB)面额。 GetTax 计算个人所得税工具。第一个参数为计税总额,第二个参数为扣除数额。 GetTypeValue 将存储格的内容按需求进行字符分离与表达式计算。第一个参数即单元格引用,第二个参数即类型取值范围为1-10(1-只保留数字. 2-只保留字母. 3-只留中文(包含空格). 4-只保留数字和小数点. 5-只保留数字和运算符号+-*/^. 6-只保留字母和数字. 7-去掉数字. 8-去除英文大小写字符. 9-去除中文. 10-这里指去除所有空格符)。 HZtoPY 将存储格的内容中的中文汉字转换为拼音。第一个参数为单元格引用,第二个参数为是否只对汉字转换(1或0),第三个参数为间隔符号。后面两个参数可以省略。 NumInt 将存储格的数字金额转换为按整数四舍五入的整数金额。第一个参数即单元格引用,第二个参数为人民币面额(取值为5或10)。例如:NumInt(9825.65,5)=9825, NumInt(9825.65,10)=9830。面值参数越大差异越大。 NumIntDown 将存储格的数字金额转换为向下按整数四舍五入的整数金额。第一个参数即单元格引用,第二个参数为人民币面额(取值为5或10)。例: NumIntDown(9825.65,5)=9820, NumIntDown(9825.65,10)=9820。面值参数越大差异越大。 NumIntUp 将存储格的数字金额转换为向上按整数四舍五入的整数金额。第一个参数即单元格引用,第二个参数为人民币面额(取值为5或10)。例如:NumIntUp(9825.65,5)=9830, NumIntUp(9825.65,10)=9830。面值参数越大差异越大。 ReplaceIn 字符替换含数。第一个参数为字符串表达式或单元格引用,第二个参数为要查找的字符串,第三个参数为新替换的字符串,第四个参数为从找到的第N个字符开始替换。 RightFind 从右向左查找字符串的函数。例如:RightFind("BCADEA","A")=6 存 储 格 操 作 CheckId 身份证信息查询及验证函数。一个参数即为单元格引用或身份证号码字符串。返回信息为:地区信息+出生年月日+性别+出生序号+是否验证成功。可取身份证前2位或4位或6位或10位或14位(也可后面以0数字补充)即显示地区信息;完整应取18位身份证字串数据。 ClearBlank 消除空值函数。可以选择多行多列,按先行后列之方式返回值.两个参数,第一个参数为存储格区域引用,第二个参数为需要取数的序号(1--N)。 ColorCount 取存储格范围内某颜色值的存储格个数。第一个参数为储格范围引用,第二个参数为某颜色Index值或某单元格引用。 ColorSum 按背景颜色对区域值求和。第一参数为求和区域,第二参数为背景颜色参照值。 FormulaView 显示公式函数。提取单元格中的公式,第一个参数单元格引用,第二个参数可省略。 GradeAverage 评委评分函数。计算引用存储格区域中去除最大值与最小值之后再求平均数。 GetFolderPathName 用于创建带链接的文件目录,有二个参数,第一参数为指定路径的字符串,第二参数指定取值编号(数字序号1--N)。 GetComment 提取存储格批注中的文字。只有一个参数,即单元格引用。 CommonItem 返回两个存储格区域的共有项目。前两个参数为区域,第三参数为取数序号1--N。 VarianceItem 返回第一区域中有而第二区域没有的项目。前两个参数是区域,第三参数为序号。 SplitGetValue 按分割符取数。第一参数为单元格引用,第二参数表示取第N个字符串,第三个参数表示分割符号,可任意字符。 UnionString 将区域字符进行合并。第一参数为分割符,第二参数为引用区域。可以用""表示不使用分割符。第三参数开始为引用区域,可以有1到254个区域(Excel2003中是1到29个)。也还可以直接用文本做参数。 普通函数 BookName 取工作薄名称目录。一个参数,输入工作薄序号即返回相应工作薄名称。 SheetName 取工作表名称目录。一个参数,输入工作表序号即返回相应工作表名称。 GoldPoint 数学中黄金分割点的精确取值。 PI 数学中PI(π)的精确取值。PI=3.1415926535897932384626433832795. 系统函数 CloseExcel 不保存当前文档而直接退出EXCEL。 ComputerChangeName 更改计算机名称。一个参数即任意的名称字符串。 ComputerLock 电脑进入登出锁定状态。一个可选参数可以省略。 ComputerSleep 电脑进入待机休眠状态。一个可选参数可以省略。 USB USB盘的禁用与
恢复
启用。一个字符串参数即Enabled为启用,Disabled为禁用。 对于无法安装的朋友请注意以下4点 : 一:必须是完整版
OFFICE
,不能是绿色版、精简版,它们不支持COM加载宏. 二:必须关闭Excel状态下安装或者删除工具,安装后重启Excel即可. 三:如果是VISTA或WIN 7,必须以管理员用户安装,且从控制面板中关掉用户帐户控制(UAC)功能. 四:如果您装了其它的EXCEL工具,请先关掉它,它们有可能删除本工具的菜单. 安装方法:(也可参考安装说明.TXT文档) 安装说明与使用规则: 1.1.绿色版本安装:管理员用户运行Setup.exe进行安装程序! 运行UnSetup.exe进行反安装程序! 1.2.绿色版本安装:非管理员用户可运行Register.bat进行安装程序! 运行UnRegister.bat进行反安装程序! 2.1.若安装并使用后因误操作报错时(例如EXCEL打开后未能加载工具菜单),可以卸载后重新安装到另外不同的目录中即可
恢复
正常.(因微软COM的保护措施而致)! 2.2.建议每天只打开EXCEL主程序一次为宜,保持打开状态不要关闭.(文档则可任意多次打开). 3.1.由于免费标签插件ExcelTab.dll与系统的兼容性问题,安装后在使用过程中若出现屏幕微小抖动或影响正常使用时,请将安装目录Librarys中的ExcelTab.dll 文件改名或删除即可! (不过出现的几率为1%左右). 或者请下载后24小时之内将其删除即可,而不会影响本工具箱的功能! ======================================================================================== EXCEL集成工具箱V8.0增强版修正内容: 1.修正LED时钟自动启动的BUG.在工具箱选项中新增加其开关设定. 2.修正EXCEL2007以上版本中不能手工设定不同工作表网格线颜色的问题. 关闭了原自动设定网格线颜色的功能. 3.改进EXCEL2007及EXCEL2010版本中COM加载时间过长的问题,提升了原版的启动速度. 4.提高程式代码执行与加速功能,实行了程序稳定性与谨慎性测试并通过. 5.新增CheckId()身份证信息查询及验证函数. 6.新增4个皮肤包并修正更换皮肤设置后重启即能生效. 未注册版最多支持30个皮肤包,注册版允许最多皮肤包99个. ========================================================================================= 需知更多请访问官方论坛: Http://exceltools.5d6d.com 作者QQ:1058697543
EXCEL集成工具箱V6.0
Excel集成工具箱6.0是利用
VBA
(Visual Basic for Applications)语言编写的增强应用型插件。包括160个菜单功能和100个左右 自定义函数,集160个工具于一身,但体积小于15MB。当安装集成工具箱后,如果您使用Excel 2003,则将产生【工具箱】菜单, 包括160多个子菜单;如果您使用Excel 2007或者2010,将产生【集成】与【工具箱】功能区。根据各功能的特点,对子菜单 作了18个分类, 而在函数向导对话框中也生成100个左右新的函数,用于扩展Excel的计算功能。且所有功能都通用于 Excel 2002、2003和2007、2010。支持中英文显示与繁简体操作系统、拥有20多款华丽的皮肤界面,支持Excel2007全面
隐藏
选项卡,这个插件还模拟了一个Excel2003样式的菜单,目的就是方便那些从Excel2003转向使用2007或2010版的朋友使用。 =================================================================================================================== 下载地址(集成工具箱本身3.60MB,解压后超过15MB,不含帮助文件): 网盘下载:http://www.brsbox.com/jackeyliang(含帮助,解压超过40MB) 多特软件站下载: http://www.duote.com/soft/1495.html EXCEL集成工具箱V7.0完整版.rar (19.42MB) 绿色软件站下载: http://soft.syue.com/soft/98/99/2010/2010081491963.html EXCEL集成工具箱V7.0完整版.rar 软件屋下载: http://soft.softhouse.com.cn/software/show/76357.html EXCEL集成工具箱V7.0完整版.rar 大观软件站下载: http://guansky.com/soft/html/15828.html EXCEL集成工具箱V7.0完整版.rar IT资讯平台下载: http://download.it168.com/547/1483/index.shtml EXCEL集成工具箱V7.0完整版.rar =================================================================================================================== 本工具箱160个菜单工具的功能介绍如下: 分类 功能名称 功能介绍 繁简转换 【简体转繁体】 将选中区域存储格的简体字批量转换成繁体。 【繁体转简体】 将选中区域存储格的繁体字批量转换成简体。 【综合计算显示】 综合计算并显示选中区域存储格的最大值、最小值、平均值、求和、存储格个数、筛选状态下的的加总求和,以及显示选区包含的数字、字符、汉字的个数等信息。 【GB2转BIG5】 将选中区域存储格的简体字(GB2)批量转换成繁体操作系统的繁体(BIG5)。 【BIG5转GB2】 将选中区域存储格的繁体字(BIG5)批量转换成简体操作系统的简体(GB2)。 完 美 背 景 着 色 【选区背景】 默认启动智能着色方式,此功能会清除一部分背景颜色,但对工作表中的条件格式会作完全保留,丝毫没有影响。最大的特点是支持屏幕行列捲轴的操作而不影响显示。 【选区背景选择】 进行着色功能切换,支持行着色、列着色、行与列同时着色、智能着色、选区着色、反向着色共6种方式供选择,可以自定义56种基本及颜色板任意着色颜色。 【条件背景】 默认启动智能着色方式,此功能不会清除背景颜色,但会对工作表中的条件格式作自动清除。最大的特点是支持屏幕行列捲轴的操作而不影响显示。 【条件背景选择】 进行着色功能切换,支持行着色、列着色、行与列同时着色、智能着色、选区着色、反向着色共6种方式供选择,可以自定义56种基本及颜色板任意着色颜色。 【高级背景】 将选择的行进行颜色标示,以突出当前行,有利于数据
查看
。可以随心所欲地定义颜色,还可以自由调整颜色的深浅。本工具相对于同类工具有不破坏背景色、条件格式、复制粘贴和撤消功能之优点。 【高级背景选择】 背景着色的高级功能,支持行着色、列着色、行与列同时着色共3种方式供选择。 快捷取数 【快捷取数列】 随存储格即时移动的快捷数据清单,可取任意区域的数据为唯一值清单,提高数据录入效率。最重要的是清单的最后6项为子程序功能,点击则可以完成增加清单显示宽度,选中或反选所有清单、写清单到任意存储格、重新加载数据等操作。也可以重新加载另外一区域或某几列的数据,也可以重新设定功能的生效存储格范围。 【快捷取日期】 随存储格即时移动的快捷日期数据清单,且有已录入日期的记忆功能。所有快捷取数工具都具有使用30秒钟则自动
隐藏
功能,用户可以决定是否取消其自动
隐藏
清单。 【快捷综合取数】 功能较功能更强大,支持同时取6个不同存储格区域(或列)为6个唯一值清单,并在指定的6个不同的生效范围自适应地显示对应的清单。清单的最后6项也为子程序功能,能完成相关操作。且支持重新加载数据及重设定生效存储格范围。 财 务 工 具 【自动填充】 不同于EXCEL的CTRL+D功能,能对选中的某列数据不同存储格区域的空白处,取相邻的上一不为空的存储格内容同时作数据源的自动填充。1分钟内能处理手工需几小时才能完成的几万行ERP或KingDee原始数据。极力推荐的工具之一。 【取唯一值】 能瞬间取任意存储格区域的内容为不含重复值的唯一值清单,加载到工具中并提供随时随地调用,具有重复加载与读写的特点。 【添加注解】 可视化地窗体添加与修改注解功能。提供50种美观大方的批注样式供选择,支持图片背景批注与批量写批注。最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号连接成一个字符串写入指定的存储格或新工作表中。可以生成含重复值与不含重复值并可选是否排序的连接字符串。连接上万个字符只需短短1分钟即完成。 【隔行插入】 在当前工作表中允许从M行到N行,隔X行插入Y行,并允许是否需复制标题Z行。 【制作工资条】 瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条标题的行数以及相隔行数、插入行数等。并能动态地显示运行过程,支持程序运行后中途暂停。 【
恢复
工资条】 能将已生成工资条的工资明细表,快速地还原为初始状态,支持多种参数设定。 【生成数据列】 生成发票号码序列的得力助手,可以生成任意的奇偶数列,差值或倍值或者递增、递减的任意有理数数据序列,支持先行后列与先列后行两种方式,支持瞬时
恢复
清除。 【取RMB张数】 根据员工的工资计算需要多少张100元、50元......1元的钞票,可以批量累计计算。发现金工资的财务工作者的必备工具之一。 【数字转英文】 将选中区域(默认)或已使用区域存储格的金额数字转换成英文格式显示的表达字符串,为三资企业制作客户外汇付款通知书的理想工具。 【文本转EXCEL】 将文本文件按指定的分隔符号分隔一次性导入到EXCEL文档中。提供两种导入方式。 【EXCEL转文本】 将当前工作表中存储格的内容按指定分隔符号导出为TEXT文本,此为银行代发工资数据与邮局或银行传递数据的便利工具之一。并提供两种方式的转换。 成本核算 【取唯一值】 还在使用或功能对数据进行唯一值的繁锁操作吗? 本工具可快捷方便地取任意选中区域的存储格内容为唯一值清单,快捷且高效。 【取产品型号】 功能较在字符串中取数字强大多倍。能批量取某列存储格按指定长度的数字并允许特定数字串的获取,例如M76000,RC76000等。而小于指定长度的数字串则不予获取。 【快速选定数据】 可瞬间选中与用户指定内容相同的当前工作表中所有存储格,方便选定、清除内容或其他操作,支持选中字体彩色是否着色。 【取型号使用范围】 取MATCH的两列数据(Relating Area)中对应MODEL的使用范围(Where Used)。 常 用 工 具 【繁简转换】 可视化的繁简体GB与BGK码以及GB2与BIG5码相互转换,可以复制文本到当前窗体中文本进行转换,也可以实现单个文件或批量文件的转换。在窗体中双击文本字符串尾即可实现自动选定文本并自动复制功能。本工具较同类转换工具准确率达100%。 【背景颜色】 提供可视化的可选择着色方式的背景着色功能,默认启用智能着色。 【文件批量改名】 功能完善的文件或图片批量改名工具。细分为多方式改名,优点明显。例:替换字符串就支持起始长度、替换个数、GB2与BIG5码相互转换等多选项操作,也支持文件扩展名的修改。现为市场上功能最强大的一款文件及图片批量改名工具。 【工作表保护】 对当前工作薄中的各工作表批量一次性用指定密码进行锁定与解锁操作。 【工作表
隐藏
】 对当前工作薄中的各工作表批量一次性进行
隐藏
与取消
隐藏
操作。 【新建工作表】 批量新建或者复制工作表,依指定存储格内容可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名。分为自动新增方式与依指定存储格内容两种方式。 【插入批注背景】 可以选定任意一幅图片为批注背景来插入一个带图片背景的批注。可视化窗体操作,可随时更换批注样式,也支持批量多存储格样式修改。 【插入行数】 对工作表隔行插入行并可以复制标题行,其中对相隔行数、插入行数等可以自定义。 【注解样式】 可以插入多达50种样式的注解,支持随时切换当前注解样式为指定的样式。 【工作表拆分】 将当前工作表的某列数据按指定条件拆分成多个工作表,可以用任意列的数据以及选定的数据做为拆分条件。 【行列奇偶选择】 可视化对当前工作表的行与列进行快速的奇偶行或奇偶列快速选定操作。 【查找与替换】 增强型EXCEL内置查找与替换功能。可以按设置搜索任何字符串(包括*或?符以及公式中包含的某字符),也可以将搜索结果写入到一新的工作表中以备查。 【工具箱选项】 集成工具箱的基本选项设置。基本分为。其中功能窗体显示区(NoTaskbar)功能可设置本工具启用的窗体图标是否在状态栏显示,并允许切换功能。 扩 展 工 具 【屏幕截图】 可以截取屏幕任意一区域并复制或另存为图片,可随意更改大小,操作灵活性特强。 【屏幕取色】 经典的屏幕取色工具,可取任意一处屏幕颜色到指定的存储格中,可显示为RGB颜色值或十六进制的颜色值,为
VBA
开发人员的辅助工具之一。 【万年日历】 可以查询所有节、假日信息和公农双历,以及计算两时点间的相隔天数等。 【LED时钟与样式】 超漂亮的LED时钟,有默认时钟、蓝色时钟、经典时钟三种样式供选择。 【系统常用工具】 系统常用工具的快捷调用,例如:计算器、记事本、WORD、画图板。 【
隐藏
选项卡】 可以
隐藏
Excel2007及2010功能区的各选项卡(如:开始、插入、开发工具等)。 图 片 工 具 【选择本表图片】 将工作表中的图表导出为图片保存起来。 【批量导入图片到右列】 批量将图片导入到工作表中对应图片名字的右边。 【将选区转换成图片】 将工作表中的当前选中区域另存为图片。 【一键导出图形】 将工作表中的图片导出为图片文件。 【导入图片到工作表】 将磁盘中的图片导入到工作表中。 【删除选中区域图形】 将工作表中当前选中区域的所有图片与图形删除。 【删除所有导入图形】 将工作表中存在的所有图片与图形瞬间删除。 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按对应名称)按指定图片大小导入EXCEL中。允许一次性多图片格式(*.JPG/*.GIF/*.BMP/*.PNG),且支持模糊与非模糊方式导入图片,还可以在导入的图片上显示其文件名称以易于管理。 【批量导出图片】 将EXCEL中指定某列中的图片按显示图片大小导出到指定的文件夹中。 批 注 工 具 【插入样式批注】 提供50种花样的批注供选择,可随时更换,且美观大方。 【插入图片批注】 不仅提供多样的批注供选择,且支持批注中加入图片背景。 【批量修改批注】 批量一次性修改选中存储格区域批注的样式。 【批量图片批注】 可批量将图片生成带图片背景的批注。 【批量名称图片批注】 可批量将图片依对应名称生成带图片背景的批注。 【显示与
隐藏
批注】 显示或
隐藏
工作表中选中区域的批注。 【可视化批注】 可视化地窗体操作添加与修改注解完整功能。 安全工具 【工作表解密】 可以破解工作表密码和工作簿密码。在不知道密码的前提下找回密码。 【
VBA
工程解密】 将有密码的
VBA
工程代码破解,直接打开即可修改代码。相当于
VBA
工程免密
查看
。 【
隐藏
与显示磁盘】
隐藏
与显示磁盘本地磁盘盘符(无需重启动)。 【端口进程查询】
查看
本机开放的系统端口以及使用该端口的进程一览表。 系 统 工 具 【锁定屏幕】 快捷一键式登出当前用户并锁定电脑,类似于CTRL+ALT+DEL功能。 【系统待机】 使用此功能可以达到节能及锁定电脑一键式进入系统待机状态,再次使用时恢復速度是最快的,一般五秒之內就可以恢復到上次使用状态而无需要重新开机了。 【锁定鼠标】 可即时锁定屏幕鼠标且支持密码锁定,有密码才可以解锁
恢复
被禁止的所有操作,能屏蔽所有的系统按键如:ALT+F4、CTRL+ALT+DEL、ESC、WIN等,支持桌面锁。 【任务管理器】 增强型的系统任务管理器,提供进程的PID及路径、进程文件属性及详细说明,以及进行结束进程与删除进程及设置LEVEL等操作。 【系统功能信息】 系统功能调用及相关信息,关闭电脑、重启电脑、电脑使用时间、磁盘剩余空间。 【
查看
IP信息】
查看
本机LAN局域网的IP地址以及WAN外部网的公共IP地址(需要接入Internet)。 【显示桌面】 快捷的一键式显示桌面,有时桌面图标找不到时特别有用。 【资源管理器】 快捷的打开系统IE资源管理器,便于游览与管理文件夹与文件目录。 【系统分区表】
查看
系统分区表与引导区(BOOT)内容,备份起来以防止CIH病毒的破坏。 函数工具 【插入函数】 以对话窗体方式插入类别中大约一百个左右的自订增益函数。 【函数帮助】 提供最常用的绝大多数自订增益函数的详细说明信息。 【函数实例】 以实例文档Function Sample.xls来列举常用自订增益函数的使用方法举例。 快 捷 工 具 【快捷简转繁】 将当前工作表中所有存储格的简体字批量转换成繁体,如果选NO时,则还包括当前工作表中的所有窗体控件中的文本也进行转换。 【快捷繁转简】 将当前工作表中所有存储格的繁体字批量转换成简体,如果选NO时,则还包括当前工作表中的所有窗体控件中的文本也进行转换。 【
隐藏
非使用区】 对当前工作薄中各工作表未使用区域进行快速
隐藏
。 【删除空白行】 以当前工作表已使用区域中的空行进行快速删除。 【反向选择】 选择当前选中区域相反的已使用存储格。 【数字转英文】 将当前工作表中所有存储格的金额数字转换成英文格式显示的表达字串,在确认之前可以更改选项以转换为值或用公式表达两种方式供选择。 【删除超级链接】 瞬间删除当前工作薄中所有的超级链接。 【删除工作薄链接】 瞬间删除当前工作薄中所有的地址引用链接。 【工作表目录】 对当前工作簿的所有工作表建立目录与编号,且生成链接,单击可以打开工作表。 【建文件夹目录】 可按选中存储格内容或者当月日期天数值来创建文件夹到指定文件夹中。 【建工作表及目录】 可按选中存储格内容或者当月日期天数值来创建EXCEL文档到指定文件夹中。 【取文件目录】 对指定文件夹中的文件在Excel中建立目录,且生成链接,单击可以打开对应的文件。 【IE论坛收藏】 将IE游览器收藏夹中的WEB地址名称及链接写入EXCEL中保存起来。 【ABC序列】 为EXCEL生成一个可用鼠标拖值处理的A-Z字母序列,一次生成,重复使用。 【百家姓序列】 为EXCEL生成一个可用鼠标拖值处理的百家姓序列,一次生成,重复使用。 【压缩工作薄】 对当前工作薄进行压缩减肥操作,适当缩小文件大小。 【数字小字转大写】 将选中区域存储格的小写金额批量转换成中文大写金额。 【数字大写转小写】 将选中区域存储格的中文大写金额批量转换成小写金额。 【筛选复制可见】 在筛选状态下,对选中区域复制时不复制已
隐藏
的内容,支持Excel2003以下版本。 【选中相同值】 可瞬间选中与当前某存储格内容相同的工作表中所有存储格,比多次选中操作省时。 【修复EXCEL】 当您的Excel某些功能无法使用时,或者无缘无故多出很多菜单、工具栏时,本工具可以瞬间
恢复
Excel到默认状态,本功能较同类工具清除更彻底。 合 并 唯 一 值 工 具 【筛选选区唯一值行】 以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则
隐藏
重复值所在行。 【消除选区重复值】 将选择中重复出现的数据删除,显示唯一值的数据序列。 【突出显示重复值】 将选择中重复出现的数据均以圈号标示出来。 【生成随机不重复值】 在A列生成指定数据范围1-9000000以及上的随机数序列。 【控制单列不重复值】 可控制任意一列(取值1-255表示A-IV列)存储格内容的是否出现重复值,当出现重复值时则自动适时弹出信息提醒,若取消控制(取0或空值)即可。 【可还原之合并】 用此功能对存储格合并后,可在任何时候还原为合并前的状态。 【还原合并数据】 对一列中合并后的单元格取消合并,且
恢复
合并前所有数据。 【还原合并且填充】 对一列中合并后的单元格取消合并,且用第一个存储格值进行向下与向右填充。 【合并数据并复制】 可以将一个区域的数据直接复制粘贴到一个单元格中。 【合并数据并居中】 合并居中数据,可以保留合并前的所有数据。而且取消合并后可以还原数据,强过Excel自带的合并 居中多倍。 【可视化合并数据】 用显示窗体可视化操作对存储格字符串进行合并连接。 增强插入 【插入FLASH动画】 将Flash动画嵌入到工作表中,并播放,可以随意定制Flash动画的显示大小和位置。动画嵌入工作表中,删除FLASH原文件不影响Excel中的效果,且允许是否需要保留Flash的缩放等操作菜单。 【插入GIF动画】 将GIF动画插入到工作表中播放,可以随意定制GIF的大小和位置,删除GIF原文件不影响Excel中的效果。 【插入MV动画】 将MV等多媒体动画或电影插入到工作表中播放,可以定制MV视频的大小和位置。 增 益 工 具 【存储格加解密】 对工作表选区的数据进行加密,转换成乱码,有密码才可以
查看
。第二次执行时即可以
恢复
数据。理论上支持反复加密,但解密时需用相对应的密码。 【文本文件加密】 对文本TXT文件进行加密与解密操作。 【禁用USB使用】 禁止USB的即插即用功能,防止他人非正常使用外存储设备(无需重启动)。 【启用USB使用】
恢复
USB的即插即用功能(无需重启动)。 【清除历史记录】 彻底清除垃圾文件、临时文件、IE缓存、历史记录、升级下载记录、IE地址记录、运行记录等,为系统磁盘赢得更多的剩余空间,较同类清除工具效果更明显。 【修改文件时间】 可随心所欲修改文件的创建、修改、访问时间,包括年月日时分秒,支持修改单个文件、批量文件以及包括子文件夹等多种方式修改。 【下载地址转换】 可在讯雷(Thunder)、网际快车(FlashGet)、QQ旋风(Qqdl)、普通地址(Http)之间相互转换下载地址,这样就无需同时安装多个下载工具了,为下载提供了方便。 【星号密码
查看
】 拖动图标到任何程序窗体中的密码框上方,即可将其密码显示出来。用IE密码
查看
器还可
查看
IE游览器(包括傲游览器)WEB网页中的密码框中的密码。 【程序调试工具】 用作程序自身的DEBUG调试与程序崩溃的自动修复等。 动 画 工 具 【鼠标跟随动画】 非常灵活的鼠标跟随动画,有四种样式自动切换且支持各种显示参数值设定,可以修改参数固定为其中的一种动画方式。 【显示茸茸小兔】 可爱的茸茸小兔显示在屏幕右下角,仿瑞星杀毒软件的卡卡动画。 【启用特效动画】 随鼠标选中不同存储格变化而出现的6个绿色自转动环的特效动画,第一次有了“这是在使用EXCEL中的功能吗”的惊奇。有随鼠标移动(选YES)与不随鼠标移动两种方式,可以通过禁用此动画。动画工具中的经典之一。 【多个休闲动画】 具有休闲与娱乐于一体的多个动画:喜悦黄鹂、勤劳蜜蜂、经梅迎春、青青竹子、时针指南、葡萄熟了、果实累累、花好月季等。为EXCEL增添一丝喜色。 【关闭所有动画】 一键迅速关闭所有已经打开的休闲动画。 休 闲 工 具 【媒体播放器】 简洁媒体播放器,可打开MP3、MP4、MPG、DVD等几乎所有格式的多媒体文体。 【播放FLASH】 支持打开所有SWF格式的FLASH文件进行播放,可以暂停或按帧播放。 【屏幕放大镜】 可以缩放屏幕任意区域,支持0.5倍、1倍、2倍、3倍、6倍放大效果。 【屏幕画笔】 可以手写并在当前屏幕背景图上圈、点、划、作波浪标记等均可,并可将结果保存为图片文件或插入到Excel中,可自定画笔粗细与颜色选择,支持随时清除所有标记。 【俄罗斯方块】 非常经典的俄罗斯方块积分小游戏,支持鼠标操作与键盘方向键(或WSADZ键)两种操作方式,空格与回车键为暂停切换键。 【在线音乐】 非常流行的网络在线音乐播放器,自动加载最近音乐排行榜,也可按名字或歌星搜索到最热的歌曲并加到播放清单中。 开 发 辅 助 【获取系统菜单】 获取
VBA
编程人员需要的关于菜单及及控件的名称及ID等相关信息。 【生成系统图标A】
VBA
编程人员常用的工具。可以每页500项查询Excel内部图标及FaceId。 【生成系统图标B】
VBA
编程人员常用的工具。增强查询与写Excel内部图标的ID号于空白的工作表中。 【显示基本颜色值】 显示最基本的56种基本颜色ID、名称与相对应的RGB颜色值以及网页颜色值。 【删除注释行】 可以瞬间清除当前工作薄中的所有
模块
、类
模块
及
VBA
子程序中的所有注释语句。 定制开发 【定制功能
模块
】 根据客户需求定制开发的
模块
功能:Aging库存报表、ERP存货报表、BOM表整理、标签制作、付款通知书、报表格式转换等。 帮助工具 【集成工具箱】 关于本工具必要帮助以及作者(梁瑞春)的EMAIL、个人主页、联系方式等相关信息。 【中英文显示】 支持繁简体操作系统,以及多语言显示:中文简体(黙认)、中文繁体、英文显示。 【更换皮肤】 支持窗体界面的皮肤切换,具有二十多款超漂亮的皮肤包供免费选择。 【仿2003样式菜单】 开始使用2007版朋友来说,有很大的不适应。这个插件模拟了一个Excel2003样式的菜单,目的就是方便那些从Excel2003转向使用2007或2010版的朋友使用。 100个左右的自订EXCEL内置增益函数: 分类 函数名称 功能介绍 字 符 转 换 GB2BIG5 将存储格的简体字(GB2)转换成真正繁体字(BIG5)。一个参数即单元格引用。 BIG5GB2 将存储格的真正繁体字(BIG5)转换成简体字(GB2)。一个参数即单元格引用。 JianToFan (JtoF) 将存储格的简体字(GB2)转换成繁体字(GBK)。一个参数即单元格引用。 FanToJian (FtoJ) 将存储格的繁体字(GBK)转换成简体字(GB2)。一个参数即单元格引用。 ColumnNumber 将某字符所表示的列(或某单元格引用)转换为数字形式所表于的列号。一个参数取值范围为A--AZ。例如: ColumnNumber("AZ")=52表示为第52列。 ColumnText 将某数字所表示的列号(或某单元格引用)转换为字符形式所表于的列。一个参数取值范围为1--702。例如: ColumnText(256)=IV表示为IV列。 NumUpper 将存储格的小写数字金额转换为中文大写金额。一个参数即单元格引用。 NumLower 将存储格的中文大写金额转换为小写数字金额。一个参数即单元格引用。 NumtoEnglish 将存储格的小写金额转换为英文字符串表示的金额。第一个参数即单元格引用,第二个参数可省略,最标准的英文表达方式。 SpellNumber 将存储格的小写金额转换为英文字符串表示的金额。一个参数即单元格引用,适合美国美元表达习惯。 TextReverse 反转(倒置)文本字符串函数。一个参数即字符串表达式或单元格引用。 字 符 操 作 ChineseBiHua 取存储格的中文汉字的笔画。一个参数即单元格引用或中文汉字字符串。 Found 查找某字符在某字符串表达式的位置。第一个参数为要查找的字符串,第二个参数为字符串表达式或单元格引用,第三个参数为查找到的第N个字符串,若省略则表示查找第1个字符串。例如:Found("A","ABCDAEFGHAAA",3)=10 GetModelNumber 取产品MODEL型号。第一个参数为产品的英文数字描述的字串,第2个参数为指定MODEL型号的长度(默认为4),第3个参数为MODEL型号间的分隔符号,可任意。 GetMoneyPcs 取存储格的数字金额中包含对应人民币面额(100/50/20/10/5/2/1等)的张数。第一个参数即单元格引用,第二个参数为人民币(RMB)面额。 GetTax 计算个人所得税工具。第一个参数为计税总额,第二个参数为扣除数额。 GetTypeValue 将存储格的内容按需求进行字符分离与表达式计算。第一个参数即单元格引用,第二个参数即类型取值范围为1-10(1-只保留数字. 2-只保留字母. 3-只留中文(包含空格). 4-只保留数字和小数点. 5-只保留数字和运算符号+-*/^. 6-只保留字母和数字. 7-去掉数字. 8-去除英文大小写字符. 9-去除中文. 10-这里指去除所有空格符)。 HZtoPY 将存储格的内容中的中文汉字转换为拼音。第一个参数为单元格引用,第二个参数为是否只对汉字转换(1或0),第三个参数为间隔符号。后面两个参数可以省略。 NumInt 将存储格的数字金额转换为按整数四舍五入的整数金额。第一个参数即单元格引用,第二个参数为人民币面额(取值为5或10)。例如:NumInt(9825.65,5)=9825, NumInt(9825.65,10)=9830。面值参数越大差异越大。 NumIntDown 将存储格的数字金额转换为向下按整数四舍五入的整数金额。第一个参数即单元格引用,第二个参数为人民币面额(取值为5或10)。例: NumIntDown(9825.65,5)=9820, NumIntDown(9825.65,10)=9820。面值参数越大差异越大。 NumIntUp 将存储格的数字金额转换为向上按整数四舍五入的整数金额。第一个参数即单元格引用,第二个参数为人民币面额(取值为5或10)。例如:NumIntUp(9825.65,5)=9830, NumIntUp(9825.65,10)=9830。面值参数越大差异越大。 ReplaceIn 字符替换含数。第一个参数为字符串表达式或单元格引用,第二个参数为要查找的字符串,第三个参数为新替换的字符串,第四个参数为从找到的第N个字符开始替换。 RightFind 从右向左查找字符串的函数。例如:RightFind("BCADEA","A")=6 存 储 格 操 作 ClearBlank 消除空值函数。可以选择多行多列,按先行后列之方式返回值.两个参数,第一个参数为存储格区域引用,第二个参数为需要取数的序号(1--N)。 ColorCount 取存储格范围内某颜色值的存储格个数。第一个参数为储格范围引用,第二个参数为某颜色Index值或某单元格引用。 ColorSum 按背景颜色对区域值求和。第一参数为求和区域,第二参数为背景颜色参照值。 FormulaView 显示公式函数。提取单元格中的公式,第一个参数单元格引用,第二个参数可省略。 GradeAverage 评委评分函数。计算引用存储格区域中去除最大值与最小值之后再求平均数。 GetFolderPathName 用于创建带链接的文件目录,有二个参数,第一参数为指定路径的字符串,第二参数指定取值编号(数字序号1--N)。 GetComment 提取存储格批注中的文字。只有一个参数,即单元格引用。 CommonItem 返回两个存储格区域的共有项目。前两个参数为区域,第三参数为取数序号1--N。 VarianceItem 返回第一区域中有而第二区域没有的项目。前两个参数是区域,第三参数为序号。 SplitGetValue 按分割符取数。第一参数为单元格引用,第二参数表示取第N个字符串,第三个参数表示分割符号,可任意字符。 UnionString 将区域字符进行合并。第一参数为分割符,第二参数为引用区域。可以用""表示不使用分割符。第三参数开始为引用区域,可以有1到254个区域(Excel2003中是1到29个)。也还可以直接用文本做参数。 普通函数 BookName 取工作薄名称目录。一个参数,输入工作薄序号即返回相应工作薄名称。 SheetName 取工作表名称目录。一个参数,输入工作表序号即返回相应工作表名称。 GoldPoint 数学中黄金分割点的精确取值。 PI 数学中PI(π)的精确取值。PI=3.1415926535897932384626433832795. 系统函数 CloseExcel 不保存当前文档而直接退出EXCEL。 ComputerChangeName 更改计算机名称。一个参数即任意的名称字符串。 ComputerLock 电脑进入登出锁定状态。一个可选参数可以省略。 ComputerSleep 电脑进入待机休眠状态。一个可选参数可以省略。 USB USB盘的禁用与
恢复
启用。一个字符串参数即Enabled为启用,Disabled为禁用。 对于无法安装的朋友请注意以下4点 : 一:必须是完整版
OFFICE
,不能是绿色版、精简版,它们不支持COM加载宏. 二:必须关闭Excel状态下安装或者删除工具,安装后重启Excel即可. 三:如果是VISTA或WIN 7,必须以管理员用户安装,且从控制面板中关掉用户帐户控制(UAC)功能. 四:如果您装了其它的EXCEL工具,请先关掉它,它们有可能删除本工具的菜单. 安装方法:(也可参考安装说明.TXT文档) 安装说明与使用规则: 1.1.绿色版本安装:管理员用户运行Setup.exe进行安装程序! 运行UnSetup.exe进行反安装程序! 1.2.绿色版本安装:非管理员用户可运行Register.bat进行安装程序! 运行UnRegister.bat进行反安装程序! 2.1.若安装并使用后因误操作报错时(例如EXCEL打开后未能加载工具菜单),可以卸载后重新安装到另外不同的目录中即可
恢复
正常.(因微软COM的保护措施而致)! 2.2.建议每天只打开EXCEL主程序一次为宜,保持打开状态不要关闭.(文档则可任意多次打开). 3.1.由于免费标签插件ExcelTab.dll与系统的兼容性问题,安装后在使用过程中若出现屏幕微小抖动或影响正常使用时,请将安装目录Librarys中的ExcelTab.dll 文件改名或删除即可! (不过出现的几率为1%左右). 或者请下载后24小时之内将其删除即可,而不会影响本工具箱的功能! 功能使用帮助动画: http://xutu.net/viewfile/2451/N4Jx3Thi/ EXCEL集成工具箱V7.0使用帮助.rar 需知更多请访问官方论坛: Http://exceltools.5d6d.com 留言或Email给作者。
网管教程 从入门到精通软件篇.txt
网管教程 从入门到精通软件篇 ★一。★详细的xp修复控制台命令和用法!!! 放入xp(2000)的光盘,安装时候选R,修复! Windows XP(包括 Windows 2000)的控制台命令是在系统出现一些意外情况下的一种非常有效的诊断和测试以及
恢复
系统功能的工具。小编的确一直都想把这方面的命令做个总结,这次辛苦老范给我们整理了这份实用的秘笈。 Bootcfg bootcfg 命令启动配置和故障
恢复
(对于大多数计算机,即 boot.ini 文件)。 含有下列参数的 bootcfg 命令仅在使用故障
恢复
控制台时才可用。可在命令提示符下使用带有不同参数的 bootcfg 命令。 用法: bootcfg /default 设置默认引导项。 bootcfg /add 向引导列表中添加 Windows 安装。 bootcfg /rebuild 重复全部 Windows 安装过程并允许用户选择要添加的内容。 注意:使用 bootcfg /rebuild 之前,应先通过 bootcfg /copy 命令备份 boot.ini 文件。 bootcfg /scan 扫描用于 Windows 安装的所有磁盘并显示结果。 注意:这些结果被静态存储,并用于本次会话。如果在本次会话期间磁盘配置发生变化,为获得更新的扫描,必须先重新启动计算机,然后再次扫描磁盘。 bootcfg /list 列出引导列表中已有的条目。 bootcfg /disableredirect 在启动引导程序中禁用重定向。 bootcfg /redirect [ PortBaudRrate] |[ useBiosSettings] 在启动引导程序中通过指定配置启用重定向。 范例: bootcfg /redirect com1 115200 bootcfg /redirect useBiosSettings hkdsk 创建并显示磁盘的状态报告。Chkdsk 命令还可列出并纠正磁盘上的错误。 含有下列参数的 chkdsk 命令仅在使用故障
恢复
控制台时才可用。可在命令提示符下使用带有不同参数的 chkdsk 命令。 vol [drive:] [ chkdsk [drive:] [/p] [/r] 参数 无 如果不带任何参数,chkdsk 将显示当前驱动器中的磁盘状态。 drive: 指定要 chkdsk 检查的驱动器。 /p 即使驱动器不在 chkdsk 的检查范围内,也执行彻底检查。该参数不对驱动器做任何更改。 /r 找到坏扇区并
恢复
可读取的信息。隐含着 /p 参数。 注意 Chkdsk 命令需要 Autochk.exe 文件。如果不能在启动目录(默认为 %systemroot%System32)中找到该文件,将试着在 Windows 安装 CD 中找到它。如果有多引导系统的计算机,必须保证是在包含 Windows 的驱动器上使用该命令。 Diskpart 创建和删除硬盘驱动器上的分区。diskpart 命令仅在使用故障
恢复
控制台时才可用。 diskpart [ /add |/delete] [device_name |drive_name |partition_name] [size] 参数 无 如果不带任何参数,diskpart 命令将启动 diskpart 的 Windows 字符模式版本。 /add 创建新的分区。 /delete 删除现有分区。 device_name 要创建或删除分区的设备。设备名称可从 map 命令的输出获得。例如,设备名称: DeviceHardDisk0 drive_name 以驱动器号表示的待删除分区。仅与 /delete 同时使用。以下是驱动器名称的范例: D: partition_name 以分区名称表示的待删除分区。可代替 drive_name 使用。仅与 /delete 同时使用。以下是分区名称的范例: DeviceHardDisk0Partition1 大小 要创建的分区大小,以兆字节 (MB)表示。仅与 /add 同时使用。 范例 下例将删除分区: diskpart /delete Device HardDisk0 Partition3 diskpart /delete F: 下例将在硬盘上添加一个 20 MB 的分区: diskpart /add Device HardDisk0 20 Fixboot
Office开发/ VBA
5,139
社区成员
17,886
社区内容
发帖
与我相关
我的任务
Office开发/ VBA
其他开发语言 Office开发/ VBA
复制链接
扫一扫
分享
社区描述
其他开发语言 Office开发/ VBA
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章