Filters 属性
适用于
AutoFilter 对象
描述
返回代表自动筛选区域内所有筛选的 Filters 集合。只读。
示例
下面的示例设置一个变量的值为 Crew 工作表中已筛选区域中的第一列筛选的Criteria1 属性。
With Worksheets("Crew")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then c1 = .Criteria1
End With
End If

Find 方法
适用于
Range 对象，WorksheetFunction 对象
描述
在区域内查找特定信息，并返回 Range 对象，该对象代表所找到的第一个包含所查找信息的单元格。如果未发现匹配单元格，就返回 Nothing。本方法不影响选定区域或活动单元格。
句法
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,MatchCase, MatchByte)
expression
必选。该表达式返回 Range 对象。
What
Variant 类型，必选。要查找的数据。可为字符串或任意 Microsoft Excel 数据类型。
After
Variant 类型，可选。指定一个单元格，查找将从该单元格之后开始。此单元格相应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的，直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之后开始。
LookIn
Variant 类型，可选。可为下列 XlFindLookIn 常量之一： xlFormulas，xlValues 或 xlComments。
LookAt
Variant 类型，可选。可为下列 XlLookAt 常量之一： xlWhole 或 xlPart。
SearchOrder
Variant 类型，可选。可为下列 XlSearchOrder 常量之一： xlByRows 或xlByColumns。
SearchDirection
Variant 类型，可选。可为下列 XlSearchDirection 常量之一： xlNext 或xlPrevious。默认值为 xlNext。
MatchCase
Variant 类型，可选。若指定为 True，就进行区分大小写的查找。
MatchByte
Variant 类型，可选。仅用于双字节语言中。若指定为 True，就使双字节字符仅匹配双字节字符。若指定为 False，则双字节字符可匹配其等价的单字节字符。
说明
每次调用本方法后，参数 LookIn、 LookAt、 SearchOrder和 MatchByte 的设置将保存。如果下一次调用时未指定这些参数，将使用保存的设置。设置这些参数将改变“查找”对话框中的设定，而在“查找”对话框中修改相应设定，也将改变忽略这些参数时所使用的保存值。为避免出现麻烦，每次调用本方法时，请显式地指定这些参数的值。
FindNext 和 FindPrevious 方法可用于重复查找。
当到达指定查找区域的结尾时，本方法环绕至区域的开始。发生环绕后，为停止查找，可保存第一次找到的单元格的地址，然后测试每一次相继找到的单元格地址与其进行比较。
如果希望进行更为复杂的模式匹配查找，可用 For Each...Next 结构和 Like*作符。例如，下列代码在单元格区域“A1:C5”中查找字体名称以“Cour”打头的单元格。当 Microsoft Excel 找到匹配单元格以后，就将其字体改为“Times New Roman”。
For Each c In [A1:C5]
If c.Font.Name Like "Cour*" Then
c.Font.Name = "Times New Roman"
End If
Next
另见
FindNext 方法， FindPrevious 方法， Replace 方法
示例
本示例在单元格区域“A1:A500”中查找值为 2 的单元格，并将这些单元格变为灰色。
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

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

FindFile 方法
适用于
Application 对象
描述
显示“打开”对话框。
句法
expression.FindFile
expression
必选，该表达式返回一个 Application 对象。
说明
本方法显示“打开”对话框并让用户打开一个文件。如果成功打开一个新文件则本方法返回 True。如果用户取消了*作并退出该对话框，本方法将返回 False。
示例
本示例显示“打开”对话框。
Application.FindFile

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

FindNext 方法
适用于
Range 对象
描述
用 Find 方法开始进行查找后，用本方法继续该查找*作。本方法查找匹配同一条件的下一个单元格，并返回代表该单元格的Range 对象。本方法不影响选定区域或活动单元格。
句法
expression.FindNext(After)
expression
必选。该表达式返回 Range 对象。
After
Variant 类型，可选。指定一个单元格，查找将从该单元格之后开始。此单元格相应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的，直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之后开始。
说明
当到达指定查找区域的结尾时，本方法环绕至区域的开始。发生环绕后，为停止查找，可保存第一次找到的单元格的地址，然后测试每一次相继找到的单元格的地址与其进行比较。
另见
Find 方法， FindPrevious 方法， Replace 方法
示例
本示例在单元格区域“A1:A500”中查找值为 2 的单元格，并将这些单元格变为灰色。
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

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

FindPrevious 方法
适用于
Range 对象
描述
用 Find 方法开始进行查找后，用本方法继续该查找*作。本方法查配同一条件的前一个单元格，并返回代表该单元格的Range 对象。本方法不影响选定区域或活动单元格。
句法
expression.FindPrevious(After)
expression
必选。该表达式返回 Range 对象。
After
Variant 类型，可选。指定一个单元格，查找将从该单元格之前开始。此单元格相应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之前开始的，直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之前开始。
说明
当到达指定查找区域的开始时，本方法环绕至区域的结尾。发生环绕后，为停止查找，可保存第一次找到的单元格的地址，然后测试每一次相继找到的单元格与其进行比较。
另见
Find 方法， FindNext 方法， Replace 方法
示例
本示例演示 FindPrevious 方法如何与 Find 方法和 FindNext 方法共用。运行
本示例之前，请确认工作表“Sheet1”的“B”列中至少出现了两次
“Phoenix”。
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "The previous occurrence is in cell " & fc.Address

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

FirstPageNumber 属性
适用于
PageSetup 对象
描述
返回或者设置打印指定工作表时第一页的页号。如果设为 xlAutomatic，则Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。Long 类型，可读写。
示例
本示例将 Sheet1 打印时的第一页的页号设为 100。
Worksheets("Sheet1").PageSetup.FirstPageNumber = 100

FirstSliceAngle 属性
适用于
ChartGroup 对象
描述
返回或者设置饼图或圆环图的第一个扇区的角度，以角度为单位（从垂直方向顺时针计算）。仅应用于饼图、三维饼图和圆环图。Long 类型，可读写。
示例
本示例设置“图表1”的第一个图表组中的第一个扇区的角度。本示例应在二维饼图上运行。
Charts("Chart1").ChartGroups(1).FirstSliceAngle = 15

FitToPagesTall 属性
适用于
PageSetup 对象
描述
返回或者设置打印工作表时，对工作表进行缩放使用的页高。仅应用于工作表。Variant 类型，可读写。
说明
如果本属性设为 False，则 Microsoft Excel 根据 FitToPagesWide 属性的设置对工作表进行缩放。
如果 Zoom 属性设为 True，则忽略
FitToPagesTall 属性。
示例
本示例设置 Microsoft Excel 恰好按照一页的宽度和高度打印 Sheet1。
With Worksheets("Sheet1").PageSetup.
Zoom = False
FitToPagesTall = 1.
FitToPagesWide = 1
End With

FitToPagesWide 属性
适用于
PageSetup 对象
描述
返回或者设置打印工作表时，对工作表进行缩放使用的页宽。仅应用于工作表。Variant 类型，可读写。
说明
如果本属性设为 False，则 Microsoft 根据 FitToPagesTall 属性的设置对工作表进行缩放。
如果 Zoom 属性设为 True，则忽略 FitToPagesWide 属性。
示例
本示例设置 Microsoft Excel 恰好按照一页的宽度和高度打印 Sheet1。
With Worksheets("Sheet1").PageSetup.
Zoom = False.
FitToPagesTall = 1.
FitToPagesWide = 1
End With

FixedDecimal 属性
适用于
Application对象
描述
此属性设置为 True 之后，所有输入的数据由 FixedDecimalPlaces 属性设定的小数位数设置格式。Boolean 类型，可读写。
示例
本示例将 FixedDecimal 属性设为 True，并将 FixedDecimalPlaces 属性设为 4。运行
本示例之后，输入“30000”将在工作簿上产生“3”，输入“12500”产生“1.25”。
Application.FixedDecimal = True
Application.FixedDecimalPlaces = 4

FixedDecimalPlaces 属性
适用于
Application 对象
描述
Long 类型，当 FixedDecimal 设置为 True 时，可返回原来所设定的小数位数，或者对小数位数进行设置。可读写。
示例
本示例将 FixedDecimal 属性设置为 True，并将 FixedDecimalPlaces 属性设为 4。
本示例运行后，在工作表中输入 “30000” 将产生 “3”，输入“12500”产生“1.25”。
Application.FixedDecimal = True
Application.FixedDecimalPlaces = 4

Flip 方法
适用于
Shape 对象，ShapeRange 集合对象
描述
绕指定形状的水平或垂直对称轴翻转。
句法
expression.Flip(FlipCmd)
expression
必选。该表达式返回 Shape 对象或 ShapeRange 对象。
FlipCmd
Long 类型，必选。指定形状是水平翻转还是垂直翻转。可为下列MsoFlipCmd 常量之一：msoFlipHorizontal 或 msoFlipVertical。
示例
本示例在myDocument中添加一个三角形，复制这个三角形，并将复制三角形垂直翻转及着上红色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRightTriangle, _
10, 10, 50, 50).Duplicate
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Flip msoFlipVertical
End With

终于发完了

不错不错，挺全的加4分，希望继续努力！

跟着斑竹顶，嘿嘿

顶！！！！

战神，你真厉害~！
这些东西你能会多少，你会做多个数据库的接口吗？
也就是说从一个窗口进入多个程序

能提供文件吧，这样看太麻烦了。

好的，学习

不错。