Excel VBA属性、方法、事件大全——Part11(Complete List of Excel VBA attribute/method and event)

时间:2022-04-07 03:56:56


对象/属性/方法/事件
Object/Attribute/
Method/Event

描述
Description

PageBreak

返回或设置分页符的位置
本示例在 Sheet1 的第 24 行后设置一个手动分页符。
Worksheets("Sheet1").Rows(25).PageBreak = xlPageBreakManual
本示例在工作表 Sheet1 J 列左侧设置一个手动分页符。
Worksheets("Sheet1").Columns("J").PageBreak = xlPageBreakManual

PageFieldOrder

返回或设置页字段在数据透视表布局上的顺序。可为以下 XlOrder 常量之一:xlDownThenOver xlOverThenDown。默认常量是 xlDownThenOverLong 类型,可读写。

PageFields

返回一个对象,该对象表示单个数据透视表字段(PivotField 对象),或者当前显示为页字段的所有字段的一个集合(PivotFields 对象)。只读。

PageFieldStyle

返回或设置用于边界页字段区域中的样式。默认值为 null 字符串(默认时无样式)。String 类型,可读写。

PageFieldWrapCount

返回或设置数据透视表中每行或每列的页字段数目。Long 类型,可读写。

PageRange

返回一个 Range 对象,该对象表示包含数据透视表中页区域的区域。只读。

PageRangeCells

返回一个 Range 对象,该对象仅表示指定数据透视表中(包含页字段和项下拉列表)的单元格。

Pages

返回或设置 Pages 集合中的页数。

PageSetup

返回一个 PageSetup 对象,该对象包含指定对象的所有页面设置
本示例设置 Chart1 的*页眉的文字。
Charts("Chart1").PageSetup.CenterHeader = "December Sales"

PageSetup

返回一个 PageSetup 对象,该对象包含指定对象的所有页面设置。
本示例设置 Chart1 的*页眉的文字。
Charts("Chart1").PageSetup.CenterHeader = "December Sales"

Pane

代表窗口中的窗格。Pane 对象只对工作表和 Microsoft Excel 4.0 宏表有效。Pane 对象是 Panes 集合的成员。Panes 集合包含单个窗口中所有的窗格。

Pane

代表窗口中的窗格。
说明
Pane
对象只对于工作表和 Microsoft Excel 4.0 宏表存在。Pane 对象是 Panes 集合的成员。Panes 集合包含在一个窗口中显示的所有窗格。

Panes

返回一个 Panes 集合,该集合代表指定窗口中的所有窗格
本示例激活“Book1.xls”中当前窗口左上角的窗格。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.Panes(1).Activate

Panes

指定窗口中显示的所有 Pane 对象的集合。Pane 对象只对工作表和 Microsoft Excel 4.0 宏表有效。

Panes

指定的窗口中所有 Pane 对象的集合。
说明
Pane
对象只对于工作表和 Microsoft Excel 4.0 宏表存在。

Panes

返回一个 Panes 集合,该集合表示指定窗口中的所有窗格。只读。
语法
表达式.Panes
表达式   一个代表 Window 对象的变量。

PaperSize

返回或设置纸张的大小。XlPaperSize 类型,可读写。

Parameters

返回或设置一个有序的常量数组,用于指定文本文件中相应列的数据类型,而该文本文件则是正要导入查询表中的文本文件。每一列的默认常量为 xlGeneralVariant 类型,可读写。指定的查询表的 Parameter 对象的集合.

Parameters

返回一个 Parameters 集合,该集合表示查询表参数。只读。

Parent

返回指定对象的父对象
本示例显示包含 myAxis 的图表的名称。
Sub DisplayParentName()
    Set myAxis = Charts(1).Axes(xlValue)
    MsgBox myAxis.Parent.Name
End Sub

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Dialogs 对象的变量。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 WorksheetFunction 对象的变量。

Parent

返回指定对象的父对象
本示例显示包含 myAxis 的图表的名称。
Sub DisplayParentName()
    Set myAxis = Charts(1).Axes(xlValue)
    MsgBox myAxis.Parent.Name

End Sub

Parent

返回指定对象的父对象
本示例显示包含 ListDataFormat 对象的 ListColumn 对象的名称。该 ListDataFormat 对象是为活动工作簿的 Sheet1 中某个列表的第三列设置的属性。
Sub PrintParentName()
   Dim wrksht As Worksheet
   Dim objListCol As ListColumn
   Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
   Set objListCol = wrksht.ListObjects(1).ListColumns(3)
   Debug.Print objListCol.ListDataFormat.Parent
End Sub

Parent

返回指定对象的父对象。
本示例显示包含 myAxis 的图表的名称。
Sub DisplayParentName()
    Set myAxis = Charts(1).Axes(xlValue)
    MsgBox myAxis.Parent.Name
End Sub

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 AddIn 对象的变量。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 AutoCorrect 对象的变量。

Parent

获取 Assistant 对象的 Parent 对象。只读。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 AutoRecover 对象的变量。

Parent

返回指定对象的父对象。只读。
语法

表达式.Parent

表达式   一个代表 CellFormat 对象的变量。

Parent

获取 COMAddIns 对象的 Parent 对象。只读。

Parent

获取 COMAddIn 对象的 Parent 对象。只读。

Parent

获取 CommandBars 对象的 Parent 对象。只读。
语法
表达式.Parent
表达式   一个代表 CommandBars 对象的变量。

Parent

获取 CommandBar 对象的 Parent 对象。只读。
语法
表达式.Parent
表达式   一个代表 CommandBar 对象的变量。
返回值
Object

Parent

返回指定对象的父对象。只读。

Parent

获取 ODSOFilter 对象的 Parent 对象。只读。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Name 对象的变量

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Style 对象的变量。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Shapes 对象的变量。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Shape 对象的变量。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Comments 对象的变量。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Charts 对象的变量。

Parent

获取 DocumentProperties 对象的 Parent 对象。只读。

Parent

获取 DocumentProperty 对象的 Parent 对象。只读。

Parent

返回指定对象的父对象。只读。
语法
表达式.Parent
表达式   一个代表 Window 对象的变量。

ParentField

返回一个 PivotField 对象,该对象表示作为指定对象的组父级的数据透视表字段。只读。

ParentGroup

返回 Shape 对象,它代表子形状或子形状区域的共同父形状。
语法
表达式.ParentGroup
表达式   一个代表 Shape 对象的变量。

ParentItem

返回一个 PivotItem 对象,该对象表示父 PivotField 对象中的父数据透视表项(必须对该字段分组使其有一个父级)。只读。

ParentItems

返回一个对象,该对象表示指定字段中的单个数据透视表项(PivotItem 对象),或者作为组父级的所有项的一个集合(PivotItems 对象)。指定字段必须是另一个字段的组父级。只读。

ParentShowDetail

如果指定数据项是由于其某个父数据项正在显示明细数据而进行显示的,则该值为 True。如果由于其父数据项隐藏明细数据而使该数据项未显示,则该值为 False。本属性仅对已分组的数据项有效。Boolean 类型,只读。

Parse

分析区域内的数据并将这些数据分散放置于若干单元格中
本示例将 206-555-1212 形式的电话号码分解到两列中。第一列仅包含地区代码,第二列包含七个数字的电话号码及内嵌的连字符
Worksheets("Sheet1").Columns("A").Parse _
    parseLine:="[xxx] [xxxxxxxx]", _
    destination:=Worksheets("Sheet1").Range("B1")

Partition

返回一个 Variant (String),指定一个范围,在一系列计算的范围中指定的数字出现在这个范围内。
语法
Partition(number, start, stop, interval)
number
必要参数。整数,在所有范围中判断这个整数是否出现。
start
必要参数。整数,数值范围的开始值,这个数值不能小于 0
stop
必要参数。整数,数值范围的结束值,这个数值不能等于或小于 start

Password

返回或设置密码,在打开指定的工作簿时必须提供该密码
在本示例中,Microsoft Excel 打开名为 Password.xls 的工作簿,设置它的密码,然后关闭该工作簿。本示例假定名为 Password.xls 的文件位于 C:\ 驱动器上。
Sub UsePassword()
    Dim wkbOne As Workbook
    Set wkbOne = Application.Workbooks.Open("C:\Password.xls")
    wkbOne.Password = InputBox ("Enter Password")
    wkbOne.Close
End Sub
注释  Password 属性可读取,且返回 ">>**"

PasswordEncryptionAlgorithm

返回 Microsoft Excel 对指定的工作簿编写密码时使用的算法。
本示例设置活动工作簿的密码加密选项。
Sub SetPasswordOptions()
    ActiveWorkbook.SetPasswordEncryptionOptions _
        PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
        PasswordEncryptionAlgorithm:="RC4", _
        PasswordEncryptionKeyLength:=56, _
        PasswordEncryptionFileProperties:=True
End Sub

PasswordEncryptionFileProperties

如果 Microsoft Excel 对具有密码保护的指定工作簿的文件属性进行加密,则该值为 True
如果具有密码保护的工作簿的文件属性没有加密,那么本示例设置密码加密选项。
Sub SetPasswordOptions()
    With ActiveWorkbook
        If .PasswordEncryptionFileProperties = False Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub

PasswordEncryptionKeyLength

返回在对指定的工作簿编写密码时,Microsoft Excel 使用的算法的关键字长度
如果密码加密的关键字长度小于 56,那么本示例设置指定工作簿的密码加密选项。
Sub SetPasswordOptions()
    With ActiveWorkbook
        If .PasswordEncryptionKeyLength < 56 Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub

PasswordEncryptionProvider

返回在对指定的工作簿编写密码时,Microsoft Excel 使用的算法加密提供程序的名称
如果具有密码保护的工作簿的文件属性没有加密,则本示例设置指定工作簿的密码加密选项。
Sub SetPasswordOptions()
    With ActiveWorkbook
        If .PasswordEncryptionProvider <> "Microsoft RSA SChannel Cryptographic Provider" Then
            .SetPasswordEncryptionOptions _
                PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
                PasswordEncryptionAlgorithm:="RC4", _
                PasswordEncryptionKeyLength:=56, _
                PasswordEncryptionFileProperties:=True
        End If
    End With
End Sub

Paste

将剪贴板中的内容粘贴到工作表上
本示例将 Sheet1 上单元格区域 C1:C5 中的数据复制到单元格区域 D1:D5 中。
Worksheets("Sheet1").Range("C1:C5").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")

Paste

将剪贴板中的图表数据粘贴到指定的图表中。
本示例将 Sheet1 上单元格区域 B1:B5 中的数据粘贴到 Chart1 中。
Worksheets("Sheet1").Range("B1:B5").Copy
Charts("Chart1").Paste

Paste

将剪贴板中的图片粘贴到指定图表的基底上。

Paste

将剪贴板中的图片粘贴到指定图表的背景墙上。

Paste

将剪贴板中的数据粘贴到指定的系列集合中。

Paste

从剪贴板中粘贴图片,将其作为所选系列的标志。

Paste

从剪贴板中粘贴图片,将其作为所选数据点的标志。

PasteSpecial

以指定格式将剪贴板中的内容粘贴到工作表上
本示例将剪贴板中的 Microsoft Word 文档对象粘贴到 Sheet1 上的单元格 D1 中。
Worksheets("Sheet1").Range("D1").Select
ActiveSheet.PasteSpecial format:= _
    "Microsoft Word 8.0 Document Object

PasteSpecial

将剪贴板中的 Range 对象粘贴到指定区域中
本示例用 Sheet1 上单元格区域 C1:C5 和单元格区域 D1:D5 原有内容的和来取代单元格区域 D1:D5 中的数据。
With Worksheets("Sheet1")
    .Range("C1:C5").Copy
    .Range("D1:D5").PasteSpecial _
        Operation:=xlPasteSpecialOperationAdd
End With

Path

设置或返回 Microsoft Excel 存储自动恢复临时文件的完整路径
本示例将自动恢复文件的路径设置为驱动器 C
Sub SetPath()
    Application.AutoRecover.Path = "C:\"
End Sub

Path

将完整路径返回给应用程序,不包括末尾的分隔符和应用程序名称
本示例显示 Microsoft Excel 的完整路径。
Sub TotalPath()
    MsgBox "The path is " & Application.Path
End Sub

Path

返回一个 String 值,它代表应用程序的完整路径,不包括末尾的分隔符和应用程序名称。
语法
表达式.Path
表达式   一个代表 AddIn 对象的变量。

Path

返回或设置一个 String 值,它代表 Microsoft Excel 将要存储自动恢复临时文件的位置的完整路径。
语法
表达式.Path
表达式   一个代表 AutoRecover 对象的变量。

Path

返回一个 String 值,它代表应用程序的完整路径,不包括末尾的分隔符和应用程序名称。

PathSeparator

返回路径分隔符 (“\”)
本示例显示当前路径分隔符。
MsgBox "The path separator character is " & _
    Application.PathSeparator

Pattern

返回或者设置内部图案
本示例为 Sheet1 A1 单元格的内部添加十字图案。
Worksheets("Sheet1").Range("A1"). _
    Interior.Pattern = xlPatternCrissCross

Pattern

返回或设置一个代表填充图案的 MsoPatternType 值。

PatternColor

RGB 值返回或设置内部图案的颜色
本示例对 Sheet1 中矩形一的内部图案的颜色进行设置。
With Worksheets("Sheet1").Rectangles(1).Interior
    .Pattern = xlGrid
    .PatternColor = RGB(255,0,0)
End With

PatternColorIndex

返回或设置内部图案的颜色,表示为当前调色板中的颜色编号或以下 XlColorIndex 常量之一:
本示例对Sheet1中矩形一的内部图案的颜色进行设置。
With Worksheets("Sheet1").Rectangles(1).Interior
    .Pattern = xlChecker
    .PatternColorIndex = 5
End With

Patterned

将指定填充设为一种图案。

Pearson

返回 Pearson(皮尔生)乘积矩相关系数 r,这是一个范围在 -1.0 1.0 之间(包括 -1.0 1.0 在内)的无量纲指数,反映了两个数据集合之间的线性相关程度。

Percentile

返回区域中数值的第 K 个百分点的值。可以使用此函数来建立接受阈值。例如,可以确定得分排名在第 90 个百分点之上的检测侯选人。

PercentRank

返回特定数值在一个数据集中的百分比排位。此函数可用于查看特定数据在数据集中所处的位置。例如,可以使用函数 PERCENTRANK 计算某个特定的能力测试得分在所有的能力测试得分中的位置。

Period

返回或设置移动平均趋势线的周期。可以是从 2 255 的值。可读/ Long 类型。

Permission

返回一个 Permission 对象,代表指定工作簿中的权限设置。
下例返回了对活动工作簿的权限设置。
Dim objPermission As Permission
Set objPermission = ActiveWorkbook.Permission

Permut

返回从给定数目的对象集合中选取的若干对象的排列数。排列为有内部顺序的对象或事件的任意集合或子集。排列与组合不同,组合的内部顺序无意义。此函数可用于彩票抽奖的概率计算。

PersonalViewListSettings

如果在共享工作簿的用户个人视图中有列表的筛选和排序设置,则该值为 True
本示例从工作簿二的用户个人视图中删除打印设置及筛选和排序设置。
With Workbooks(2)
    .PersonalViewListSettings = False
    .PersonalViewPrintSettings = False
End With

PersonalViewPrintSettings

如果在共享工作簿的用户个人视图中有打印设置,则该值为 True
本示例从工作簿二的用户个人视图中删除打印设置及筛选和排序设置。
With Workbooks(2)
    .PersonalViewListSettings = False
    .PersonalViewPrintSettings = False
End With

Perspective

返回或设置三维图表视图的透视系数。必须为 0 100 之间的整数。
本示例设置 Chart1 的透视系数为 70。本示例应在三维图表上运行。
Charts("Chart1").RightAngleAxes = False
Charts("Chart1").Perspective = 70

Phonetic

返回 Phonetic 对象,该对象包含了单元格中特定拼音文本串的相关信息
本示例将活动单元格中的第一个拼音文本字符串设置为“  ”
ActiveCell.Phonetics(1).Text = "  "

Phonetic

包含单元格中特定拼音文本串的有关信息

Phonetic

提取文本字符串中的拼音 (furigana) 字符。

PhoneticCharacters

返回或设置指定 Characters 对象中的拼音文本
本示例将活动单元格中从文本起始位置开始的第四个字符替换为“Furigana”字符。
ActiveCell.Characters(1,3).PhoneticCharacters = "  "

Phonetics

返回区域的 Phonetics 集合
本示例显示活动单元格中的所有 Phonetic 对象。
Set objPhon = ActiveCell.Phonetics
With objPhon
    For Each objPhonItem in objPhon
        MsgBox "Phonetic object: " & .Text
    Next
End With

Phonetics

指定区域中所有 Phonetic 对象的集合

Pi

返回数字 3.14159265358979,即数学常量 pi,精确到 15 位数字。

PickUp

复制指定形状的格式。使用 Apply 方法可将复制的格式应用到其他形状。
语法
表达式.PickUp
表达式   一个代表 Shape 对象的变量。

PictureFormat

返回一个 PictureFormat 对象,它包含指定形状的图片格式属性。应用于代表图片或 OLE 对象的 Shape 对象。只读。
语法
表达式.PictureFormat
表达式   一个代表 Shape 对象的变量。

PictureType

返回或设置一个 Variant 值,它代表图片在背景墙和三维图正面的显示方式。

PictureType

返回或设置一个 XlChartPictureType 值,它代表在柱形或条形图上图片的显示方式。

PictureType

返回或设置一个 XlChartPictureType 值,它代表图片在图例项标示上的显示方式。

PictureUnit

如果 PictureType 属性设置为 xlStackScale,返回或设置图表上每张图片的单位(如果没有设置,则忽略该属性)。Long 型,可读写。

PictureUnit2

如果 PictureType 属性设置为 xlStackScale,则返回或设置图表上每一个图片的单位。否则忽略此属性。可读/ Double 类型。

Pie3DGroup

返回一个 ChartGroup 对象,该对象代表三维图表上的饼图图表组。
本示例设置 Chart1 中的三维饼图组,使其中的每一数据标志都使用不同的颜色。
Charts("Chart1").Pie3DGroup.VaryByCategories = True

PieGroups

返回代表二维图表上单个饼图图表组或饼图图表组集合的对象。
本示例设置 Chart1 中的第一个饼图组,使其中的每一数据标志使用不同的颜色。本示例应在二维图表上运行。
Charts("Chart1").PieGroups(1).VaryByCategories = True

PivotCache

代表数据透视表的缓存。
说明
PivotCache
对象是 PivotCaches 集合的成员。

PivotCache

返回一个 PivotCache 对象,该对象表示指定数据透视表的缓存。只读。

PivotCaches

返回 PivotCaches 集合,该集合代表指定工作簿中所有的数据透视表高速缓存
本示例使工作簿每次打开时自动更新数据透视表高速缓存。
ActiveWorkbook.PivotCaches(1).RefreshOnFileOpen = True

PivotCaches

工作簿中所有 PublishObject 对象的集合。每个 PublishObject 对象都代表保存为网页的工作簿中的某一项,并且还可以根据该对象中属性和方法所指定的值进行刷新

PivotCell

返回一个 PivotCell 对象,该对象代表数据透视表中的一个单元格
本示例假定数据透视表位于活动工作表上,并且单元格 A3 位于数据透视表上。
Sub CheckPivotCell()
    'Determine the name of the PivotTable the PivotCell is located in.
    MsgBox "Cell A3 is located in PivotTable: " &
        _ Application.Range("A3").PivotCell.Parent
End Sub

PivotColumnAxis

返回 PivotAxis 对象,该对象表示整个列轴。只读 PivotAxis 类型。

PivotField

返回一个 PivotField 对象,该对象代表包含指定区域左上角的数据透视表字段
本示例显示包含活动单元格的数据透视表字段的名称
Worksheets("Sheet1").Activate
MsgBox "The active cell is in the field " & _
    ActiveCell.PivotField.Name

PivotFields

返回一个对象,该对象表示数据透视表中单个字段(PivotField 对象)或可见及隐藏字段集合(PivotFields 对象)。只读。

PivotFields

返回 PivotFields 集合。该集合包含所有数据透视表字段,包括当前在屏幕上看不到的字段。PivotFields 对象,只读。

PivotFilters

返回或设置指定 PivotField 对象的 PivotFilters。只读。

PivotFormulas

返回一个 PivotFormulas 对象,该对象表示指定数据透视表的公式集合。只读。此属性用于控制是否将成员属性标题用于透视字段的 PivotItem 标题。可读/ Boolean 类型。

PivotFormulas

返回一个 PivotFormulas 对象,该对象表示指定数据透视表的公式集合。只读。

PivotItem

返回一个 PivotItem 对象,该对象代表包含指定区域左上角单元格的数据透视表数据项
本示例显示包含 Sheet1 中活动单元格的数据透视表数据项的名称。
Worksheets("Sheet1").Activate
MsgBox "The active cell is in the item " & _
    ActiveCell.PivotItem.Name

PivotItems

返回一个对象,该对象表示指定字段中的单个数据透视表项(PivotItem 对象)或所有可见项和隐藏项的集合(PivotItems 对象)。只读。

PivotLayout

返回一个 PivotLayout 对象,该对象代表数据透视表中字段的位置以及数据透视图报表中坐标轴的位置。
本示例为第一个数据透视图报表中所使用的所有数据透视表字段的名称创建一个列表。
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF In _
    Charts("Chart1").PivotLayout.PivotFields
    objNewSheet.Cells(intRow, 1).Value = objPF.Caption
    intRow = intRow + 1
Next objPF

PivotRowAxis

返回 PivotAxis 对象,该对象表示整个行轴。只读 PivotAxis 类型。

PivotSelect

选定数据透视表的一部分。

PivotSelection

以标准数据透视表的选定区域格式返回或设置数据透视表的选定区域。String 类型,可读写。

PivotSelectionStandard

返回或设置用英语(美国)设置的标准数据透视表格式的数据透视表选定内容的 String 类型的数值。可读写。

PivotTable

返回一个PivotTable对象,该对象代表包含指定区域中左上角单元格的数据透视表,或是与数据透视图报表相关的数据透视表
本示例将Sheet1上的数据透视表的当前页设置为名为“Canada”的页。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.PivotFields("Country").CurrentPage = "Canada"

PivotTable

代表工作表上的一张数据透视表。PivotTable 对象是 PivotTables 集合的成员

PivotTable

返回一个 PivotTable 对象,它代表与数据透视图相关联的数据透视表。

PivotTableCloseConnection

发生在数据透视表关闭与其数据源的连接之后。
本示例显示一则消息,说明数据透视表与其数据源的连接已经关闭。本示例假定您已在类模块中声明了带有事件的 Workbook 类型的对象。
Private Sub ConnectionApp_PivotTableCloseConnection(ByVal Target As PivotTable)
    MsgBox "The PivotTable connection has been closed."
End Sub

PivotTableOpenConnection

发生在数据透视表打开与其数据源的连接之后。
本示例显示一则消息,说明数据透视表与其数据源的连接已经打开。本示例假定您已在类模块中声明了带有事件的 Workbook 类型的对象。
Private Sub ConnectionApp_PivotTableOpenConnection(ByVal Target As PivotTable)
    MsgBox "The PivotTable connection has been opened."
End Sub

PivotTables

返回一个对象,该对象代表工作表上单个数据透视表报表(PivotTable 对象)或所有数据透视表报表的一个集合(PivotTables 对象)。
本示例对当前活动工作表中第一个数据透视表的“Sum of 1994”字段进行设置,使之使用“SUM”函数。
ActiveSheet.PivotTables("PivotTable1"). _
    PivotFields("Sum of 1994").Function = xlSum

PivotTableSelection

如果数据透视表使用结构化选择,则该值为 True
本示例将激活结构化选择方式,然后对第一张工作表上的第一个数据透视表进行设置,使其只允许选择数据。
Application.PivotTableSelection = True
Worksheets(1).PivotTables(1).SelectionMode = xlDataOnly

PivotTableUpdate

发生在工作簿中的数据透视表更新之后
本示例显示一则消息,说明数据透视表已经更新。本示例假定您已在类模块中声明了带有事件的 Worksheet 类型的对象。
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    MsgBox "The PivotTable connection has been updated."
End Sub

PivotTableWizard

创建一个 PivotTable 对象
>
本示例通过 Microsoft Excel 数据库(包含在单元格区域 A1:C100 中)创建数据透视表。
ActiveSheet.PivotTableWizard xlDatabase, Range("A1:C100")

PivotTableWizard

创建并返回一个 PivotTable 对象。此方法不显示数据透视表向导,它不适用于 OLE DB 数据源。请使用 Add 方法添加数据透视表缓存,然后创建基于该缓存的数据透视表。

PixelsPerInch

返回或设置网页中图形图像的密度(每英寸的像素数)及表格单元格的密度。密度设置范围通常为 19 480 之间,对于普通的屏幕大小,通常的设置一般为 7296 120。默认设置是 96Long 型,可读写。

Placement

返回或设置一个 XlPlacement 值,它代表对象附加到对象下面的单元格的方式。
语法
表达式.Placement
表达式   一个代表 Shape 对象的变量。

Placement

返回或设置一个包含 XlPlacement 常量的 Variant 值,它代表对象附加到它所在的单元格的方式。

PlotArea

返回一个 PlotArea 对象,该对象代表图表的绘图区
本示例将 Chart1 绘图区的内部颜色设为淡蓝绿色。
Charts("Chart1").PlotArea.Interior.ColorIndex = 8

PlotBy

返回或设置行和列在图表中作为数据系列使用的方式。
本示例使嵌入图表按列绘制数据。
Worksheets(1).ChartObjects(1).Chart.PlotBy = xlColumns

PlotOrder

返回或设置图表组中选定数据系列的绘制顺序。Long 类型,可读写。

PlotVisibleOnly

如果仅绘制可见单元格,则该值为 True
本示例使 Microsoft Excel Chart1 中仅绘制可见单元格。
Charts("Chart1").PlotVisibleOnly = True

Pmt

返回一个 Double,指定根据定期定额支付且利率固定的年金支付额。
语法
Pmt(rate, nper, pv[, fv[, type]])
rate
必要。Double 指定每一期的利率。例如,如果有一笔贷款年百分比率 (APR) 为百分之十且按月付款的汽车贷款,则每一期的利率为 0.1/12 0.0083
nper
必要。Integer 指定一笔年金的付款总期数。例如,如果对一笔为期四年的汽车贷款选择按月付款,则贷款共有 4 * 12(或 48)个付款期。
pv
必要。Double 指定未来一系列付款或收款的现值。例如,当贷款买一辆汽车时,向贷方所借贷的金额为将来每月偿付给贷方款项的现值。
fv
可选。Variant 指定在付清贷款后所希望的未来值或现金结存。例如,贷款的未来值在贷款付清后为 0 美元。但是,如果想要在 18 年间存下 50000 美元作为子女教育基金,那么 50000 美元为未来值。如果省略的话,缺省值为 0
type
可选。Variant,指定贷款到期时间。如果贷款是在贷款周期结束时到期,请使用 0。如果贷款是在周期开始时到期,则请使用 1。如果省略的话,缺省值为 0

Pmt

基于固定利率及等额分期付款方式,计算贷款的每期付款额。

Points

返回一个对象,该对象表示数据系列中单个数据点(Point 对象)或所有数据点的集合(Points 集合)。只读

PointsToScreenPixelsX

将横向度量值由以点(文档坐标)为单位转换为以屏幕像素(屏幕坐标)为单位
本示例确定活动窗口中选定单元格的高度和宽度(单位:像素),并将值返回到变量 lWinWidth lWinHeight 中。
With ActiveWindow
    lWinWidth = _
        .PointsToScreenPixelsX(.Selection.Width)
    lWinHeight = _
        .PointsToScreenPixelsY(.Selection.Height)
End With

PointsToScreenPixelsX

将横向度量值由以点(文档坐标)为单位转换为以屏幕像素(屏幕坐标)为单位。返回转变后的度量值(Long 类型)。
语法
表达式.PointsToScreenPixelsX(Points)
表达式   一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
Points
必选 Long 从文档窗口的左侧开始沿其顶部水平排列的点数。
返回值
Long

PointsToScreenPixelsX

返回或设置屏幕上的象素点。

PointsToScreenPixelsY

将纵向度量值由以点(文档坐标)为单位转换为以屏幕像素(屏幕坐标)为单位
本示例确定活动窗口中选定单元格的高度和宽度(单位:像素),并将值返回到变量 lWinWidth lWinHeight 中。
With ActiveWindow
    lWinWidth = _
        .PointsToScreenPixelsX(.Selection.Width)
    lWinHeight = _
        .PointsToScreenPixelsY(.Selection.Height)
End With

PointsToScreenPixelsY

将纵向度量值由以点(文档坐标)为单位转换为以屏幕像素(屏幕坐标)为单位。返回转变后的度量值(Long 类型)。
语法
表达式.PointsToScreenPixelsY(Points)
表达式   一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
Points
必选 Long 从文档窗口的顶部开始沿其左边缘垂直排列的点数。
返回值
Long

PointsToScreenPixelsY

返回或设置屏幕象素的位置。

Poisson

返回泊松分布。泊松分布通常用于预测一段时间内事件发生的次数,例如一分钟内通过收费站的轿车的数量。

Position

获取或设置一个代表命令栏位置的 MsoBarPosition 常量。可读写。
语法
表达式.Position
表达式   一个代表 CommandBar 对象的变量。

Position

返回或设置一个 Long 值,它代表层次字段在从“well”字段中拖出后在数据透视表中的位置。

Position

返回一个 Variant 值,他代表数据透视表上所有字段的位置,包括属于所有行、列、页以及数据方向上的字段(第一字段、第二字段、第三字段等等)。

Position

返回或设置一个 Long 值,它代表当前正在显示数据项时,该数据项字段中数据项的位置。

Position

返回或设置图表上绘制区域的位置。可读/ XlChartElementPosition 类型。

Position

返回或设置图表上图表标题的位置。可读/ XlChartElementPosition 类型。

Position

返回或设置图表上轴标题的位置。可读/ XlChartElementPosition 类型。

Position

返回或设置图表上单位标签的位置。可读/ XlChartElementPosition 类型。

Position

返回或设置一个 XlLegendPosition 值,它代表图表上图例的位置。

Position

返回或设置一个 XlDataLabelPosition 值,它代表数据标签的位置。

Post

将指定工作簿发送到一个公共文件夹
本示例发送当前活动工作簿。
ActiveWorkbook.Post

PostText

返回或设置用于 post 方法的字符串,post 方法用于向 Web 服务器输入数据以从 Web 查询中返回数据。String 类型,可读写。

Power

返回某数的乘幂结果。

PPmt

返回一个 Double,指定在定期定额支付且利率固定的年金的指定期间内的本金偿付额。
语法
PPmt(rate, per, nper, pv[, fv[, type]])
rate
必要。Double 指定每一期的利率。例如,如果有一笔贷款年百分比率 (APR) 为百分之十且按月付款的汽车贷款,则每一期的利率为 0.1/12 0.0083
per
必要。Integer 指定在 nper 间范围 1 中的付款周期。
nper
必要。Integer 指定一笔年金的付款总期数。例如,如果对一笔为期四年的汽车贷款选择按月付款,则贷款共有 4 * 12(或 48)个付款期。
pv
必要。Double 指定未来一系列付款或收款的现值。例如,当贷款买一辆汽车时,向贷方所借贷的金额为将来每月偿付给贷方款项的现值。
fv
可选。Variant 指定在付清贷款后所希望的未来值或现金结存值。例如,贷款的未来值在贷款付清后为 0 美元。但是,如果想要在 18 年间存下 50000 美元作为子女教育基金,那么 50000 美元为未来值。如果省略的话,缺省值为 0
type
可选。Variant 指定贷款到期时间。如果贷款是在贷款周期结束时到期,则请使用 0。如果贷款是在周期开始时到期,则请使用 1。如果省略的话,缺省值为 0

Ppmt

基于固定利率及等额分期付款方式,返回投资在某一给定期间内的本金偿还额。

Precedents

返回一个Range对象,该对象代表单元格的所有引用单元格
本示例选定 sheet1 中单元格 A1 的引用单元格。
Worksheets("Sheet1").Activate
Range("A1").Precedents.Select

PrecisionAsDisplayed

如果指定工作簿中的计算是按照屏幕显示的数字精度完成,则该值为 True
本示例使活动工作簿中的计算仅使用显示的数字精度。
ActiveWorkbook.PrecisionAsDisplayed = True

Prefix

返回一个 String 类型的数值,该数值表示指定的 XML 命名空间的前缀。只读。

PrefixCharacter

返回单元格的前缀字符
本示例显示 sheet1 中单元格 A1 的前缀字符。
MsgBox "The prefix character is " & _
Worksheets("Sheet1").Range("A1").PrefixCharacter

PresentInPane

返回一个 Boolean 类型的数值,该数值表示智能文档控件当前是否显示在文档操作任务窗格中。只读。

PreserveColumnFilter

返回或设置在指定的 XML 映射被刷新时是否保留筛选。Boolean 类型,可读写。

PreserveColumnInfo

如果每次刷新查询表时,列排序、筛选和布局信息都会保留,则该值为 True。默认值为 FalseBoolean 类型,可读写。

PreserveFormatting

如果将数据前五行的任何常用格式设置应用到查询表的新数据行,则为 True。对未使用的单元格不进行格式设置。如果将应用到查询表的最新一次自动套用格式应用于新数据行,则属性为 False。默认值是 True

PreserveFormatting

当使用数据透视、筛选或更改页字段项等操作刷新或重新计算报告时,如果格式处于被保护状态,则为 True。对于查询表,如果数据前五行的任何常规格式设置将应用于查询表数据的新行,则此属性为 True。对未使用的单元格不进行设置。如果将查询表应用的最近一次自动套用格式应用于新数据行,则此属性为 False。默认值是 True

PreserveNumberFormatting

刷新架构映射时,如果要保留映射到指定 XML 架构映射的单元格的数字格式,则设为 True。默认值为 FalseBoolean 类型,可读写。

PresetGradient

将指定填充设为一个预设的渐变。

PresetGradientType

返回指定填充的预设渐变类型。MsoPresetGradientType,只读。

PresetShape

返回或设置指定艺术字的形状样式。MsoPresetTextEffectShape 类型,可读写。

PresetTextEffect

返回或设置指定艺术字的样式。MsoPresetTextEffect 类型,可读写。

PresetTexture

返回指定填充的预设纹理。MsoPresetTexture,只读。

PresetTextured

将指定填充格式设为预设纹理。

Previous

返回一个 ChartRange Worksheet 对象,该对象代表上一工作表或单元格
本示例选定 sheet1 中上一个未锁定单元格。如果 sheet1 未保护,选定的单元格将是紧靠活动单元格左边的单元格。
Worksheets("Sheet1").Activate
ActiveCell.Previous.Select

Previous

返回一个 ChartRange Worksheet 对象,该对象代表上一工作表或单元格
本示例选定sheet1中上一个未锁定单元格。如果sheet1未保护,选定的单元格将是紧靠活动单元格左边的单元格。
Worksheets("Sheet1").Activate
ActiveCell.Previous.Select

Previous

返回一个 Comment 对象,该对象代表前一条批注。
语法
表达式.Previous
表达式   一个返回 Comment 对象的表达式。
返回值
Comment

PreviousSelections

返回一个数组,数组中包括最近选定的4个区域或者名称
本示例显示前一次选定的数组中所有项的单元格地址。如果前一次没有选定任何内容,则LBound函数将返回一个出错标志。该错误将被捕获,并显示一个消息框。
On Error GoTo noSelections
For i = LBound(Application.PreviousSelections) To _
            UBound(Application.PreviousSelections)
    MsgBox Application.PreviousSelections(i).Address
Next i
Exit Sub
On Error GoTo 0
noSelections:
    MsgBox "There are no previous selections"

Price

返回定期付息的面值 100 的债券价格。

PriceDisc

返回折价发行的面值 100 的债券的价格。

PriceMat

返回到期付息的面值 100 的债券的价格。

Print

Immediate 窗口中显示文本。
语法
object.Print [outputlist]
Print
方法的语法具有下列对象限定符和部分:
部分 描述
object
必需的。对象表达式,其值为应用于列表中的对象。
outputlist
可选的。要打印的表达式或表达式的列表。如果省略,则打印一空白行。

Print #

将格式化显示的数据写入顺序文件中。
语法
Print #filenumber, [outputlist]
filenumber
必要。任何有效的文件号。
outputlist
可选。表达式或是要打印的表达式列表。

PrintArea

以字符串返回或设置要打印的区域,该字符串使用宏语言的 A1 样式的引用。String 类型,可读写。

PrintComments

返回或设置批注随工作表打印的方式。XlPrintLocation 类型,可读写。

PrintDrillIndicators

指定是否随数据透视表打印深化指示符。可读写 Boolean 类型。

PrintErrors

设置或返回一个 XlPrintErrors 常量,该常量指定显示的打印错误类型。该功能允许用户在打印工作表时取消错误显示。可读写。

PrintGridlines

如果在页面上打印单元格网格线,则该值为 True。仅应用于工作表。Boolean 类型,可读写。

PrintHeadings

如果打印本页时同时打印行标题和列标题,则该值为 True。仅应用于工作表。Boolean 类型,可读写。

PrintNotes

如果打印工作表时单元格批注作为尾注一起打印,则该值为 True。仅应用于工作表。Boolean 类型,可读写。

PrintObject

如果打印文档时也打印指定对象,则为 TrueBoolean 类型,可读写。

PrintOut

打印指定对象。
本示例打印当前活动工作表。
ActiveSheet.PrintOut

PrintOut

打印指定对象
本示例打印当前活动工作表。
ActiveSheet.PrintOut

PrintOut

打印对象。

PrintOut

打印对象。
语法
表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
表达式   一个代表 Charts 对象的变量。
参数
名称 必选/可选 数据类型 描述
From
可选 Variant 打印的开始页号。如果省略此参数,则从起始位置开始打印。
To
可选 Variant 打印的终止页号。如果省略此参数,则打印至最后一页。
Copies
可选 Variant 打印份数。如果省略此参数,则只打印一份。
Preview
可选 Variant 如果为 TrueMicrosoft Excel 将在打印对象之前调用打印预览。如果为 False(或省略该参数),则立即打印对象。
ActivePrinter
可选 Variant 设置活动打印机的名称。
PrintToFile
可选 Variant 如果为 True,则打印到文件。如果没有指定 PrToFileNameMicrosoft Excel 将提示用户输入要使用的输出文件的文件名。
Collate
可选 Variant 如果为 True,则逐份打印多个副本。
PrToFileName
可选 Variant 如果 PrintToFile 设为 True,则该参数指定要打印到的文件名。
IgnorePrintAreas
可选 Variant 如果为 True,则忽略打印区域并打印整个对象。
返回值
Variant

PrintOut

打印对象。
语法
表达式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
表达式   一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
From
可选 Variant 打印的开始页号。如果省略此参数,则从起始位置开始打印。
To
可选 Variant 打印的终止页号。如果省略此参数,则打印至最后一页。
Copies
可选 Variant 打印份数。如果省略此参数,则只打印一份。
Preview
可选 Variant 如果为 TrueMicrosoft Excel 将在打印对象之前调用打印预览。如果为 False(或省略该参数),则立即打印对象。
ActivePrinter
可选 Variant 设置活动打印机的名称。
PrintToFile
可选 Variant 如果为 True,则打印到文件。如果没有指定 PrToFileNameMicrosoft Excel 将提示用户输入要使用的输出文件的文件名。
Collate
可选 Variant 如果为 True,则逐份打印多个副本。
PrToFileName
可选 Variant 如果 PrintToFile 设为 True,则该参数指定要打印到的文件名。
返回值
Variant

PrintPreview

以打印效果显示指定的对象
本示例显示工作表 Sheet1 的打印预览。
Worksheets("Sheet1").PrintPreview

PrintPreview

按对象打印后的外观效果显示对象的预览。

PrintPreview

按对象打印后的外观效果显示对象的预览。
语法
表达式.PrintPreview(EnableChanges)
表达式   一个代表 Charts 对象的变量。
参数
名称 必选/可选 数据类型 描述
EnableChanges
可选 Variant 传递 Boolean 值,以指定用户是否可更改边距和打印预览中可用的其他页面设置选项。

PrintPreview

按对象打印后的外观效果显示对象的预览。
语法
表达式.PrintPreview(EnableChanges)
表达式   一个代表 Window 对象的变量。
参数
名称 必选/可选 数据类型 描述
EnableChanges
可选 Variant 传递 Boolean 值,以指定用户是否可更改边距和打印预览中可用的其他页面设置选项。
返回值
Variant

PrintQuality

返回或设置打印质量。Variant 类型,可读写。

PrintSettings

如果在自定义视图中包含打印设置,则该属性值为 TrueBoolean 类型,只读。

PrintTitleColumns

返回或设置包含在每一页的左边重复出现的单元格的列,用宏语言 A1-样式中的字符串表示。String 类型,可读写。

PrintTitleRows

返回或设置那些包含在每一页顶部重复出现的单元格的行,用宏语言字符串以 A1 样式表示法表示。String 类型,可读写。

PrintTitles

如果基于数据透视表设置工作表的打印标题,则该属性值为 True。如果使用工作表的打印标题,则该属性值为 False。默认值为 FalseBoolean 类型,可读写。

Priority

返回或设置条件格式规则的优先级值。当工作表中存在多个条件格式规则时,优先级确定求值的顺序。

Private

在模块级别中使用,用于声明私有变量及分配存储空间。
语法
Private [WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . .
WithEvents
可选的。关键字,说明 varname 是用来响应由 ActiveX 对象所触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents,可以定义任意个所需的单变量,但不能用 WithEvents 创建数组。New WithEvents 不能一起使用。
varname
必需的。变量的名称;遵循标准的变量命名约定。
subscripts
可选的。数组变量的维数;最多可以定义 60 维的多维数组。subscripts 参数的使用语法如下:
  [lower To] upper [,[lower To] upper] . . .
如果不显式指定 lower,则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0
New
可选的。使其可以隐式地创建对象的关键字。如果使用 New 声明对象变量,则在第一次引用该变量时创建该对象的新实例,因此不必使用 Set 语句来对该对象引用赋值。New 关键字不能声明任何内部数据类型的变量以及从属对象的实例,也不能与 WithEvents 一起使用。
type
可选的。变量的数据类型;可以是 ByteBooleanIntegerLongCurrencySingleDoubleDecimal(目前尚不支持)、DateString(对可变长的字符串)、String * length(对定长的字符串)、ObjectVariant、用户定义类型或对象类型。所声明的每个变量都要一个单独的 As type 子句。

Prob

返回区域中的数值落在指定区间内的概率。如果没有给出上限 (upper_limit),则返回区间 x_range 内的值等于下限 lower_limit 的概率。

Product

将所有以参数形式给出的数字相乘,并返回乘积值。

ProductCode

返回 Microsoft Excel 的全球唯一标识符 (GUID)
本示例显示 Microsoft Excel 的全球唯一标识符 (GUID)
MsgBox Application.ProductCode

progID

返回对象的程序标识符。String 型,只读。
语法
表达式.progID
表达式   一个代表 AddIn 对象的变量。

ProgId

获取指定 COMAddIn 对象的编程标识符 (ProgID)。只读。

progID

返回对象的程序标识符。String 型,只读。

PromptForSummaryInfo

如果在保存文件时 Microsoft Excel 要求用户输入汇总信息,则该值为 True
本示例设置保存文件时显示提示,要求用户输入汇总信息。
Application.PromptForSummaryInfo = True

PromptString

返回提示用户在参数查询输入参数值的短语。String 类型,只读。

Proper

将文本字符串的首字母及任何非字母字符之后的首字母转换成大写。将其余的字母转换成小写。

Properties

返回一个 CustomProperties 对象,该对象表示智能标记属性。只读。

Property Get

声明Property过程的名称,参数以及构成其主体的代码,该过程获取一个属性的值。
语法
[Public | Private | Friend] [Static] Property Get name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Property]
[statements]
[name = expression]
End Property
Public
可选的。表示所有模块的所有其它过程都可访问 Property Get 过程。如果在包含 Option Private 的模块中使用,则该过程在该工程外是不可使用的。
Private
可选的。表示只有包含其声明的模块的其它过程可以访问该 Property Get 过程。
Friend
可选的。只能在类模块中使用。表示该 Property Get 过程在整个工程中都是可见的,但对对象实例的控制者是不可见的
Static
可选的。表示在调用之间保留该 Property Get 过程的局部变量的值。Static 属性对在该 Property Get 过程外声明变量不会产生影响,即使过程中也使用了这些变量。
name
必需的。Property Get 过程的名称;遵循标准的变量命名约定,但不能与同一模块中的 Property Let Property Set 过程同名。
arglist
可选的。代表在调用时要传递给 Property Get 过程的参数的变量列表。多个变量则用逗号隔开。Property Get 过程中的每个参数的名称和数据类型必须与相应 Property Let 过程(如果存在)中的参数一致。
type
可选的。该 Property Get 过程的返回值的数据类型;可以是 ByteBooleanIntegerLongCurrencySingleDoubleDecimal(目前尚不支持)、DateString(除定长)、ObjectVariant、用户定义类型和数组。
Property Get
过程的返回值类型必须与相应的 Property Let 过程(如果有)的最后一个(有时是仅有的)参数的数据类型相同,该 Property Let 过程将其右边表达式的值赋给属性。
statements
可选的。Property Get 过程体中所执行的任何语句组。
expression
可选的。Property Get 语句所定义的过程返回的属性值。

Property Let

声明 Property Let 过程的名称,参数以及构成其主体的代码,该过程给一个属性赋值。
语法
[Public | Private | Friend] [Static] Property Let name ([arglist,] value)
[statements]
[Exit Property]
[statements]
End Property
Public
可选的。表示所有模块的所有其它过程都可访问该 Property Let 过程。如果在包含 Option Private 的模块中使用,则这个过程在该工程外是不可使用的。
Private
可选的。表示只有在包含其声明的模块的其它过程中可以访问该 Property Let 过程。
Friend
可选的。只能在类模块中使用。表示该 Property Let 过程在整个工程中都是可见的,但对于对象实例的控制者是不可见的。
Static
可选的。表示在调用之间将保留 Property Let 过程的局部变量的值。Static 属性对在该 Property Let 过程外声明的变量不会产生影响,即使过程中也使用了这些变量。
name
必需的。Property Let 过程的名称;遵循标准的变量命名约定,但不能与同一模块中的 Property Get Property Set 过程同名。
arglist
可选的。代表在调用时要传递给 Property Let 过程的参数的变量列表。多个变量则用逗号隔开。Property Let 过程中的每个参数的名称和数据类型必须与 Property Get 过程中的相应参数一致。
value
必需的。指用于给属性赋值的变量。当调用该过程时,这个参数出现在调用表达式的右边。value 的数据类型必须和相应的 Property Get 过程的返回值类型一致。
statements
可选的。Property Let 过程中执行的任何语句组。

Property Set

声明 Property 过程的名称,参数以及构成其主体的代码,该过程设置一个对象引用。
语法
[Public | Private | Friend] [Static] Property Set name ([arglist,] reference)
[statements]
[Exit Property]
[statements]
End Property
Optional
可选的。表示调用者可以提供或不提供该参数。
Public
可选的。表示所有模块的所有其它过程都可访问这个 Property Set 过程。如果在包含 Option Private 的模块中使用,则这个过程在该工程外是不可使用的。
Private
可选的。表示只有包含其声明的模块的其它过程可以访问该 Property Set 过程。
Friend
可选的。只能在类模块中使用。表示该 Property Set 过程在整个工程中都是可见的,但对对象实例的控制者是不可见的。
Static
可选的。表示在调用之间保留 Property Set 过程的局部变量的值。Static 属性对在该 Property Set 外声明的变量不会产生影响,即使过程中也使用了这些变量。
name
必需的。Property Set 过程的名称;遵循标准的变量命名约定,但不能与同一模块中的 Property Get Property Let 过程同名。
arglist
可选的。代表在调用时要传递给 Property Set 过程的参数的变量列表。对于多个变量则用逗号隔开。
reference
必需的。对象引用赋值的右边所使用的包含对象引用的变量。
statements
可选的。Property 过程体中所执行的任何语句组。

PropertyOrder

只对属于成员属性字段的数据透视表字段有效。返回一个 Long 类型的数值,该数值表示成员属性在其所属的多维数据集字段内的显示位置。可读写。

PropertyParentField

返回一个 PivotField 对象,该对象表示字段中属性所从属的字段。

Protect

保护工作簿使其不至被修改
本示例保护活动工作表。可以验证工作表是受保护的,方法是:在活动工作表的任意单元格中输入一个值。
Sub ProtectSheet()
    ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

Protect

保护工作表使其不至被修改
本示例保护活动工作表。可以验证工作表是受保护的,方法是:在活动工作表的任意单元格中输入一个值。
Sub ProtectSheet()
    ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

Protect

保护图表使其不至被修改
本示例保护活动图表。可以验证图表是受保护的,方法是:在活动工作表的任意单元格中输入一个值。本示例假定图表存在于应用程序中。
Sub ProtectChart()
    ActiveChart.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

ProtectChartObject

如果嵌入式图表框不能通过用户界面移动、调整大小或删除,则为 True。可读/ Boolean 类型。

ProtectChartObject

如果不能通过用户界面对嵌入图表框架执行移动、调整大小或删除操作,则该属性值为 TrueBoolean 类型,可读写。

ProtectContents

如果工作表的内容处于保护状态,则该值为 True
如果 sheet1 的内容处于保护状态,则本示例显示一个消息框。
If Worksheets("Sheet1").ProtectContents = True Then
    MsgBox "The contents of Sheet1 are protected."
End If

ProtectData

如果用户不能更改系列公式,则该值为 True
本示例保护第一张工作表上嵌入的第一个图表中的数据。
Worksheets(1).ChartObjects(1).Chart.ProtectData = True

ProtectDrawingObjects

如果图形处于保护状态,则该值为 True
如果sheet1中的图形处于保护状态,则本示例显示一个消息框。
If Worksheets("Sheet1").ProtectDrawingObjects = True Then
    MsgBox "The shapes on Sheet1 are protected."
End If

ProtectDrawingObjects

如果图形处于保护状态,则该值为 True
如果 sheet1 中的图形处于保护状态,则本示例显示一个消息框
If Worksheets("Sheet1").ProtectDrawingObjects = True Then
    MsgBox "The shapes on Sheet1 are protected."
End If

ProtectFormatting

如果用户不能更改格式,则该值为 True
本示例保护第一张工作表上嵌入的第一个图表的格式。
Worksheets(1).ChartObjects(1).Chart.ProtectFormatting = True

ProtectGoalSeek

如果用户不能用鼠标操作更改图表数据点,则该值为 True
本示例保护第一张工作表上嵌入的第一个图表的数据点。
Worksheets(1).ChartObjects(1).Chart.ProtectGoalSeek = True

Protection

返回一个 Protection 对象,该对象代表工作表的保护选项
本示例对活动工作表进行保护,并判断是否能在受保护的工作表中插入列,然后将此状态通知用户。
Sub CheckProtection()
    ActiveSheet.Protect
    ' Check the ability to insert columns on a protected sheet.
    ' Notify the user of this status.
    If ActiveSheet.Protection.AllowInsertingColumns = True Then
        MsgBox "The insertion of columns is allowed on this protected worksheet."
    Else
        MsgBox "The insertion of columns is not allowed on this protected worksheet."
    End If
End Sub

Protection

获取或设置一个 MsoBarProtection 常量,代表防止用户对命令栏进行自定义的方式。可读写。
语法
表达式.Protection
表达式   一个代表 CommandBar 对象的变量。

ProtectionMode

如果设置了仅限于用户界面保护选项,则该值为 True
本示例显示 ProtectionMode 属性的状态。
MsgBox ActiveSheet.ProtectionMode

ProtectScenarios

如果工作表的方案处于保护状态,则该值为 True
如果sheet1中的方案处于保护状态,则本示例将显示消息框。
If Worksheets("Sheet1").ProtectScenarios Then _
    MsgBox "Scenarios are protected on this worksheet."

ProtectSelection

如果不能选定图表元素,则该值为 True
本示例使第一张工作表上嵌入的第一个图表中的图表元素不能被选定。
Worksheets(1).ChartObjects(1).Chart.ProtectSelection = True

ProtectSharing

保存工作簿并设置共享保护
本示例保存工作簿一并设置共享保护。
Sub ProtectWorkbook()
    Dim wksOne As Worksheet
    Dim strPwd As String
    Dim strSharePwd As String
    Set wksOne = Application.ActiveSheet
    strPwd = InputBox("Enter password for the file")
    strSharePwd = InputBox("Enter password for sharing")
    wksOne.ProtectSharing Password:=strPwd, _
        SharingPassword:=strSharePwd
End Sub

ProtectStructure

如果工作簿中工作表结构受保护,则该值为 True
本示例检查活动工作簿中工作表结构是否受保护,如果是则显示一条消息。
If ActiveWorkbook.ProtectStructure = True Then
    MsgBox "Remember, you cannot delete, add, or change " & _
       Chr(13) & _
       "the location of any sheets in this workbook."
End If

ProtectWindows

如果工作簿窗口受保护,则该值为 True
本示例检查活动工作簿窗口是否受保护,如果是则显示一条信息。
If ActiveWorkbook.ProtectWindows = True Then
    MsgBox "Remember, you cannot rearrange any" & _
        " window in this workbook."
End If

PTCondition

返回一个 Boolean 值,指明是否将条件格式应用于数据透视表图表。只读。

Public

在模块级别中使用,用于声明公用变量和分配存储空间。
语法
Public [WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . .
WithEvents
可选的。关键字,说明 varname 是用来响应由 ActiveX 对象触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents,可以定义任意个所需的单个变量,但不能用 WithEvents 创建数组。New WithEvents 不能一起使用。
varname
必需的。变量的名称;遵循标准的变量命名约定。
subscripts
可选的。数组变量的维数;最多可以定义 60 维的多维数组。subscripts 参数使用下面的语法:
  [lower To] upper [,[lower To] upper] . . .
如果不显式指定 lower,则数组的下界由 Option Base 语句控制。如果没有 Option Base 语句则下界为 0
New
可选的。用它可以隐式地创建对象的关键字。如果使用 New 声明对象变量,则在第一次引用该变量时创建该对象的新实例,因此不必使用 Set 语句来对该对象引用赋值。New 关键字不能用来声明任何内部数据类型的变量以及从属对象的实例,也不能与 WithEvents 一起使用。
type
可选的。变量的数据类型;可以是 ByteBooleanIntegerLongCurrencySingleDoubleDecimal(目前尚不支持)、DateString(对变长的字符串)、String * length(对定长的字符串)、Object Variant,用户定义类型,或对象类型。所声明的每个变量都要有一个单独的 As type 子句。

Publish

将文档中的项或项的集合保存到网页中。

PublishObject

代表保存为网页的工作簿中的项,并可以根据 PublishObject 对象中属性和方法所指定的值进行刷新。
说明
PublishObject
对象是 PublishObjects 集合的成员

PublishObjects

返回 PublishObjects 集合。只读。
本示例将活动工作簿中的所有静态 PublishObject 对象发布到网页上。
Set objPObjs = ActiveWorkbook.PublishObjects
For Each objPO in objPObjs
    If objPO.HtmlType = xlHTMLStatic Then
        objPO.Publish
    End If
Next objPO

PublishObjects

工作簿中所有 PublishObject 对象的集合。每个 PublishObject 对象都代表保存为网页的工作簿中的某一项,并且还可以根据该对象中属性和方法所指定的值进行刷新

PurgeChangeHistoryNow

从修订日志中删除指定工作簿的条目
本示例从当前活动工作簿的修订日志中删除一天以前所做的所有修订记录。
ActiveWorkbook.PurgeChangeHistoryNow Days:=1

Put

将一个变量的数据写入磁盘文件中。
语法
Put [#]filenumber, [recnumber], varname
filenumber
必要。任何有效的文件号。
recnumber
可选。Variant (Long)。记录号(Random 方式的文件)或字节数(Binary 方式的文件),指明在此处开始写入。
varname
必要。包含要写入磁盘的数据的变量名。

PV

返回一个 Double 指定在未来定期、定额支付且利率固定的年金现值。
语法
PV(rate, nper, pmt[, fv[, type]])
rate
必要。Double 指定每一期的利率。例如,如果有一笔贷款年百分比率 (APR) 为百分之十且按月付款的汽车贷款,则每一期的利率为 0.1/12 0.0083
nper
必要。Integer 指定一笔年金的付款总期数。例如,如果对一笔为期四年的汽车贷款选择按月付款,则贷款共有 4 * 12(或 48)个付款期。
pmt
必要。Double 指定每一期的付款金额。付款金额通常包含本金和利息,且此付款金额在年金的有效期间不变。
fv
可选。Variant,指定在付清贷款后所希望的未来值或现金结存。例如,贷款的未来值在贷款付清后为 0 美元。但是,如果想要在 18 年间存下 50000 美元作为子女教育基金,那么 50000 美元为未来值。如果省略的话,缺省值为 0
type
可选。Variant 指定贷款到期时间。如果贷款是在贷款周期结束时到期,则请使用 0。如果贷款是在周期开始时到期,则请使用 1。如果省略的话,缺省值为 0

Pv

返回投资的现值。现值为一系列未来付款的当前值的累积和。例如,借入方的借入款即为贷出方贷款的现值。