Question

请VBA高手帮忙写个控制EXCEL的程序代码

我需要做一个批量更改excel里面价格的工具，具体为我选择一个区域，通过一个控制面板输入一个数字，点击控制面板上面的确定按钮后，使我选择区域内的所以单元格中的数字都变为原数字和我在控制面板上输入的数字之和。
简单的说就是做一个批量更改价格的工具，请高手赐一完整代码。谢谢!本人高分献上！

Answer 1

Option Explicit
Dim jg As Double
Private Sub Worksheet_selectionChange(ByVal Target As Range)
On Error GoTo er
jg = Target.Value
er: Exit Sub
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo er
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = Target.Value + jg
er: Application.EnableEvents = True
End Sub

右击工作表名称，点击“查看代码”，把这段代码粘贴进去，再试一下，看看。

Answer 2

我来试试，完成后直接把最终文件给你，拿去就直接使用。

Answer 3

Sub 按钮1_单击()
Dim rg As Range
ch = InputBox("请输入修正数字:")
If ch <> "" Then
For Each rg In Selection
rg.Value = rg.Value + ch
Next
End If

End Sub

选择你要修改的单元格后,点按钮运行上面的代码,在弹出的框里输入你要加的数字,确定即可.

子易空间站 - Excel培训专家

Answer 4

新建一个模块，并将我所给的代码复制到该模块中；然后在工作表中画个按钮，并在右键菜单中选择“指定宏”，并选择此宏。

Answer 5

视图-工具栏-控件工具箱，画一个命令按钮出来。然后双击此按钮，在代码编辑区粘贴如下代码：
Private Sub CommandButton1_Click()
Dim myString As String

myString = InputBox("请输入您需要加上的价格", "请输入")

For Each c In Selection
c.Value = c.Value + myString
Next c
End Sub

使用方法：选择区域后，点击此按钮会弹出输入框，输入你的数据，确定即可。

Answer 6

楼主，我想试一下，请Hi我...