EXCEL VBA常用代码解析8

作者:rongqian
Range对象 (180) Range(A1:A10).value="/Application.WorksheetFunction.Transpose(MyArray)" ‘将一个含有10个元素的数 组转置成垂直方向的工作表单元格区域(A1至A10) 注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的 一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。(181) Range(“A65536”).End(xlUp).Row+1 ‘返回A列最后一行的下一行(182) rng.Range(“A1”) ‘返回区域左上角的单元格 (183) cell.Parent.Parent.Worksheets ‘访问当前单元格所在的工作簿 (184) Selection.Font.Bold=Not Selection.Font.Bold ‘切换所选单元格是否加粗(185) ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _ Header:=xlYes ‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列(186) cell.Range(“A1”).NumberFormat ‘显示单元格或单元格区域中的第一个单元格的数字格式 (187) cell.Range(“A1”).HasFormula ‘检查单元格或单元格区域中的第一个单元格是否含有公式或cell.HasFormula ‘工作表中单元格是否含有公式(188) Cell.EntireColumn ‘单元格所在的整列  Cell.EntireRow ‘单元格所在的整行 (189) rng.Name.Name ‘显示rng区域的名称(190) rng.Address ‘返回rng区域的地址 (191) cell.Range(“A1”).Formula ‘返回包含在rng区域中左上角单元格中的公式。 注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中没有公式，会得到一个字符串， 在公式栏中显示该单元格的值。 (192) Range(“D5:D10”).Cells(1,1) ‘返回单元格区域D5:D10中左上角单元格(193) ActiveCell.Row ‘活动单元格所在的行数  ActiveCell.Column ‘活动单元格所在的列数 (194) Range("A1:B1").HorizontalAlignment = xlLeft ‘当前工作表中的单元格区域数据设置为左对齐(195) ActiveSheet.Range(“A2:A10”).NumberFormat=”#,##0” ‘设置单元格区域A2至A10中数值格式 (196) rng.Replace “ “,”0” ‘用0替换单元格区域中的空单元格
Collection与object (197) Dim colMySheets As New Collection Public colMySheets As New Collection ‘声明新的集合变量 (198) Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量 (199).Add Cell.Value CStr(Cell.Value) ‘向集合中添加惟一的条目(即将重复的条目忽略)
Windows API
(200) Declare Function GetWindowsDirectoryA Lib “kernel32” _(ByVal lpBuffer As String,ByVal nSize As Long) As Long ‘API函数声明。返回安装Windows所在的目录名称，调用该函数后，安装Windows的目录名称将在第一个参数lpBuffer中，该目录名称的字符串长度包含在第二个参数nSize中