将所选区域统一加上指定值
(您认为本文值几颗星)
Loading ...程序功能：用户可以指定一个值，所选区域各单元格中的数值将统一加上该值，并返回结果。
程序用途：有时，用户可能想对某些单元格加上相同的值。使用本程序，将一次对所选区域加上指定的值。
程序代码：
Sub psAdd()
Dim y As Integer ‘用户自定义要增加的值
Dim x As Range ‘为变量的空单元格
Dim z As Range ‘处理的选择区域
Set z = Selection
y = Application.InputBox(”输入要对选区增加的数量:”, _
Title:=”添加以选区”, Default:=10, Type:=1)
Set x = Range(”A65536″).End(xlUp).Offset(1)
If y = 0 Then Exit Sub ‘取消按钮= 0,因此退出
If x <> “” Then
Exit Sub
Else
x.Value = y
x.Copy
z.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Application.CutCopyMode = False ‘取消复制模式
End If
x.ClearContents ‘恢复正常
End Sub
程序使用：选择所要加上相同值的单元格区域，运行程序，在消息框中输入值(默认为10)，单击“确定”后，所选区域中所有单元格将加上所输入的值。
程序说明：本程序使用了选择性粘贴中的“加”功能。
示例下载：http://www.drexcel.cn/article.asp?id=31
发表评论