VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - Excel下巧妙进行VBA编程
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11809, 日期:2002-04-07
Excel下巧妙进行VBA编程



焦红兵




  最近,在做一项实验的统计时,需将十组数据的每一组中的两个数据间分成100等份,填入Excel表中,这十组数据的每一组都有100多个数据。如此巨量的工作,别用手填,就是采用Excel的自动填充大法,也得把人累个半死。于是本人就想到了VBA……


目标


1、要有灵活性,既能计算选定组的全部数据,也能计算一组中选中的连续数据。

2、将数据写在同一工作表中的空白列中。

编程代码及注释

在VBA编程窗口中新建一模块,填入代码如下:


Sub my1()注释:在这里定义宏名称
Dim i As Integer
Dim n As Integer
Dim s As Integer
n=1
Dim cellx As Range 注释:cellx是要参与计算的数据对象
Dim celly As Range 注释:celly是存放计算结果的数据对象
Application.ScreenUpdating=False
注释:在进行大量数据运算时,将屏幕更新关掉,能快很多
Set celly=Selection.Offset(,13).Cells(1)
注释:定义偏移位置,使数据目标区域能随选择区域的不同,产生自动偏移
For Each cellx In Selection注释:开始运算,直到所选择数据的最后一个
Set cellx=Cells(cellx.Row+1,cellx.Column) 注释:从原始数据列的第二行开始,第一行是标题
If Cells(cellx.Row+1,cellx.Column)=Empty Then 注释:当选择整列进行运算时,要进行是否结束循环的判断
Exit For
EndIf
Cells(celly.Row+n,celly.Column).Value=cellx.Value
注释:运算数据并填充结果
For s=1 To 100
n=n+1
Cells(celly.Row+n,celly.Column).Value=Cells(celly.Row+n-1,celly.Column).Value+(Cells(cellx.Row+1,cellx.Column).Value-Cells(cellx.Row,cellx.Column).Value)/100
Nexts
Next cellx
Application.ScreenUpdating=True注释:打开屏幕更新
End Sub