Office中国论坛/Access中国论坛

标题: 可以实现批更改数据的代码 [打印本页]

作者: 罗生门 时间: 2004-12-23 22:45
标题: 可以实现批更改数据的代码
这个代码的作用是可以实现对成批的数据进行整体变换的功能,比如说将所有的数据整理扩大或者缩小1000倍.如果你的老板叫你把UNIT从普通变成千或万,这个代码可以一次实现.

Sub rangechange()

Dim i As Integer

Dim j As Integer

Dim x As Integer

Dim y As Integer

Dim m As Integer

Dim n As Integer

Dim myarea As Range

Dim mycell() As Long

Set myarea = ActiveWindow.RangeSelection

x = myarea.Rows.Count

y = myarea.Columns.Count

m = ActiveCell.Row

n = ActiveCell.Column

ReDim mycell(x, y)

For i = 0 To x - 1

  For j = 0 To y - 1

  mycell(i, j) = ActiveSheet.Cells(m + i, n + j).Value

  Next j

Next i

For i = 0 To x - 1

For j = 0 To y - 1

ActiveSheet.Cells(m + i, n + j).Value = mycell(i, j) / 1000

Next j

Next i

End Sub

这个是我自己做的,可以改进的地方是可不可以实现不连续区域的改变,请大家帮忙扩展啊

作者: 老鬼 时间: 2004-12-24 00:03
下面的代码可以实现将所有选定区域的值转化为所需的值：For Each rng In Selection.Areas

For Each cel In rng

cel.Value = cel.Value / 1000

Next

Next

作者: 罗生门 时间: 2004-12-30 01:11
[em02]呵呵，有意思，比偶的简单多了啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)