ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 45599|回复: 68

FAQ 工作薄及工作表 (Update 8 Aug 2005)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-11-29 12:35 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:工作表和工作簿

请问全屏显示后,如何不显示“关闭全屏显示”工具栏

Sub hidebar() ' chijanzen Application.CommandBars(1).Enabled = False Application.DisplayFullScreen = True Application.CommandBars("Full Screen").Visible = False With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False End With End Sub Sub unhidebar() Application.CommandBars(1).Enabled = True Application.DisplayFullScreen = False With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With End Sub

怎样隐藏windows下面的任务栏 请参考【隐藏任务栏】

可以在不影响活页薄情况下显示时间吗

请参考【在工具列新增1个常驻的电子时钟 Chijanzen】

请参考 Ivan F Moala DQeQywcd.zip (35.19 KB, 下载次数: 283)

怎样判断空工作表?并自动删除

If IsEmpty(ActiveSheet.UsedRange) And ActiveSheet.Shapes.Count = 0 Then ActiveSheet.Delete

[此贴子已经被作者于2005-8-8 12:04:31编辑过]

kGFDgcYC.zip

9.63 KB, 下载次数: 225

FAQ 工作薄及工作表 {建立中}

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-12-5 12:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
找格式化的顏色 ( Font 及 Interior)

请参考 找格式化的顏色 ( Font 及 Interior)


有没有办法在EXCEL的工作表里插入一张会动的gif 动画

请参考 (向大家推荐一个可以在SHEET中使用的gif动画插件)

请参考 (不用控件也来显示GIF动画)

如何一打开工作簿,关闭所有工作表,剩 sheet1 为活动工作表

请参考
点击浏览该文件   , 用快速键 CRTL s 可转换下一页,现在只有三页(可以增加)

如何另存文件时不保存文件的宏

请参考 (在背景作業中另存新檔 chijanzen)

找寻自定范围名称左上、左下、右上及右下地址
 

请参考 Dej3PcwG.zip (12.5 KB, 下载次数: 316)


[此贴子已经被taller于2006-12-12 22:18:02编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-12-15 23:55 | 显示全部楼层

指定电脑上运行 19/F

可以监控删除行及列吗 20/F

列出所有工作薄的 VBA 21/F

vba 程式碼(代碼)是否限定容量不得超過 64K 限制嗎 23/F

[此贴子已经被作者于2005-8-8 12:05:41编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-12-25 09:47 | 显示全部楼层

Rename CodeName

4fiqCjDg.zip (54.63 KB, 下载次数: 166)
[此贴子已经被作者于2006-9-29 0:43:16编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-12-26 19:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

[此贴子已经被作者于2005-7-4 12:28:28编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-4 11:57 | 显示全部楼层

检测EXCEL建立时间

Sub CreateDate() On Error Resume Next rw = 1 Worksheets(1).Activate For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(rw, 1).Value = p.Name Cells(rw, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(p.Name) rw = rw + 1 Next MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation date") End Sub

[此贴子已经被作者于2005-1-6 11:03:48编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-6 11:05 | 显示全部楼层

如何禁止更改工作表名称

简单例子

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name <> "Sheet1" Then ActiveSheet.Name = "Sheet1" End If End Sub

详细例子 请参考【禁止更改工作表名称 Chijanzen】

[此贴子已经被作者于2005-5-12 22:15:30编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-6 11:08 | 显示全部楼层

如何在 VBA 内执行 Add-in 函数

AddIns("VBA 分析工具箱").Installed = True Range("B1") = Application.Evaluate("=Weeknum(now()-7, 2)") AddIns("VBA 分析工具箱").Installed = True Workdays = Application.Evaluate("=NetWorkdays(DATE(2004,1,1) ,DATE(2004,12,31))")

Application.Run("ATPVBAEN.xla!Weeknum", Now(), 2)

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-6 11:09 | 显示全部楼层

请问如何不改变activecell之下将某一储存格显示于左上角

ActiveCell.Select ActiveWindow.ScrollRow = ActiveCell.Row ActiveWindow.ScrollColumn = ActiveCell.Column

Application.Goto ActiveCell, True

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-1-14 13:49 | 显示全部楼层

测试 WorkBook 是否已开启

Sub IsWorkBookOpen() Dim wBook As Workbook On Error Resume Next Set wBook = Workbooks("Book180.xls") If wBook Is Nothing Then MsgBox "Workbook is not open" Set wBook = Nothing On Error GoTo 0 Else MsgBox "Yes it is open" Set wBook = Nothing On Error GoTo 0 End If End Sub

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-24 10:02 , Processed in 0.049182 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表