打印

ASP函数大全

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

顶楼大中小发表于 2004-6-19 23:05 只看该作者

ASP函数大全

FeatureInstall 属性
适用于
Application 对象
描述
返回或设置一个值（常数），此值表示当调用那些需要用到但未安装的特性的方法或属性时，Microsoft Excel是如何处理的。可读写，Long类型。
可以是以下MsoFeatureInstall常量中的一个：
常量数值描述
msoFeatureInstallNone 0 当在运行时调用未安装的特性则会产生一个一般性的Automation（自动*作）错误。
msoFeatureInstallOnDemand 1 缺省常量。提示用户安装新的特性。
msoFeatureInstallOnDemandWithUI 2 在安装过程中显示进度表。但不提示用户安装新的特性。

说明
可以使用msoFeatureInstallOnDemandWithUI常量来避免在安装新特性的过程中用户错误的认为应用程序已经没有响应。当只希望由开发者来安装新特性时，则可以使用msoFeatureInstallNone常量。
如果DisplayAlerts属性为False，则即使FeatureInstall属性为msoFeatureInstallOnDemand，用户也得不到安装新特性的提示。而当DisplayAlerts属性为True时，若FeatureInstall属性为msoFeatureInstallOnDemand，则会出现安装进度表。
示例
本例激活一个Microsoft Word的新实例并检查FeatureInstall属性的数值。如果该属性被设置为msoFeatureInstallNone，则代码显示一个询问用户是否改变属性设置的消息框。若用户回答是，则该属性被设置为msoFeatureInstallOnDemand。
Dim WordApp As New Word.Application, Reply As Integer
With WordApp
.ActivateMicrosoftApp
If .FeatureInstall = msoFeatureInstallNone Then
Reply = MsgBox("Uninstalled features for this " _
& "application " & vbCrLf _
& "may cause a run-time error when called." & vbCrLf _
& vbCrLf _
& "Would you like to change this setting" & vbCrLf _
& "to automatically install missing features?" _
, 52, "Feature Install Setting")
If Reply = 6 Then
.FeatureInstall = msoFeatureInstallOnDemand
End If
End If
End With

[ Last edited by 战神 on 2004-6-19 at 23:06 ]

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

2楼大中小发表于 2004-6-19 23:06 只看该作者

FetchedRowOverflow 属性
适用于
QueryTable 对象
描述
如果上次使用 Refresh 方法返回的行数比工作表中可用行数大则为 True。Boolean 类型，只读。
示例
本示例对第一张查询表进行刷新。如果由查询返回的行数超过工作表中可用行数，则显示一条错误消息。
With Worksheets(1).QueryTables(1)
.Refresh
If .FetchedRowOverflow Then
MsgBox "Query too large: Please redefine."
End If
End With

[ Last edited by 战神 on 2004-6-19 at 23:07 ]

TOP

c-system

黄金长老

Rank: 5 Rank: 5

用心设计生活

UID: 23467
帖子: 358
精华: 1
积分: 706
菊花元: 456 元
威望: 5 点
阅读权限: 40
来自: 亚特兰蒂斯
在线时间: 10 小时
注册时间: 2004-2-20
最后登录: 2008-9-9

3楼大中小发表于 2004-6-19 23:06 只看该作者

楼主只有这一个吗？

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

4楼大中小发表于 2004-6-19 23:08 只看该作者

姐姐，别急，还多着呢！

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

5楼大中小发表于 2004-6-19 23:10 只看该作者

FieldNames 属性
适用于
QueryTable 对象
描述
如果数据源的字段名称作为返回数据的列标题显示则为 True。默认值为True。Boolean 类型，可读写。
示例
本示例对第一张查询表进行设置，在表中不显示字段名称。
Worksheets(1).QueryTables(1).FieldNames = False

[ Last edited by 战神 on 2004-6-19 at 23:18 ]

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

6楼大中小发表于 2004-6-19 23:11 只看该作者

FileConverters 属性
适用于
Application 对象
描述
返回已安装的文件转换器的信息。如果未安装任何转换器，返回 Null。
Variant 类型，只读。
句法
expression.FileConverters(Index1, Index2)
expression
必选。该表达式返回 Application 对象。
Index1
Variant 类型，可选。转换器的长名称，包括 Windows 中的文件类型搜索字符串（例如“Lotus 1-2-3 文件 (*.wk*)”）。
Index2
Variant 类型，可选。转换器动态链接库或代码资源的路径。
说明
如果未指定索引参数，本属性返回包含所有已安装文件转换器的信息的数组。数组中每一行包含一个文件转换器的信息，如下表所示。
列内容
1 转换器的长名称。
2 转换器动态链接库或代码资源的路径。
3 Windows 中的文件扩展名搜索字符串。

[ Last edited by 战神 on 2004-6-19 at 23:20 ]

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

7楼大中小发表于 2004-6-19 23:16 只看该作者

FileFormat 属性
适用于
Workbook 对象
描述
返回工作簿的格式或者类型。Long 类型，只读。
可为以下 XlFileFormat 常量之一：
xlAddIn xlCSV xlCSVMac
xlCSVMSDOS xlCSVWindows xlDBF2
xlDBF3 xlDBF4 xlDIF
xlExcel2 xlExcel2FarEast xlExcel3
xlExcel4 xlExcel5 xlExcel4Workbook
xlExcel7 xlExcel9795 xLHTML
xlIntlAddIn xlIntlMacro xlWorkbookNormal
xlSYLK xlTemplate xlCurrentPlatformText
XlTextMac xlTextMSDOS xlTextPrinter
XlTextWindows xlWJ2WD1 xlWK1
xlWK1ALL xlWK1FMT xlWK3
xlWK4 xlWK3FM3 xlWKS
xlWorks2FarEast xlWQ1 xlWJ3
xlWJ3FJ3
说明
有些常量可能无效，这依赖于所安装和选择的语言（例如美国英语）。
示例
本示例检查当前工作簿文件格式是否为 WK3 格式，如果是则按常规文件格式保存该工作簿。
If ActiveWorkbook.FileFormat = xlWK3 Then
ActiveWorkbook.SaveAs fileFormat:=xlNormal
End If

[ Last edited by 战神 on 2004-6-20 at 00:16 ]

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

8楼大中小发表于 2004-6-19 23:17 只看该作者

FileName 属性
适用于
PublishObject 对象
描述
返回或设置URL（在intranet或者Web上）或路径（本机或网络）到特定源对象的存盘位置上。可读写，String类型。
说明
若指定的路径中的文件夹不存在，则FileName属性产生错误。
示例
本例设置活动工作表中的第一项的存盘位置。
ActiveWorkbook.PublishObjects(1).FileName = _
"\\server2\Q1\StockReport.htm

[ Last edited by 战神 on 2004-6-19 at 23:36 ]

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

9楼大中小发表于 2004-6-19 23:19 只看该作者

FileSearch 属性
适用于
Application 对象
描述
为使用文件搜索返回一个 FileSearch 对象。
示例
本示例创建一个 FoundFiles 对象，该对象代表 My Documents 文件夹中的所有 Microsoft Excel 工作簿。
With Application.FileSearch.
LookIn = "c:\my documents"
. FileType = msoFileTypeExcelWorkbooks
Execute
End With

[ Last edited by 战神 on 2004-6-19 at 23:27 ]

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

10楼 大中小发表于 2004-6-19 23:20 只看该作者

Fill 属性
适用于
AxisTitle 对象，ChartArea 对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DisplayUnitLabel 对象，DownBars 对象，Floor 对象，Legend 对象，LegendKey 对象，PlotArea 对象，Point 对象，Series 对象，Shape 对象，ShapeRange 集合对象，UpBars 对象，Walls 对象
描述
返回 FillFormat 对象，该对象包含指定的图表或形状的填充格式属性。只读。
示例
本示例向 myDocument 中添加矩形，然后设置该矩形的填充格式的前景颜色、背景颜色和渐进色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(170, 170, 170)
.TwoColorGradient msoGradientHorizontal, 1
End With

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

11楼 大中小发表于 2004-6-19 23:21 只看该作者

FillAcrossSheets 方法
适用于
Sheets 集合对象，Worksheets 集合对象
描述
将单元格区域复制到一个集合中所有其它工作表的同一位置上。
句法
expression.FillAcrossSheets(Range, Type)
expression
必选。该表达式返回 Sheets 或 Worksheets 对象。
Range
Range 类型，必选。要填充到一个集合中所有其他工作表的单元格区域。该区域必须位于该集合中某个工作表之上。
Type
Variant 类型，可选。指定如何复制该区域。可为下列 XlFillWith 常量之一： xlFillWithAll，xlFillWithContents 或 xlFillWithFormulas。默认值为xlFillWithAll。
示例
本示例用工作表“Sheet1”上单元格区域“A1:C5”中的内容填充工作表“Sheet1”、“Sheet5”和“Sheet7”中的同一区域。
x = Array("Sheet1", "Sheet5", "Sheet7")
Sheets(x).FillAcrossSheets _
Worksheets("Sheet1").Range("A1:C5")

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

12楼 大中小发表于 2004-6-19 23:22 只看该作者

FillAdjacentFormulas 属性
适用于
QueryTable 对象
描述
如果每当查询表刷新时指定的查询表右侧的公式就自动更新则为 True。Boolean 类型，可读写。
示例
本示例对第一张查询表进行设置，每当查询表刷新时就自动更新右侧的公式。
Sheets("Sheet1").QueryTables(1).FillAdjacentFormulas = True

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

13楼 大中小发表于 2004-6-19 23:28 只看该作者

FillDown 方法
适用于
Range 对象
描述
从指定区域的顶部单元格开始向下填充，直至该区域的底部。区域中首行单元格的内容和格式将复制到区域中其它行内。
句法
expression.FillDown
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillLeft 方法， FillRight 方法， FillUp 方法
示例
本示例以工作表“Sheet1”上单元格“A1”的内容为样板，填充单元格区域“A1:A10”。
Worksheets("Sheet1").Range("A1:A10").FillDown

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

14楼 大中小发表于 2004-6-19 23:31 只看该作者

FillFormat 对象
描述
代表形状的填充格式。形状可以有纯色、渐进色、纹理、图案、图片或半透明填充格式。
使用FillFormat 对象
可用 Fill 属性返回 FillFormat 对象。下例向 myDocument 中添加矩形，然后设置矩形的填充格式的渐进色和颜色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
End With
说明
FillFormat 对象的许多属性是只读属性。必须用相应的方法来设置这些属性的值。
属性
Application 属性，BackColor 属性，Creator 属性，ForeColor 属性，GradientColorType 属性，GradientDegree 属性，GradientStyle 属性，GradientVariant 属性，Parent 属性，Pattern 属性，PresetGradientType 属性，PresetTexture 属性，TextureName 属性，TextureType 属性，Transparency 属性，Type 属性，Visible 属性
方法
OneColorGradient 方法，Patterned 方法，PresetGradient 方法，PresetTextured 方法，Solid 方法，TwoColorGradient 方法，UserPicture 方法，UserTextured 方法

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

15楼 大中小发表于 2004-6-19 23:35 只看该作者

FillLeft 方法
适用于
Range 对象
描述
从指定区域的最右边单元格开始向左填充。区域中最右列单元格的内容和格式将复制到区域中其它列内。
句法
expression.FillLeft
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillDown 方法， FillRight 方法， FillUp 方法
示例
本示例以工作表“Sheet1”上单元格“M1”的内容为样板，填充单元格区域“A1:M1”。
Worksheets("Sheet1").Range("A1:M1").FillLeft

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

16楼 大中小发表于 2004-6-19 23:36 只看该作者

FillRight 方法
适用于
Range 对象
描述
从指定区域的最左边单元格开始向右填充。区域中最左列单元格的内容和格式将复制到区域中其它列内。
句法
expression.FillRight
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillDown 方法， FillLeft 方法， FillUp 方法
示例
本示例以工作表“Sheet1”上单元格“A1”的内容为样板，填充单元格区域“A1:M1”。
Worksheets("Sheet1").Range("A1:M1").FillRight

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

17楼 大中小发表于 2004-6-19 23:37 只看该作者

FillUp 方法
适用于
Range 对象
描述
从指定区域的底部单元格开始向上填充，直至该区域的顶部。区域中尾行单元格的内容和格式将复制到区域中其它行内。
句法
expression.FillUp
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillDown 方法， FillLeft 方法， FillRight 方法
示例
本示例以工作表“Sheet1”上单元格“A10”的内容为样板，填充单元格区域“A1:A10”。
Worksheets("Sheet1").Range("A1:A10").FillUp

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

18楼 大中小发表于 2004-6-20 00:20 只看该作者

Filter 对象
描述
代表单列的筛选。Filter 对象是 Filters 集合的成员。Filters 集合包含自动筛选区域中的所有筛选。
使用Filter对象
可用 Filters(index)（其中 index 为筛选标题或索引编号）返回单个 Filter 对象。下例将变量设为工作表“Crew”中的筛选区域中第一列筛选的 On 属性的值。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
请注意Filter 对象的所有属性都是只读的。要设置这些属性，可手动应用自动筛选，或使用 Range 对象的 AutoFilter 方法，如下例所示。
Set w = Worksheets("Crew")
w.Cells.AutoFilter field:=2, Criteria1:="Crucial", _
Operator:=xlOr, Criteria2:="Important"
属性
Application 属性，Creator 属性，Criterial 属性，Criteria2 属性，On 属性，Operator 属性，Parent 属性

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

19楼 大中小发表于 2004-6-20 00:21 只看该作者

Filter 对象
描述
代表单列的筛选。Filter 对象是 Filters 集合的成员。Filters 集合包含自动筛选区域中的所有筛选。
使用Filter对象
可用 Filters(index)（其中 index 为筛选标题或索引编号）返回单个 Filter 对象。下例将变量设为工作表“Crew”中的筛选区域中第一列筛选的 On 属性的值。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
请注意Filter 对象的所有属性都是只读的。要设置这些属性，可手动应用自动筛选，或使用 Range 对象的 AutoFilter 方法，如下例所示。
Set w = Worksheets("Crew")
w.Cells.AutoFilter field:=2, Criteria1:="Crucial", _
Operator:=xlOr, Criteria2:="Important"
属性
Application 属性，Creator 属性，Criterial 属性，Criteria2 属性，On 属性，Operator 属性，Parent 属性

TOP

战神

青铜长老

Rank: 4

UID: 34805
帖子: 59
精华: 1
积分: 549
菊花元: 549 元
威望: 0 点
阅读权限: 30
在线时间: 0 小时
注册时间: 2004-6-18
最后登录: 2004-9-8

20楼 大中小发表于 2004-6-20 00:22 只看该作者

Filters 集合对象
描述
Filter的集合，代表自动筛选区域中的所有筛选。
使用Filters 集合
可用 Filters 方法返回 Filters 集合。下例创建包含工作表“Crew”中已自动筛选区域的筛选条件和*作符的列表。
im f As Filter
Dim w As Worksheet
Const ns As String = "Not set"
Set w = Worksheets("Crew")
Set w2 = Worksheets("FilterData")
rw = 1
For Each f In w.AutoFilter.Filters
If f.On Then
c1 = Right(f.Criteria1, Len(f.Criteria1) - 1)
If f.Operator Then
op = f.Operator
c2 = Right(f.Criteria2, Len(f.Criteria2) - 1)
Else
op = ns
c2 = ns
End If
Else
c1 = ns
op = ns
c2 = ns
End If
w2.Cells(rw, 1) = c1
w2.Cells(rw, 2) = op
w2.Cells(rw, 3) = c2
rw = rw + 1
Next
可用 Filters(index)（其中 index 为筛选标题或索引编号），返回单个 Filter对象。下例将变量设为工作表“Crew斨猩秆∏蛑械牡谝涣猩秆〉?On 属性值。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
属性
Application 属性，Count 属性，Creator 属性，Item 属性（Filters 集合），Parent 属性

TOP