您正在查看: 标签 应用程序 下的文章

Validation 属性

Validation 属性

返回 Validation 对象,该对象代表指定区域内的数据有效性检验。只读。

示例

本示例使单元格 E5 的数据有效性检验为允许有空值。

Range("e5").Validation.IgnoreBlank = True

VacatedStyle 属性

VacatedStyle 属性

返回或设置当数据透视表刷新时,应用于空单元格的样式。默认值为无效字符串。(默认状态下没有样式应用)。String 类型,可读写。

示例

本示例将数据透视表中移出的单元格设置为 BlackAndBlue 样式。

Worksheets(1).PivotTables("Pivot1").VacatedStyle = "BlackAndBlue"

UseSystemSeparators 属性

UseSystemSeparators 属性

如果 Microsoft Excel 的系统分隔符可用,则该值为 True(默认值)。Boolean 类型,可读写。

expression.UseSystemSeparators

expression 必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例中,“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.<b>UseSystemSeparators</b> = False

End Sub

UseStandardWidth 属性

UseStandardWidth 属性

如果 Range 对象的列宽等于工作表的标准列宽,则该值为 True。如果区域包含不止一列并且不是所有的列都等宽,则返回 NullVariant 类型,可读写。

示例

本示例将工作表 sheet1 上的 A 列的列宽设置为标准列宽。

Worksheets("Sheet1").Columns("A").UseStandardWidth = True

UseStandardHeight 属性

UseStandardHeight 属性

如果 Range 对象的行高等于工作表的标准行高,则该值为 True。如果区域包含不止一行并且不是所有的行都等高,则返回 NullVariant 类型,可读写。

示例

本示例将工作表 sheet1 上行一的行高设置为标准行高。

Worksheets("Sheet1").Rows(1).UseStandardHeight = True