求一个宏或者公式

[fulcrumtian]

在excel里面用
要求有以下功能

我选定一些单元格，然后运行 宏 ，程序提示我输入一个数字，
输入后，
所有选定单元格的值变成了以前该单元格的值和这个数字的和

（用来改价格单的，呵呵）

谢谢

[ChinaOBS]

很简单啊：

Sub Test()
    Dim w1 As String
    w1 = InputBox$("请输入数值:", "输入", "0")
    If w1 = "" Then Exit Sub
    Dim Rng As Range
    For Each Rng In Selection
        Rng = Rng + Val(w1)
    Next
End Sub

[fulcrumtian]

测试通过，谢谢

老兄能顺便介绍下比较好的讲这个vba的书或者网站么？