[已解决]代码完善：A列乘以任意数（对话框式）后在A列显示结果

maydbl

特殊用途需要，须用代码解决：

       想把A列乘以任意数（对话框式）后在A列显示结果。弄了一个代码，只能单步执行.
同时，若A列的最后一行为任意行，又该怎样做呢？（详见附件）
      求指导！
      谢谢关注！^_^

Sub 乘以任意倍率()
Dim x%, m(2)
For x = 1 To 10 Step 1
Cells(x, 1) = Cells(x, 1) * (InputBox(m(n) & "倍率值", "设置倍率", "2"))
Next
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-16 23:19

Sub 乘以任意倍率()
    Dim x%, m(2), r%
    r = Range("a65536").End(xlUp).Row
    For x = 1 To r Step 1
        Cells(x, 1) = Cells(x, 1) * (InputBox(m(n) & "倍率值", "设置倍率", "2"))
    Next
End Sub



不知为什么这样？只改了循环到A列的最后一行为任意行。
难道需要每行都弹输入框？

跳转到最佳答案楼层

爱疯

Sub 乘以任意倍率()
    Dim x%, m(2), r%
    r = Range("a65536").End(xlUp).Row
    For x = 1 To r Step 1
        Cells(x, 1) = Cells(x, 1) * (InputBox(m(n) & "倍率值", "设置倍率", "2"))
    Next
End Sub



不知为什么这样？只改了循环到A列的最后一行为任意行。
难道需要每行都弹输入框？

maydbl

爱疯 发表于 2016-5-16 23:19
Sub 乘以任意倍率()
    Dim x%, m(2), r%
    r = Range("a65536").End(xlUp).Row

对不起！是我叙述得不清楚，参照超级版主的提醒，我搞好了。感谢爱疯版主！

我想得到的结果是这样的：
Sub 乘以任意倍率()
Dim arr, m(2)
x = Val(InputBox(m(n) & "倍率值", "设置倍率", "2")) '(InputBox("请输入速度倍率："))
arr = Range("a1:a" & Range("a65536").End(xlUp).Row)
For i = 1 To UBound(arr)
arr(i, 1) = arr(i, 1) * x
Next
Range("b1").Resize(UBound(arr), 1) = arr
End Sub