依稀幸福 发表于 2009-9-7 19:55

借人气问一下VBA的问题,问到马上删!!!!!!

本帖最后由 依稀幸福 于 2009-9-7 21:10 编辑

完全不会VBA,但是突然有个问题要解决,问题如下:
B1是可以变化的,B21是因B1变化而引起变化的单元格
现在我想让B1从1%到300%不断变化的值分别列在B24到KO24里
见到一个类似的问题,我把代码试着改了一下,但是有错误,想请大家帮我看看。感激不尽啦{:5_381:} {:5_381:}

Sub Makro2()
Dim i As Long, result(1 To 300) As Double
Sheets("Tabelle1" ) .Select
For i = 1 To 3
step = 0.01
Range("B1" ) .Select
ActiveCell.Value = i
Range("B21" ) .Select
result(i) = ActiveCell.Value
Next i
For i = 24 To 324
Range("24" & i ) .Value = result(i - 24)
Next i
MsgBox "It is finished! "
End Sub

依稀幸福 发表于 2009-9-7 20:26

顶上去{:5_395:}

真疯了 发表于 2010-3-12 23:16

Next i不对。 没有i

Range("24" i ) .Value 语法不对吧,Cells(24, i) = ...

能想到的就这些,我VBA也不是专家,就是平时用点。还是DEBUG一下吧。
页: [1]
查看完整版本: 借人气问一下VBA的问题,问到马上删!!!!!!