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

Emily

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

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)

2004-12-3 21:32 上传

点击文件名下载附件
FAQ 工作薄及工作表 ｛建立中｝

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

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

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

Emily

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

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

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

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

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

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

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

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

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

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

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

2005-6-13 12:07 上传

点击文件名下载附件

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

Emily

指定电脑上运行 19/F

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

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

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

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

Emily

Rename CodeName

4fiqCjDg.zip (54.63 KB, 下载次数: 166)

2006-9-29 00:42 上传

点击文件名下载附件

[此贴子已经被作者于2006-9-29 0:43:16编辑过]

Emily

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

Emily

检测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编辑过]

Emily

简单例子

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编辑过]

Emily

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)

Emily

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

或

Application.Goto ActiveCell, True

Emily

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