对象/属性/方法/事件
（Object/Attribute/
Method/Event） |
描述
（Description） |
Ubound |
返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
语法
UBound(arrayname[, dimension])
arrayname 必需的。数组变量的名称，遵循标准变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。 |
Ucase |
返回 Variant (String)，其中包含转成大写的字符串。
语法
UCase(string)
必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。 |
Underline |
返回或设置应用于字体的下划线类型
本示例将 Sheet1 中活动单元格的字体设为单下划线。
Worksheets("Sheet1").Activate
ActiveCell.Font.Underline = xlUnderlineStyleSingle |
Undo |
撤消最后一次用户界面操作
本示例撤消最后一次用户界面操作。本示例必须放在宏的第一行。
Application.Undo |
Ungroup |
在分级显示中对一个区域进行升级（即降低其分级显示的级别）。
本示例取消 ORDER_DATE 字段的分组。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Ungroup |
Ungroup |
取消指定形状或者形状区域中组合形状的组合。取消指定形状或形状区域中图片和 OLE 对象的组合。
语法
表达式.Ungroup
表达式 一个代表 Shape 对象的变量。
返回值
一个 ShapeRange 对象，它代表取消组合的形状。 |
Union |
返回两个或多个区域的合并区域
本示例以公式“=RAND()”填充两个命名区域（“Range1”和“Range2”）的合并区域。
Worksheets("Sheet1").Activate
Set bigRange = Application.Union(Range("Range1"), Range("Range2"))
bigRange.Formula = "=RAND()" |
Unload |
从内存中删除一个对象。
语法
Unload object
必要的 object 参数，代表对象表达式，其值为“应用于”列表中的对象。 |
UnlockedFormulaCells |
如果该值为 True（默认值），则 Microsoft Excel 将识别未锁定并包含一个公式的选定单元格。如果该值为 False，则禁用包含公式的未锁定单元格的错误检查。Boolean 类型，可读写。 |
UnMerge |
将合并区域分解为独立的单元格
本示例将包含单元格 A3 的合并区域分解。
With Range("a3")
If .MergeCells Then
.MergeArea.UnMerge
Else
MsgBox "not merged"
End If
End With |
Unprotect |
取消工作表或工作簿的保护。
本示例取消当前活动工作簿的保护。
ActiveWorkbook.Unprotect |
Unprotect |
取消工作表或工作簿的保护
本示例取消当前活动工作簿的保护。
ActiveWorkbook.Unprotect |
Unprotect |
取消工作表或工作簿的保护。如果工作表或工作簿不是受保护的，则此方法不起作用。 |
UnprotectSharing |
关闭共享保护功能并保存工作簿。
本示例关闭共享保护，并保存当前活动工作簿。
ActiveWorkbook.UnprotectSharing |
UpBars |
返回 UpBars 对象，该对象表示折线图上的涨柱线。仅应用于折线图。只读。 |
Update |
根据保存在 Windows 注册表中的加载项列表更新 COMAddIns 集合的内容。 |
Update |
更新链接。 |
Update |
更新数据透视表。 |
UpdateFromFile |
如果磁盘上的工作簿版本比内存中的当前工作簿副本新，则用磁盘上保存的工作簿文件更新只读工作簿
本示例使用磁盘上的文件更新当前活动工作簿。
ActiveWorkbook.UpdateFromFile |
UpdateLink |
更新 Microsoft Excel 链接、DDE 链接或 OLE 链接。
本示例更新当前活动工作簿中的所有链接。
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources |
UpdateLinks |
返回或设置一个 XlUpdateLink 常量，该常量指示更新嵌入 OLE 链接的工作簿设置
在本示例中，Microsoft Excel 确定更新链接的设置，并通知用户。
Sub UseUpdateLinks()
Dim wkbOne As Workbook
Set wkbOne = Application.Workbooks(1)
Select Case wkbOne.UpdateLinks
Case xlUpdateLinksAlways
MsgBox "Links will always be updated " & _
"for the specified workbook."
Case xlUpdateLinksNever
MsgBox "Links will never be updated " & _
"for the specified workbook."
Case xlUpdateLinksUserSetting
MsgBox "Links will update according " & _
"to user settting for the specified workbook."
End Select
End Sub |
UpdateLinksOnSave |
如果该属性值为 True，则将文档保存为网页之前，自动更新超链接和所有指向支持文件的路径，以确保文档保存时包含最新的链接。如果该属性值为 False，则不更新链接。默认值为 True。Boolean 类型，可读写。 |
UpdateRemoteReferences |
如果 Microsoft Excel 对指定工作簿中导入的远程引用进行更新，则该值为 True
本示例更新活动工作簿中的远程引用。
ActiveWorkbook.UpdateRemoteReferences = True |
UpgradeOnRefresh |
包含有关是否在下一次刷新时升级 PivotCache 及所有连接的数据透视表的信息。可读/写 Boolean 类型。 |
Uri |
返回一个 String 类型的数值，该数值表示指定 XML 命名空间的统一资源定位符 (URI)。只读。 |
UsableHeight |
以磅为单位返回在应用程序窗口区域中一个窗口能占有的最大高度
本示例将活动窗口扩展为可用的最大值（假定指定窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With |
UsableHeight |
以磅为单位返回在应用程序窗口区域中一个窗口能占有的最大高度。
本示例将活动窗口扩展为可用的最大值（假定指定窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With |
UsableHeight |
返回在应用程序窗口区域中一个窗口能占有的最大高度（以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位）。Double 型，只读。
语法
表达式.UsableHeight
表达式 一个代表 Window 对象的变量。 |
UsableWidth |
以磅为单位返回在应用程序窗口区域中一个窗口能占有的最大宽度
本示例将活动窗口扩展为可用的最大值（假定指定窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With |
UsableWidth |
返回在应用程序窗口区域中一个窗口能占有的最大宽度（以磅 （磅：指打印的字符的高度的度量单位。1 磅等于 1/72 英寸，或大约等于 1 厘米的 1/28。）为单位）。Double 型，只读。
语法
表达式.UsableWidth
表达式 一个代表 Window 对象的变量。 |
USDollar |
将数字转换为文本格式并应用货币符号。方法的名称（及其应用的货币符号）取决于语言设置。 |
UseDefaultFolderSuffix |
根据所选或安装的语言支持，将含指定文档的文件夹后缀设置为默认后缀。 |
UsedObjects |
返回一个 UsedObjects 对象，该对象代表在工作簿中分配的对象
在本示例中，Microsoft Excel 确定已分配的对象的个数，并通知用户。本示例假定在应用程序中执行重新计算，并且在完成前中断重新计算。
Sub CountUsedObjects()
MsgBox "The number of used objects in this application is: " & _
Application.UsedObjects.Count
End Sub |
UsedObjects |
代表工作簿中已分配的对象
可用 Application 对象的 UsedObjects 属性返回一个 UsedObjects 对象
本示例假定在应用程序中执行重新计算，并且在完成前中断重新计算。
Sub CountUsedObjects()
MsgBox "The number of used objects in this application is: " & _
Application.UsedObjects.Count
End Sub |
UsedRange |
返回代表指定工作表上已使用区域的 Range 对象
本示例选定 Sheet1 中的已用区域。
Worksheets("Sheet1").Activate
ActiveSheet.UsedRange.Select |
UseLocalConnection |
如果 LocalConnection 属性用于指定使 Microsoft Excel 能够连接到数据源的字符串，则返回 True。如果使用 Connection 属性指定的连接字符串，则返回 False。Boolean 类型，可读写。 |
UseLongFileNames |
如果该属性值为 True，则将文档保存为网页时使用长文件名。如果该属性值为 False，则不使用长文件名，而使用 DOS 文件名格式（8.3）。默认值是 True。Boolean 类型，可读写。 |
UseMemberPropertyAsCaption |
此属性用于控制是否将成员属性标题用于透视字段的 PivotItem 标题。可读/写 Boolean 类型。 |
UserControl |
如果应用程序可见，或者用户已创建或启动应用程序，则该值为 True
本示例显示 UserControl 属性的状态。
If Application.UserControl Then
MsgBox "This workbook was created by the user"
Else
MsgBox "This workbook was created programmatically"
End If |
UserDict |
当在工作表上执行拼写检查时，指示 Microsoft Excel 创建自定义词典，以便向该词典中添加新单词。String 类型，可读写。 |
UserLibraryPath |
返回用户计算机上 COM 加载宏安装位置的路径
本示例确定用户计算机上 COM 加载宏的安装路径， 并为变量 strLibPath 赋一个字符串值。
strLibPath = Application.UserLibraryPath |
UserName |
返回或设置当前用户的名称
本示例显示当前用户的名称。
MsgBox "Current user is " & Application.UserName |
UserPicture |
用图像填充指定的形状。 |
Users |
返回工作表上受保护区域的一个 UserAccessList 对象。 |
UserStatus |
返回一个基于 1 的二维数组，该数组提供有关每一个以共享清单模式打开工作簿的用户的信息
本示例新建一个工作簿，并将所有以共享清单模式打开活动工作簿的用户的信息插入新工作簿。
users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
For row = 1 To UBound(users, 1)
.Cells(row, 1) = users(row, 1)
.Cells(row, 2) = users(row, 2)
Select Case users(row, 3)
Case 1
.Cells(row, 3).Value = "Exclusive"
Case 2
.Cells(row, 3).Value = "Shared"
End Select
Next
End With |
UserTextured |
用平铺的小图像填充指定形状。如果要用一个大图像来填充该形状，请使用 UserPicture 方法。 |
UseStandardHeight |
如果Range对象的行高等于工作表的标准行高，则该值为 True
本示例将工作表 sheet1 上行一的行高设置为标准行高。
Worksheets("Sheet1").Rows(1).UseStandardHeight = True |
UseStandardWidth |
如果Range对象的列宽等于工作表的标准列宽，则该值为 True
本示例将工作表 sheet1 上的 A 列的列宽设置为标准列宽。
Worksheets("Sheet1").Columns("A").UseStandardWidth = True |
UseSystemSeparators |
如果 Microsoft Excel 的系统分隔符可用，则该值为 True
本示例中，“1,234,567.89”位于单元格 A1 中。然后十位和千位系统分隔符被更改为短划线。
Sub ChangeSystemSeparators()
Range("A1").Formula = "1,234,567.89"
MsgBox "The system separators will now change."
' Define separators and apply.
Application.DecimalSeparator = "-"
Application.ThousandsSeparator = "-"
Application.UseSystemSeparators = False
End Sub |