Excel VBA对象属性大全

VBA必知必会

第4章Range（单元格）对象

选取单元格[A1].Select

[A1:D8].Select

[A1:D8,A20:C25,F6:G10].Select

[A:A].Select

[A:D].Select

[A:A,C:C,H:H].Select

[1:1].Select

[5:20].Select

[1:1,3:3,5:5].Select

Cells.Select

选取与某值不同的单元格S heets(1).Columns("A").ColumnDifferences(Comparison:合并单元格区域Union(Range("A1:B10"),Range("D1:E10"),Range("G1:G10"))

Range(Range("A1:B10"),Range("D1:E10"),Range("G1:G10"))活动单元格ActiveCell

已用的单元格http://doc.guandang.netedRange

空行围成的单元格[a1].CurrentRegion.Rows.Cells

可视单元格区域ActiveWindow.VisibleRange

公式引用的单元格[a1].Precedents

Application.Evaluate([a1].Formula)

从属单元格[a1].Dependents

特殊单元格选取Activesheet.cells.SpecialCells(x,y).Select

x为：

xlCellTypeAllFormatConditions

xlCellTypeAllValidation

xlCellTypeBlanks

xlCellTypeComments

xlCellTypeLastCell

xlCellTypeVisible可见

xlCellTypeSameFormatConditions

xlCellTypeSameValidation

xlCellTypeConstants

xlCellTypeFormulas

当x为xlCellTypeConstants或xlCellTypeFormulas时y为：

xlError

xlLogical

xlNumbers

xlTextValues

偏移单元格[a1].Offset(x,y)

调整单元格Resize(x,y)

单元格总数Sheet(1).Cells.Count

A列最后非空一行Range("A65536").End(xlUp).Row

第一行最后非空一列Range("IV1").End(xlToLeft).Column

隐藏行列[a1].EntireRow.Hidden=True/False

[a1].EntireColumn.Hidden=True/False

Rows(1).Hidden=True/False

Columns(1).Hidden=True/False

VBA必知必会

Rows.Hidden=True/False

Cells.Rows.Hidden=True/False

Columns.Hidden=True/False

设置行高列宽[A1].RowHeight=n

[A1].ColumnWidth=n

设置列宽行高(厘米）Application.CentimetersToPoints(1)

Application.CentimetersToPoints(2)

设置列宽行高(英寸）Application.InchesToPoints(1)

Application.InchesToPoints(0.5)

自动调整单元格[A1].EntireColumn.AutoFit

[A1].EntireRow.AutoFit

设置滚动区域Sheets(1).ScrollArea=[a1]

Sheets(1).ScrollArea=""

输入公式[a1].Formula="=TODAY()"

是否有公式单元格[a1].HasFormula=True/False

是否有数组公式单元格[a1].HasArray=True/False

设置为数组公式[A1].FormulaArray="数组公式"

单元格引用样式[A1].Address

[A1].Address(False,False)

[A1].Address(RowAbsolute:=False)

[A1].Address(ColumnAbsolute:=False)

[A1].Address(ReferenceStyle:=xlR1C1)

[A1].Address(False,False,ReferenceStyle:=xlR1C1)

[A1].Address(RowAbsolute:=False,ReferenceStyle:=xlR1C1)

[A1].Address(ColumnAbsolute:=False,ReferenceStyle:=x

单元格剪切[A1].CutDestination:=[b1]

单元格复制[A1].CopyDestination:=[b1]

[A1].Copy[b1]

将单元格复制成图片[A1].CopyPicturexlScreen,xlBitmap

[B1].Select

[B1].Parent.Pictures.Paste

选择性粘贴[A1].Copy

[B1].PasteSpecialPaste:=x,Operation:=y,SkipBlanks:=True/False

x为：

xlPasteAll

xlPasteAllExceptBorders

xlPasteColumnWidths

xlPasteComments

xlPasteFormats

xlPasteFormulas

xlPasteFormulasAndNumberFormats

xlPasteValidation

xlPasteValues

xlPasteValuesAndNumberFormats

y为：

xlPasteSpecialOperationNone

xlPasteSpecialOperationAdd

VBA必知必会

xlPasteSpecialOperationSubtract

xlPasteSpecialOperationMultiply

xlPasteSpecialOperationDivide

插入行列[A1].InsertShift:=xlToRight

[A1].InsertShift:=xlDown

[A1].EntireRow.InsertShift:=xlShiftDown

[A1].EntireColumn.InsertShift:=xlShiftToRight

删除行列[A1].DeleteShift:=xlUp

[A1].DeleteShift:=xlToLeft

[A1].EntireRow.DeleteShift:=xlUp

[A1].EntireColumn.DeleteShift:=xlToLeft

清除单元格[A1].ClearFormats

[A1].ClearContents

[A1].ClearComments

[A1].ClearNotes

[A1].Clear

拼音指南[a1]="拼音"

[a1].Characters(1,3).PhoneticCharacters="pinyin"

[a1].Phonetic.Visible=True

批注设置With[a1]

.Comment.Delete

.AddComment.Text/"批注内容"

.Comment.Visible=False

.Comment.TextText:="插入内容",Start:=1,

EndWith

[a1].NoteText

超链接设置Sheets(1).Hyperlinks.Delete

Sheets(1).Hyperlinks.AddAnchor:=[a1],Address:="",

Sheets(1).Hyperlinks.AddAnchor:=[a1],Address:="路径",ScreenTi 数据有效性设置[a1].Validation.AddType:=x,AlertStyle:=

_xlValidAlertStop,Operator:=y,Formula1:="100"

x为：

xlValidateWholeNumber

xlValidateDecimal

xlValidateDate

xlValidateTime

xlValidateTextLength

xlValidateList

y=xlEqual,Formula1:="1,2,3,4,5,6,7,8,9,10,11,12"

y=xlBetween,Formula1:="=$D$1:$D$10"

y为：

xlBetween后面加：Formul2:="1000"

xlGreater

xlLess

xlGreaterEqual

xlLessEqual

xlNotEqual

VBA必知必会

xlEqual

.IgnoreBlank=True

.InCellDropdown=True

.InputTitle="整数"

.ErrorTitle="数据错误"

.InputMessage="请输入整数"

.ErrorMessage="数据超出了范围"

.IMEMode=xlIMEModeOff

.ShowInput=True

.ShowError=True

单元格填充设置[A1:A20].Cells(1).Value=x

[A1:A20].Cells(1).AutoFillDestination:=[A1:A20],Type:=y

y为：

xlFillDaysx为日期型

xlFillFormats

xlFillSeriesx为数值/公式

xlFillWeekdaysx为日期型

xlGrowthTrend

xlFillCopy

xlFillDefault

xlFillMonthsx为日期型

xlFillValuesx为数值/公式

xlFillYearsx为日期型

xlLinearTrend

单元格数字设置[a1].NumberFormatLocal=x

x为：

G/通用格式

0_

#,##0.00_);[红色](#,##0.00)

yyyy-m-d

h:mm:ss

…… 此处隐藏：3879字，全部文档内容请下载后查看。喜欢就下载吧 ……