ntjm.net
当前位置:首页 >> ExCEl vBA rAngE详解 >>

ExCEl vBA rAngE详解

Public Function fun(r As Range)Dim arr(1 To 10000) '默认处理10000个单元格For Each c In rIf IsNumeric(c.Value) Thenk = k + 1arr(k) = c.Value * c.ValueEnd IfNext cfun = Application.WorksheetFunction.Sum(arr)End Function注:请将代码粘贴到VBA模块里后,函数生效.

Dim myrange as rangeSet myrange = Selectionmyrange.Cells(1, 1).EntireRow.Delete 一行定义,二行取值,三行删除

Micorsoft Excel VBA 帮助中说:Range是一个对象,代表某一单元格、某一行、某一列、某一选定单元格区域(该选定区域可包含一个或多个连续单元格块).Range("A5").Value Range("A1:H8").Value

range的常见用法1.表示单元格 range("A1")表示第一行第一列的单元格,实质上于cells(1,1)效果一样.两者在这种情况下是一样的,但是两者的关系可以这样理解,range对象是单元格对象的集合.range对象在表示单元格的时候不可以像cells(i,

第一句和最后一句是程序外壳给这段程序起个名,没有实际意义以单引号开头的代码是注释,没有实际意义第一段Dim是定义变量,定义成整型,没有实际意义Application.ScreenUpdating = False'让屏幕停止刷新For iCounter = 2 To 55Cells(

range("j"&j) range("k"&j) 、、、、 括号里是双引号里为列标,后面加个连接符号&和变量名称j

假设ref代表的文本是:b2:c6那么:range(ref)就表示b2到c6的范围; range(ref).range("a1")就表示b2到c6这个范围的左上角第一个单元格,即b2单元格这样做能确保定位到一个单元格上,而不是一个区域

Worksheets("sheet2").range(Worksheets("sheet2").cells(i,1),Worksheets("sheet2").cells(j,1)).select WorksheetFunction.Sum(sheets("sheet2").Range(sheets("sheet2").Cells(i, 5), sheets("sheet2").Cells(i, 8)))

第一行代码加上 set, 即 set num = sheets(3).range("a3:a14")第二行前面加: num.copy

如果将对象变量设置为 Range 对象,即可用变量名方便地操作单元格区域.下述过程创建了对象变量 myRange,然后将活动工作簿中 Sheet1 上的单元格区域 A1:D5 赋予该变量.随后的语句用该变量代替该区域对象,以修改该区域的属性.Sub Random() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:D5") myRange.Formula = "=RAND()" myRange.Font.Bold = TrueEnd Sub

网站首页 | 网站地图
All rights reserved Powered by www.ntjm.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com